ASIf5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距.docVIP

程序源 2009.04.08校对件 2009.04.09 附算例 已有朋友成功，请与成功的朋友多沟通。2009.04.12 加桥台转轴计算，2009.04.19 加涵通转轴计算2009.05.05 附可替换子程序Q.4（5点法加速）2009.05.23 重新上转附件，附图，算例，及平分中矢法布桩坐标计算方法，2009.07.21 CASIO-…-fx5800 （任意平曲线极坐标与直角坐标放样，求里程及边距） 湖南津市赵济汉 主程序PQX Deg : Fix 3 : “XZ-O:YZ-1”？ A : If A= 1: Then Goto 1 : IfEnd Z If A = 0 : Then “ BS-0:XY-l:AND-2:DK-3:L（I）-*4 ” ？ O : Iffind / If 0 = 4: Then Goto 1 : IfEnd / If 0 = 3: Then Prog “ F.2 ” ： If X= 0 : Then Goto 1 : Iffind : IfEnd / If O 关 l:Then‘‘Xl ” ？ X:“Y1” ？ Y : X—Z [11] : Y^Z [12] :X2 ” ？ P :Y2” ？ Q : Pol（ P—X，Q-Y） : If J 0 : Then J + 360-J : IfEnd : Cis : “ S12= ”： Locate 6，1，I : “B12=”： J ?DMSk 1-B : IfEnd Z If O= 1: Then “XY（0） —0:关 1” ？ B: IfEnd Z Lbl 1 : If A= 1 And 0 = 3 :Then Prog “ F.2 ” ： IfEnd : Prog “ Q.l ” 子程序PPQX （给定综合曲线属性） ZQX -0:氺本*氺*氺 ZQX -0: 氺本* 氺*氺 TOC \o 1-5 \h \z If C=0: Then 100—Z [98] : nO -Z [99] : IfEnd Z If C=l: Then ml—Z [98] : nl —*Z [99] : IfEnd Z If C=2: Then m2-Z [98] : n2 -Z [99] : IfEnd Z Prog “ PQX ” 其屮：mi为第i条综合曲线矩阵变fi起始单元，（第1条综合曲线矩阵变S起始单元应自 100开始，以便其他程序临吋使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩 阵存储单元）；ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行 If c=*******^Z [99] : IfEnd/语句。 还应注特别意，原有程序屮的矩阵变量定维语句DimZ应取消，只要原有程序屮的矩阵变:U: 定维不大于100,原有程序的运行不受影响。 子程序Q ? 5 （建立数据库） Deg : Fix 5 Z 0-I:“N”？W: W-Z [99] : “Z [MIN] ”？ V : V-Z [98] Z Lbl 1 : “NO.1= ”： I k Lbl C : V + 8 I^G Z “-DK”？ A: A-Z [G] / “—X”？ B : B-*Z [G+ 1] / “_Y”？ C : C-Z [G+2] Z AT ”？ D : D—Z [G +3] / “—(—1Y+1)”？ K:K^Z [G+4] / “_L”？ E:E-Z [G+5] Z “一R1，，? F:F-Z [G+6] Z “-R2”？ O:O-Z [G+7] / Lbl 2 : UJX^ 1: NO^O : OK^2,,r? M : If M = 2 : Then Goto 3 : Iffind : If M = 1: Then Goto C : Iffind Z I + 1^1: Goto 1 Z Lbl 3 : “END ’’ 子程序Q . 6 Lbl 1 : “S ” ？ W : If W = 0 : Then Goto 2 : IfEnd Z I-W-W: Cis : “ZS= ” ： Locate 5 , 1 , W : u BP= ”： J kDMSk Goto 1 Z Lbl 2 : Cis : “ OK ” 子程序Q.l If X = 0 And 0 = 3 : Then Goto 2 : IfEnd Z Lbl 1 :Z [98] -I:Z [99] - J : “-DKP ” ？ S / If S = -1: Then Prog “JH ? ZJ ” : Goto 1 : IfEnd Z (加桥台转轴时) If S= -2: Then Prog “ZH . 2 Goto 1 : IfEnd Z (加涵通转轴时) If S = 0: Then