1、CASIOfx5800程序源湖南津市 赵济汉CASIO-fx5800程序源(任意平曲线极坐标与直角坐标放样,求里程及边距)程序源 2009.04.08校对件2009.04.09附算例已有朋友成功,请与成功的朋友多沟通 。2009.04.12加桥台转轴计算,2009.04.19加涵通转轴计算2009.05.05附可替换子程序Q.4(5点法加速)2009.05.23 重新上转附件,附图,算例,及平分中矢法布桩坐标计算方法,2009.07.21CASIO-fx5800(任意平曲线极坐标与直角坐标放样,求里程及边距)湖南津市 赵济汉主程序PQX Deg : Fix 3 : “XZ0:YZ1”?A :
2、IfA = 1: Then Goto 1 : IfEnd IfA = 0 : Then “ BS0:XY1:AND2:DK3:L(I)4 ” ?O : IfEnd IfO = 4: ThenGoto 1 : IfEnd IfO = 3: ThenProg“ F.2 ” : IfX= 0 : ThenGoto 1 : IfEnd : IfEnd IfO 1: Then “ X1 ” ?X : “ Y1” ?Y : XZ11: YZ12: “ X2 ” ?P : “ Y2” ?Q : Pol( PX , QY) : IfJ0 : ThenJ + 360J : IfEnd : Cls : “ S12
3、= ” :Locate 6 ,1, I : “ B12= ” : J DMS1B : IfEnd IfO = 1: Then “XY(0) 0: 1” ? B: IfEnd Lbl1 : IfA = 1AndO = 3 :ThenProg“ F.2 ” : IfEnd : Prog “ Q.1 ”子程序PPQX (给定综合曲线属性)“ ZQX 0: * 1: * 2 * ” ?C IfC=0: Then 100Z98: n0 Z99: IfEnd IfC=1: Thenm1Z98: n1 Z99: IfEnd IfC=2: Thenm2Z98: n2 Z99: IfEnd *Prog “ PQ
4、X ” 其中:mi为第i条综合曲线矩阵变量起始单元,(第1条综合曲线矩阵变量起始单元应自100开始,以便其他程序临时使用100以前的矩阵变量,综合曲线中每一基本单元需8个矩阵存储单元); ni为第i条综合曲线中基本单元数,每增加一个条综合曲线则增加一行IfC=*Z99: IfEnd语句。还应注特别意,原有程序中的矩阵变量定维语句DimZ应取消,只要原有程序中的矩阵变量定维不大于100,原有程序的运行不受影响。子程序Q . 5(建立数据库)Deg : Fix 5 0I : “ N ” ? W : W Z99: “ZMIN”? V : VZ98Lbl1 : “NO.I= ”: I LblC : V
5、 + 8 IG “DK ”?A : AZG“X ”?B : BZG + 1“Y ”?C : CZG +2“AT ”?D : DZG +3“(1Y+1) ”?K : KZG +4“L ”?E : EZG +5“R1 ”?F : FZG +6“R2”?O : OZG +7Lbl2 : “JX1: NO0 : OK2”? M : IfM = 2 : ThenGoto 3 : IfEnd : IfM = 1: ThenGotoC : IfEnd I + 1I : Goto1 Lbl3 : “END ”子程序Q . 6Lbl1 : “S ” ? W : IfW = 0 : ThenGoto 2 : If
6、End IWW : Cls : “S= ” : Locate 5 , 1 , W : “ BP= ” : J DMSGoto1 Lbl2 : Cls : “ OK ”子程序Q.1IfX = 0AndO = 3 : ThenGoto2 : IfEnd Lbl1 : Z98 I : Z99 J : “ DKP ” ? S IfS = 1: ThenProg“JH . ZJ ” : Goto1 : IfEnd (加桥台转轴时)IfS = 2: ThenProg“ZH . 2 ” : Goto1 : IfEnd (加涵通转轴时)IfS = 0: ThenGoto2 : IfEnd : IfSZ I :
7、 Then “ DKP Z I + 8 J : Then “ DKPMAX ” Goto1 : IfEnd IfO 4AndB 0 : Then “ B ” ? V : V : Prog “ J ” : TU : “()D2 ”? N : Else0 N : IfEnd Prog “ Q.2 ” : Goto1 Lbl2 : “ END ”子程序Q . 2IfO 3: Then “ ” : IfEnd 0I : Z98+ 8 M IfS ZM8 AndS ZM :ThenGoto1 : IfEnd Lbl2 : I +1 I : M + 8 M IfS ZM :ThenGoto1 : Else
8、Goto2 : IfEnd Lbl1 : IfO = 3: ThenI B :IfEnd : MZ27:IfO 4: ThenProg “Q. 3” : Else“ L(I) , I = ” : I Cls : “ MIN = ” : Locate6 , 1 , ZZ98+8 I : “ MAX = ” : Locate6 ,2 , ZZ98+8 I +8:IB : IfEnd 子程序Q . 3IfO = 3AndU = 0 : ThenBI : IfEnd Z98+8 I G ZGZ ZG +1Z1: ZG +2Z2: ZG +3Z3 Z3:Prog“ J ” : TZ3ZG +4Z4: Z
9、G +5M : 1 ZG +6Z5: 1 ZG +7Z6Z6Z5Z6: SZD IfO = 3: Then0N : IfEnd : Prog“Q . 4 ”子程序Q .4(正算)Lbl0 : 0I : 0E:0F : 0G : 0H Lbl1 : I + 1I : Z3+ Z4( ( I D12) ( Z5+ I D Z624M ) ( 180 ) W : IfI 12: ThenIfFrac ( I2 ) 0 : ThenE + cos ( W ) E : F + sin ( W ) F : ElseG + cos ( W ) G : H + sin ( W ) H : IfEnd : If
10、End IfI 12 : ThenGoto 1:IfEnd Z1+(D36)( cos ( Z3) + cos ( W ) + 2G + 4E ) + N cos ( U + W ) P Z2+(D36)( sin ( Z3) + sin ( W ) + 2H + 4F ) + N sin ( U + W ) Q IfO = 3 : ThenGoto2 : IfEnd IfO 0 : ThenCls : “ XP = ” : Locate 5 , 1 , P : “ YP = ” : Locate 5 , 2 , Q : “ AT = ” : WDMSIfEnd Z27I : IfZI S =
11、 0AndZI + 1= 0 AndN = 0 : ThenP ZI + 1: QZI + 2: W : Prog “ H ” : TZI +3: IfEnd IfO 1: ThenPol( PZ11, QZ12) : IfJ ZM +8: ThenZM +8S ; IfEndIfU = 0 : ThenProg“Q . 3”: ElseProg“Q . 2”: IfEnd “ ” Lbl1 : ( YQ ) cos (W90)(XP) sin (W90) Z8Z + Z7+ Z8SIfAbs ( Z8) 0.0001: Then Z7+ Z8D : Prog“Q .4”: DZ7: Goto1: IfEnd IfU =1: ThenIfS + 0.01 Z : Then “
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1