自编卡西欧5800计算器程序_曲线段.doc

卡西欧5800计算器程序
曲线段主程序:
“→XY”: “→SZ”:?N: “XO”?U: “YO”?V:“SO”?O: “SN”?I: “FO”?G: “LS”?H: “RO”?P: “RN”?R: “JIAJIAO”?T:?Q:1÷P→C(P-R)÷(2HPR)→D:18÷π→ E:IfN=1:ThenGoto0:ElseGoto1:IfEnd:Lbl0:?
S:?Z:IfS>I:Then“CHUJIE”◢
Goto0:IfEnd:Abs(s-0)→W:Prog“SUB1”:F-T→F:“X=”:X◢
“Y=”:Y◢
“F=”:F►DMS◢
Goto0
Lbl1:?X:?Y:X→I;Y→Prog“SUB2”:“S”?S:O+W→S◢
“Z”?Z:Z→Z◢
Goto1
字母表示:
1: SZ→XY(XY→SZ) 距离算坐标(坐标算距离)
2: N 选择1或2(一般选1)
3: XO,YO 起点的X,Y坐标
4: SO,SN 起点、终点桩号
5: FO 方位角
6: LS 切线长
7: RO,RN 起点、终点半径
8: JIAJIAO 90不变
9: Q 线路偏向(左-1,右+1)
10: S 求点的桩号
11: Z 距S桩的距离(左负,右正)
子程序:FS2
Pol(X-A,Y-B):J≤0=>J+360→J
子程序:SUB1
→A:→B
→K:→L
1-L→F:1-K→M
G+QEKW(C+KWD)→Z[1]
G+QELW(C+LWD)→Z[2]
G+QEFW(C+FWD)→Z[3]
G+QEMW(C+MWD)→Z[4]
Acos(Z[1])→X
X+Bcos(Z[2])→X
X+Bcos(Z[3])→X
X+Acos(Z[4])→X
U+WX→X
Asin(Z[1])→Y
Y+Bsin(Z[2])→Y
Y+Bsin(