卡西欧5800基本测量程序完整版.docx

1、卡西欧5800基本测量程序完整版卡西欧 5800 程序(完整版)说明:本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功能宽,使用时只需按曲线要素表输入一次就可以计算整条线路(包括高程、超高段横坡),能正、反算,在已知坐标下可以反算出该点桩号及相对宽度,拓展功能有,放边、仰坡、隧道断面测量、开挖轮廓线等。主程序:MAINZH() F()?M (0为正算、1为反算) If M=:Then ZHUANG HAO?A:KUAN DU?W:Else?H:?W:？:IfEnd(第一个交点参数)(交点桩号)P:(切线长度)T:(曲线总长)S:(圆半径)R=:(缓与曲线长)L:(第一方位角)U

2、:(第二方位角)V:(交点X坐标)N:(交点Y坐标)E:(第一直线长、无为0)D:(第一坡度)Z8:(第二坡度) Z9: (缓与曲线超高段长度)Z10:(曲线偏向,右偏为+1,左偏为-1)K If M=:Then If AP-T+S+D:Then Goto 1 :IfEnd:IfEndProgZFXZIf K=:Then goto 2 :IfEndLb1 1:NO TASKLb1 2:If M=1:Then If A=1:Then ZHUANG HAO:ZSJ KUAN DU:BIfEnd:IfEnd-END-KUAN DU (拓展功能程序,用于反算)1:ProgMAINZA:WE:WProg

3、GAO CHENGEWQ-FPIf P(从小至大):Then D:Goto 1:IfEnd(同上)Lb1 1:D(同上) -END-YUANK(B(2R)F2R Sin(K Fr)C J+FrJ ProgXZBHHHQXB-B5(9(RL)2)C KB2(6RL)F J+ FrJProgXZBHPYJSIf O=:ThenYUAN:J+FrJ:IfEndIf O=1:ThenHHQX:J+2FrJ:IfEndIf O=2:ThenLINE:J+18J:IfEndWCIf AP-T+S-L:Then J-9J:Else J+9J:IfEndProgXZBHX=:XY=:YQXCS(有改)Prog

4、QDZBIf AP-T+L:Then A-P+TB:UJ:1O: ProgHHQX: Goto 1 :IfEndIf AP-T+S-L:Then A-P+T-LB:0:L-L3(90R2)C:KL(6R)F:U+FrJ: ProgXZBH:U+3FrJ: ProgYUAN: Goto 1:IfEndIf AP-T+S:Then P-T+S-AB:1O:-KK:V+180J: ProgHHQX: Goto 1 :IfEndIf AP-T+S+D:Then 2O:A-P+T-SC: ProgXZBH:IfEndLb1 1:ProgPYJSProgGA0 CHENGQDZBNX:EY:TCIf AP

5、-T+S-L:Then VJ: Else U+18J:IfEndProgXZBHXZ5:YZ6JDTZIf Z1 :Then Z1+ 36Z1:IfEndIf Z1 36:Then Z1- 36Z1:IfEndIf Z2 :Then Z2+ 36Z2:IfEndIf Z2 36:Then Z2- 36Z2:IfEndFWJI:JPol(H-G,W-Z) JJ+36JJFDOTLINEPol(H-X,W-Y):INPol(G-H,Z-W):IE Pol(X-G,Y-Z):ID(N+E+D)2I(I(I-N)(I-E)(I-D)I 2IDI ZSPDIf AP-T+S+D:Then ProgQXC

6、S:K:IfEnd FSPDIf K=-1:Then If Z1 Z2:Then If FZ1:Then Goto 1 :IfEnd :If FZ2:Then Goto 1 :IfEnd:Else If FZ1:Then If FZ2:Then Goto 1 :IfEnd:IfEnd:IfEnd:IfEndA: Goto 2Lb1 1If O=:Then ProgFSYUAN:IfEndIf O=1:Then ProgFSHHQX:IfEnd1ALb1 2FSTJU-90KZ1V-90KZ2ProgJDTZP-TA-1OProgJDZBProgFSPDIf A=:Then Goto 1 :If

7、End(有改)Z1Z1: Z1+K(L(2R)rZ2:1OProgJDTZProgJDZBProgFSPDIf A=1:Then K: Goto 2 :IfEndZ5X:Z6Y:(KL)(6R)F:L-L3(90R2)C:U+FrJProgXZBHU+3Fr+90KJ:RCProgXZBHXG:YZProgFWJZ2Z1:Z1+K(S-2L)R)rZ2:0ProgJDTZProgFSPDIf A=1:Then K:Goto 2:IfEnd-KK:V+9KZ1:Z1+K(L(2R)rZ2:1OProgJDTZP-T+SAProgJDZBProgFSPDIf A=1:Then K:Goto 2:I

8、fEndLb1 1If D:Then P-T+SA:ProgFSLINE:If A=1:Then K:IfEnd:IfEndLb1 2FSYUANYUAN36+K(F-Z1)F F36F-36FP-T+L+RF18Z:If K=1:Then R-IB: Else I-RB:IfEndFSHHQXHHQXZ5X:Z6Y Z1+18J:RCProgXZBHXG:YZZ5X:Z6Y ProgDOTLINEIf IZ7 :Then Goto 1: Else:Goto 2:IfEnd:IfEndLb1 1B-I2B: ProgFSHHQX1If I1:Then -II:Goto 3: Else Goto

9、 1:IfEndLb1 2B+I2B: ProgFSHHQX1If IP-T+L:Then P-T+S-B-IZ: Else P-T+B+IZ:IfEndIf K=1:Then If AP-T+S-L:Then D-EB: Else E-DB:IfEnd:IfEndIf K=-1:Then If AP-T+S-L:Then P-T+S+GZ:Isin(F)B:Else P-T-GZ:-Isin(F)B:IfEnd :1A:2O: Else A:IfEnd XZBHX+Ccos(J)XY+Csin(J)YHENG POIf AP-T+L-Z10 :Then Z8V:Goto 1:IfEndIf AP-T+L:Then (Z9-Z8)Z10E:Z8+(A-P+T-L+Z10)EV: Goto 1:IfEndIf AP-T+S-L:Then Z9V:Goto 1:IfEndIf AP-T+S-L+Z10:Then (Z8-Z9)Z10E:Z9+(A-P+T-S+L)EV: Goto 1:IfEndZ8V Lb1 1GAO CHENG(交点桩号)O:(交点高程)D:(小桩号坡度)N:(切线长度)G:(圆曲线半径)R If AO-G:Then K: Goto 1:IfEndIf AO+G:Then 1K: Goto 1:IfEnd (K=0 为直线、K=1为凸圆、K=