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

1、CASIO-fx5800  (任意平曲线极坐标与直角坐标放样,求里程及边距)        湖南津市 赵济汉主程序PQX Deg : Fix 3 : “XZ0:YZ1”？A : If  A = 1: Then Goto 1 : IfEnd If  A = 0 : Then “ BS0:XY1:AND2:DK3:L(I)4 ” ？O : IfEnd If  O = 4: Then  Goto 1 : IfEnd If&

2、#160; O = 3: Then  Prog  “ F.2 ” : If  X= 0 : Then  Goto 1 : IfEnd : IfEnd If  O 1: Then “ X1 ” ？X : “ Y1” ？Y : XZ11: YZ12: “ X2 ” ？P : “ Y2” ？Q : Pol( PX , QY) : If  J0 : Then  J + 360J : IfEnd : Cls : “ S12= ” :  

3、Locate 6 ,1, I : “ B12= ” : J DMS1B : 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         

4、;    （给定综合曲线属性）“ ZQX 0: * 1: * 2 * ” ？C If  C=0: Then 100Z98: n0 Z99: IfEnd If  C=1: Then  m1Z98: n1 Z99: IfEnd If  C=2: Then  m2Z98: n2 Z99: IfEnd *Prog “ PQX ” 其中：  mi为第i条综合曲线矩阵变量起始单元，(第1条综合曲线矩阵变量起始单元应自100开始，以便其他程序临时使用100以前

5、的矩阵变量，综合曲线中每一基本单元需8个矩阵存储单元)； ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行If  C=*Z99: IfEnd语句。还应注特别意，原有程序中的矩阵变量定维语句DimZ应取消，只要原有程序中的矩阵变量定维不大于100，原有程序的运行不受影响。子程序Q . 5              (建立数据库)Deg : Fix 5 0I : “ N ” ? W : W Z99: “ZMIN”? V :

6、VZ98Lbl  1 : “NO.I= ”: I Lbl  C : V + 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 +7Lbl  2 : “JX1: NO0 : OK2”? M : If  M = 2 : Then  Goto 3 : IfEnd : If  M

7、 = 1: Then  Goto  C : IfEnd I + 1I : Goto  1 Lbl  3 : “END ”子程序Q . 6Lbl  1 : “S ” ? W : If  W = 0 : Then  Goto 2 : IfEnd IWW : Cls : “S= ” : Locate 5 , 1 , W : “ BP= ” : J DMSGoto  1 Lbl  2 : Cls : “ OK ”If

8、0; X = 0  And  O = 3 : Then  Goto  2 : IfEnd Lbl  1 : Z98 I : Z99 J : “ DKP ” ? S If  S = 1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd （加桥台转轴时）If  S = 2: Then  Prog  “ZH . 2 ”

9、: Goto  1 : IfEnd （加涵通转轴时）If  S = 0: Then  Goto  2 : IfEnd : If  SZ I : Then “ DKP<MIN ” Goto  1 : IfEnd : If  S > Z I + 8 J : Then “ DKP>MAX ” Goto  1 : IfEnd If  O 4  And  B 0 : T

10、hen “ B ” ? V : V : Prog “ J ” : TU : “()D÷2 ”  ? N : Else  0 N : IfEnd Prog “ Q.2 ” : Goto  1 Lbl  2 : “ END ”子程序Q . 2If  O 3  : Then “ ” : IfEnd 0I : Z98+ 8 M If  S ZM8 And  S ZM :Then  Goto  1

11、 : IfEnd Lbl  2 : I +1 I : M + 8 M If  S ZM :Then  Goto  1 : Else  Goto  2 : IfEnd Lbl  1 : If  O = 3  : Then  I B :IfEnd : MZ27:  If  O 4  : Then  Prog “Q. 3”

12、: Else  “ L(I) , I = ” : I Cls : “ MIN = ” : Locate  6 , 1 , ZZ98+8 I : “ MAX = ” : Locate  6 ,2 , ZZ98+8 I +8:IB : IfEnd 子程序Q . 3If  O = 3  And  U = 0 : Then  BI : IfEnd Z98+8 I G ZGZ ZG +1Z1: ZG +2Z2: ZG +3Z3 Z3:Prog  

13、“ J ” : TZ3ZG +4Z4: ZG +5M : 1÷ ZG +6Z5: 1÷ ZG +7Z6Z6Z5Z6: SZD If  O = 3  : Then  0N : IfEnd : Prog  “Q . 4 ”子程序Q .4            (正算)Lbl  0 : 0I : 0E:0F : 0G : 0H Lbl  1 :

14、 I + 1I : Z3+ Z4( ( I D÷12) ( Z5+ I D Z6÷24÷M ) ( 180÷ ) W : If  I 12: Then  If  Frac ( I÷2 ) 0 : Then  E + cos ( W ) E : F + sin ( W ) F : Else  G + cos ( W ) G : H + sin ( W ) H : IfEnd : IfEnd If  I 12 : Then

15、0; Goto 1：IfEnd Z1+（D÷36）( cos ( Z3) + cos ( W ) + 2G + 4E ) + N cos ( U + W ) P Z2+（D÷36）( sin ( Z3) + sin ( W ) + 2H + 4F ) + N sin ( U + W ) Q If  O = 3 : Then  Goto  2 : IfEnd If  O 0 : Then  Cls : “ XP = ” : Locate 5 , 1 , P : “ Y

16、P = ” : Locate 5 , 2 , Q : “ AT = ” : WDMSIfEnd Z27I : If  ZI S = 0  And  ZI + 1= 0 And  N = 0 : Then  P ZI + 1: QZI + 2: W : Prog “ H ” : TZI +3: IfEnd If  O 1: Then  Pol( PZ11, QZ12) : If  J < 0 : Then J360J : IfEnd

17、 : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J DMSProg  “ Q. 6 ” : IfEnd Lbl  2子程序F . 2             （反算）“ ZH.D(LI) 0 : NO1” ? U Lbl  2 : If  U = 0 : Then “ I ” ? B : IfEnd Z98+ 8 Z99M If  

18、;X = 0 : Then  Z13X : IfEnd : “ X ” ? X : If  X = 0 : Then  Goto  3 : IfEnd “ Y ” ? Y : 1 Z8“ ” If  U = 1 : Then ( ( XZM + 1) ² + (YZM +2) ² ) Z7: Z7+ZMS :  Prog“Q . 2”: IfEnd Z98+ 8 BM : ZM +3: Prog“J ”: T90T ( YZM +2) cos (T) (

19、XZM + 1) Sin (T) Z7If  U =1 And  Abs ( Z7) 0.01: Then 0.01 Z7: IfEnd Z7D : ZM+ D S : If  S > ZM +8: Then  ZM +8S ; IfEnd  If  U = 0 : Then  Prog“Q . 3”: Else  Prog“Q . 2”: IfEnd “ ” Lbl  1 : ( YQ ) cos （W90）

20、(XP) sin (W90) Z8Z + Z7+ Z8SIf  Abs ( Z8) 0.0001: Then Z7+ Z8D : Prog“Q .4”: DZ7: Goto  1: IfEnd If  U =1: Then  If  S + 0.01< Z : Then “ DKP ” : S If  B< Z991 : Then B1B : ZZ98+ 8B I : ZJ : Else ZI : ZZ98+ 8 Z99J : IfEnd : “ L(I)= ”

21、: B Cls : “ MIN= ” : Locate 6 , 1 , I : “ MAX= ” : Locate 6 , 2 , J : “ END, ZH.D(LI)”X Z13: 0X : 3O: Goto  3 : IfEnd: IfEnd If  U =0: Then  If  S< Z 0.01 : Then “ DK<MIN,L(I1) ” Goto  2 : IfEnd : If  S> ZZ98+ 8(B+1) + 0.01: Then “

22、 DK>MAX , L(I+1) ” Goto  2 : IfEnd : IfEnd Cls : “ DKP=” : Locate  6 ,1, S : XPP : If  P =0: Then  ×109P : IfEnd : Pol( P , YQ) : If  sin（WJ）>0: Then II : IfEnd : “ D÷2= ”: Locate 6 , 2, I : Goto  2Lbl  3子程序 JAns&#

23、160; ÷ . 36 16 ( Int  ( Ans ) ) ÷ 9Int (100 (Ans Int (Ans ) )  ) ÷90T子程序 H. 6 4 Int  ( Ans )+. 36 Ans + . 004 Int ( ( 60 ( Ans ( Int (Ans ) ) T 为了实现桥台转轴坐标计算，现（2009.04.19）加一个子程序如下：子程序 JH . ZJ       (桥台转轴)“B ”? V : V : Pro

24、g“J : W + TT Lbl  1 : “(Y +) D ”? N : N = 0 Goto 2 : “( +) S ”? SPol(N , S ) : Rec( I ,TJ ) Cls : “X = ”: Locate  6, 1 , I + P : “Y = ”: Locate  6 , 2 , J + Q Goto 1 Lbl  2 : “ OK ” 在子程序Q.1 中语句 Lbl  1 : Z98 I : Z99 J : “ DKP ” ? S 后加If  S =

25、 1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd （加桥台转轴时）就可以了，(2009.04.19以加，见绿色标注语句。                  桥台（桩基）转轴直角坐标计算 运行提示符       直角坐标放样令DKP=-1时，转向桥台（桩基）转轴

26、直角坐标计算  提  示  符          说                  明              &

27、#160;    以上一测点中桩为中心作偏转   B ?           问转轴偏角（以小数点为度）  (Y + ) D?    问偏距（与直角坐标放样时意义一致）。赋值0时转向OK  ( + ) S?   问支距（小里程方向为，大里程方向为+）  X=      

28、         给出点位纵坐标  Y=               给出点位横坐标                       

29、   OK              本转轴各点计算结束，返回直角坐标放样。子程序 ZH . 2       (涵通转轴)“B ”? V : V : Prog“J”: W + TTLbl  1 : “( +) K ”? S : S = 0 Goto 2 : “(Y +) D ”? N N Cos ( T) + P X : N Sin ( T) +

30、Q Y  Cls : “X = ”: Locate  6, 1 ,S Cos( W ) + X : “Y = ”: Locate  6 , 2 , S Sin(W ) + Y Goto 1 Lbl  2 : “ OK ” 在子程序Q.1 中语句If  S = 1: Then  Prog  “JH . ZJ ” : Goto  1 : IfEnd 后加       &#

31、160;         If  S = 2: Then  Prog  “ZH . 2 ” : Goto  1 : IfEnd （加涵通转轴时)即可。                         

32、  涵通转轴直角坐标计算  中桩直角坐标放样令DKP=2时，提  示  符 示  例 说                  明           以上一测点中桩为中心作偏转 B ? 

33、60;         问涵通偏角（以小数点为度）( + ) K?  问里程差（相对于涵通中桩，小里程为、大里程为+），赋值0时转向OK(Y + ) D?  问偏距（与直角坐标放样时意义一致）X=                       

34、0; 给出点位纵坐标Y=                         给出点位横坐标  OK           本转轴各点计算结束，返回直角坐标放样。算例1       例某

35、工程C匝道:   根据算例数据确定综合曲线属性: 令名 C.ZD   令编号0   令（矩阵存起始储单元 ）ZMIN= 100   （综合曲线段数,不含终点）N = 4  一   给矩阵存储单元定维:（COMP状态下）   140DimZ     二   编写程序PPQX（PROG状态下给定综合曲线属性）  “ C. ZD 0 ” ？ C   If 

36、; C=0: Then 起始单元100Z98: 段数4 Z99: IfEnd   Prog “ PQX ”          三  启动Q . 5  按下列数据建立矩阵存储表  （COMP状态下按提示赋值，详见附件运行提示符）                  

37、0;自              然                  段 名 称   L0      L1      

38、   L2           L3            L4       ±1      -1         1  

39、0;       1           1          0L     190      165.927       116.241  

40、0; 89.623         0R1     5500       5500       100        100          

41、60; 0R2     5500       100        100         ×10 20         0   备注： 起始矩阵存储单元 Z100   终了矩阵存储单元 Z139 。   (139 =100