文档介绍:卡西欧CASIOFX--------5800道路坐标放样程序
1,主程序﹙TYQXJS)
LB14: ”=>XY”: ”=>XZ”: ? N : ? S : Prog “ SUBO “↙
1÷P→ C : (P-R)÷(2HPR)→ D :180÷∏→ E :N=1 =>Gto1 : Goto2 : ↙
LB1 1 : ? Z : Abs(S-0) → W : Prog “SUB1”: “XS=”: X ◢
“YS=”: Y ◢ F -90 → F : “FS=”:F ▶ DMS ◢ Goto 4 ↙
LB1 2 : ? X : ? Y : X→ I :Y→J: Prog “ SUB2 “: 0+W→ S : “S= “: S◢“ Z= “: Z◢Goto4 ↙
2,正算子程序(SUB1)
→A:→B:→K:→L:1―L→F:1―K→M:
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X : V+W﹙Asin﹙G+QEKW﹙C+KWD﹚﹚+Bsin﹙G+QELW﹙C+LWD﹚﹚+Bsin﹙G+QEFW﹙C+FWD﹚﹚+Asin﹙G+QEMW﹙C+MWD﹚﹚﹚→Y :G+QEW﹙C+WD﹚+90→F: X+ Zcos﹙F﹚→X: Y+Zsin﹙F﹚→Y
反算子程序﹙SUB2﹚
G-90→T : Abs﹙﹙Y-V﹚cos﹙T﹚-﹙X-U﹚sin﹙T﹚﹚→W : 0→ Z : Lb1 4 : Prog “ SUB1”: T+QEW﹙C+WD﹚→L : ﹙J-Y﹚cos ﹙L﹚-﹙I-X﹚sin﹙L﹚→Z :IF Abs ﹙ Z﹚<IE-6 : Then0→Z : Prog “SUB1 “: ﹙J-Y﹚÷sin ﹙ F﹚→Z : EIse W+Z→ W : Goto4 :IfEnd
4数据库子程序 SUB0
Goto1↙同时保存多个曲线时旳指针
LB1 1: IF S<*******﹙线元终点里程﹚: Then *******→G ﹙线元起点方位角﹚: ********→0﹙线元起点里程﹚; *******→U﹙线元起点坐标X﹚: *******→V ﹙线元起点坐标Y﹚: ********→P﹙线元起点曲率半径﹚: ******→R﹙线元终点曲率半径﹚: *******→H﹙线元起点至终点长度:0或1.-1→Q:Return:IfEnd↙
LB 1 1: IF S<*******﹙线元终点里程﹚: Then *******→G ﹙线元起点方位角﹚: ********→0﹙线元起点里程﹚; *******→U﹙线元起点坐标X﹚: *******→V ﹙线元起点坐标Y﹚: ********→P﹙线元起点曲率半级﹚: ******→R﹙线元终点曲率半径﹚: *******→H﹙线元起点至终点长度﹚:0或1 ,-1→ Q : Return : IfEnd↙
…………………………
为了便于解读,每增加一个线元就增加一行语句,每加一条曲线就增加一
个LB 1,每增加一个工程就增加一个文件。
使用说