比较复杂 弄好了还是很好用的

卡西欧5800计算器程序

曲线段主程序：

“1.SZ→XY”: “2.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◢

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

0.1739274226→A:0.3260725774→

B0.0694318442→K:0.3300094782→L1-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(Z[3])→Y

比较复杂 弄好了还是很好用的

Y+Asin(Z[4])→YV+WY→Y

G+QEW(C+WD)+90→FX+Zcos(F)→

XY+Zsin(F)→Y子程序：SUB2 G-90→

T

(Y-V)cos(T)-(X-U)sin(T)→WAbs(W)→W:0→

ZLbl 4：Prog“SUB1” T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→Z

If Abs(Z)<10^(-6):Then0→Z：Prog“SUB1”

(J-Y)/sin(F)→Z

ElseW+Z→

W:Goto 4:IfEnd子程序：XBD “XP=”:A+Scos(F◢ “YP=”:B+Ssin(F◢ 子程序：XBZ

J+90→F:“R”?R：R→S:Prog “XBD”：“L”？L：-L→S：Prog“XBD ”