CASIO5800计算机程序说明.docVIP

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 —— 主程序 ：（文件名） 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 - 右线高程 ： 运行程序 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 : 25