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计算机程序说明