卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

1、卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序) 一、直线计算程序 0I:0J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):JA:If A0: Then A+360A:Else AA:IfEnd:Lbl 0:?O:?S:If O0:Then Goto 1:IfEnd: D+Scos(A) X:”X=”:X E+Ssin(A) Y:”Y=”:Y Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) X:”X=”:X E+Ssin(A)+Osin(A+90) Y:”Y=”:Y Goto 0 说明：输入程序时注意区别字母 O 与数字 0

2、 程序运行时符号说明 X0? Y0? 分别输入直线起点的 XY 坐标值 X1? Y1? 分别输入直线终点的 XY 坐标值 O? 输入边桩与中桩的距离 ( 左边桩为负值 , 右边桩为正值 ), 如计算中桩坐标输入 0 S? 输入所求点到直线起点的距离 二、圆曲线计算程序 0I:0J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T: T-WO:Pol(E-C,F-D):IS:JA: If A0:Then A+360A:Else AA:IfEnd: sin-1(S(2R) K:2RK180L:180O(2R) G:(2

3、R)sin(G) H:C+Hcos(A-KN+GN) X:”X=”:X D+Hsin(A-KN+GN) Y:”Y=”:Y R-0.5(4R2-H2) Q:”Q=”:Q “S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) X:”X=”:X Y+Vsin(A-KN+2GN+U) Y:”Y=”:Y Goto 0 说明：输入程序时注意区别字母 O 与数字 0 程序运行时符号说明 X0? Y0? 分别输入直线起点的 XY 坐标值 X1? Y1? 分别输入直线终点的 XY 坐标值 R? 输入圆曲线半径 L:-1 R:1? 圆曲

4、线向左转弯时输入 -1, 向右转弯时输入 1 ZY? 输入起点桩号 LN? 输入所求点桩号 ( 按下 exe 键后显示中桩坐标 ) S? 输入所要求的边桩与中桩的距离 L:-90 R:90 要求左边边桩输入 -90, 右边边桩输入 90( 按下 exe 键后显示边桩坐标 ) 三、大地转施工 “QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q Pol( O -A,Q-B) JJ+360J J360=J-360J JF:“JF=” ： F DMS Lb1 0 ？ X:?Y Pol （ X-A,Y-B):ID JJ+360J J360=J-360J J-

5、FT:TG TT+360G T360=T-360G Z+Dcos （ G)K:“K=” ： K Dsin （ G)C:“C=” ： C GoTo 0 说明： QK- 输入线路起始点里程 QX- 输入线路起始点中桩 X 坐标 QY- 输入线路起始点中桩 Y 坐标 ZX- 输入线路前进方向中桩 X 坐标 ZY- 输入线路前进方向中桩 Y 坐标 JF=- 显示线路测量坐标方位角 X- 输入线路附近任意点测量 X 坐标 Y- 输入线路附近任意点测量 Y 坐标 K- 显示计算结果：里程桩号，即工程 X 坐标 C- 显示计算结果：左右偏距，即工程 Y 坐标 , 中桩 =0 ，左偏 = 负值，右偏 = 正值

6、。正算主程序 (ZS) ： Lb1 0 ： FIX 4 ： ? S ： ?Z ： Prog “ PM-SJ ” ： Abs(S-O) W ： Prog SUB1 ： XS= ： X YS= ： Y F-90 F ( 需要时可以让他显示，不要时不必输入 ) ： Pro g“SQX-SJ”: Prog “ SQX ” ： “ H= ” ： H Goto 0 反算主程序 (FS) Lb1 0 ： FIX4: ? S ： ? X ：？ Y ： Prog “PM-SJ” ： X I ： Y J ： Prog SUB2 ： S= ： O+WS Z= ： Z Prog “SQX-SJ” ： Prog “ S

7、QX ” ： “ H= ” ： H Goto 0 隧道 3 心圆放样主程序（ SD-3XY ） Lb1 0 ： Prog “ FS ” ： 1.5 A ： 1.65 B ： 0.89 G ： 2.27 C ： 3.3 D ： 2.41 E ： 0.51 J ： “H1” ： F ： ifF H+ A ： then E-AbsZ W ： IfEn d ： ifF H+A And F H+A+ B ： then （ D²- （ F-H-A ） ² ） -G-AbsZ W ： IfEn d ： ifF H+A+ B ： then （ C²- （ F-H-A-J ） &s

8、up2; ） -AbsZ W ： IfEn d ： “W=” ： W （水平方向的超欠挖：正为欠 , 负为超） Goto0 正算子程序 (SUB1) 1P C ： (P-R)(2HPR) D ： 180 E ： 0.1739274226 A ： 0.3260725774 B ： 0.0694318442 K ： 0.3300094782 L ： 1-L F ： 1-K M ： U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X ： V+W(Asin(G+QEKW(C+KWD)+Bsi

9、n(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y ： G+QEW(C+WD)+90 F ： X+ZcosF X ： Y+ZsinF Y 反算子程序 (SUB2) G-90 T ： Abs(Y-V)cosT-(X-U)sin （ T ） ) W ： 0 Z ： Lbl 0 ： Prog SUB1 ： T+QEW(C+WD) L ： (J-Y)cosL-(I-X)sinL Z ： ifAbsZ1E- 6 ： thenGoto1 ： ElssW+Z W ： Goto 0 ： IfEnd Lbl 1 ： 0 Z ： Prog SUB1 ：

10、(J-Y)sinF Z 子程序（平面线形数据库） PM-SJ ifS 500 （线元起点里程） AndS 769.256 （线元止点里程）： Then19942.837 U （线元起点 X 坐标） ： 28343.561 V （线元起点 Y 坐标） ： 500 O （线元起点里程） ： 125 16 31 G （线元起点方位角） ： 269.265 H （线元长度） ： 10 （ 45 ） P （线元起点曲率半径）： 10 （ 45 ） R （线元终点曲率半径）： 0 Q （线元左右偏标志：左负右正）： IfEnd ifS 769.256 （线元起点里程） AndS 806.748 （线元止点

11、里程）： Then19787.34 U （线元起点 X 坐标） ： 28563.378 V （线元起点 Y 坐标） ： 769.256 O （线元起点里程） ： 125 16 31 G （线元起点方位角） ： 37.492 H （线元长度） ： 10 （ 45 ） P （线元起点曲率半径）： 221.75 R （线元终点曲率半径）： -1 Q （线元左右偏标志：左负右正）： IfEnd ifS 806.748 （线元起点里程） AndS 919.527 （线元止点里程）： Then19766.566 U （线元起点 X 坐标） ： 28594.574 V （线元起点 Y 坐标） ： 806.7

12、48 O （线元起点里程） ： 120 25 54.07 G （线元起点方位角） ： 112.779 H （线元长度） ： 221.75 P （线元起点曲率半径）： 221.75 R （线元终点曲率半径）： -1 Q （线元左右偏标志：左负右正）： IfEnd ifS 919.527 （线元起点里程） AndS 999.812 （线元止点里程）： Then19736.072 U （线元起点 X 坐标） ： 28701.893 V （线元起点 Y 坐标） ： 919.527 O （线元起点里程） ： 91 17 30.63 G （线元起点方位角） ： 80.285 H （线元长度） ： 221.

13、75 P （线元起点曲率半径）： 9579.228 R （线元终点曲率半径）： -1 Q （线元左右偏标志：左负右正）： IfEnd ifS 999.812 （线元起点里程）： Then19744.038 U （线元起点 X 坐标） ： 28781.659 V （线元起点 Y 坐标） ： 999.812 O （线元起点里程） ： 80 40 50 G （线元起点方位角） ： 100 H （线元长度） ： 10 （ 45 ） P （线元起点曲率半径）： 10 （ 45 ） R （线元终点曲率半径）： 0 Q （线元左右偏标志：左负右正）： IfEnd 子程序（竖曲线数据库） SQX-SJ ifS

14、 999.812 （竖曲线终点里程）： then0.0357 （前坡度：上坡正下坡负） E ： 0.0227 （后坡度： 上坡正下坡负 ） F ： 600 R （竖曲线半径）： 780 G （变坡点里程）： 110 C （变坡点高程）： IfEnd 子程序（竖曲线计算公式） SQX E-F J ： ifJ 0 ： then-R R ： ElssR R ： Abs （ R*J2 ） T ： IfEnd ifS G- T ： thenG-S L ： C-LE H ： IfEnd ifS G- T And S G ： thenG-S L ：（ S+T-G ） ²2R N ： C-LE+N

15、H ： IfEnd ifS G And S G+ T ： then S-G L ：（ G +T- S ） ²2R N ： C+LF+N H ： IfEnd ifS G+ T ： thenS-G L ： C+LF H ： IfEnd 使用说明 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1 ；当线元往右偏时， Q=1 ；当线元为直线时， Q=0 。 (2) 当所求点位于中线时， Z=0 ；当位于中线左铡时， Z 取负值；当位于中线中线右侧时， Z 取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲