坐标高程fx-5800P程序

《坐标高程fx-5800P程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、fx-5800P计算器坐标正反算程序1、坐标正算主程序(命名为ZBZS)第1行：LblO:"K="?K:'，LEN=，'?T第2行：ProgWAU本程序调用左线数据第3行：“X=“:N+Tcos(F+90)^第4行:UY=U:E+Tsin(F+90)^第5行:“F=“:F/第6行：ProgUGCSJKU第7行：“SJZZGC=”:第8行：Goto0K——计算点里程LEN一一计算点到中桩的距离(左负右正)2、坐标反算桩号和偏距主程序(命名为ZBFS)第1行:Lbl1：“X1=“？C:“Y1=“?D:“K1=“？K第2行：Lbl2:ProgUAW本程序调用左线数据第

2、3行：Pol(C-N,D-E):Icos(F-J)—S:K+StK第4行：Abs(S)>0.001=>Goto2第5行：Isin(J-F)・4・725->T第6行:WK1=W:K^第7行：“T二“:T/更改红色字体部份可调用其它线路数据库,显示X坐标显示Y坐标显示中线切线方位角，可省掉更改红色字体部份可调用其它线路数据库判断精度(可删除)反算偏距反算桩号可与第5行合并第11行:(N+1.175)-H^E:Abs(E)->E:V(T2+E2)-R->M计算超欠挖数据第12行:“CQW=“:M/显示超欠挖数据第8行：K—K:T->T第9行:Lbl3:?R:?H调用高

3、程数据库第10行:ProgUGCSJKU第13行：Goto1XI——取样点的X坐标Y1——取样点的Y坐标K1一一输入时为计算起始点(在曲线内即可)，输出时为反算点的桩号T——偏距(左负右正)3、计算坐标子程序(命名为XYF)为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A^S:(QP)-rL->I第2行：U+/(cos(W+X(2P+XI)X904-n),0,S)—N计算中桩的X坐标第2行：V+f(sin(W+X(2P+XI)X90一兀),0,S)—E计算中桩的Y坐标第4行：W+S(2P+SI)X90—tttF计算中线切线方位

4、角4•子程序(GCSJK)GotolLbl1:IfKW232600:Then(1028.248-(232600-k)*0.04)-(k-232365.300)A2/20000->N:Return:IfEndLbl1：ItK^232834.700:Then(1028.248-(232600-k)*-0.00694)-(k-232834.700)A2/20000^N:Return:IfEndLbl1：IfKW233004・160:Then1026.619・(232834.700・k)*・0.00694—N:Return:IfEndLbl1：IfKW233200:Th

5、en(1024.086-(233200-k)*-0.00694)+(k-233004.160)A2/24000N:Return:IfEndLbl1：IfK233395.840:Then(1024.086-(233200-k)*0.0257)+(k-233395.840)八2/24000—N:Return:IfEndLbl1：IfK^234000:Then1029.119-(233395.840-k)*0.0257^N:Return:IfEnd4、兰新铁路第二双线LXS-1标数据库(命名为A)第1行：KW232100・184=>Stop第2行：232100.184

6、->A:2911459.764->U:490442.123^V:309°32’23・8"->W:0—P:—l/900->Q:121TL:KWA+L=>Goto1第3行：232221.184—A:2911534.669-490347.127^V:305°41’18.2〃->W:-l/900->P:-l/900->Q:501.862->L:K^A+L=>Goto1第4行：232723.045->A:2911701.772->U:489880.776->V:273°44'19.9“—W:—l/900->P:0->Q:121^L:K^A+L=>Goto1第5行：2328

7、44.045^A:2911704.244->U:489759.826->V:269°53'14.3"->W:0->P:l/1800->Q:200->L:K^A+L=>Goto1第6行：233044・045->A:2911707・554->U:489559・881tV:273°4'13.5“tW:1/1800tP:1/1800tQ:886・337->L:KWA+L二〉Goto1第7行：233910.383->A:2911956.383->U:488738.755—V:300°38'48.4"->W:l/1800->P:0->Q:200->L:K^A+L=>Goto

8、1第8行：234110.