隧道CASIO5800程序.docVIP

（陕西商洛）黄沙岭隧道设计线 5800程序 FSXL(反算线路) “K=0,ZK≠0”?H: Lbl0：“X0,P=IEnd”:2→DimZ: “X=”?X:IfX0:ThenGoto2:IfEnd:“Y=”?Y:“K=”?K:Lbl1:IfH=0:Thenprog“YX”:Else prog“ZX”：IfEnd：prog“SUB”:X-U→I:Y-V→J:Pol（I,J）:IfJ0:ThenJ+360→J:IfEnd：Icos（W-J）→M:-Isin（W-J）→N:IfAbs（M）0.001:ThenK+M→K:Goto1：Ese“K=”：K◢ “B=”:N◢ Goto0：IfE: Lbl2: “Prog,End” FYXL(放样线路) “K=0,ZK≠0”?H: Lbl0：“K0,=P,End”:2→DimZ：“K=”?K:IfK0:ThenGoto1：ElseIfH=0:ThenProg“YX” ：ElseProg“ZX”:IfEnd： Prog“SUB”: “FWJ=” W DMS◢ “XS=”:U◢ “YS=”:V◢ “=”?O: “B=”?R: “X=”:U+Rcos（W+O）◢ “Y=”:V+Rsin（W+O）◢ Goto0：IfEnd ( Lbl1：“P,End” SUB（子程序） 2→DimZ:(E-D)÷Abs（G-F）→P: Abs(K-F)→Q:P×Q→I:C+(I+2×D)×Q×90÷π→W:C+(I÷4+2×D)×Q×45÷(2×π)→M:C+(3×I÷4+2×D)×Q×135÷(2×π)→N:C+(I÷2+2×D)×Q×45÷π→Z[1]:A+Q÷12×(cos（C）+4×(cos（M）+cos（N）)+2×cos(Z[1])+cos（W）)→U:B+Q÷12×(sin（C）+4×(sin(M)+sin(N))+2×sin(Z[1])+sin（W）)→V( →J:“ALFA=”? →A:“R=”? →R:A÷2→H( “T=”:Rtan（H）→T◢ “E=”:R÷cos（H）-R◢ “L=”:RAπ÷180→L:R+L-R◢ “NO,ZY”:J-T→Z◢ “NO,QZ”:Z+L÷2◢ “NO,YZ”:Z+L◢ “END” (( ZX（参数程序）（江西梅岭隧道） IfK≤12976.956:Then3173199.557→A:512796.9719→B:310°21′5.6″→C:0→D:D→E:10734.781→F: 12976.956→G:Else IfK≤13276.956:Then3174651.311→A:511088.2417→B: 310°21′5.6″→C:0→D:1÷2654.5→E: 12976.956→F: 13276.956→G: Else IfK≤14009.534:Then3174849.2972→A:510863.3467→B:313°35′21.12″→C:1÷2654.5→D:D→E:13276.956→F:14009.534→G: Else IfK≤14309.534:Then3175421.2642→A:510408.7055→B:329°24′5.4″→C:1÷2654.5→D:D→E：1→F:14309.534→G: Else ： IfEnd：(Lbl0：“K0,PROM,END”: “K=”?K:IfK0:ThenGoto2：Else IfK≤11920： Then74.710→S:-0.0095→A:0→C:13580→J: Goto1 Else IfK≥11920： Then74.710→S:-0.0095→A:0→C:1→R:0→T:13580→J: Goto1 ： IfEnd：(Lbl1：“ZHS”:S-(J-K)A+C(K+T-J)^(2) ÷(2R) ◢