资兴至五里牌公路坐标高程正反算及边坡放样程序(5800程序-案例)

《资兴至五里牌公路坐标高程正反算及边坡放样程序(5800程序-案例)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、资兴至五里牌公路坐标高程正反算及边坡放样程序Fx-5800P计算器一、主程序Norm1：Deg：11→DimZ“Zs1,Fs2,BP3=”?N：IfN>1:ThenGoto2:IfEnd坐标正算Lbl1:“Zhao=”？K：“Li=”?L：Prog“ZX-WN”Cls:Goto1Lbl2:IfN=3:Then“Zhao=”？K:“LPJ=”?S：“PJ=”?M:IfEndLbl3:“Xi=”?X:“Yi=”?Y:“Zi=”?Z          输入观测点的坐标及高程Lbl4:(X-U)cos(G)+(Y-V)sin(G)→JIfN=2AndAbs(J)>0.001:ThenK+J→K:P

2、rog“ZX-WN”：Goto4:IfEnd(X-U)sin(G)-(Y-V)cos(G)→L:Prog“GC”Cls：Fix3：IfN=2:ThenLocate1,1,“Zhao=”:Locate6,1,KIfZ-E>0ThenLocate1,3,“Wgao=”:ElseLocate1,3,“Wgao=”:IfEndLocate6,3,Z-E:0→IElse  Locate1,1,“Dk=”:Locate4,1,JLocate1,3,“DL=”:Locate4,3,Abs(L)-S-Abs(Z-E)M-0.05:IfEndLocate1,2,“L=”:Locate4,2,Abs(L)◣N

3、orm1Cls:IfN=2:Then“Q(0,1)=”?I::IfEndIf  I=0:ThenGoto2:ElseGoto3:IfEnd二、平面正算子程序(NS)Abs(K-O)→W：180QW÷π→EW(P-R)÷(2HPR)→F：1÷P→J0.0694318442→A：0.3300094782→B：1-A→C：1-B→DG+AE(J+AF)→AG+BE(J+BF)→BG+CE(J+CF)→CG+DE(J+DF)→DG+E(J+F)→G0.1739274226→EW(E(cos(A)+cos(C))+(0.5-E)(cos(B)+cos(D)))+U→UW(E(sin(A)+sin(C

4、))+(0.5-E)(sin(B)+sin(D)))+V→VIfN=1ThenProg“GC”Cls：Fix3：Locate1,1,“X=”:Locate4,1,U+Lcos(G)Locate1,2,“Y=”:Locate4,2,V+Lsin(G)Locate1,3,“Z=”:Locate4,3,C◣IfEnd三、平面曲线参数库(ZX-WN)IfK>3600AndK<3926.41:ThenGoto0:IfEnd            K3+926.41短链，长13.59mLbl0:3600→O:75005.113→U:33957.109→V:286°36′18″→G:326.41→H:1

5、0＾(12)→P:10＾(12)→R:0→Q:GotoW其余略四、纵曲线及超高计算子程序(GC)4-1纵曲线参数库3.766→Z[1]：-1.823→Z[2]：3.836→Z[3]：-5→Z[4]：-3→Z[5]：0.504→Z[6]1.794→Z[7]：0.625→Z[8]：2.979→Z[9]：-4.474→Z[10]：-2.118→Z[11]IfK<3778.22:Then3280→J:151→F:4222.96→C:1→D:GotoA:IfEnd以下略4-2中桩标高计算LblA:Z[M]→A：Z[M+1]→B：Abs(L-M)C÷200→E：Abs(K-J)→DIfK≧3940An

6、dK<4005.37:ThenD-13.59→D:IfEnd  短链IfL>B:Then1→W:Else-1→W:IfEndIfKWAndR>W:ThenA→B:GotoB:IfEnd    直线IfP≦W:Then50.9÷P+0.004→C:Else50.9÷R+0.004→C:IfEnd  超高值IfP≦WAndP=R:Then(C+A)Q→A:-A→B:GotoB:IfEnd     

7、   园曲线IfR≦W:Then(K-O)C+A→A:Else(H-K+O)C+A→A:IfEnd      缓和曲线IfA>0.02:Then-A→B:IfEnd                              左半幅超高IfQ<0:ThenA→D:B→A:D→B:IfEnd                      左转曲线LblB                    左、右路肩的标高计算说明：一、程序的