坐 标 计 算 程 序
可计算中边桩及进行坐标反算,边坡放样
PAN(主 程 序):
LbI 0 “1.SZ=>XY, XY=> SZ”:?N If N=1:Then Goto 1:If End If N=2:Then Goto 21:If End LbI 1:“DKI=”?S:S>终止桩号=> Goto 1 : S<起始桩号=> Goto 1 :“BJ=”?Z: Prog “PAN-1”: Prog “PAN-2”:If Z=0:Then 90→T:EIse “PJ=” ?T:IfEnd "XS"=X◢ "YS"=Y◢ "FS"=F-90▲DMS◢ Goto 1 LbI 2:“DKI=”?S:S>终止桩号=> Goto 2 : S<起始桩号=> Goto 2 :0→Z:90→T:Prog “PAN-1”:Prog “PAN-2”: “XC=”?N :"YC"=?E: Prog “PAN-3” If I>0:Then “YOU,I=”: I◢ If End If D<0:Then “ZUO,I=”: I◢ If End "ZHUANG,HAO"=K◢ Goto 2
PAN-1:(平曲线数据库)
If S<(线元终点桩号):Then线元起点桩号→O:线元终点桩号→H: 线元起始切线方位角→G: 线元起点坐标→X: 线元起点坐标→Y: 线元起点半径→P: 线元终点半径→R: 偏转方向常量→Q:If End
………………………………………………..
Q值当线元向左偏时输负值,当线元向右偏时输正值。当线元与直线相接时半径输10的45次方,与圆曲线相接时半径输圆曲线半径。
PAN-2:(平曲线正算程序)
1÷P→C (P-R)÷(2(H-O)PR)→D 180÷∏→E Abs(S-O)→W: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))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) →Y G+QEW(C+WD)+90→F Return
PAN-3: (平曲线反算程序)
0→Z: 90→T:Pol(N-X, E-Y) If J<0:Then J+360→J:If End F-J→C::S+IsinC→K:IcosC→I Return Goto D
PAN-4:(竖曲线计算子程序)
Prog“PAN-5”:Q-T→C: Q+T→D If S≤C:Then Goto 1: EIse If S<Q:Then Goto 2: EIse If S<D:Then Goto 3: If End :If End :If End LbI 1:E+(Q-S)A→H: Goto 4 LbI 2:E+(Q-S)A+(S-C)2 /2/R→H: Goto 4 LbI 3:E+(S-Q)B+(S-D)2/2/R→H: Goto 4 LbI 4:H→H: Return
还木有评论哦,快来抢沙发吧~