ZBFS　(已知坐标求中桩偏距)
FIXM
｛RSMNGAOCPEF｝
LBI　9
｛X　Y｝
POI（（A-C），（O-P））
K＝J
POL（（E-F，O））
L＝J
POL（（X-C），（Y-P））
Z＝J＋L-K
U＝F＋IcosZ
V＝IsinZ
M＜N→GOTO　A△
U＞M→GOTO　C△
LBI　B
T＝（R＋S2/（24R））tan（AbsG/2）＋S/2-S3/240/R2
L＝ABS（U-M）
G＜O→V＝－V△
Z＝T＋（T-L）C0S　G-V　sin AbsG
D=（T-L）sin ABSG+V COSG
Z<O→GOTO 7△
L>Z→GOTO 8△
D＝V
M＞N→W＝-M：≠→W＝M：△
S＝O→GOTO　2△
LBI　3
K＝L＋L∧5/（40R2S2）
I＝Ltan　COS-1（L/K）
B＝R2S2-2RSK（D-I）
B＜O→GOTO　2△
Q＝（RS-√B　）/（D-I）
Q≥S→GOTO　2△
J＝ABS（Q＋W）
H＝（（Q-Q∧5/（40R2S2）-L）2＋（Q3/6RS）-D）2→
D-I＜O→H=-H△
V=L
LBI 5
ABS(U-M)≤Z→L=ABS(J-M):≠→L=ABS(J-N): △
K＝L－L5/（40R2S2）＋L7/（3456R3S3）
I＝L3/（6RS）－L7/（（336R3S3）＋L11/（4224OR5S5））
Q＝180L2/（2πRS）
K＝K-HsinQ：I＝I＋HCOSQ
ABS（V-K）≥0.01→GOTO　6△
ABS（D-I）≥0.01→GOTO　6△
“J＝”：J▲
G＞O→H＝H：≠→H＝-H：△
“H＝”：H▲
GOTO　9
LBI　2
Q＝S/2-S3/（240ⅡR2）
Z＝S2/24/R
B＝90S/R/π
L＝L-Q
I＝ABS（LD/（R＋Z-D））
K＝ABS　TAN-1（I/D）
K＋B＞ABS　G→GOTO　6△
“J”＝：J＝ABS（（K-B）Rπ/180＋S＋W）▲
B＝R-Rcosk+Z
H＝-（D-B）/COS（180-K）
C＜O→H＝-H：≠→H＝H：△
“H”＝：H▲
GOTO　9
LBI 6
Abs(U-M)≥Z→Q=-Q△
M<N→J=J-Q：≠→J=J+Q：△
H＝H-I+D
GOTO 5
LBI 8
L=Z
N>M→W＝-N：≠→W＝N：△
S=O→GOTO 2：≠→GOTO 3：△
LBI 7
M > N→J＝N+Z：≠→J＝N-Z：△
“J=”：J▲
G<O→H=-D：≠→H=D：△
“H=”：H▲
GOTO 9
LBI A
U>M→GOTO 8△
LBI C
“J=”：J=U▲
“H=”：H=V▲
GOTO 9
有什么问题可以发信件与我，大家共同讨论一下。