5800直、曲线计算.doc

5800直、曲线坐标计算“JDDK”?K:”A”?Z:”R”?R:”LS”?V”JDX”?A:”JDY”?B:”ZH-JDFWJ”?FV224R-V(4)(2688R(3)P:”P=”:P(R+P)tan(Abs(Z2)+V2-V(3)240R2T:”T=”:T(R+P)cos(Z2)-RE:”E=”:EAbs(Z)R180+VL:”L=”:L”ZH=”:K-T”HY=”:K-T+V”QZ=”:K-T+L2”YH=”:K-T+L-V”HZ=”:K-T+LLbl1:”DK”?C:”BZ”?D:”RW”?GIfCK-T:ThenGoto3:ElseIfCK-T+V:ThenC-(K-T)M:GotoA:ElseIfCK-T+L-V:ThenGotoB:ElseIfCK-T+L:ThenK-T+L-CM:GotoA:ElseIfCK-T+L:ThenGoto4Lbl3:FJ:A+(K-C)cos(F+180)XB+(K-C)sin(F+180)YGoto2Lbl4:F+ZJ:A+Tcos(J)+(C-(K-T+L)cos(J)XB+Tsin(J)+(C-(K-T+L)sin(J)YGoto2LblAM-M(5)90R2V2I30M2RVUIfZ0:Then-UU:F+3UJ:ElseF+3UJ:IfEndIfCK-T+V:ThenGotoC:ElseA+Tcos(F+180)+Icos(F+U)XB+Tsin(F+180)+Isin(F+U)YGoto2LblB(C-(K-T+V)(2R)360M(180-Abs(Z)2I90VRQIfZ0:Then-MM:-II:-QQ:ElseMM:II:QQ:IfEndA+(R+E)cos(F+180-I)OB+(R+E)sin(F+180-I)PF+Q+MJIfZ0:ThenJ+90M:ElseJ-90M:IfEndO+Rcos(MXP+Rsin(MXGoto2LblCA+Tcos(F+Z)+Icos(F+Z+180-U)XB+Tsin(F+Z)+Isin(F+Z+180-U)YF+Z+3UJGoto2Lbl2:“QXFWJ=”:JDMSX+Dcos(J+G)X:”X=”:XY+Dsin(J+G)Y:”Y=”:YGoto1程序说明：本程序可计算完整线型（直-缓-圆-缓-直），只需输入曲线要素即可计算曲线及曲线前后直线段坐标。输入部分：1. JDDK？为交点里程；2. A？为转向角，左偏曲线为负，右偏曲线为正；3. R？为曲线半径；4. LS？为缓和曲线长；5. JDX？、JDY？交点X、Y坐标；6. ZH-FWJ？直缓点到交点方位角；7. DK？待求点里程；8. BZ？所求里程左右边距，左负右正；9. RW？正、斜交角度。显示部分：1. “P= 、T=、E=和L=”分别为圆曲线内移值、切线长、曲线外矢距和曲线全长；2. “ZH=、HY=、QZ=、YH=和HZ=”分别为所求的曲线要素五大桩；3. “QXFWJ=”为所求里程的切线方位角；4. “X=、Y=”为所求里程对应坐标值付半径200曲线要素表一份交点里程300交点坐标X=0Y=0转向角右30度左转-30直缓至交点方位角右转100度左转310度L0=60P=0.7494 T=83.768E=7.831L=164.7197ZH=216.232HY=276.232QZ=298.592HY=320.952HZ=380.952右转+270=左转+327.184中坐标X=3.0987Y=-29.9955左5米X=-7.882Y=-28.542右5米X=-1.685Y=-31.449右转+300=左转+297.184中坐标X=-7.697Y=-2.035左5米X=-3.180Y=0.1096右5米X=-12.2135Y=-4.180