2024年3月29日发(作者：查惜)

土石方程序

ZYFS

Deg

“＝〉XY“：”＝〉KS”:?N

Prog”M-?”(M-?子程序)

0→J:AbS(Q)→M：1-Abs(M)→Z

N=1＝〉Goto1

N=2＝〉Goto2

Lb1 1:? k:? S:K-O→L：90QL÷π÷R→B:G+B→F：F+B+90→E:LZ+2MRsin(QB) →C

U+Rec(C,F)+Scos(E) →X

“X(M)=”:X◢

V+J+Ssin(E) →Y

“Y(M)=”:Y◢

Goto 1

Lb1 2:G+90Q→W:U+Rec(R,W) →E:V+J→F

Lb1 3: “X=”? X: “Y=”?Y:Pol(X-E,Y-F) →D:J→T:J〈0 ＝〉J+360→T:T-W-180M

→B:Abs(B) →P

0+DZcos(P)+MπRP÷180→K

“K=”:K◢

DZsin(B)=MQ(R-D) →S

“S=”:S◢

Return

Deg

Lb10

Prog “ZYFS”

Prog “J-?”(J-? 子程序)

AB-HO

H+I(K-B) →W

W+Abs(S)M→T

“HS(m)=”:T◢

“HP(m)=? →J

T-J→F

“H0(m)=”:F◢

Goto0

子程序

(J-?)

0→B：高程→H：纵坡→I：横坡→M

Return

(m-?)

X坐标→U：Y坐标→V：0→O:方位角→G:0→Q

Return

2024年3月29日发(作者：查惜)

土石方程序

ZYFS

Deg

“＝〉XY“：”＝〉KS”:?N

Prog”M-?”(M-?子程序)

0→J:AbS(Q)→M：1-Abs(M)→Z

N=1＝〉Goto1

N=2＝〉Goto2

Lb1 1:? k:? S:K-O→L：90QL÷π÷R→B:G+B→F：F+B+90→E:LZ+2MRsin(QB) →C

U+Rec(C,F)+Scos(E) →X

“X(M)=”:X◢

V+J+Ssin(E) →Y

“Y(M)=”:Y◢

Goto 1

Lb1 2:G+90Q→W:U+Rec(R,W) →E:V+J→F

Lb1 3: “X=”? X: “Y=”?Y:Pol(X-E,Y-F) →D:J→T:J〈0 ＝〉J+360→T:T-W-180M

→B:Abs(B) →P

0+DZcos(P)+MπRP÷180→K

“K=”:K◢

DZsin(B)=MQ(R-D) →S

“S=”:S◢

Return

Deg

Lb10

Prog “ZYFS”

Prog “J-?”(J-? 子程序)

AB-HO

H+I(K-B) →W

W+Abs(S)M→T

“HS(m)=”:T◢

“HP(m)=? →J

T-J→F

“H0(m)=”:F◢

Goto0

子程序

(J-?)

0→B：高程→H：纵坡→I：横坡→M

Return

(m-?)

X坐标→U：Y坐标→V：0→O:方位角→G:0→Q

Return