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 ”子程序Q.1

8、If  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

9、. 2 ” : 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

10、 0 : Then “ 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 &

11、#160;1 : 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 “

12、Q. 3” : 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 

14、60;1 : 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 : Th

15、en  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

16、 : “ YP = ” : 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 :

17、 IfEnd : 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

19、 (T) ( 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 ) c

20、os （W90）(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 : “

21、L(I)= ” : 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.0

22、1: Then “ 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子

23、程序 JAns  ÷ . 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

24、 : V : Prog“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&

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

26、-1时，转向桥台（桩基）转轴直角坐标计算 提示符说明 以上一测点中桩为中心作偏转  = B ?           问转轴偏角（以小数点为度）  =(Y + ) D?    问偏距（与直角坐标放样时意义一致）。赋值0时转向OK  =( + ) S?   问支距（小里程方向为，大里程方向为+）  X=    &

27、#160;          给出点位纵坐标  Y=               给出点位横坐标                     &

28、#160;    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

29、 : N Sin ( T) + 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 后加    

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

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

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

33、60;    给出点位纵坐标Y=                         给出点位横坐标  OK           本转轴各点计算结束，返回直角坐标放样。算例1 例某工程C匝道:  

34、; 根据算例数据确定综合曲线属性: 令名 C.ZD   令编号0   令（矩阵存起始储单元 ）ZMIN= 100   （综合曲线段数,不含终点）N = 4      红色数据应在Q.5程序运行时按提示赋值  一   给矩阵存储单元定维:（COMP状态下）   140DimZ     二   编写程序PPQX（PROG状态下给定综合曲线属性） 

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

36、60;   L1         L2            L3              L4       DK        0 &#

37、160;    190        355.927       472.168     561.791X    20934.495   21066.119  21142.859   21076.993   20988.267Y    89274.1

38、72   89411.182    89552.427   89640.286   89644.485AT   47.08177  45.09322    93.33281     160.09323   185.50027±1     -1         

39、 1          1            1           0L     190      165.927        116.241

40、     89.623          0R1      5500        5500        100        100       

41、     0R2      5500        100        100  ×1020         0  备注： 起始矩阵存储单元 Z100   终了矩阵存储单元 Z139 。 (139 =100 +8 × 5-1)四   启动程序PPQX（COMP状态下指定需计算的综合曲线编号）   C. ZD 0 ？ &#