你的位置：
首页
>
IT圈
>
(p)卡西欧计算器测量程序
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