计算直线、缓和线、圆曲线的中边桩坐标(F1~F4)
F1 MAIN
L1 {J}：J″JD″：{Z}：Z″Z″：{R}:R″R″：{L}：L″LS″：{F}：F″F0″：{X}：X″X0″：{Y}：Y″Y0″
L2 T=(R+L2/(24R)) tan (Abs(Z/2))+L/2-(Lxy3)/(240R2)
L3 W=J-T+L：H=J-T+(ЛR(Abs Z)/180)：E=H+L
L4 P=X - T cos F：Q=Y - T sin F
L5 M=P+(L-((Lxy3)/(40R2)))(cosF)+(L2(cos(F+((90AbsZ)/Z)))/(6R))
L6 N=Q+(L-(Lxy3)/(40R2))sinF+(L2/6R)sin(F+(90Z/(Abs Z)))
L7 Lb1 0
L8 {K}：K″K″：{B}：B″B″：{A}：A″A″
L9 K≤(J-T)=> Prog 1ZHI
L10 ≠=>K≤W=>S=K+T-J：O=F：G=Z：I=A：Prog 3HUAN
L11 ≠=>K≤H=>Prog 2YUAN
L12 ≠=>K≤E=>S=E-K：=F+Z+180：G=-Z：I=A+180：Prog 3HUAN
L13 Goto 0
F2 1ZHI
L1 C =X-(J-K)cosF◢ D =Y-(J- K)sin F◢
L2 U″XB″=C+Bcos(F+A)◢V″YB″=D+B sin(F+A)◢
F3 2YUAN
L1 S=K-J-L+T
L2 C=M+R tan(90S/(ЛR))cos (F+90L(Abs Z)/(RЛZ))+R tan (90S/(лR))cos(F+90LZ/(лRAbs Z)+180SZ/(RлAbs Z))◢
L3 D=N+Rtan (90S/(лR))sin(F+90ZL/(ЛRAbs Z))+Rtan (90S/(лR))sin( F+90ZL/(лRAbs Z)+180SZ/(лRAbs Z))◢
L4 U″XB″=C+B cos (F+90ZL/(лRAbs Z)+180ZS/(лRAbs Z)+A)◢
L5 V″YB″=D+Bsin (F+90ZL/(лRAbs Z)+180ZS/(лRAbs Z)+A)◢
F4 3HUAN
L1 C=X-(Tcos O)+(S-((Sxy5)/(40R2L2)))(cos O)+((Sxy3)/(6RL))cos (0+((90G)/(Abs G))) ◢

L2 D=Y-(Tsin O)+(S-((Sxy5)/(40R2L2)))(sinO)+((Sxy3)/(6RL))sin (O+((90G)/(Abs G))) ◢
L3 U″XB″=C+Bcos (O+((90GS2)/(лRLAbsG))+I)◢
L4 V″YB″=D+Bsin (O+((90GS2)/(лRLAbs G))+I)◢

计算两点间的距离和方位角
F5 QZB
L1 A″X1″：B″X2″：O″Y1″：Q″Y2″：
L2 D=√((B-A)2+(Q-O)2)◢
L3 C=tan-1 ((Q-O)/ (B-A)) ：O-A≤0=>C=C+180◢


推算曲线中的任意点标高
F1 EZ
L1 Lb1 0
L2 H：B：R：I：J
L3 {LNM}
L4 T=RAbs (J-I)/2
L5 C=B-L
L6 F=1
L7 I﹥J=>F= -1
L8 L≤0=>{HRBIJ}：Goto
L9 ≠=>L﹤B-T=>Z=0：P=I
L10 ≠=>L﹤B=>Z=1：P=I
L11 ≠=>L﹤B+T=>Z=1：P=J
L12 ≠=>Z=0：P=J
L13 G=H-N-CP+ZF (T-Abs C)2/2/R◢V=G+ME◢Goto 0
L14 Goto 0
F2 I-2
L1 Lb1 0
L2 E：D：C：A：L
L3 {BH}：B≤0=> Goto 2
L4 Q=2E/ (E+D)×C：Abs (B-A) >Q=> Goto 1
L5 I= Abs (B-A)×2E/Q-E◢F=H-LI◢T=H-EL◢Goto 0
L6 Lb1 1：I(Abs (B-A)-Q) (D-E)/ (C-Q)+E◢F=H+LI◢T=H-EL◢Goto 0
L7 Lb1 2：I：{EDCAL}：Goto 0
F3 DT
L1 Lb1 0
L2 A：B：{C，D}
L3 X=C-A
L4 Y=D-B
L5 N=Po1(X，Y) ◢
L6 S=W
L7 S﹤0=> Goto 1
L8 S=W◢
L9 Goto 0
L10 Lb1 1
L11 K=360+S◢
L12 Goto 0
F4 B
L1 E：X：Y：R：A：B
L2 L=B-A：A﹥B=>L=A-B
L3 K=L×90/(ЛR)：E﹤0=>K=-K E﹥0=>K=K
L4 D=2Rsin K：D﹤0=>D=-D：≠=>D﹥0=>D=D
L5 Rec(D，(C+K)：N=Ans+X◢O=W+Y◢
L6 J=C+2K：Ans﹤0=>(360+J) ◢≠=>J=J◢

F5 C
L1 A：B：X：Y：C
L2 L=B-A：A﹥B=>L=A-B
L3 Rec (L，C)：N=Ans+X◢O=W+Y◢
L4 D=L：J=C◢
F6 E
L1 H：T：I：R：Q〞(=1，)=-1〞
L2 Lb1 1：{X}：Y=H+QXI+Q(T-X)2/2/R◢Goto 1
F7 I
L1 H=Q+(B－A)×I