卡西欧5800程序LG计算器.doc

文档介绍：一、坐标正算ZBZS
Lbl 0
“X0=”?X:“Y0=”?Y:“I=”?I:“J=”?J
X+Icos(J)→U:Y+Isin(J)→V
“X=”:U◀“Y=”:V◀ Goto 0
二、坐标反算ZBFS
Lbl 0
“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?V
Pol(U-X,V-Y):
J<0 => J+360→J
“I=”:I◀“J=”J▶DMS◀ Goto 0
三、圆曲线计算YQXJS
“X0=”?X:“Y0=”?Y:“FWJ=”?D:“QDHAO=”?G:“ZDHAO=”?C:“R=”?R
Lbl 1
“DQHAO=”?L
L<G Or L>C => Goto 2
“PY=”?K
180(L-G)÷(πR)→E
2Rsin()→F
Rec(Abs(F),D+)
“X=”:X+I+Kcos(D+E+90)→A◀
“Y=”:Y+J+Ksin(D+E+90)→B◀
D+E→O:O<0 => 360+O→O
“FWJ=”:O▶DMS◀ Goto 1
Lbl 2:“END”
四、
“QZHAO=”?J:“HB=”?B:“I1=”?C:“I2=”?D:“R=”?R“T=”?T:
(D-C)÷100→W:W÷Abs(W)→A:“T”:(W)→S◀
J-T→X:J+T→Y
Lbl 0
“DQ=”?L
If L<X:Then Goto 1:Else If L>Y:Then Goto 1:IfEnd:IfEnd
“GC=”:B+(L-J)+A(L-J+T)2÷(2R)→H◀ Goto 0
Lbl 1:“END”
(含横坡计算边桩)
“QZHAO=”?J: “QDHAO=”?G: “ZDHAO=”?K: “HB=”?B: “SX=”?Q:“I1=”?C:“I2=”?D:
“R=”?R“T=”?T:
(D-C)÷100→W:W÷Abs(W)→A:“T”:(W)→S◀“YIGAO=”?O
J-T→X:J+T→Y
Lbl 0
“DQ=”?L:“PY=”?U: “HP=”?V
If L<X:Then Goto 1:Else If L>Y:Then Goto 2:IfEnd:IfEnd
“HL=”:B+(L-J)+A(L-J+T)2÷(2R)++Q→H◀
“H0=”:O-H→Z◀ Goto 0
Lbl 1
L<G => Goto 3
“HL=”:B+(L-J)++Q→H◀
“H0=”:O-H→Z◀ Goto 0
Lbl 2
L>K => Goto 3
“HL=”:B+(L-J)++Q→H◀
“H0=”:O-H→Z◀ Goto 0
Lbl 3:“END”
说明:输入时可包括竖曲线前后各一段的平直段,HL为中桩或边桩标高,H0为前视读数
五、点到直线距离DDZXJL
Lbl 0
“X0=”?A:“Y0=”?B:“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?V
Pol(U-X,V-Y)
“L=”(B-Y)cos(J)-(A-X)sin(J)→L◀
“S=”(B-Y)sin(J)+