程序名： XY

Q:W:K:R:F:N:V:G ←┘

Defm 4 ←┘

M=V÷2-V^3÷(240R²) ←┘

P=V²÷(24R)-V^4÷(2688R^3) ←┘

L=∏RN÷180+V ←┘

T=M+(R+P)tan(N÷2) ←┘

A=Q-T ←┘

"ZH=":A ◢

B=A+V ←┘

"HY=":B ◢

"QZ=":A+L÷2 ◢

C=A+L-V ←┘

"YH=":C ◢

D=A+L ←┘

"HZ=":D ◢

Rec(T,F+180 ） ←┘

Z[1]=W+I:Z[2]=K+J ←┘

Rec(T,F+GN) ←┘

Z[3]=W+I:Z[4]=K+J ←┘

Lbi 0 ←┘

{HSE} ←┘

U=S÷(Abs (S+10_E-9)):S=Abs S ←┘

H<A=>Goto 1:≠>H<B=>Goto 2:≠>H<C=>Goto 3:≠>H<D=>Goto 4:≠>Goto 5ΔΔΔΔΔ ←┘

Lbi 1 ←┘

Rec(Q-H,F+180) ←┘

X=W+I:Y=K+J ←┘

Rec(S,F+180-(180-E)U) ←┘

"X=":X=X+I ◢

"Y=":Y=Y+J ◢

S=SU ←┘

Goto 0 ←┘

Lbi 2 ←┘

Z=H-A ←┘

O=90Z²÷(∏RV) ←┘

X=Z-Z^5÷(40R²V²)+Z^9÷(3456R^4V^4) ←┘

Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ←┘

Lbi 6 ←┘

Rec(X,F) ←┘

X=Z[1]+I:Y=Z[2]+J ←┘

Rec(Z,F+90G) ←┘

X=X+I:Y=Y+J ←┘

Rec(S,F+OG+EU) ←┘

"X=":X=X+I ◢

"Y=":Y=Y+J ◢

S=SU ←┘

Goto 0 ←┘

Lbi 3 ←┘

Z=H-A-V÷2 ←┘

O=180Z÷(R∏) ←┘

X=Rsin O+M ←┘

Z=R(1-cos O)+P ←┘

Goto 6 ←┘

Lbi 4 ←┘

Z=D-H ←┘

O=90Z²÷(VR∏) ←┘

X=Z-Z^5÷(40R²V²)+Z^9÷(3456R^4V^4) ←┘

Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ←┘

Rec(X,F+GN+180) ←┘

X=Z[3]+I:Y=Z[4]+J ←┘

Rec(Z,F+GN+180-90G) ←┘

X=X+I:Y=Y+J ←┘

Rec(S,F+GN+180-OG-(180-E)U) ←┘

"X=":X=X+I ◢

"Y=":Y=Y+J ◢

S=SU ←┘

Goto 0 ←┘

Lbi 5 ←┘

Rec(H-D+T,F+GN) ←┘

X=W+I:Y=K+J ←┘

Rec(S,F+GN+EU) ←┘

"X=":X=X+I ◢

"Y=":Y=Y+J ◢

S=SU ←┘

Goto 0 ←┘

请注意 :∏ 这是圆周率 3.14 的附号 ,10_E 这个 E 请按 "EXP" 键输入 .

不明白者联系 QQ326275120

注： XY 程序单代号

Q ——交点里程桩号（去 K 后以纯数字表示输入）

W ——交点 X 坐标值

K ——交点 Y 坐标值

R ——圆曲线半径

F ——第一直线段方位角

N ——交点偏角

V ——缓和曲线长度

G ——如果为左偏角输入“ -1 ” ，如果为右偏角输入“ 1 ”

S ——边桩至中桩的距离，求中桩时输入 0

H ——所求点的里程桩号

E ——左边桩输入“ -90 ” ，右边桩输入“ 90 ”

XY ——所求点的坐标值

二、水平测量

程序名 :SPCL

Lbi 0 ←┘

M:A ←┘

{B} ←┘

"H=":H=M+A-B ◢

Goto 0 ←┘

M ——水准点高程

A ——后视水准点计数

B ——前视所求点计数

H ——所求点高程