暴强卡西欧5800计算器程序湖南津市赵济汉

《暴强卡西欧5800计算器程序湖南津市赵济汉》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、CASIO-----fx5800  (任意平曲线极坐标与直角坐标放样,求里程及边距)        湖南津市赵济汉主程序PQXDeg:Fix3:“XZ→0:YZ→1”？A:If  A=1:ThenGoto1:IfEnd↙If  A=0:Then“BS→0:XY→1:AND→2:DK→3:L(I)→4”？O:IfEnd↙If  O=4:Then  Goto1:IfEnd↙If  O=3:Then  Prog  “F.2”:If  X=0:Then  Goto1:IfEnd:IfEnd↙If  O≠1:Then“X1”？X:“Y1”？Y:X→Z［11］:Y→Z［12］:“X2”？P:“

2、Y2”？Q:Pol(P－X,Q－Y):If  J﹤0:Then  J+360→J:IfEnd:Cls:“S12=”:  Locate6,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:Then100→Z［98］:n0→Z［99］:IfEnd↙If  C=1:Th

3、en  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，原有程序的运行不受影

4、响。子程序Q.5              (建立数据库)Deg:Fix5↙0→I:“N”?W:W→Z［99］:“Z［MIN］”?V:V→Z［98］↙Lbl  1:“NO.I=”:I◣Lbl  C:V+8I→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］↙16“→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  Goto3:IfEn

5、d:If  M=1:Then  Goto  C:IfEnd↙I+1→I:Goto  1↙Lbl  3:“END”子程序Q.6Lbl  1:“S”?W:If  W=0:Then  Goto2:IfEnd↙I－W→W:Cls:“⊿S=”:Locate5,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［98］→I:Z［99］→J:“→DKP”?S↙If  S=－1:Then  Prog  “JH.ZJ”:Goto  1:IfEnd↙（加桥台转轴时）If 

6、 S=－2:Then  Prog  “ZH.2”:Goto  1:IfEnd↙（加涵通转轴时）If  S=0:Then  Goto  2:IfEnd:If  S﹤Z［I］:Then“DKPZ［I+8J］:Then“DKP>MAX”◣Goto  1:IfEnd↙If  O≠4  And  B≠0:Then“→B”?V:V:Prog“J”:T→U:“→(－＋)D÷2”  ?N:Else  0→N:IfEnd↙Prog“Q.2”:Goto  1↙Lbl  2:“END”子程序Q.2If  O≠3  :Then“→”:IfEnd↙0→I:

7、Z［98］+8→M↙If  S≥Z［M－8］And  S≤Z［M］:Then  Goto  1:IfEnd↙Lbl  2:I+1→I:M+8→M↙If  S≤Z［M］:Then  Goto  1:Else  Goto  2:IfEnd↙Lbl  1:If  O=3  :Then  I→B:IfEnd:M→Z［27］:  If  O≠4  :Then  Prog“Q.3”:Else  “L(I),I=”:I◣Cls:“MIN=”:Locate  6,1,Z［Z［98］+