任意里程中边桩坐标正反算程序 CASIO-5800P
[ZFS]
Deg:Norm2 ↲
Lbl 2:Lbl 0: “1.ZS 2.FS ”: “1 Or 2 ”?Q :Q=1⟹Goto 1:Q=2⟹Goto 5 ↲
Lbl 1: “DKI= ”?S: Prog “SJK ”: “Z ”?Z:Prog “ZS ”:Cls ↲
“X=”:Locate 3,1,N◢
“Y=”:Locate 3,2,E◢
Goto 0 ↲
Lbl 5: “N=”?⟶B: “E=”?⟶C:B⟶N:C⟶E:Prog “FS ”:Cls ↲
“S=”:S◢
“Z=”:Z◢
Goto 2
[ZS]
0.5(1÷R−1÷P)÷L⟶D:S−O→X ↲
U+∫(cos(A + X ÷P + DX
2
)×180÷π),0,X)⟶N ↲
V+∫(sin(A + X ÷P + DX
2
)×180÷π),0,X)⟶E ↲
A+(X÷P+ DX
2
)×180÷π⟶F ↲
N+Zcos(F + 90)→N:E+Zsin(F + 90)⟶E