4850匝道程序.doc

PAGE  PAGE 18 程 序 说 明 卡西欧4800或4850计算主线及其匝道中边桩坐标，高程，反算任意点桩号及其距中距离，以及边坡超欠挖情况。 主程序1 “ZA DAO”（用N值判断那条线路） “N=0，1，2，3，4，5，6，7，8，9”▲ ∠b|0：{K}：N：N=0=prog“ZHU XIAN”: ≠N=1=prog“AZA”: ≠N=2=prog“BZA”: ≠N=3=prog“CZA”: ≠N=4=prog“DZA”: ≠N=5=prog“EZA”: ≠N=6=prog“FZA”: ≠N=7=prog“GZA”: ≠N=8=prog“HZA”: ≠N=9=prog“AS”:┘(被交道阿森主线) 主程序：2 “N0-9H”（用N值判断那条线路的高程） “N=0，1，2，3，4，5，6，7，8，9”▲ ∠b|0：{K}：N：N=0=prog“ZHU XIAN H”： ≠N=1=prog“AZ H”: ≠N=2=prog“BZ H”: ≠N=3=prog“CZ H”: . . . ┘ 主程序:3 桩距“ZHUANG JU”（由三??坐标反算桩号和边桩距离及其坡角） {X:Y:H}:Z[38]=1： X“XP=”：Y“YP=”：H“H=”：N“N=”：Q“KQ=”：Z“KZ=”： Z[21]=X：Z[22]=Y：Z[23]=H:┘ ∠b|0：Z[24]=Q：Z[25]=Z： K=Q：Prog“ZA DAO”Z[26]=Z[12]:Z[27]=Z[13]:┘ K=Z：Prog“ZA DAO”：Z[28]=Z[12]:Z[29]=Z[13]:┘ pol((Z[28]-Z[26]),(Z[29]-Z[27])):Z[30]=I: J0=Z[31]=J+360:≠Z[31]=J:? pol((Z[21]-Z[26]),(Z[22]-Z[27])):Z[32]=I： J0=Z[33]=J+360:≠Z[33]=J:? (Z[31]-Z[33])-270=Z[34]=-1:Z[35]=(360-Z[33]+Z[31])：≠ (Z[31]-Z[33])0=Z[34]=1:Z[35]=(Z[33]-Z[31])：≠ (Z[31]-Z[33])270=Z[34]=1:Z[35]=360-Z[31]+Z[33]：≠ (Z[31]-Z[33])0=Z[34]=-1:Z[35]=Z[31]-Z[33]:???? Z[36]=Q+Z[32]*cosZ[35]： Z[37]=Z[32]*sinZ[35]： Z[38]=Z[38]+1(计数器:初始值为1)┘ Z[38]=2=“50M”:Q=Z[36]-50:Z=Z[36]+50:Goto 0：≠ Z[38]=3=“1m”:Q=Z[36]-1：Z=Z[36]+1:Goto 0：≠ Z[38]=4=“0.1m”:Q=Z[36]-0.1:Z=Z[36]+0.1:Goto 0：≠ “ZHUANG HAO=” ┘ K=Z[36] ▲ Z[34]0=“ZUO=”:Z[37] ▲ ≠“YOU=”:Z[37] ▲? Prog“N0-9H”┘ 主程序:4 “QIAO HAN”(桥涵任意角点) ∠b|0:prog:“ZA DAO”: ∠b|1:{FST}:Z[70]=F+S+T:(输入顺序为FST) Z[71]=√(S^2+T^2-2*√(S^2)*√(T^2)*cos(180-F)): Z[72]=√(S^2+T^2-2*√(S^2)*√(T^2)*cosF): Z[73]=cos-1((T^2+Z[71]^2/4-Z[72]^2/4)/√(T^2/Z[71])): Z[74]=cos-1((S^2+Z[72]^2/4-Z[71]^2/4)/√(S^2/Z[72])): S≥0 =Goto 2:≠Goto 3: ∠b|2:T0 =Z[75]=Z[11]+Z[73]:S=Z[71]:Goto 4: ≠T0 =Z[75]=Z[11]+F+Z[74]:S=Z[72]:Goto 4:? ∠b|3:T0 =Z[75]=Z[11]+180+Z[73]:S=Z[71]:Goto 4: ≠T0 =Z[75]=Z[11]+180+F+Z[74]:S=Z[72]:Goto 4:? ∠b|4:Z[75]360=Z[75]=Z[75]-360:≠Z[75]=Z[75]:? Z[76]=Z[12]+S*cosZ[75]:Z[77]=Z[13]+S*sinZ[75]: “X=”┘ Z[76]▲ “Y=”┘ Z[77]▲ Goto 1:┘ 子程序：1 “ZHY”(直缓圆中边桩坐标计算程序) Z[1]=Abs(K-Z): Z[2]=1/R: Z[3]=(R-S)/(2HRS): Z[4]=180/∏: