一、路线曲线放样计算：
1、 FD
N＂XO＂：E＂YO＂：A＂XJ＂：Q＂YJ＂：R＂XH＂：P＂YH＂：C＂LO＂：D＂R＂：Z＂（1；）2；－3＂：S＂ZH； HZ＂
LbI 1：｛K｝：K＂DK＂
Z＝3＝＞ Prog ＂ZX＂：Goto 8 x
POL((C-C^5÷(40(DC)^2+C^9÷(3456(DC)^4)),(C^3÷(6DC)-C^7÷(336(DC)^3)+C^11÷(42240×(DC)^5)):Fixm:F=3×J
G=C2÷(24D)-C^4÷(2384D^3):H=C÷2-C^3÷(240D2)
L=Abs（S-K）
L>C＝＞ Goto 2 x
M=L-L^5÷（40(DC)2）+L^9÷(3456×(DC)^4)：
B=L^3÷（6DC）-L^7÷(336×(DC)^3)+L^11÷(42240×(DC)^5)
Pol(M,B)
O=3J
Goto 3
LbI 2：W=180（L-C）÷（πD）+F
M=DsinW+H：B=D（1-cosW）+G
O=F+180（L-C）÷（πD）
LbI 3：Z=1＝＞ B=B：O=O：≠＝＞ Z=2＝＞ B=-B：O=-0 xx
注：XO、YO—置镜点坐标；XJ、YJ—交点方向点坐标；XH、YH—ZH、HZ点坐标；LO—缓和曲线长；R—半径；ZH、HZ—ZH、HZ点里程；DK—放样点里程；REP1—返回上一步；OK2—计算置镜点、放样点方位角、距离；≠3—横移；Q1—前移；H2—后移；斜交时先置入Z[1]=横向交角、Z[2]=纵向交角（顺时针为正）
|
|
T=M：U=B：Prog＂XY＂
LbI 8：｛H｝：H＂REP 1,OK 2,≠ 3＂
H=1＝＞ Goto 1 x
H=2＝＞ V=1:Prog ＂FW＂：Goto 8 x
H=3＝＞ Goto 4 x
Goto 8
LbI 4：｛HL｝
H＂≠L1;R2＂：L＂＝＞ M＂
H=1＝＞ F=O-90：≠＝＞ H=2＝＞ F=O+90 xx
Fixm:Rec（L,F+Z[1]）：G=M+I：W=B+J：T=G：U=W：Prog＂XY＂
LbI 5：｛H｝
H＂REP 1;OK 2;= 3＂
H=1＝＞ Goto8 x
H=2＝＞ V=1： Prog＂FW＂：Goto 5 x
H=3＝＞ Goto 6 x
Goto5
LbI 6：｛HL｝：H＂REP-O;Q-1;H-2＂
H=1＝＞ F=O：Goto 9:≠＝＞ H=2＝＞ F=O+180:Goto 9 xx
H=0＝＞ Goto 5 x
Goto 6
LbI 9:L＂＝＞ M＂：Fixm:Rec（L,F+Z[2]）
T=G+I：U=W+J：Prog＂XY＂
LbI 7：｛H｝：H＂PEP 1;OK 2＂
H=1＝＞ Goto 6：≠＝＞ H=2＝＞ V=1：Prog＂FW＂：Goto 7 xx ：Goto7
2、子程序FW
【1】 FW
V=1＝＞ {XY}:X:Y:Fixm: Goto 1x
Fixm:｛NEXY｝：N＂X1＂：E＂Y1＂：X＂X2＂：Y＂Y2＂
LbI 1：PoI（X-N,Y-E）：J< θ＝＞ j="360+J" x
注：X、Y坐标数据可修改；Ｌ—放样点距离；R—放样点方位角；
|
|
J>360＝＞ J=J-360 x
J＂R＂=J◢
I＂L＂=I◢
V=θ
【2】 XY
Fixm：PoI（A-R,Q-P）
X＂N＂=R+TcosJ-UsinJ◢
Y＂E＂=P+UcosJ+TsinJ◢
【3】 ZX
M=Abs（S-K）
B=0：O=0
T=M：U=B：Prog＂XY＂
3、已知一点坐标和到另一点距离、方位角求另一点坐标
【1】 LRXY
{XYLF}:X:Y:L:F
Rec(L,F):Fixm:I＂X1＂=X+I y
注：X1、Y1—直线1上1点坐标；X2、Y2—直线2上1点坐标； Qn—放样点方位角；
|
|
J＂Y1＂=Y+J y
4、两直线求交点坐标计算 JDXY
{ABCSTU}
A＂X1＂:B＂Y1＂C＂Q1＂:S＂X2＂T＂Y2＂:U＂Q2＂
X=(T-StanU-B+AtanC)÷(tanC-tanU)
Y=XtanC+B-AtanC
4、视距测量计算
【1】 SJDIS
{NEZI}
N:E:Z:I
注：N、E、Z—置镜点坐标；M—上下丝距离；L—中丝高度；Q—竖角读数
|
|
LbI 1
Fixm
{MLQ}
M:L:Q
S=90-Q-0.0’32”:D=100M(Cos S)2 y
H=D×tan S+I-Ly
B＂Z0＂=Z+H
Goto 1
