[转帖]FX-4500PA穿线法程序

LINE 中线放线程序 4500P L1 Lbl 1 L2 Fixm L3 ｛L｝ L4 L＝0 => Goto 5△ L5 L≤E => Goto 2△ L6 L≥F => Goto 2△ L7 X＝J／Abs J：L＞E＋C => L＜F－C => Goto 3△△ L8 W＝BC：L－E：Ans＞C => F－L△ Pol（Ans －AnsXY5／40／W2－Q， AnsXY3／6／W－Ans XY7／336／WXY3）： L≤E＋C => P＋WX：Goto 4△ L≥F－C => P＋180X＋J－WX：Goto 4△ L9 Lbl 2：V＝E－Abs L＋Q：X＝Abs L－E－Q：P－180：X＜0 => Goto 4△ V＝X：L＞0 => V＝Abs L－F＋Q△P＋J：Goto 4 L10 Lbl 3：90（2L－2E－C）／（ΠB）：Pol （BSin Ans ＋G－Q，B－Bcos Ans＋K）：P＋WX：Goto 4 L11 Lbl 4：Porg CG：Rec （V，Ans）：Y＝V＋N：Z＝W＋O：Pol（Y－S，Z－T）：W－U＋180： Porg CG：W＝Ans：Porg OT▲V▲Goto 1 L12 Lbl 5：Prog ZB YS L1 Prog DA：B＝M：J＝W：｛L｝：C＝L：｛E｝ L2 G＝．5C－CXY3／240／B2▲ L3 K＝C2／24B－CXY4／2688BXY3▲ L4 Q＝（B＋K）tan Abs（．5J）＋G▲ L5 V＝ΠB Abs J／180＋C▲ A：变量 N：交点N坐标 L6 F＝V＋E B：曲线半径 O：交点E坐标 ZB C：曲线缓长 P：第一切线边方位角 L1 Prog DA：U＋180－W D：变量 Q：切线长 L2 Prog CG： U＝Ans▲ E：ZH点里程 R：变量 L3 S＝Rec（M，U）＋S▲T＝W＋T▲ F：HZ点里程 S：置镜点N坐标 DA G：切垂距 T：置镜点E坐标 L1 ｛D｝：M＝D H：/ U：后视点至置镜点方位角 L2 ｛A｝：I＝A：102 Frac I I：变量 V：变量 L3 W＝Int A＋Int Ans／60＋Int 102Frac Ans／3600 J：曲线转角 ：变量 OT K：外矢距 X：变量 L1 60 Frac W L：变量 Y：中线计算点N坐标 L2 Int W＋．01 Int Ans＋E -4 Int 60 Frac Ans M：变量 Z：中线计算点E坐标 CG L1 Ans＜0 => Ans＋360 L2 Ans≥360 => Ans－360 程序说明: A 变量 N 交点N坐标 B 曲线半径 O 交点E坐标 C 曲线缓长 P 第一切线边方位角 D 变量 Q 切线长 E ZH点里程 R 变量 F HZ点里程 S 置镜点N坐标 G 切垂距 T 置镜点E坐标 H U 后视点至置镜点方位角 I 变量 V 变量 J 曲线转角 W 变量 K 外矢距 X 变量 L 变量 Y 中线计算点N坐标 M 变量 Z 中线计算点E坐标 1、输入曲线要素 运行 Prog YS 输入提示 输入 输出显示 字符意义 D： 半径 G 切垂距 A： 转角（左偏“－”，右偏“＋”）(00.0000) K 外矢距 L： 缓长 Q 切线长 E： ZH点里程 V 曲线长 F HZ点里程 根据计算输出的切线长、HZ里程等核对曲线要素计算是否正确 2、输入坐标 输入 N：交点N坐标 S：置镜点N坐标 O：交点E坐标 T：置镜点E坐标 P：第一切线边方位角(。，”) U：后视点至置镜点方位角(。，”) 3、放线 运行Prog LINE 提示 L 输入 欲打中线点里程 输出 拨角（左角）、距离 4、坐标计算 运行Prog LINE 提示 输入 L 距离 D 右角(00.0000) 5、放交点 运行Prog LINE 正交点 提示 输入 L 距离 正交点 提示 输入 L 距离