1、CASIO5800计算机程序说明反算运转程序 (文件名) FSXL“K=0,ZK0”?H:Lbi 0 :”X0,PROG =IEND”:2DimZ:”X=”?X:If X0:Then Goto 2:If End :”Y=”?Y:”K=”?K:Lbi 1 H=0:Then Prog “YX”:EIse Prog“ZX”:If End : Prog “SUB” :X-UI:Y-VJ:Poi( I , J ): If J0 : Then J+360 J : If End : Icos( W J ) M : - Isin ( W-J) N : If Abs (M)0.001 : Then K+M K
2、: Goto 1 : Eise“K=”K“B=” : N Goto 0 : If End : Lbi 2 : “PROM ,END”注 : 界面: K = 0 , ZK 0 计算 :右线输“0” , 左线输 “1” X=? Y=? 输入坐标; K 显示 计算桩号 B 显示偏距“”左偏,“+”右- 1 -CASIO5800计算机程序说明CASIO5800计算机程序说明 放样运转程序,(文件名) FYXL “K=0 , ZK0” ?H : Lbi 0 “K 0 , =PROG , END ” : 2 DimZ : “ K = ”: If K 0 : Then Goto 1 : Eise If H
3、= 0 : Then Prog “ YX ” : EiseProg “ ZX ” : If End : Prog “ SUB ” : “ FWJ ” : WDMS“ XS = ” : U “ YS = ” : V “ AP =” ?O : “B =”?R : “X=” : U+Rcos ( W+O ) “ Y = ” V + R sin ( W + O ) Goto 0 : If End Lbi 1 : “ PROG , END ”注 : 界面: K = 0 , ZK 0 计算 :右线输“0” , 左线输 “1”K=? 输放样桩号FWJ 显示方位角 XS= , YS = 显示设计中桩坐标 AP
4、=? 输边桩角度 B=? 输偏距 左“-” 右“+” 显示边桩坐标 2 主程序 :(文件名) SUB2DimZ : ( E - D) Abs ( G F ) P : Abs( K F ) Q: P Q I : C + ( I + 2 D ) Q 90 W : C + ( I 4+2D ) Q 45 ( 2 ) M :C + ( 3I 4 + 2 D ) Q135 ( 2 ) N : C + ( I 2 + 2 D ) 45 Z 1 : A + Q 12( cos(C) + 4(cos(M) +cos(N) ) + 2 cos (Z1) + cos (W) ) U : B +Q 12 ( sin
5、(C) + 4( sin(M) + sin(N) + 2 sin(Z1) + sin(W) ) V - 3 - 右线高程 : 运行程序 YGC (文件名) Lbi 0 : “ K 0 ,PROM , END ” : “ K=” ?K: If K 0 : Then Goto 2 : Eise If K106984.25 : Then 840.515 S : 0.0145A : 0 C : 107220 J : Goto 1 : EiseIf K107455.75 : Then 840.515 S : 0.0145 A :-1 C : 23000 R : 235.75 T : 107220 J :
6、 Goto 1 : Eise If K 107822.50 : Then 835.475S : -0.006 A : 0 C : 108060 J : Goto 1 : EiseIf K 108297.50 : Then 835.475 S : -0.006 A : -1 C : 25000 R : 237.5 T : 108060 J :Goto 1 : Eise If K 108590 : Then 818.975 S : -0.025 A : 0 C : 108800 J : Goto 1 : Eise IfK 109010 : Then 816,975 S : -0.025 A : -
7、1 C : 210000 R : 210 T : 108800 J : Goto 1 : EiseIf K109490 : Then 792.675 S : -0.027 A : 0 C : 109700 J : Goto 1 : If End : If End : If End :If End : If End : If End :Lbi 1 : S (J-K) A +C (K+T-J)(2)(2R) H : “YHS=” : H Prog “YHP”: Goto 0 Lbi 2 : “PROG , END” 界面: K=? 输入桩号,YHS= ,显示设计中桩高程;YHP=显示横坡 +为左偏
8、,-为右偏 ,0为直线。-4-子程序 :右线横坡 ( 文件名 ) YHP If K 107600 : Then -0.02 A : Goto 2 : EiseIf K 107780 : Then -0.02 B : 0.02 C : 180 L : 107600 E : Goto 1 : Eise If K 108300 :Then 0.02 A : Goto 2 : Eise If K 108480 : Then0.02 B : - 0.02 C : 180 L : 108300 E :Goto 1 : Eise If K 108650 : Then -0.02 B :-0.03 C : 1
9、70 L : 108480 E : Goto 1 : Eise IfK 109180 : Then -0.03 A : Goto 2 : If End :If End : If End : If End : If End Lbi 1 : B + ( K E ) (2) L 2 ( 3 2 ( K-E )L ) ( C B ) A : Goto 2 : Lbi 2 : “ YHP=”: A- 5 -子程序 右线(平曲线)文件名: YXIf K 106963.428 : Then 4138.413 A : 6509.37 B :1562215 C : 15000 D : D E :105871.4
10、99 F : 106963.482 G : Eise If K 107481.107 : Then 3098.312 A : 6834.771 B :168532.6 C : 0 D : D E : 106963.482 F : 107481.107 G : Eise If K 107803.428 : Then2590.399 A : 6934.566 B : 168532.6 C :0 D : -1 2800 E : 107481.107 F : 107803.428 G : Eise If K 108068.728 : Then2275.421 A : 7002.755 B : 1653
11、510.55 C : -1 2800 D: D E : 107803.482F :108068.728 G : Eise If K 108391.049 : Then 2021.982 A : 7080.859 B : 1600926.96 C : -1 2800 D : 0E : 108068.728F:108391.049G :Eise IfK108655.112: Then 1723.263A:7201.799B : 1565134.9C:0D:11600E:108391.049F:108655.112G: Eise If K109202.255: Then1477.757 A:7298
12、.825B: 1613515.81C:11600 D:DE:108655.112F:109202.255G: If End : If End : If End : If End : If End : If End 注 :曲率 1 ,左偏“-1” - 6 -左线高程,运行程序,( 文件名 ) ZGCLbi 0 : “ K 0 , PROM , END ” : “ K = ” ?K: If K 0 : Then Goto 2 : Eise If K 106994.5 : Then840.905 S : 0.0145 A : 0 C : 107220 J :Goto 1 : Eise If K 10
13、7445.5 : Then 840.905 S : 0.0145 A : -1 C : 22000 R : 225.5 T :107220 J : Goto 1 : Eise If K 107792.34 :Then 836.046 S : -0.006 A : 0 C : 108029.84 J : Goto 1 : Eise If K 108267.34 : Then 836,046 S : -0.006 A : -1 C : 25000 R : 237.5 T :108029.84 J : Goto 1 : Eise If K 108582.08 : Then 816.975 S : -
14、0.025 A : 0 C : 108792.68J : Goto 1 : Eise If K 109002.68 : Then 816.975 S : -0.025 A : -1 C : 210000 R : 210 T :108792.68 J : Goto 1 : If End : If End : If End :If End : If End : If End Lbi 1 : “ ZHS=”: S ( J K ) A + C ( K + T J )2 ( 2R ) Prog “ ZHP ” : Goto 0 : Lbi 2 : “ PROG , END ”界面: K=? 输入桩号,Z
15、HS= ,显示设计中桩高程;ZHP=显示横坡 +为左偏,-为右偏 ,0为直线。 - 7 -子程序:左线横坡 (文件名) ZHPIf K 107760 : Then 0.02 A : Goto 2 : EiseIf K 107990 : Then 0.02 B : 0.03 C : 230 L : 107760 E : Goto 1 : Eise If K 108160 :Then 0.03 A : Goto 2 : Eise If K 108310 :Then 0.03 B : 0.02 C : 150 L : 108160 E :Goto 1 : Eise If K 108490 : The
16、n 0.02 B : -0.02 C : 180 L : 108310 E : Goto 1 : Eise If K108660 : Then -0.02 B : -0.03 C : 170 L :108490 E : Goto 1 : Eise If K 109180 : Then-0.03 A : Goto 2 : If End : If End : If End : If End Lbi 1 : B + ( K E ) 2L2( 3-2 ( K-E ) L )( C B ) A : Goto 2 Lbi 2 : “ ZHP = ” : A - 8 - 子程序 左线(平曲线)文件名 ZXI
17、f K106955.535 : Then 4148.926 A : 6542.974B: 1562215 C : 1 5000 D : DE : 105863.552 F : 106955.535 G : Eise If K107753.383 : Then 3108.826 A : 6868.375 B :168532.4 C : 0D:DE: 106955.535 F : 107753.383 G : Eise If K107998.383 : Then 2325,947 A :7022.197B : 168532.4 C: 0D-12000E : 107753.383 F : 10799
18、8.383 G :Eise If K108154.012 : Then 2086.597 A :7074.320B : 1652228.68 C :-12000 D:DE: 107998.383F:108154.012G: Eise If K108399.012:Then 1937.691A:7119.432B : 1605458.29 C :-12000 D:0E:108154.012F:108399.012G: EiseIf K108663.074:Then 1709.657A:7208.905B :1572424.7 C :0D:11600E:108399.012F:108663.074G: Eise If K108692.682:Then 1463.237A:7303.582B : 162085.54 C :11600D:DE:108663.074F:108692.682G: If End : If End : If End : If End : If End : If End : If End 注 :曲率 1 ,左偏“-1” - 9 -
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1