文档介绍：fx 5800 程序一、 ZXZBJS ( 左线坐标计算) 主程序 Lb1 4:“ 1. SZ=>NE ”:“ 2. NE=>SZ ”:? Q:? S: Prog “ SJK ”↙ Lb1 0: Q=1 => Goto1 : Q=2 => Goto2 :↙ Lb1 1:? Z: Prog “ ZBZS ”:“ N= ”: N◢“ E=”:E◢“ F=”:F◢ Goto4 ↙ Lb1 2:“ N= ”?B: “ E=”?C:B → N:C → E:Prog “ ZBFS ”:“ S=”:S ◢“ Z=”:Z◢ Goto4 ↙二、 SJK (左线数据库) 数据库子程序 Goto 1↙(同时保存多个曲线时的指针) Lb1 1↙ IF S<***( 线元终点里程): Then***( 线元起点方位角)→A :***( 线元起点里程)→O :***( 线元起点 X)→U :***( 线元起点 Y)→V :***( 线元起点曲率半径)→P :***( 线元终点曲率半径)→R :*** ( 线元起点至终点长度)→ L:Return:IfEnd ↙ IF S<***:Then*** → A:*** → O:*** → U:*** → V:*** → P:*** → R:*** → L:Return: IfEnd ↙………………为了便于解读,每增加一个线元增加一行 IF 语句,每增加一条曲线增加一个 Lb1 ,每增加一个工程增加一个 SJB 文件。三、 ZBZS (左线坐标正算) 正算子程序 (1÷ R-1 ÷ P)÷L→ D:S-O →X↙ U+∫(cos(A+(X ÷ P+DX 2)× 180 ÷∏,0,X) →N↙ V+∫(sin(A+(X ÷ P+DX 2)× 180 ÷∏,0,X) →E↙ A+( X÷ P+DX 2)× 180 ÷∏→F↙ N+Zcos(F+90) → N:E+Zsin(F+90) →E↙四、 ZBFS (左线坐标反算) 反算子程序 Lb1 1 :0→ Z:1→ Q:Prog “ SJK ”:Prog “ ZBZS ”↙ Pol(N-B+10^(-46),E-C+10^(-46)):Isin(F-90-J) → W:S+W →S↙ Abs(W)>=>Goto1 ↙ Lb1 2 :0→ Z:Prog “ ZBZS ”:( C-E )÷ sin(F+90) →Z↙………………右线程序创建与左线程序相同, 只需改动左线各程序中相对应的名称: