卡西欧5800计算器线路隧道一体程序

1、任意坐标正反算及隧道超欠挖程序（2010-10-22）1-JIN YU（主程序）Lbl 4:“1tZS,2tFS,3 t CQW ?N（选择计算模式，1为正算，2为反算，3为超欠挖）N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3Lbl 1:“K=”？S:“P=”？Z:Prog“SJ-PM': Abs（S-O） tW:Prog“SUB1-ZS :“X=” ：Locate4,4,X: “Y=” ： Locate4,4,Y:F-90 tF:St K:Prog “SJ-GC? : “ H=” ： Locate4,4,H :“W= : Locate4,4

2、,F 0Goto 4（正算-输入待求点里程Km输入待求点偏距Pm显示待求点里程Xm显示待求点里程丫=、显 示待求点里程设计高程H=）Lbl 2: “X=” ？ X: “Y=” ？ Y:Prog “SJ-PM' : X t I : Yt J : Prog "SUB2-FS": O+W>S: “K=”： Locate4,4, S : “P=”： Locate4,4, Z： St K:Prog “SJ-GCT : "H=' : Locate4,4,H:F-90tF: "W= : Locate4,4,F 0 JGoto 4（反算-输入实测点

3、Xm 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点 的设计高程H=）Lbl 3: “X=” ？X: “Y=” ？ Y:Prog “SJ-PM : X t I : Yt J : Prog "SUB2-FS": O+W>S: "K=": Locate4,4, S : “P=”： Locate4,4, Z : St K:Prog “SJ-GCT : " H=' : Locate4,4, H J Prog “SJ-CQ四 JGoto4（超欠挖-输入实测点X=、输入实测点Y=、显示实测点里程Km显示实测点偏距Pm显示实

4、测 点的设计高程Hw输入实测高程H1w显示超欠挖值及第几圆心上 CAY?=）sj-pm（子程序名-平面线形数据库）If S > 59227.681 （线元起点里程）：Then 2599818.013 tU （线元起点 X 坐标）：496887.918 tV（线元起点Y坐标）：59227.681 t0（线元起点里程）：208028' 39” tG（线元起点方位角）: 100 tH （线元长度）：1 X 1045tP （线元起点曲率半径）：1 X 1045tR （线元终点曲率半径）： 0 tQ （线兀左右偏标志：左-1右1直0） : IfEndIf S > 59327.681

5、（线元起点里程）：Then 2599730.112 tU （线元起点 X 坐标）：496840.237 tV（线元起点Y坐标）：59327.681 -0（线元起点里程）：208028' 39” -G（线元起点方位角）:90 tH (线元长度)：1 X 1045tP (线元起点曲率半径)：750tR (线元终点曲率半径)：-1 tQ (线兀左右偏标志：左-1右1直0) : IfEnd(注：有多个平面线形，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的 数据或增加一个判断。)SJ-GC(子程序名-竖曲线数据库)If S变坡终点里程And S»变坡起点里程：Then

6、大里程坡度tA：小里程坡度tB：变坡点里程tO:变坡点高度 tG 半径tR: Prog “ SUB3-GC :IfEnd(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。2.如整条线只有一个纵坡比喻为2%,那么程序应为If S<终点里程AndS»起点里程：Then 0.02 tA: 0.02 tB:起点里程t Q 起点高程t G 1 X 1045tRProg “SUB3-GC :IfEnd )SJ-CQW (子程序名-隧道数据库)“H1 ?FIf F -H>5.845:Then V(Abs (Z) 2+(F-H-0.

7、45) 2 )-7.45 tW: “CAY1=” :W: IfEnd:(显示超欠和第1圆心)If F -H< 5.845 And F-H >-1.169: Then V(Abs (Z)-1) 2+( Abs (F-H-1.5)2)-6 tW."CQtY2=” :W:IfEnd:(显示超欠和第2圆心)If F-H <-1.169: Then V(Abs (Z) 2+(H-F+14.05) 2)-16.5 tW: “CAY3=” :W: IfEnd:(显 示超欠和第3圆心)(注：隧道断面有多个圆心，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以 上的数据或增

8、加一个判断。)详细数据见下图：SUB1-ZS（正算子程序）1-P> C : (P-R) - (2HPR) t D : 180 + 兀 t E : 0.1739274226 t A : 0.3260725774 t B : 0.0694318442t K: 0.3300094782 t L : 1-L t F : 1-Kt M:U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+M )t X:V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QE

9、FW(C+FWD)+Asin(G+QEMW(C+MWI ) t Y : G+QEW(C+WD)+90F : X+Zcos(F) t X : Y+Zsin(F) t YSUB2-FS(反算子程序)G-90tT: Abs(Y-V)cos(T)-(X-U)sin(T) t W 0 t Z : Lbl 0: Prog "SUB1-ZS": T+QEW(C+WD)t L: (J-Y)cos(L)-(I-X)sin(L) t Z : If Abs(Z)<1E-6(注：此处 1E-6 可输入 0.000001) : then Goto1: Else W+Z t W： Goto 0

10、: IfEndLbl 1 : 0 t Z : Prog "SUB1-ZS": (J-Y) - sin(F) t ZSUB3-GC(高程子程序)OStL:A-BW:Abs(R*好2) tT: OTtMOTFIf S < M:ThenG L*BtH:Goto5:Else If S < OThen Goto3:Else If S <P:Then Goto4:IfEnd:IfEnd: IfEndLbi3If W >O: Then G+(M-S)2 + 2-R-L*BtH:Goto5: Else If W < O ThenG-(M-S)2 + 2-R -

11、L*Bt H:Goto5: IfEnd: IfEndLbi4If W >O: Then G+( S-P) 2-R- L*AtH:Goto5: Else If W < O ThenG-( S-P) 2-2-R-L*AtH:Goto5: IfEnd: IfEndLbi5FHH: Return说明：(正算1秒，反算和超欠挖5秒完成)所有程序名。不同线路，只需改动 SJ-PM SJ-GC SJ-CQVE个子程序里的内容，其它不变。1为正算,2为反算,3为超欠挖.K=X=正算时，输入所求点里程 正算时得出结果。反算时得出里程结果反算时输入实测坐标P=正算时输入偏距反算时得出偏距H=正算时得出

12、高程反算时得出高程H1 =CQ超欠挖时输入实测高程得出超欠挖值及第几圆心上casio fx-5800P 坐标正反算Lbl 3:"1 t ZS,2t FS"?NN=1=>Goto 1:N=2=>Goto 2Lbl 1:"X1="?M:"Y1="?F:"S= "?L: "W+V= "?A:Rec(L,A):M+I tC:F+JtDCls"X2=”:Locate 4,1,C:"Y2=":Locate 4,2,DJGoto 3Lbl 2: ”X1="？G:”Y1="？H:”X=2”？N: