文档介绍：10→Dimz换行【【扩展变量Z为10个】】
“JDKM”?→A: 【【交点桩号】】
“JDX”?→B: 【【交点X坐标】】
“JDY”?→C: 【【交点Y坐标】】
“FWJ”?→D: 【【起点方位角】】
“PJ”?→V: 【【交点偏角,左偏输入负值;右偏输入正值】】
“R”?→R: 【【圆曲线半径】】
“LS1”?→E: 【【第一缓和曲线长度】】
“LS2”?→F换行【【第二缓和曲线长度】】
Lbi 0换行【【标签0】】
E/2-E^(3)/(240R2)→Z[1]: 【【第一缓和曲线切垂足】】
F/2-F^(3)/(240R2)→Z[2]: 【【第二缓和曲线切垂足】】
E2/(24R)-E^(4)/(2688R^(3))→Z[3]: 【【第一缓和曲线圆曲内移值】】
F2/(24R)-F^(4)/(2688R^(3))→Z[4]: 【【第二缓和曲线圆曲内移值】】
Z[1]+(R+Z[3])/tan(180-Abs(V))+ (R+Z[4])/sin(180-Abs(V)) →Z[5]:【【曲线一切线长】】
Z[2]+(R+Z[4])/tan(180-Abs(V))+ (R+Z[3])/sin(180-Abs(V)) →Z[6]:【【曲线二切线长】】
Abs(V)*Rπ/180-(E+F)/2→L: 【【圆曲线长度】】
B-Z[5]*cos(D) →X: 【【直缓点X坐标】】
C-Z[5]*sin(D) →Y: 【【直缓点Y坐标】】
A-Z[5] →Z[7]: 【【直缓点里程】】
Z[7]+E→Z [8]: 【【圆缓点里程】】
Z[8]+L→Z [9]: 【【缓圆点里程】】
Z[9]+F→Z[10]换行【【缓直点里程】】
Lbi 1换行【【标签1】】
“P---K---M”? →P: 【【待求点桩号】】
“II”? →K: 【【边桩偏角度数,左偏输入负值;右偏输入正值】】
“I------I”? →S: 【【边桩距中桩距离,正值】】
D→J:E→G:
If P≤Z[7]:
Then
D+K→H:
P-Z[7] →M:
0→N:
Goto5:
Else if P≤Z [8]:Then P-Z[7] →I:
90*I2/(RπE) →H:
V<0=> -H→H:
H+K+D→H:
Goto 3:Else If P≤ Z[9]:
Then P-Z[8] →I:
Goto4:Else Goto 2:IfEnd:IfEnd:IfEnd换行
Lbi 2换行
B+Z[6]*cos(D+V) →X:
C+Z[6]*sin(D+V) →Y:
D+V+180→J:
G→F:
If P≤ Z[10]:Then Z[10]-P→I:
90*I2/(RπF) →H:
V> 0=> -H→H:
H+J+K+180→H
Goto 3:Else P-Z[10] →I:
-I→M:
0→N:
J+K+180→H:
Goto 5:IfEnd换行
Lbi 3换行
I-I^ (5)/(40R2G2) →M:
I^ (3)/(6RG)-I^ (7)/(336R^ (3) G^(3)) →N:
Goto 5换行
Lbi 4换行
90(E+2I)/( Rπ) →H: