资源描述：
《卡西欧5800计算程序27700》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、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:〃计算器总的主
2、程序，进入选择各种分支计算程序。1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工处标oooooooo选择错误重新选择。公路三维部分正反算选择程序：ZF=FS〃正反算选择，正算选1,反算选2//进入正算循环主程序//进入反算循环主程序//进入边坡开挖主程序“1LZ=>XY,2XY=>LZ,3BIANPO・FY"?U：IfU=l:ThcnProg^ZS-XH^iIfEnd:IfU=2:ThenProg^FS-XH^iIfEnd:IfU=3:ThenProg”BlANPO・FY”:lfEnd:〃普通计算和设
3、计边距计算选择〃选择线路1〜N〃运行普通计算模式边踞白由输入〃输入桩号和边距正算循坏主体程序ZS-XH“1PT・2SJ”？W：“XL・XZ“？UIfW=l:ThenLbiO：y?L:”Z=”?Z:〃运行设计计算模式边距按设计输入〃输入桩号〃录入公路加宽后，左右侧设计边距Porg^ZS-XH-l44：GotoO:IfEnd:运行正算循坏子程序IfW=2:ThenLbil:,,L=,,7Porg^Oo5LUKUAN":Porg^ZS-XH-「'：GotoklfEnd:运行正算循环子程序〃进入平而线路选择程序对线路线元进行
4、选择〃里程超限处理〃进入坐标正算程序〃进入公路边桩正算程序〃进入高程线路选择程序对线路线元进行选择〃进入高程部分提取中桩高程〃普通计算时进入边桩高程部分提取边桩高程〃按设计计算时候代入减去半边绿化带麻的路基边距//进入正算显示程序，提収正算三维结果正算循坏子程序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:ThcnProg”B・H”：ElseZ[3]->Z:反算循坏主体程序
5、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/进入公路反算程序〃进入反算显示程序.1739274226->1:3260725774->J:〃四节点法计算系数录入.0694318442—K:.3300094782—EQ+KrO(C+KD)—K:数据库要用X、Y、Q作为起点坐标方位角Q+ErO(C+ED)—E:Q+FrO(C+FD)
6、->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(C+D)—Q：〃计算岀算点方位角边桩坐标计算程序ZS-BZX+Zcos(Q+90)—GY+ZSin(Q+90)—M〃计算出边桩X坐标〃计算出边桩Y坐标公路反算程序GL-FS20—V://V值设置为20,为第一次反算控制Do:Porg,TM-XL-XZ,>:〃进入平面线路选择程序PorgT
7、CHAOXIAN-CL":〃里程超限处理程序IfV>10://V越小反算速度可能越慢，但是半径过小有可能算不出來，10为建议值ThenPor『GL・JY・ZS=〃进入公路简易正算二节点程序ElsePorg,,GL-ZS,?://进入公路正算4节点程序IfEnd:T-X^I:S-Y->J:Pol(I,J):J-Q->J:Rec(I,J):〃试算点与测点X,Y距离差〃方位角转换为接近试算点到测点的值：〃计算出X差和Y差(X里程，J边)I+(1-CJ-2DJ)—VL+V->L：Abs(V)->V:〃计算出里程大致差距(此公
8、式为加速反算)//修改后的里程〃修改值的绝对值LpWhileV>lm:中桩高程计算程序GClfI-JO:Then-l->IfEnd:〃开口向下时赋值(L-C)I+K+(L-C)A2/
