5800公路计算程序

《5800公路计算程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1.坐标正算HXO=〃?X：”YO=,Z?Y：°I=Z/?I：“J=〃?JX+ICos(J)-U:Y+ISin(J)-V1X=Z,:U(待求点的X坐标〉”Y=":V(待求点的丫坐标)说明:XOY0：已知点坐标I：两点的距离J：方位角2、坐标反算Lbl0”X1=〃?X：”Y1=〃?Y：”X2="?U:”Y2="?VPol(U-XzV-Y)：J<0J+360-J°I="：InJ=,Z：JDMSGOTO0说明：X1Y1：第一点的坐标.X2Y2第二点的坐标，I：两点的距离，J：方位旳3、圆曲线hXO=,Z?X:“丫0="?Y:“FWJ=,Z?D:nQ

2、DHAO=,,?G:”ZDHAO=〃?C:wR=/Z?RLbl1“DQHAO=/Z?LLCGOTO2nPY=〃？K180(L-G)-r(nR)〜E2RSin(0・5E)-FReC(Abs(F),D+0.5E)：Cis:X+I+KCos(D+E+90)-A"Y二〃:Y+J+KSin(D+E+90)-BD+E-*oi*^<0360+O-Oo"FWJ=z,cJDMSGoto1Lbl2”END"说明：XOYO：起始点的坐标.FWJ：起始点的方位兌.QDHAO：起点里程，ZDHAO终点里程.R：半径，DQHAO：待求点里程，PY：偏移量4、

3、竖曲线nQZHAO=,Z?J：°H+B"=?B:”I1=Z,?C：T2=〃？D:”R="?R:”T=Z,?T:((D-C)4-100)4-Abs((D-C)-rlOO)-*A:Abs(O.5R(D-C)V100)-S”TVSJ・T—XJ+T-YLbl0nDQ=,Z?LIfLY:ThenGotol:IfEnd:IfEnd0GC=,Z:B+C(L-J)-rlOO+A(L-J+T)m(2R)-HGoto0LbI1nEND"说明：QZHAO：曲中点里程，H+B：曲中点爲程，II：第一坡度，12：第二坡度，R：

4、半径，T：切线长,DQ：待求点里程。5.正算偏移HX0=〃?A：°Y0=〃？B：”FWJ=〃？D：LbI0nLS=〃？L：*PY=,Z?CReC(LfD)hX=":A+I+CCos(D+90)-X"Y=〃:B+J+CSin(D+90)-YGoto0说明:X0Y0：已知点坐标，LS：两点距离,FWJ：方位角6•万能公式”X0=〃?A:”Y0="?B:”FWJ="?C：““R・QD〃？D「“R・ZD〃?E:"QDHAO〃？F:nZDHAO〃?GLbI1nDQHAO="?H「PY="?oIfHG:ThenG

5、oto2:IfEnd:IfEnd00j(E・D)—Abs(G・F)~P:Abs(H-F)-QI:C+90Q(I+2D)Wn-J:C+45Q(“8+D)mn—M:C+135Q(3“8+D)Wn-N:C+45Q(I—2+2D)Fn-KA+Q(Cos(C)+4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))vl2-U:B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))-rl2-*VhX=〃:U+oCos(J+90)-X-Y=,z:V+oSin(J+90)-YnFWJ="：JDMSGoto1LbI2H

6、END〃说明：XOYO：起开点坐标，FWJ：起开点方位角，l^R-QD：起开点曲率，l^R-ZD终点曲率，QDHAO：起点里程，ZDHAO终点里程.DQHAO：待求点里程.XY：待求点坐标6、标高计算nQZHAO=〃?J:”QDHAO=〃?G:”ZDHAO="?K:”B-HB=,Z?B:wSX=〃?Q:T1="?C:hI2=,Z?D:nR=,Z?R:MT=,Z?T(D・C)E100fW:WFAbs(W)fA:”T〃:0・5RAbs(W)-Sno-YIGAO=/,?oJ・T-X:J+T-YLbI1hL-DQHAO=,Z?L:"PY=Z,?U：M

7、XIELV=〃?VIfLY:ThenGoto3:IfEnd:IEnd”HL=,/：B+0.01C(L-J)+A(L-J+T)m(2R)+0・01UV+Q〜QGoto1LbI2LKGoto4”HL=〃：B+0・01(L-J)D+0.01UV+Q-H”HO=:o-H-*ZGoto1Lbl4:”END"说明：QZHAO：曲中点里程(SlHl线)，QDHAO：起点里程，ZDHAO：终点里程.B-

8、HB曲中点高程,SX：上下(路而标高下多少为水稳层面)，II：第一坡度，12：笫二坡度，R：半径，T切线长，L-DQHAO：待求点里程.PY：偏移(中桩到边桩的距离