《CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距》由会员分享，可在线阅读，更多相关《CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距（7页珍藏版）》请在金锄头文库上搜索。
1、程序源 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 （任意平曲线极坐标与直角坐标放样，求里程及边距）湖南津市赵济汉主程序PQXDeg : Fix 3 : “XZ-O:YZ-1”？ A : If A= 1: Then Goto 1 : IfEnd ZIf A = 0 : Then “ BS-0:XY-l:
2、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:ThenXl ” ？ X:“Y1” ？ Y : XZ 11 : YZ 12 :X2 ” ？ P :Y2” ？ Q : Pol（ PX，Q-Y） : If J J : IfEnd : Cis : “ S12= ”： Locate 6，1，I : “B12=”： J DMSk1-B : IfEnd ZIf O=
3、1: Then “XY（0） 0:关 1” ？ B: IfEnd ZLbl 1 : If A= 1 And 0 = 3 :Then Prog “ F.2 ” ： IfEnd : Prog “ Q.l ”子程序PPQX（给定综合曲线属性）ZQX -0:氺本*氺*氺If C=0: Then 100Z 98: nO -Z99: IfEndZIf C=l: Then mlZ 98: nl *Z99: IfEndZIf C=2: Then m2-Z 98: n2 -Z99: IfEndZProg “ PQX ”其中：mi为第i条综合曲线矩阵变fi起始单元，（第1条综合曲线矩阵变S起始单元应自 100开始
4、，以便其他程序临吋使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩 阵存储单元）；ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行 If c=*Z 99 : IfEnd/语句。还应注特别意，原有程序中的矩阵变量定维语句DimZ应取消，只要原有程序中的矩阵变:U: 定维不大于100,原有程序的运行不受影响。子程序Q 5（建立数据库）Deg : Fix 5 Z0-I:“N”？W: W-Z 99 : “Z MIN ”？ V : V-Z 98 Z Lbl 1 : “NO.1= ”： I kLbl C : V + 8 IG Z“-DK”？ A: A-Z G /“X”？ B : B
5、-*Z G+ 1 /“_Y”？ C : C-Z G+2 Z AT ”？ D : DZ G +3 /“(1Y+1)”？ K:KZ 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: NOO : OK2,r? M : If M = 2 : Then Goto 3 : Iffind : If M = 1: Then Goto C : Iffind Z I + 11: Goto 1 Z Lbl 3 : “END 子程序Q . 6Lbl 1 : “S ” ？ W : If W = 0 : Then Goto 2
6、 : IfEnd Z I-W-W: Cis : “ZS= ” ： Locate 5 , 1 , W : u BP= ”： J kDMSk Goto 1 ZLbl 2 : Cis : “ OK ”子程序Q.lIf X = 0 And 0 = 3 : Then Goto 2 : IfEnd ZLbl 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 =
7、 0: Then Goto 2 : IfEnd : If S Z I : Then “ DKPZl + 8J: Then “ DKPMAX ” kGoto 1 : IfEnd ZIf O 关 4 And B#0 : Then “ 一B ？ V : V : Prog “ J ” : T-U : “一(-+)D+2 ”？ N : Else 0 -N : IfEnd Z Prog“Q.2”：Goto 1 /Lbl 2 : “ END ”子程序Q . 2If O 关3 : Then “ ” ： IfEnd Z0-I:Z 98 +8-M ZIf SZ M-8 And SI: M + 8-M ZIf SB
8、 :IfEnd : M-Z 27 : If O#4 : Then Prog“Q. 3” : Else “ L(I)， I = ”：I kCis : “ MIN = ”： Locate 6，1，Z Z 98 +81:“ MAX = ”： Locate 6 ,2 , Z Z 98 +8 I +8 :IB : IfEnd Z子程序Q . 3If O = 3 And U = 0 : Then B*1: IfEnd ZZ 98 +8IG ZZ G -Z ZZ G+l -Z 1 :Z G+2 -Z 2 :Z G+33 /Z 3 :Prog “J”：T-Z 3 /Z G+4 -Z 4 : Z G+5 -M
9、: 1+Z G+65 : 1-Z G+7 -Z 6 /Z 6 -Z 5 -Z 6 : S-ZD Z If O = 3 : Then ON : IfEnd: Prog “Q . 4 ”Z子程序Q .4(正算)Lbl 0: 01 : 0-E:0-F : OG : OH ZLbl 1 :I+1-I:Z 3 +Z 4 (ID+12)(Z 5 +IDZ 6 +24+M ) ( 1 80+ji )-W : If I 0: Then E + cos ( W ) -E : F + sin ( W) -F : Else G + cos ( W )G : H + sin ( W ) - H : IfEnd : I
10、fEnd Z If I P Z Z 2 + (IK36) (sin(Z 3 ) + sin(W) + 2H + 4F) + Nsin(U + W)-Q Z If 0 = 3: Then Goto 2 : IfEnd ZIf O / 0 : Then Cis : “ XP = ”： Locate 5，1，P : “ YP = ”： Locate 5，2，Q : “ AT = ”： WDMSkIfEnd /Z 27 -1 : If Z I - S = 0 And Z 1+1 = 0 And N = 0 : Then P-Z 1+1 : Q-Z 1 + 2 : W: Prog“H”：T-Z 1+3
11、: IfEnd ZIf1: Then Pol( PZ 11 ，QZ 12 ): If J 0:NO-1”？U /Lbl 2 : If U = 0 : Then I ” ？ B : IfEnd Z Z 98 + 8Z 99 -M ZIf X = 0 : Then Z 13 -X : IfEnd : “ X ” ？ X : If X = 0 : Then Goto 3 : IfEnd Z “Y”？Y: 1 -Z 8 /If U = 1 : Then a/(XZ M+ 1 )2 + (YZ M+2 )2)-Z 7 : Z 7 +Z M S : Prog“Q . 2”: IfEnd /Z 98 + 8
12、 BM : Z M+3 : Prog“J ”： T90T /(Y-Z M+2 ) cos (T) (XZ M+l ) Sin (T) -Z 7 /If U=1 And Abs(Z 7 )Z 7 : IfEnd ZZ 7 -D:Z M +D-S :If SZ M +8 : Then Z M +8 -S ; IfEnd ZIf U = 0 : Then Prog“Q 3”： Else Prog“Q . 2”： IfEnd ZLbl 1 : (Y-Q)cos (W-90) -(X-P) sin (W-90)-*Z 8 ZZ + Z 7 +Z 8 -SZIf Abs(Z 8 ) 0.0001: The
13、n Z 7 +Z 8 D : Prog“Q .4”： DZ 7 : Goto 1: IfEnd / If U =1: Then If S + 0.0KZ: Then “ DKP ”： S kIf BB:Z Z 98 + 8B -1: Z-J : Else Z-I: Z Z 98 +8 Z 99 -J : IfEnd : “ L(I)= B kCis : “ MIN= ”: Locate 6，1，I: “ MAX= ” : Locate 6，2，J : “ END, =ZH.D(LI)LXZ 13 : 0X: 30: Goto 3 : IfEnd: Iffind ZIf U =0: Then If S Z 0.01 : Then “ DK(I 1) ” kGoto 2: IfEnd: If S Z Z 98
