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

CASIO-----fx5800 (任意平曲线极坐标与直角坐标放样,求里程及边距).doc
CASIO-fx5800(任意平曲线极坐标与直角坐标放样,求里程及边距) 湖南津市赵济汉 主程序PQX Deg:Fix3:“XZ→0:YZ→1”？A:IfA=1:ThenGoto1:IfEnd IfA=0:Then“ BS→0:XY→1:AND→2:DK→3:L(I)→4” ？O:IfEnd IfO=4:ThenGoto1:IfEnd IfO=3:ThenProg“ F.2” :IfX=0:ThenGoto1:IfEnd:IfEnd IfO≠ 1:Then“ X1” ？X:“ Y1” ？Y:X→Z［11］:Y→Z［12］:“ X2” ？P:“ Y2” ？Q :Pol(P－X,Q－Y):IfJ0:ThenJ+360→J:IfEnd:Cls:“ S12=” :Locate6,1,I: “ B12=” :JDMS 1→B: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:Then100→Z［98］:n0→Z［99］:IfEnd IfC=1:Thenm1→Z［98］:n1→Z［99］:IfEnd IfC=2:Thenm2→Z［98］:n2→Z［99］:IfEnd ******* Prog“ PQX” 其中： mi为第i条综合曲线矩阵变量起始单元，(第1条综合曲线矩阵变量起始单元应自1 00开始，以便其他程序临时使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩 阵存储单元)； ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增 99jianzhupprar 加一行IfC=*******→Z［99］:IfEnd语句。
还应注特别意，原有程序中的矩阵变量定维语句DimZ应取消，只要原有程序中的矩阵变 量定维不大于100，原有程序的运行不受影响。
子程序Q.5(建立数据库) Deg:Fix5 0→I:“ N” ?W:W→Z［99］:“Z［MIN］”?V:V→Z［98］ Lbl1:“NO.I=”: