5800线元法程序

《5800线元法程序》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、ZBJS主程序Lbl6：nl.SZ->XYn：M2.XY^SZH：?S：?N：Prog“SUBO”1-P^C：(P-R)+(2HPR)->D：180-tt->E:N=1=>Goto1:Goto2Lbl1:?Z:Abs(S-O)->W:PrognSUBln:nXS=n:X^”YS=，•:Yj”FS=n:F-90►DMSA“XC”？C:“YC”？E:0^1：0->J：Pol(X-C，Y-E):“I=”：IfJZO:Then“J=”:J+36ODMSJIfEndIfJ>0：Then“J=”：J>DMS^IfEnd：Prog

2、nGCn:Goto6Lbl2?X:?Y:X->I:Y^J:Prog,,SUB2n:O+W^S:Cls:,,S=,,:S^nZ=n:ZiPrognGCn:Goto6正算子程序SUB10.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(Asi

3、n(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:X+Zcos(F)^X：Y+Zsin(F)—Y反算子程序SUB2G-90^T（Y-V）cosT-（X-U）sin（T）Abs（W）->W:O^ZLbl6：Prog’’SUBlnT+QEW（C+WD）->L：（J-Y）cos（L）-（I-X）sin（L）IFAbs（Z）

4、）-sin（F）^Z:ElseW+Z^W：PrognGCH:Goto6:Iffind数据库子程序SUBOGoto1（线元可输入多条，分离式可在前多加一位，阻道一样。例：左幅为K129+500,右幅输线元参数里程为1129+500,其他不变，前UH为任意数字，计算机便于区分）Lbl1:IF3<线元终点里程：Then@@@yO（线元起点里程）：@@@—U（线元起点X华标）：@@@—V（线元起点Y坐标）：@@@yG（线元起点计算方位角）：@@@^P（线元起点半径）：@@@—R（线元止点半径）：线元长度）：线元左、右偏标志，

5、左偏-1,右偏1,直线为0）:Return:IfEndIF3<线元终点里程：Then@@@yO（线元起点里程）：@@@yU（线元起点X坐标）：@@@—V（线元起点Y坐标）：@@@—>G线元（起点计算方位角）：@@@-^p（线元起点半径）：@@@->R（线元止点半径）：@@@—H（线元长度）：@@@—>Q（线元左、右偏标志，左偏-1，右偏1，直线力0）:Return:IfEndOOOOOOOOOOOOOOOOOOOOOOOOOOO如不想用偏角法放样可直接删除“XC”？C:“YC”？E:0->I：0->J：Pol（X-C

6、,Y-E）Ii直接里程推坐标。GC（竖曲线）Lbl7ZCLs:?k:(计算点里程输入)IfkXXX:ThenXXX^A:0->B:XXX->S:XXX->G:XXX->R:Goto2:IfEndZIfkXXX:ThenXXX—A:XXX->B:XXX^S:XXX^G:XXX^R:Goto2:IfEndZIfk<本段竖曲线终点里程ANDK2前一竖曲线终点里程:ThenXXX^前坡(大里程向)A:XXX->后坡(小里程向)B:XXX->S曲线交点里程S:XXX—交点高程G:XXX4曲率

7、半径R:Goto2:IfEndZ依次类推，计算原始数据完成输入，坡度换算成小数。Lbl2ZS-K^L:A-B->W:Abs(R*W/2)->T:S-T—C:S+T->D/IfKH:Goto5:ElseIfW<0:ThenG-(C-K)A2/2/R-L*B->H:Goto5:IfEnd:IfEndZL

8、bl4ZIfW〉0:ThenG+(K-D)A2/2/R-L*A->H:Goto5:ElseIfW<0:ThenG-(K-D)A2/2/R-L*A^H:Goto5:IfEnd:IffindZLbl5ZH-0.0000^HZ(0.000可按照本合同段测设中心到路肩高差)“H=”：H+XXX—O:’’J=”？^J:nM=n?->M:nN=n?^NJ-