CASIO5800计算机程序说明

《CASIO5800计算机程序说明》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CASIO5800计算机程序说明反算运转程序（文件名）FSXL“K=0,ZK≠0”?H:Lbi0:”X＜0,PROG=＞IEND”:2→DimZ:”X=”?X:IfX﹤0:ThenGoto2:IfEnd:”Y=”?Y:”K=”?K:Lbi1H=0:ThenProg“YX”:EIseProg“ZX”:IfEnd:Prog“SUB”:X-U→I:Y-V→J:Poi(I,J):IfJ＜0:ThenJ+360→J:IfEnd:Icos(W–J)→M:-Isin(W-J)→N:IfAbs(M)﹥0.001:ThenK+M→K:Goto1:Eise“K=”K▲“B=”:N

2、▲Goto0:IfEnd:Lbi2:“PROM,END”注：界面：K=0,ZK≠0计算：右线输“0”，左线输“1”X=?Y=?输入坐标；K显示计算桩号B显示偏距　“－”左偏，“+”右-1-CASIO5800计算机程序说明CASIO5800计算机程序说明CASIO5800计算机程序说明放样运转程序，（文件名）FYXL“K=0,ZK≠0”?H:Lbi0“K＜0,=＞PROG,END”:2→DimZ:“K=”:IfK＜0:ThenGoto1:EiseIfH=0:ThenProg“YX”:EiseProg“ZX”:IfEnd:Prog“SUB”:“FWJ”:W▼DMS

3、▲“XS=”:U▲“YS=”:V▲“AP=”?O:“B=”?R:“X=”:U+Rcos(W+O)▲“Y=”V+Rsin(W+O)▲Goto0:IfEnd↙Lbi1:“PROG,END”注：界面：K=0,ZK≠0计算：右线输“0”，左线输“1”K=?输放样桩号FWJ显示方位角XS=,YS=显示设计中桩坐标AP=?输边桩角度B=?输偏距左“-”右“+”显示边桩坐标——2——CASIO5800计算机程序说明主程序：（文件名）SUB2→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×

4、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（文件名）Lbi0:“K＜0,PROM,END”:“K=”?K:IfK＜0:ThenGoto2:EiseIfK≤106984.25:Then840.515

5、→S:0.0145→A:0→C:107220→J:Goto1:EiseIfK≤107455.75:Then840.515→S:0.0145→A:-1→C:23000→R:235.75→T:107220→J:Goto1:EiseIfK≤107822.50:Then835.475→S:-0.006→A:0→C:108060→J:Goto1:EiseIfK≤108297.50:Then835.475→S:-0.006→A:-1→C:25000→R:237.5→T:108060→J:Goto1:EiseIfK≤108590:Then818.975→S:-0.025→A

6、:0→C:108800→J:Goto1:EiseIfK≤109010:Then816,975→S:-0.025→A:-1→C:210000→R:210→T:108800→J:Goto1:EiseIfK≤109490:Then792.675→S:-0.027→A:0→C:109700→J:Goto1:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:IfEnd:Lbi1:S–(J-K)A+C(K+T-J)∧(2)÷(2R)→H:“YHS=”:H▲Prog“YHP”:Goto0↙Lbi2:“PROG,END”↙界面：K=?输入桩号，YHS=，显示设计中桩

7、高程；YHP=显示横坡+为左偏，-为右偏，0为直线。-4-CASIO5800计算机程序说明子程序：右线横坡(文件名)YHPIfK≤107600:Then-0.02→A:Goto2:EiseIfK≤107780:Then-0.02→B:0.02→C:180→L:107600→E:Goto1:EiseIfK≤108300:Then0.02→A:Goto2:EiseIfK≤108480:Then0.02→B:-0.02→C:180→L:108300→E:Goto1:EiseIfK≤108650:Then-0.02→B:-0.03→C:170→L:108480→E:G

8、oto1:EiseIfK≤109180