资源描述：
《直线直墙隧道5800程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、0KM程序Lbl1:Prog"0KMSJ":"X"?X:"Y"?Y:"Z"?Z:"YBJ"?V:Pol(X-A,Y-B):Cls:I→L;J→R:Pol(X-C,Y-D):Cls:I→S:(L2-S2+1104.212)÷1104.21÷2→K:"K=":K◢Ktan(R-120.)→T:IfR<120.:Then"ZP=':T◢ELse"YP":T◢IfEnd:"SJGC":2062.95+(K-6)×0.005→P◢P+1.87→O:P+2.2→G:IfZ>G:Then√((Z-O)2+T2)-V→W:Else√((T)2)-V+0.028→W:Z-P+0.4→M
2、:IfEnd:"2.6GC":M◢"CQW":W◢GOto10KMSJ程序657.284→A:2909.64→B:094.3459→C:3859.5819→D:Return0KMZS程序Lbl1:Prog"0KMSJ":"K"?K:"PIANJU"?T:120.+tan-1(T÷K)→F:√(K2+T2)→L:Rec(L,F):A+I→M:B+J→N:2062.95+(K-6)×0.005→H:"XZB":M◢"YZB":N◢"ZZB":H◢Goo1DYZBZFS程序Lbl3："1→ZS,2→FS"?Q←┘Q=1→Goto1:Q=2→Goto2←┘Lbl1:"X0"?
3、M:Y0"?F:"JL"?L:"FWJ"?A:IfL<0:ThenA+180→A:ElseA→A:IfEnd:Rec(√((L)2),A):M+I→C:F+J→D←┘Cls←┘"X=":Locate3,1,C:"Y=":Locate3,2,D◢Goto3←┘Lbl2:"X1"?G:"Y1"?H:"X2"?N:"Y2"?E:Pol(N-G,E-H)←┘IfJ<0:ThenJ+360→Y:ElseJ→Y:IfEnd←┘CLS←┘"JL=":Locate10,1,I:"FWJ=":Y►DMS◢Goto3X.....................测量所获得的X坐标Y....
4、..................测量所获得的Y坐标Z......................测量所获得的Z坐标YBJ...................隧道顶部半圆的半径K........................隧道的桩号YP.......................隧道顶部半圆的偏距ZP........................隧道左边偏距SJGC..................隧道设计高程（底板混凝土面高程）2.6GC.................所测量的点到隧道2.6米处的高度差CQW...................隧道
5、的超欠挖（+号为超挖，-号为欠挖）FS.......................坐标正算（由两个坐标换算两个点的距离和方位角）ZS.......................坐标反算（由已知一个点坐标和到另外一个点的距离跟方位角换算另外一个点的坐标JL............................距离X0............................已知点X坐标Y0............................已知点Y坐标FWJ..........................方位角1、ClsDsz<变量>:<语句1><语句2>。
6、变量应为A~Z。以1为减量逐次减小变量的值，当变量的值不等于0时，执行语句1，否则执行语句22、Locate定位显示语句句法1：Locate<列数>,<行数>,<数值>句法2：Locate<列数>,<行数>,<表达式>句法3：Locate<列数>,<行数>,"字符串"fx-5800P的屏幕最多可以显示4行、16列字符，因此定位语句中的列数值应为大于等于1、小于等于16的整数，行数值应为大于等于1、小于等于4的整数。3、Pol计算两坐标点之间距离,坐标为（4，4）,与原点的距离就是POL（4，4）=4√24、If...then…else…ifend如果语句为真，则执行t
7、hen（不执行else）,然后执行ifend.如果语句为假，则执行else（不执行then）,然后执行ifend.5、▶DMS常将反三角函数计算出的十进制角度转换成六十进制度分秒形式，cos-1(x)▶DMS6、.Pol键面命令，将直角坐标转换为极坐标，Pol（△x,△y）7、Rec键面命令，将极坐标转换为直角坐标，Rec(r,θ)8、Cls：清除屏幕显示的文字、表达式及计算结果。
