4850匝道及非对称缓和曲线.docVIP

4850匝道及非对称缓和曲线、直线都能算，很简单，很好用。 （计算包含该曲线以及该曲线两端的直线段）主程序??J-PQX?? 平面数据输入，自行切换到J-JSMS J-PQX 平面数据输入，自行切换到J-JSMS Defm 15←A“JD” B“JDX” C“JDY” F“FWJ” O“A0：Z-，Y+” RE“LS1” K“LS2”：E 1 E 1E-9K 1 K 1E-9⊿Z[1] EE÷24R-E∧4÷2688RRR:Z[2] E÷2-EEE÷240RR:X EE-KK ÷24R÷sin Abs O :“T1 ”:Z[3] R+Z[1] tan Abs O÷2 +Z[2]-X◢“T2 ”:Z[4] R+KK÷24R-K∧4÷2688RRR tan Abs O ÷2 +K÷2-KKK÷240RR+X◢“L ”:L Abs OπR÷180+ E+K ÷2◢J tan-1 R+Z[1] ÷ Z[3]-Z[2] :“E ”:X R+Z[1] ÷sin J-R◢X A-Z[3]:Y X+E:E 1 “ZY ”:X◢≠ “ZH ”:X◢“HY ”:Y◢⊿ “QZ ”:Y X+ L-K-E ÷2+E◢Y X+L-K:X X+L:K 1 “YZ ”:X◢≠ “YH ”:Y◢“HZ ”:X◢⊿Prog“J-JSMS” ←┚子程序?? J-JSMS“1-ZS，2-F1”:Lb1 0: Z : Z“MS” 1 Goto 1 : Z“MS” 2 Goto2←┚Lb1 1 : PDW :PD“BZ”W“BJ”: Prog“JP”:“X ”：X“Y ”： Y  QS ：Q“X0”：S“Y0”：I POL（X-Q,Y-S）：“Z[7] ”：I J＜0 J J+360：“Z[8] ”：J→DMS ≠ J J：“Z[8] ”：J→DMS ⊿Goto 0Lb1 2 : XYW :XYW“BJ”: Prog“JF”:??“P ” ：P “BZ ”：D Goto 0子程序JP（平曲线正算子程序Fixm←Lb1 1 :J F:X B-Z[3]cos F :Y C-Z[3]sin F :G E←┚P≤A-Z[3] I A-Z[3]-P:M -I:N 0:H F+W:Goto 5←┚≠ P≤A-Z[3]+E I P-A+Z[3]:H 90II÷REπ:O 0 H -H⊿H H+W+F:Goto 3←┚≠ P≤A-Z[3]+L-K I P-A+Z[3]-E:Goto 4: ≠ Goto 2⊿⊿←┚Lb1 2 :X B+Z[4]cos F+O :Y C+Z[4]sin F+O :J F+O+180:G K←┚P≤A-Z[3]+L I A-Z[3]+L-P:H 90II÷RKπ:O 0 H -H⊿H H+J+W+180:Goto 3 ←┚≠ I P-A+Z[3]-L:M -I:N 0:H J+W+180:Goto 5 ←┚Lb1 3 :M I-I∧5÷40RRGG:N III÷6GR-I∧7÷336RRRGGG:Goto 5 ←┚Lb1 4 :H E+2I ×90÷πR:M R sin H+Z[2]:N R 1-cos H +Z[1]:O 0 H -H⊿H J+H+W: Goto 5←┚Lb1 5 :P≤A-Z[3]+L-K O 0 N -N⊿≠ O 0 N -N⊿⊿Goto 6←┚Lb1 6 :X X+M cos J-N sin J+D cos H:Y Y+M sin J+N cos J+D sin H子程序??JF（平曲线反算子程序Fixm←U X:V Y:D 0:J F-W:P A+ Y-C cos J- X-B sin J←┚Lb1 1:Prog“JP”:J H-180:I V-Y cos J- U-X sin J:Abs I 1E-4 Goto 2:≠ P P+I:Goto 1⊿Lb2: D V-Y ÷sinH说明：DJ？ 交点桩号 JDX？ 交点X值 JDY？ 交点Y值?? FJ？ 计算方位角ZJ：Z-，Y+？ 交点转角 左转为负值，右转正值 R？ 圆曲线半径?? LS1？ 第一缓和曲线 LS2？ 第二缓和曲线 T1 前切线 T2 后切线 L 曲线长度??E 外距?? ZH ZH桩号 若不计算平曲线要素桩号，程序清单J-PQX内有下划线部分可以不写入计算器内。HY HY桩号 QZ QZ桩号 YH YH桩号 HZ HZ桩号 MS？ 计算模式选择，此模式请输入：1为正算??2为反算????P？ 待求点桩号 BZ？ 边桩距离 左边为负值，右边为正值