fx-5800公路坐标正反计算程序

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

1、公路坐标正反计算程序K程序清单：FileNameiGLZBZS公路坐标■正算主程序Deg:Norm2计算器设置为角度模式、清除小数点显示位数“(X)=，'?E:“(Y)=，‘？FLblO~Norm2:Cls“K0+000m=，，？K:“+Xm=”？B:“a=，，？ZQ转角注①ProguZB^J<0=>J+360—J〜Fix3:Ck〜“X=”:Locate5,1,X~“Y=”:Locate5,2,Y~u=--=w:Locate5,3,［〜“=>v=，，:Locate5,4,J。，Goto0FilcNamc:jGLZBFS序Deu：Norm2〜示位数LblO~No

2、rm2〜“X=，'？P:“Y='，？Q〜“XK0+000m=w?K〜Lbl1〜清除小数点显示位数、清除屏幕提示输入待算点-里程、距中桩米数、调用'坐标计算■子程序'计算坐标方位角为负值时加360度设置小数点保留三位，清除屏幕显示待算点成果X显示待算点成果Y显示待算点至测站距离显示待算点至测站方位角公路坐标-反算主程计算器设置为角度模式、清除小数点显清除小数点显示位数提示输入待求桩号的坐标X、Y提示输入近似桩号0^B:ProguZB^Q号中桩坐标Pol(P-X.OYQRec(LV-J〜设置小数点保留三位，清除屏幕显示待求点坐标的所处桩号成果显示待求点坐标的所处桩

3、号边桩成果（左显示待求X显示待求Y调用'坐标计算■子程序'序计算近似桩计算近似桩号坐标与待求点方位角计算桩号增量与距中桩距离IfK.01AndI>-.01:ThenK+I->K:J->B:GotoB:ElscK+I—>K:Gotol:IfEnd〜判断精度、循环及里程调整LblB~Fix3:Ck〜uZH=^:Locate5,1,K〜UJL=^:Locate5,2,B〜正右负)UXP=M:Locate5,3,P~“yp=”:Locate5,4,Q‘Goto0?HeNume:PQXCS平曲线参数■子程序6868.73IfKV911&921:更^1111。34。16

4、・56。1人:53・276—1::Return:IfEndIfKV916&921：lh空11O36°54・96°tA:50tL:600tR:9083・328tW:-6868・732tG:-X4867.144^H:99°52O42.3°^O:1^N:Return:IfEndIfK<9337.765:Thenllo20o55.7o^A:50^L:600^R:9253.554->W:-6863.559^G:-14696.546^H:88o15o47.4°^O:-l^N:Return:IfEnd〜IfK<10131.193:Then24°llo56.8°^A:50^L

5、:625^R:9848.221^W:-6962.924^G:14109.812^H:99o36o43.1°^Q:-l^N:Return:ElseStop:IfEnd以上阴影处为线路1念数—坐标计算■子程序计算器设置为角度模式、清除小数曲ZBDeg:Norm2〜点显示位数Prog“PQXCS”〜nRA-180-L^S〜L~(24R)-L—2688一R'tX〜L-2-L3-(240R2^Y〜Y+(R+X)tan(A—2—T4-1-NZ->J7调用'平曲线参数■子程序'计算曲线长计算内移值计算缓和曲线增值计算切线总长线路转向与边桩左右侧关系IfK

6、otoAilffind〜IfKU〜标系的增量关系-Bcos(270-J^I〜标系的增量关系0->V~GotoF〜LblB~K-W+T->X〜90X"RLtY〜X-X5-(40R2L2)+Bsin(90+J+Y^U〜标系的增量关系第一直线段标记计算待算桩号与ZH点为原点T为坐计算待算桩号与ZH点为原点T为坐

7、待算点切线角第一缓和曲线段标记计算待算桩号与ZH点的长度计算待算桩号与ZH点切线角计算待算桩号与ZH点为原点T为坐待算点切线角圆曲线段标记计算待算桩号与ZH点的圆心角计算待算桩号与ZH点为原点T为坐XM6RL)-L7^336R3L3)-Bcos(90+J+Y^lT十算待算桩号与ZH点为原点T为坐标系的增量关系O-NY->V〜GotoF〜LblC~90(2K・L・2W+2T)prR—S〜Y+Rsin(S)+Bsin(S+J-270^U〜标系的增量关系X+R-Rcos(S)-Bcos(S+J-270->I〜标系的增量关系O-NS->V〜计算待算桩号与ZH点为原点T

8、为坐待算点切线角GotoF〜LbLD〜