fFDPro缓和曲线程序
- 格式：docx
- 大小：276.74 KB
- 文档页数：5
fFDPro缓和曲线程序
公司内部编号：（GOOD-TMMT-MMUT-UUPTY-UUYY-DTTI-
fx-FD10_Pro 缓和曲线程序
"交点里程"C
"X（交点）"U
"Y（交点）"V
"半径R"R
"缓和曲线Ls1"S
"方位角（直缓—交点）"A
"偏角（交点）"D
"左（负1）右（正1）"M
(R+S^2/(24R))tan (D/2)+S/2-S^(3)/240R^2->T
"切线"T
C-T->I
"直缓里程":IDisps
B+S->J
"缓圆里程":JDisps
J+piDR/180-S->H
"圆缓里程":FDisps
H+S->K
"直缓里程":KDisps
Lbl 1
"计算里程"P
"左右（左正，右负）"L
"前后（前正，后负）"Q
If PThen
"前直线"
U+(C-P)cos (A+180dms)->X
V+(C-P)sin (A+180dms)->Y
X+L*cos (A+90dms)+Qcos (A+180dms)->N
Y+L*sin (A+90dms)+Qsin (A+180dms)->Z
IfEnd
If P>=I And P<=J
Then
"前缓和曲线"
A+M*(30*(P-I)^2/(piRS))->O
(P-I)-(P-I)^3/(90*R^2)->G
U+Tcos (A+180dms)+Gcos (O)->X
V+Tsin (A+180dms)+Gsin (O)->Y
90dms*(P-I)^2/(piRS)->W
X+Lcos (A+MW+90dms)+Qcos (A+MW)->N
Y+Lsin (A+MW+90dms)+Qsin (A+MW)->Z
IfEnd
If P>J And P
"圆曲线"
A+M*90*(S+P-J)/(piR)->O
2Rsin (90dms*(P-J)/(piR))->G
U+Tcos (A+180dms)+(S-S^3/(90*R^2))*cos
(A+M(30dms*S/(piR)))+Gcos (O)->X
V+Tsin (A+180dms)+(S-S^3/(90*R^2))*sin
(A+M(30dms*S/(piR)))+Gsin (O)->Y
90*(P-J)/(piR)->W
X+Lcos (A+MW+90dms)+Qcos (A+MW)->N
Y+Lsin (A+MW+90dms)+Qsin (A+MW)->Z
IfEnd
If P>=H And P<=K
Then
"后缓和曲线"
A+MD+180-M(30*(P-K)^2)/(piRS)->O
(K-P)-(K-P)^3/(90*R^2)->G
U+Tcos (A+MD)+Gcos (O)->X
V+Tsin (A+MD)+Gsin (O)->Y
90dms*(P-K)^2/(piRS)->W
X+Lcos (O+MW+90dms)+Qcos (A-MW)->N
Y+Lsin (O+MW+90dms)+Qsin (A+MD-MW)->Z
IfEnd
If P>K
Then
"后直线"
U+(T+P-K)cos (A+MD)->X
V+(T+P-K)sin (A+MD)->Y
X+L*cos (A+MD+90dms)+Qcos (A+MD)->N
Y+L*sin (A+MD+90dms)+Qsin (A+MD)->Z
IfEnd
"计算里程X":XDisps
"计算里程Y":YDisps
"计算里程加X":NDisps
"计算里程加Y":ZDisps
"加里程"E
If E=0
Then
Return
IfEnd
E+P->P
Goto 1
