《卡西欧5800P主线坐标高程匝道坐标程序汇总3精》由会员分享，可在线阅读，更多相关《卡西欧5800P主线坐标高程匝道坐标程序汇总3精（11页珍藏版）》请在金锄头文库上搜索。
1、Casio 5800P计算程序对程序的错漏进行了修改。对主线坐标程序进行改进。2011/3/21匝道坐标计算程序A03ZDZB主程序名E二” ?Q:IfEndN二” ？O:lf O=0:Then Goto 0:ElseLbl 0:” A=1,B=2,C=3,D=4,E=5,H=6,J=7” ?A: ” K二” ?KIf A=1:The n prog“A” Goto 1:1匝道数据库If A=2:The n progB” Goto 1:lfg道数据库If A=3:The n progG :Goto 1:Ifen匝道数据库If A=4:The n prog“D” Goto 1:1匝道数据库If A
2、=5:The n progE” Goto 1:1匝道数据库If A=6:The n prog:Goto 1:11匝道数据库If A=7:Then prog “ J ”：Goto 1 匝道数据 库Lbl 1:prog“ZDJS :G主程序完。ZDJS为计算过程子程序ZDJS计算子程序?G:IfE nd30 DimZ:K-F l:(D-C/(Z-F*l L:V+( L+ 2C*I*90/ nP:If P360:Then P-36( P:IfE nd:lfE nd:“ HR= :PDMSNorm 1:“ HD兰?M:If M=0: Then Goto 7:Else“ HJ=(Z=1,Y=+Lbl 7
3、:Fix 3:“ X二”：N+l*(cos(V+4 刀(cos(V+7.5(2H+1*I*(2H+1*L/12+2C/n ,H,0,5+2 刀(cos(V+15HI(HL/6+2C/ n ,H,1,5+cos(P/36+Mcos(P+GX“ Y 二”：E+I*(si n(V+4刀(si n(V+7.5(2H+1*l*(2H+1*L/12+2C/n ,H,0,5+2 刀(sin(V+15HI(HL/6+2C/ n ,H,1,5+sin(P/36+Msin (P+GYX-Z29:Y- Z30:lf O=0:Then Goto 8:Else Prog“FS :IfEndLbl 8:Norm 1:10
4、x ”?S+K10S序结束FS极坐标计算子程序30-DimZ:Pol(Z29-0,Z30-Q:lf JJ:IfEnd:“H二” ：JDMSFix 3:“ HD=程序结束匝道数据库输入范例:A直线、圆曲线、缓和曲线(包括卵形曲线)一种线形为一组要素If K 167.43: Then 167.44F:334.684 Z:4218611.934 N: 415610.526E:323 22 24/:0 C:1/300 D:IfEndIf K 334.684: Then其他匝道数据输入同此程序说明：0=测站点X坐标，输0为不计算测站点到待求点方位角与距离Q=测站点Y坐标A=计算A匝道输入1, B输入2,
5、 C输入3K=待求点里程HR=待求点的中线前进方位角HD=中线到边桩的距离，输入正值即可，计算中桩坐标输入0HJ二中线与边桩夹角，左边-值右边+值X=待求点X坐标丫二待求点丫坐标(HJ=测站点至待求点方位角(HDI二测站点至待求点距离10x二桩号自动递增或递减，如果是计算 20m递增的里程，可以输入 2,计算循环后，K自动递增，输入-2自动递减。数据库字母含义：F=线元起点里程Z=线元终点里程N=起点坐标XE二起点坐标YV=起算点方位角C二起点曲线半径的倒数，直线为0,曲线左转为负，右转为正D=终点曲线半径的倒数，直线为0,曲线左转为负，右转为正 主线坐标程序A01ZXZB主程序名30-Dim
6、Z :Norm 1:“N= ？(O=0:Then Goto 9:Else“E二” ？Q:lfEndLbl 9:“ LI CHENG二” ？K:prog“ B01ZB：TA2/RZ1:（缓和曲线长Ls1xozNf DLN)s8HtN)F7LNfc0LN+RLNc0LNf 9 二q_l寸 OOOAH D0Nvy0 OOOAHO0Nvyz OOOAH K0NvyL OO0AH【寸 0NvyKLNf RLNU 一 SOLNZ+山于 LNf PLN)S8OLNZ+Npu 山二 zfozNfoNFTQNf KNoLNfooNF7LNfM+esmzf LJ.oQNfgzFTQNfoNoLNf EZF7LNf
7、u.L 二 90Nvu_pu 山:丄 sujTf L u ILLOVM4_DQNfsz+oQN 二 90Nf DLN+EO0NUTQNf Ez 二寸 0N二寸 0Nf EZUL(A_lIs 画)XLLNfoln亠 6NO8L* M)sqv)*HoLNf EQszsrNf emln ,s yooNfCDN+M)sqv)ueM9N+M)sqv)uoN+ 匚 ,s )LNf寸N+M)sqv)ueMcoN+M)sqv)uloN+ *報虽二oNf8)VEO09 卜 0989005)vsz +9)VE09998COS2卜)vsz寸)VE099 寸$9)VSZ+0VEO 寸 Qco)vszQsz Qd 迴:
8、報虽二loNf 卜)VEOO8808 寸 9L5O)VSZ lo)VE08890 里9)VSZ+CO)V#SO89Q寸)VszE寸 Qnvsz0s_l*報矣wjszf tdvn Lb*u 報虽)X 寸Nf8)VEO09 卜 0989005)ln +9)ve09998co22 ln寸)VE099 寸$9)ln+0veo 寸 qco)lnc:報虽二szf 卜)VEOO8808 寸 9l50)ln lo)v08890 里9)vdn+co)v#5o89q寸)vlne寸 0=Z21:Goto 6Lbl 5:0 Z16:Z12-JZ16 Z17:(K-Z27 cos(Z12Z20:(K- Z27 sin(
9、Z12 Z21:Goto 6Lbl 6:Norm 1:“ HR= ：DMS“ HD= ？M:lf M=0: Then Goto 7:Else“ HJ=(Z=1,Y=+ ” ？G:lfEndLbl 7:Fix 3:“ X二”：Z14+Z20+Mcos(Z17+G“ Y二”：Z15+Z21+Msin(Z17+G Y X-Z29:Y- Z30:lf O=0:Then Goto 8:Else Prog“FS :IfEndLbl 8:Norm 1:“ 10x” ?S-KK1oto 9 程序结束FS程序与匝道共用数据库输入范例：B01ZB数据库If K 72905.727:Then 73528.2 F:
10、4219450.207 N:419643.357E: 0 T:0 U: 4000 R: 265 5T 25.48 V:174W:lf34n34 If K 程序说明：O=测站点X坐标，输0为不计算测站点到待求点方位角与距离Q=测站点Y坐标K=待求点里程HR二待求点的中线前进方位角HD=中线到边桩的距离，输入正值即可，计算中桩坐标输入0HJ二中线与边桩夹角，左边-值右边+值X=待求点X坐标Y=待求点丫坐标10x二桩号自动递增或递减数据库字母含义：F二交点里程N=起点坐标XE二起点坐标YT=前缓和曲线参数A1U=后缓和曲线参数A2R二半径V=前切线方位角W=转角，左转输入负值，右转正值高程主程序A0
11、2GC (子程序名BOGC竖曲线要素，HP1、HP2横坡 数据，V=-1为左半幅横坡，其他为右半幅2 DimZLbl 0:?K:Prog ” B0GC”:.005RAbs(l-L T:Z-T A:Z+T B:K-A C:B-K D:K-Z EIf LI:Then 1 J:Else L -1 J:lfendIf K C:Else KB=0 D:Ife ndIf K 三Z:Then I Y:CG:Else KZ=L Y:D G:IfendLbl 1:Fix 3: ”H”:H+EY/100+JG2/2/R XNorm 1:”HD ”？U:”Z=-1, Y=1 ”？V:lf V753225:Then 753300Z:192.576
