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

程序源???? 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 : “XZ→0:YZ→1”？A : If??A = 1: Then Goto 1 : IfEnd ↙If??A = 0 : Then “ BS→0:XY→1:AND→2:DK→3:L(I)→4 ” ？O : IfEnd ↙If??O = 4: Then??Goto 1 : IfEnd ↙If??O = 3: Then??Prog??“ F.2 ” : If??X= 0 : Then??Goto 1 : IfEnd : IfEnd ↙ If??O ≠ 1: Then “ X1 ” ？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 : Cls : “ S12= ” :??Locate 6 ,1, I : “ B12= ” : J ?DMS◣1→B : IfEnd ↙If??O = 1: Then “XY(0) →0: ≠﹥1” ? B: IfEnd ↙Lbl??1 : If??A = 1??And??O = 3 :Then??Prog??“ F.2 ” : IfEnd : Prog “ Q.1 ”??子程序PPQX???????????? （给定综合曲线属性）“ ZQX →0: *** →1: *** →2 ******* ” ？C ↙If??C=0: Then 100→Z［98］: n0 →Z［99］: IfEnd ↙If??C=1: Then??m1→Z［98］: n1 →Z［99］: IfEnd ↙If??C=2: Then??m2→Z［98］: n2 →Z［99］: IfEnd ↙*******Prog “ PQX ” 其中：??mi为第i条综合曲线矩阵变量起始单元，(第1条综合曲线矩阵变量起始单元应自100开始，以便其他程序临时使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩阵存储单元)； ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行If??C=*******→Z［99］: IfEnd↙语句。还应注特别意，原有程序中的矩阵变量定维语句DimZ应取消，只要原有程序中的矩阵变量定维不大于100，原有程序的运行不受影响。子程序Q . 5??????????????(建立数据库)Deg : Fix 5 ↙0→I : “ N ” ? W : W →Z［99］: “Z［MIN］”? V : V→Z［98］↙Lbl??1 : “NO.I= ”: I ◣Lbl??C : V + 8 I→G ↙“→DK ”？A : A→Z［G］↙“→X ”？B : B→Z［G + 1］↙“→Y ”？C : C→Z［G +2］↙“→AT ”？D : D→Z［G +3］↙“→(－1Y+1) ”？K : K→Z［G +4］↙“→L ”？E : E→Z［G +5］↙“→R1 ”？F : F→Z［G +6］↙“→R2”？O : O→Z［G +7］↙Lbl??2 : “JX→1: NO→0 : OK→2”? M : If??M = 2 : Then??Goto 3 : IfEnd : If??M = 1: Then??Goto??C : IfEnd ↙I + 1→I : Goto??1 ↙Lbl??3 : “END ”子程序Q . 6Lbl??1 : “S ” ? W : If??W = 0 : Then??Goto 2 : IfEnd ↙I－W→W : Cls : “⊿S= ” : Locate 5 , 1 , W : “ BP= ” : J ?DMS◣Goto??1 ↙Lbl??2 : Cls : “ OK ”子程序Q.1If??X = 0??And??O = 3 : Then??Goto??2 : IfEnd ↙Lbl??1 : Z［