5800直、曲线计算.doc

5800直、曲线坐标计算 “JDDK”?K:”A”?Z:”R”?R:”LS”?V”JDX”?A:”JDY”?B:”ZH-JDFWJ”?FV2÷24÷R-V∧(4)÷(2688R∧(3))?→P:”P=”:P◢(R+P)tan(Abs(Z÷2))+V÷2-V∧(3)?÷240÷R2→T:”T=”:T◢(R+P)?÷cos(Z÷2)-R→E:”E=”:E◢Abs(Z)?лR÷180+V→L:”L=”:L◢”ZH=”:K-T◢”HY=”:K-T+V◢”QZ=”:K-T+L÷2◢”YH=”:K-T+L-V◢”HZ=”:K-T+L◢Lbl?1:”DK”?C:”BZ”??D:”RW”?GIf?C≤K-T:Then?Goto?3:Else?If?C≤K-T+V:Then?C-(K-T)?→M:Goto?A:Else?If?C≤K-T+L-V:?Then?Goto?B:Else?If?C≤K-T+L:?Then?K-T+L-C?→M:Goto?A:?Else?If?C≥K-T+L:Then?Goto?4Lbl?3:F→J:A+(K-C)cos(F+180)?→XB+(K-C)sin(F+180)?→YGoto?2Lbl?4:F+Z→J:A+Tcos(J)+(C-(K-T+L))cos(J)?→XB+Tsin?(J)+(C-(K-T+L))sin(J)?→Y?Goto?2Lbl?AM-M∧(5)÷90÷R2÷V2→I30M2÷R÷л÷V→UIf?Z＜0:Then?-U→U:F+3U→J:Else?F+3U→J:?IfEndIf?C＞K-T+V:Then?Goto?C:?ElseA+Tcos(F+180)+Icos(F+U)→XB+Tsin(F+180)+Isin(F+U)→YGoto?2Lbl?B(C-(K-T+V))÷(2ЛR)360→M(180-Abs(Z))?÷2→I90V÷л÷R→QIf?Z＜0:Then?-M→M:?-I→I:?-Q→Q:?Else?M→M:?I→I:?Q→Q:?IfEndA+(R+E)cos(F+180-I)?→OB+(R+E)sin(F+180-I)?→PF+Q+M→JIf?Z＜0:Then?J+90→M:?Else?J-90→M:?IfEndO+Rcos(M→XP+Rsin(M→XGoto?2Lbl?CA+Tcos(F+Z)+Icos(F+Z+180-U)→XB+Tsin(F+Z)+Isin(F+Z+180-U)→YF+Z+3U→JGoto?2Lbl?2:QXFWJ=”:J◣DMS◢X+Dcos(J+G)→X:”X=”:X◢Y+Dsin(J+G)→Y:”Y=”:Y◢Goto?1 程序说明： 本程序可计算完整线型（直-缓-圆-缓-直），只需输入曲线要素即可计算曲线及曲线前后直线段坐标。 输入部分： JDDK？为交点里程； A？为转向角，左偏曲线为负，右偏曲线为正； R？为曲线半径； LS？为缓和曲线长； JDX？、JDY？交点X、Y坐标； ZH-FWJ？直缓点到交点方位角； DK？待求点里程； BZ？所求里程左右边距，左负右正； RW？正、斜交角度。 显示部分： “P= 、T=、E=和L=”分别为圆曲线内移值、切线长、曲线外矢距和曲线全长； “ZH=、HY=、QZ=、YH=和HZ=”分别为所求的曲线要素五大桩； “QXFWJ=”为所求里程的切线方位角； “X=、Y=”为所求里程对应坐标值 付半径200曲线要素表一份交点里程?300?交点坐标X=0?Y=0转向角右30度?左转-30?直缓至交点方位角右转100度左转310度?L0=60T=83.768???E=7.831??L=164.7197ZH=216.232HY=276.232QZ=298.592HY=320.952HZ=380.952右转+270=左转+327.184中坐标?X=3.0987??Y=-29.9955左5米?X=-7.882??Y=-28.542右5米?X=-1.685??Y=-31.449右转+300=左转+297.184中坐标?X=-7.697??Y=-2.035左5米?X=-3.180??Y=0.1096右5米?X=-12.2135??Y=-4.180右转+330=左转+267.184中坐标?X=-22.5386??Y=24.0045左5米?X=-18.38380??Y=26.7862右5米?X=-26.693??Y=21.2229