CASIO5800计算机程序说明[1]

CASIO5800计算机程序说明[1] CASIO5800计算机程序说明 CASIO5800计算机程序说明 反算运转程序 (文件名) FSXL “K=0,ZK?0”?H:Lbi 0 :”X,0,PROG =,IEND”:2? DimZ:”X=”?X:If X，0:Then Goto 2:If End :”Y=” ?Y:”K=”?K:Lbi 1 H=0:Then Prog “YX”:EIse Prog “ZX”:If End : Prog “SUB” :X-U?I:Y-V?J:Poi ( I , J ): If J,0 : Then J+360 ? J : If End : Icos ( W – J ) ? M : - Isin ( W-J) ? N : If Abs (M) ，0.001 : Then K+M ?K : 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 , ZK?0” ?H : Lbi 0 “K , 0 , =,PROG , END ” : 2 ?DimZ : “ K = ”: If K, 0 : Then Goto 1 : Eise If H = 0 : Then Prog “ YX ” : Eise Prog “ ZX ” : If End : Prog “ SUB ” : “ FWJ ” : W?DMS? “ 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=? 输边桩角度 B=? 输偏距 左“-” 右“+” 显示边桩坐标 —— 2 —— CASIO5800计算机程序说明 主程序 :(文件名) SUB 2?DimZ : ( E - D) ? Abs ( G – F ) ? P : Abs ( K – F ) ? Q: P × Q ? I : C + ( I + 2× D ) × Q × 90 ? ?? W : C + ( I ? 4+2×D ) × Q ×45 ? ( 2×? ) ? M :C + ( 3×I? 4 + 2 × D ) × Q ×135 ? ( 2×? ) ? N : C + ( I ?2 + 2 × D ) × 45 ??? Z [1] : A + Q ?12×( cos(C) + 4×(cos(M) +cos(N) ) + 2 × cos (Z[1]) + cos (W) ) ? U : B + Q ?12× ( sin(C) + 4×( sin(M) + sin(N) + 2 × sin(Z[1]) + sin(W) ) ? V ? - 3 - CASIO5800计算机程序说明 右线高程 : 运行程序 YGC (文件名) Lbi 0 : “ K, 0 ,PROM , END ” : “ K=” ?K: If K, 0 : Then Goto 2 : Eise If K?106984.25 : Then 840.515 ? S : 0.0145?A : 0 ? C : 107220 ? J : Goto 1 : Eise If K?107455.75 : Then 840.515 ? S : 0.0145 ? A : -1 ? C : 23000 ? R : 235.75 ? T : 107220 ? J : Goto 1 : Eise If K ? 107822.50 : Then 835.475? S : -0.006 ? A : 0 ? C : 108060 ? J : Goto 1 : Eise If 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 If K? 109010 : Then 816,975 ? S : -0.025 ? A : -1 ? C : 210000 ? R : 210 ? T : 108800 ?J : Goto 1 : Eise If K?109490 : 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=显示横坡 +为左偏，-为右偏 ，0为直线。-4- CASIO5800计算机程序说明 子程序 :右线横坡 ( 文件名 ) YHP If K ? 107600 : Then -0.02 ? A : Goto 2 : Eise If 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 : Then 0.02 ? B : - 0.02 ? C : 180 ? L : 108300 ? E : Goto 1 : Eise If K ? 108650 : Then -0.02 ? B : -0.03 ? C : 170 ? L : 108480 ? E : Goto 1 : Eise If K ? 109180 : Then -0.03 ? A : Goto 2 : If End : If End : If End : If End : If End ? ? 2Lbi 1 : B + ( K – E )(2) ? L ×( 3 – 2 ( K-E )? L ) × ( C – B ) ? A : Goto 2 : Lbi 2 : “ YHP=”: A? - 5 - CASIO5800计算机程序说明 子程序 右线(平曲线)文件名: YX If K ? 106963.428 : Then 4138.413? A : 6509.37 ?B :156?22′15″? C : 1?5000 ? D : D ? E : 105871.499 ? F : 106963.482 ? G : Eise If K ? 107481.107 : Then 3098.312 ? A : 6834.771 ? B : 168?53′2.6″? C : 0 ? D : D ? E : 106963.482 ? F : 107481.107 ? G : Eise If K? 107803.428 : Then 2590.399 ? A : 6934.566 ? B : 168?53′2.6″? C : 0 ? D : -1 ? 2800 ? E : 107481.107 ? F : 107803.428 ? G : Eise If K? 108068.728 : Then 2275.421 ? A : 7002.755 ? B : 165?35′10.55″? C : -1 ? 2800 ?D: D ?E : 107803.482?F :108068.728 ? G : Eise If K? 108391.049 : Then 2021.982 ? A : 7080.859 ? B : 160?09′26.96″? C : -1 ?2800 ? D : 0?E : 108068.728?F:108391.049?G :Eise If K?108655.112: Then 1723.263?A:7201.799?B : 156? 51′34.9″?C:0?D:1?1600?E:108391.049?F:108655.112?G: Eise If K?109202.255: Then1477.757 ?A:7298.825?B: 161?35′15.81″?C:1?1600 ?D:D ?E:108655.112?F:109202.255?G: If End : If End : If End : If End : If End : If End ? 注 :曲率 1 ，左偏“-1” - 6 - CASIO5800计算机程序说明 左线高程，运行程序，( 文件名 ) ZGC Lbi 0 : “ K, 0 , PROM , END ” : “ K = ” ?K: If K, 0 : Then Goto 2 : Eise If K ? 106994.5 : Then 840.905 ? S : 0.0145 ? A : 0 ? C : 107220 ? J : Goto 1 : Eise If K? 107445.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 : -0.025 ? A : 0 ? C : 108792.68? J : 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 ? 2Lbi 1 : “ ZHS=”: S – ( J – K ) A + C ( K + T – J ) ? ( 2×R ) ? Prog “ ZHP ” : Goto 0 : Lbi 2 : “ PROG , END ” 界面: K=? 输入桩号，ZHS= ，显示设计中桩高程; ZHP=显示横坡 +为左偏，-为右偏 ，0为直线。 - 7 - CASIO5800计算机程序说明 子程序:左线横坡 (文件名) ZHP If K ? 107760 : Then 0.02 ? A : Goto 2 : Eise If 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 : Then 0.02 ? B : -0.02 ? C : 180 ? L : 108310 ? E : Goto 1 : Eise If K? 108660 : 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 ? 22Lbi 1 : B + ( K – E ) ?L×( 3-2 ( K-E ) ? L )× ( C – B ) ? A : Goto 2 ? Lbi 2 : “ ZHP = ” : A ? - 8 - CASIO5800计算机程序说明 子程序 左线(平曲线)文件名 ZX If K?106955.535 : Then 4148.926 ? A : 6542.974?B : 156?22′15″? C : 1 ?5000? D : D?E : 105863.552 ? F : 106955.535 ? G : Eise If K?107753.383 : Then 3108.826 ?A : 6868.375 ? B : 168?53′2.4″? C : 0?D:D?E: 106955.535? F : 107753.383 ?G : Eise If K?107998.383 : Then 2325,947 ?A :7022.197?B : 168?53′2.4″? C: 0?D -1?2000?E : 107753.383 ? F : 107998.383 ?G : Eise If K?108154.012 : Then 2086.597 ?A :7074.320 ?B : 165?22′28.68″? C :-1?2000? D:D?E: 107998.383?F:108154.012?G: Eise If K?108399.012: Then 1937.691?A:7119.432?B : 160?54′58.29″? C : -1?2000? D:0?E:108154.012?F:108399.012?G: Eise If K?108663.074:Then 1709.657?A:7208.905?B : 157?24′24.7″? C :0?D:1?1600?E:108399.012? F:108663.074?G: Eise If K?108692.682:Then 1463.237?A:7303.582?B : 162?08′5.54″? C :1? 1600?D:D?E:108663.074?F:108692.682?G: If End : If End : If End : If End : If End : If End : If End ? 注 :曲率 1 ，左偏“-1” - 9 - CASIO5800计算机程序说明 CASIO5800计算机程序说明 CASIO5800计算机程序说明