1、P主程序（QXJS）程序清单：AbsJ“FixmC=“=7=Fixm:Goto 1Norm：Prog“BQXYS”：Q “K-ZH”：F“ZHX=”：G“ZHY=”：N“ FZH”：Fix4 Lab 1:Fixm:KD:Goto2Lab 2:KQ = Goto3: Goto4Lab 3:“KOVER”: Goto1Lab 4:KQ+L = Goto3: Goto5Lab 5:KQ+B = Goto6: Goto7Lab 6:S=K-Q：W=B：Prog “HQXY”：O=N+I90S2( RB)：O0 = O=O+360O360 = O=O-360 J=O“FANGWEI” IntO.01In
2、t(60FracO)+.006Frac(60FracO)X=UcosN-VsinN+F+Dcos(J+90) Y=VcosN+UsinN+G+Dsin(J+90) Goto1Lab 7：KQ+L-C = Goto8: Goto9Lab 8:S=K-Q： O=N+I90(2S-B)( R)：O0 = O=O+360O360 = O=O-360J=O“FANGWEI”=IntO .01Int(60FracO)+.006Frac(60FracO)Prog “YQXY”： X=UcosN-VsinN+F+Dcos(J+90) Y=VcosN+UsinN+G+Dsin(J+90) Goto1Lab 9:
3、 S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180 ：O=E-I90S2( RC)+180：O0 = O=O+360O360 = O=O-360J=O“FANGWEI”=IntO.01Int(60FracO)+.006Frac(60FracO)V=-VX=(U-H)cosE-VsinE+F+T cosN+Dcos(J+90) Y=VcosE+(U-H)sinE+G+T sinN+Dsin(J+90) Goto1子程序“BQXYS”I”P(L-1,R+1)”:A“Jao”:R:B“L01”:C“L02”M“M1”=B2-B3（240 R2） J“M2”=C2-C3（240
4、R2）P“P1”= B2（ 24 R）- B4（2688 R3）Z“P2”= C2（24 R）- C4（2688 R3）T“T1”=M+（R+P）tan(A 2)+(Z-P) sinAH“T2”=J+（R+Z）tan(A2)+( P-Z) sinAL= B2+C2+A R180E=sqr(R+P)平方+（T-M）平方)-R 子程序“HQXY ”U=S-S5(40R2 W2)+ S9(3456 R4 W4):V=I(S3(6RW)- S7(336 R3 W3)子程序“YQXY”U=Rsin(180(S-B2)R)+M:V=I(R(1-cos(180(S-B2)R)+P)程序说明：本程序可以计算等
5、长和不等长“缓+圆+ 缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角 (角度已经过度分秒改化)。先将主、子程序存入计算器，然后运行主程序“QXJS” ，当曲线为左偏时（ L-1，R+1 ）输-1 ，右偏输 1，输入 Jao（曲线偏角） ，曲线半径 R，第一缓和曲线长 L01，第二缓和曲线长 L02， （等长缓和曲线时 L01= L02） ，然后显示曲线逐要素，接着输入 ZH 坐标（ZHX，ZHY ） ，ZH 到 JD 坐标方位角 FZN，输入计算里程K，外移距离 D，计算中桩时 D 输 0，计算左边桩时 D 输负数，算右边桩时 D 输正数，当所输里程不在本曲线计算范围内时，屏幕显示 KOVER，继续输入有效里程可继续计算。对于单圆曲线缓和曲线长输入 0。对于半径小于 100 的匝道曲线应将缓和曲线坐标的多项式多加 2 项，本程序只取了 3 项，一般 5 项满足小半径要求感谢幽灵友情提供！
