文档介绍：5800计算程序木程序使用高斯四节点法为计算内核,可以计算任意里程偏距坐标,反算里程和边距,计算任意点高程,分正常计算和设计计算,,支持加宽,支持带绿化帯,支持开口线和坡脚线计算•本程序仅提供大家参考,计算器主程序:ZHU-CHENG-XULbi0:“l,ZS=FS,2ZS,3FS,4XY=>SG,5。……”?U:U=1=>Prog,,ZS=FS,,:U=2=>Porg,,ZS,,:U=3=>Porg'FS”:U=4=>Porg'XY=>SG”: GotoO: 〃计算器总的主程序,进入选择各种分支计算程序。1为公路三维计算,2为普通正算,3为普通反算,4为大地坐标转施工处标oooooooo选择错误重新选择。公路三维部分正反算选择程序:ZF=FS〃正反算选择,正算选1,反算选2//进入正算循环主程序//进入反算循环主程序//进入边坡开挖主程序“1LZ=>XY,2XY=>LZ,3BIANPO・FY"?U:IfU=l:Prog^ZS-XH^iIfEnd:IfU=2:ThenProg^FS-XH^iIfEnd:IfU=3:ThenProg”BlANPO・FY”:lfEnd:〃普通计算和设计边距计算选择〃选择线路1〜N〃运行普通计算模式边踞白由输入〃输入桩号和边距正算循坏主体程序ZS-XH“1PT・2SJ”?W:“XL・XZ“?UIfW=l:ThenLbiO:y?L:”Z=”?Z:〃运行设计计算模式边距按设计输入〃输入桩号〃录入公路加宽后,^ZS-XH-l44:GotoO:IfEnd:运行正算循坏子程序IfW=2:ThenLbil:,,L=,,^Oo5LUKUAN":Porg^ZS-XH-「':GotoklfEnd:运行正算循环子程序〃进入平而线路选择程序对线路线元进行选择〃里程超限处理〃进入坐标正算程序〃进入公路边桩正算程序〃进入高程线路选择程序对线路线元进行选择〃进入高程部分提取中桩高程〃普通计算时进入边桩高程部分提取边桩高程〃按设计计算时候代入减去半边绿化带麻的路基边距//进入正算显示程序,提収正算三维结果正算循坏子程序ZS-XH-1Prog'PM・XL・XZ=Pn)g''CHAOXIAN・CL”Pn)LGL・ZS”:Prog^GL-BZ-ZS"Prog^GC-XL-XZ":Prog,,GC?,:IfW=l:Prog”B・H”:ElseZ[3]->Z:反算循坏主体程序FS-XH“XL・XZ”?U:Lbio:“L"?L:“X=”?T:Prog,,GL-FS>,:Prog”FS・XS”:GotoO:坐标正算程序GL-ZSProg"ZS・XS”:〃选择线路1〜N“Y=”?S: //输入起算假定桩号,实测XY/进入公路反算程序〃->1:3260725774->J:〃—K:.3300094782—EQ+KrO(C+KD)—K:数据库要用X、Y、Q作为起点坐标方位角Q+ErO(C+ED)—E:Q+FrO(C+FD)->F:Q+MrO(C+MD)->M:X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M))->X:〃计算出X坐标Y+O(lSin(K)+JSin(E)+JSin(F)+ISin(M))—Y:〃计算出Y坐标Q+Or