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

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“R2 / 221 ”？F : FZG +6“R2”？O : OZG +7Lbl  2 : “JX1: NO0 : OK2”? M : If  M = 2 : Then  Goto 3 : IfEnd : If &

7、#160;M = 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 ”

8、子程序Q.1If  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 

9、0;“ZH . 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 &

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

12、Prog “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 1

15、2 : Then  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 ,

16、 1 , P : “ 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 J

17、360J : 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 I

18、f  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 +

19、2) cos (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 : (

20、YQ ) cos （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 : IfEn

21、d : “ 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)

22、 + 0.01: 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 &#

23、160;3子程序 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       (桥台转轴)“=

24、B ”? V : 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

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

26、样令DKP=-1时，转向桥台（桩基）转轴直角坐标计算  提  示  符          说                  明           

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

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

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

30、s ( T) + P X : 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 后加  

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

32、60;       涵通转轴直角坐标计算  中桩直角坐标放样令DKP=2时，提  示  符 示  例 说                  明          

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

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

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

36、二   编写程序PPQX（PROG状态下给定综合曲线属性）  “ C. ZD 0 ” ？ C   If  C=0: Then 起始单元100Z98: 段数4 Z99: IfEnd   Prog “ PQX ”          三  启动Q . 5  按下列数据建立矩阵存储表  （COMP状态下按提示赋值，详见附件运行提示符）  

37、0;                自              然                  段 名 称 &#

38、160; L0      L1         L2           L3            L4       DK    

39、;   0      190        355.927      472.168    561.791X    20934.495  21066.119  21142.859   21076.993  20988.267Y&#

40、160;   89274.172  89411.182   89552.427  89640.286  89644.485AT   47.08177  45.09322    93.33281    160.09323   185.50027±1      -1   &

41、#160;     1          1           1          0L     190      165.927  &

42、#160;    116.241    89.623         0R1     5500       5500       100        100  

43、;          0R2     5500       100        100         ×10 20         0 

44、  备注： 起始矩阵存储单元 Z100   终了矩阵存储单元 Z139 。   (139 =100 +8 × 5-1)四   启动程序PPQX（COMP状态下指定需计算的综合曲线编号）   C. ZD 0 ？    提示C匝道赋值 0        回车  （自动转向PQX进入各项计算）为了提高计算速度，现提供Q.4 (5点法加速),以该程序取代原有Q.4,

45、其它无需改变。取代后按指定区间反算时间大约4秒，有兴趣的朋友可以试试。Q.4     (5点法加速)If  Z4= 0 : Then 1Z4: IfEndZ4ZG+6Z9: Z4ZG+7Z10( Z9Z10) ÷ （ 2M  Z9Z10）Z13: SZ Z14: Z13Z14Z13: 1 ÷ Z9Z220.1739274226 Z15: 0.3260725774 Z16: 0.0694318442 Z17: 0.3300094782 Z181Z18Z19: 1Z17Z20: 180 ÷

46、 Z21Z3+ Z17Z14(Z22+ Z17Z13) Z21Z17Z3+ Z18Z14(Z22+ Z18Z13) Z21Z18Z3+ Z19Z14(Z22+ Z19Z13) Z21Z19Z3+ Z20Z14(Z22+ Z20Z13) Z21Z20Z3+ Z14 ( Z22+ Z13) Z21WZ1+ Z14 ( Z15cos( Z17) + Z16cos( Z18) + Z16cos( Z19) + Z15cos( Z20) ) +N cos( U + W ) PZ2+ Z14 ( Z15sin( Z17) + Z16sin ( Z18) + Z16sin ( Z19) + Z15sin (

47、 Z20) ) + N sin (U + W) QIf  O = 3 : Then  Goto 2 : IfEndIf  O 0 : Then  Cls : “ XP= ” : Locate 5 , 1 , P : “ YP= ” : Locate 5 , 2 , Q : “ AT= ” : WDMSIfEndZ27I : If  ZI S = 0  And  ZI+1= 0  And N = 0 : Then  P

48、ZI+1: Q ZI+2: W : Prog “ H ” : T ZI+3: IfEndIf  O 1: Then  Pol( PZ11, QZ12) : If  J < 0 : Then J360J : IfEnd : Cls : “ SP= ” : Locate 5 , 1 , I : “ BP= ” : J DMSProg  “ Q. 6 ” : IfEnd Lbl  2需对程序有更多了解，可点击附件，看运行提示符      

49、;      平 曲 线 程 序 运 行 提 示 符CASIO fx5800P 湖南津市 赵济汉 启动 Q.5 建立曲线要素矩阵存储表提 示 符示 例说 明N ?问综合曲线自然段数ZMIN?问矩阵存储起始单元NO.I =提示现在自然段DK?问本段起点里程X?问本段起点纵坐标Y?问本段起点横坐标AT?问本段起点切线方位（以小数点为度)(1Y+1)?问曲线偏向 ， 左赋值1， 右赋值+1,直线可赋0.L?问本段曲线长R1?问本段起点曲率半径R2?问本段终点曲率半径JX1:NO0:OK2?问是否校对，是赋值1 ，否赋值0，本综合段结束赋值2

50、。（校对有误时可直接对显示值进行修改）END重复以上拾序步,直至本综合曲线各自然段赋值结束（赋值2）。特别提示：除起始自然段外，其后，各自然段X, Y, AT可缺省，其值均赋值为0，程序在首次运行时，依次计算各接点中桩坐标一次，则能自动补齐各缺省值。这一功能在匝道曲线方程建立时，十分有利。启动 PPQX 选择需计算的综合曲线提 示 符示 例说 明ZQX0:ZD1*M?问在PPQX程序编写过程中，自定义的综合曲线属性，如：主曲线赋值0，匝道赋值1,等等。选择确定后，程序自动转向PQX ，无需选择时可直接启动PQX。启动 PQX 进入坐标计算阶段XZ0:YZ1?问是否改变以前设定的工作状态，新工作

51、状态赋值0，原工作状态赋值1。（选择原工作状态时，程序直接进入上阶段运行状态，无需再次设置工作与计算状态）BS0:XY1:AND2:DK3: L（I）4?选择新状态时：问计算状态，极坐标放样赋值0，直角坐标赋值1，两种坐标都需要赋值2， 求里程、边距赋值3，由里程求所在曲线段号赋值4。选择原工作状态时不问。极 坐 标 放 样问计算状态，赋值0时提 示 符示 例说 明X1?问设站点纵坐标Y1?问设站点横坐标X2 ?问定向点纵坐标Y2?问定向点横坐标，由原状态进入时，以上不问。S=B12=给出已知点间边长给出定向角DKP?问测点里程（赋值0时转向程序运行终止）B?问测点偏角（以小数点为度）(+)D

52、÷2?问测点偏距BP=SP=给出测点方向给出测点边长S?问测点实测边长（赋值0时，转向测设下一点，问测点里程）BP=S=给出测点方向给出修正值（为退回、+为延伸）DKP>MAX提示测点里程超出本综合段终点里程DKP<MIN提示测点里程小于本综合段起点里程END程序运行终止 (DKP=0时)直 角 坐 标 放 样问计算状态，赋值1时XY(0) 0: 1?中桩赋值0，边桩赋值1DKP?问测点里程（赋值0时转向程序运行终止）B?问测点偏角（以小数点为度），中桩不问(+)D÷2?问测点偏距，中桩不问XP=YP=AT=给出测点纵坐标给出测点横坐标给出测点切线方向END序运

53、行程终止 (DKP=0时)两种坐标都需要问计算状态，赋值2时DKP?同上*从略*同时给出以上两种结果END程序运行终止 (DKP=0时)由里程求所在曲线段号问计算状态，赋值4时提 示 符示 例说 明DKP?同上L(I), I=DK(MIN)=DK(MAX)=给出里程所在曲线段号。给出本曲线段最小里程给出本曲线段最大里程本功能只是反求里程的一个辅助功能，以便程序按指定所在曲线段方式进行反算，快速获得计算结果。反求里程边距问计算状态，赋值3时ZH. D(LI) 0 : NO1问反算形式，指定曲线段赋值0、不指定曲线段赋值1。按指定曲线段反算问反算形式，赋值0时。I?问曲线段（可慨略指定）X?问纵坐

54、标（X=0时，程序运行终止）Y?问横坐标程序运行等待符DKP=D÷2=I?给出求点里程给出求点边距（正交）问下点曲线段END程序运行终止 。（X=0时）特殊情况提示：DK<MIN, L(I1)提示所求点不在本曲线区间，原段号应减1DKMIN, L(I+1)提示所求点不在本曲线区间，原段号应加1这一功能的设置，便于反算点曲线区间位置不明确时，也能按指定曲线段形式进行反算。特别提示：按指定曲线段形式进行反算，有计算速度快，不存在程序判断盲点的问题，是反算形式的首选。按不指定曲线段反算问反算形式，赋值1时X?问纵坐标 。（X=0时，程序运行终止）Y?问横坐标程序运行等待符DKP=D÷2=X?给出求点里程给出求点边距（正交）问下点纵坐标特殊情况提示：DKP提示本里程有误，在程序判断盲区，不可采用。L(I), I=给出本点所在曲线段号。DK(MIN)=DK(MAX)=END, ZH.D（LI）给出本曲线段最小里程给出本曲线段最大里程提示中断运行程序，转向按指定曲线段形式进行反算。END程序运行终止 。（X=0时） 2009-