《卡西欧5800计算程序》由会员分享，可在线阅读，更多相关《卡西欧5800计算程序（7页珍藏版）》请在金锄头文库上搜索。
1、 5800 计算程序本程序使用高斯四节点法为计算内核,可以计算任意里程偏距坐标,反算里程和边距,计算任 意点高程,分正常计算和设计计算,支持多条线路.支持两种以中线为旋转轴的超高方式,支持 加宽,支持带绿化带,支持开口线和坡脚线计算.本程序仅提供大家参考, 计算器主程序：ZHU-CHENG-XU Lbi0:“1，ZS=FS，2ZS，3FS，4XYSG，5。 。 。 。 。 。 。 ”？U: U=1Prog”ZS=FS”:U=2Porg”ZS”:U=3Porg”FS”: U=4Porg”XY SG”: Goto0: /计算器总的主程序，进入选择各种分支计算程序。1 为公路三维计算， 2 为普通正
2、算，3 为普通反算，4 为大地坐标转施工坐标。 。 。 。 。 。 。 。选择错误重新选择。 公路三维部分 正反算选择程序：ZF=FS “1LZXY，2XYLZ,3BIANPO-FY”？U： /正反算选择，正算选 1，反算选 2 If U=1: ThenProg”ZS-XH”:IfEnd: /进入正算循环主程序 IfU=2:Then Prog”FS-XH”:IfEnd: /进入反算循环主程序 IfU=3:ThenProg”BIANPO-FY”:IfEnd: /进入边坡开挖主程序 正算循环主体程序 ZS-XH “1PT-2SJ”？W： /普通计算和设计边距计算选择 “XL-XZ“？U /选择线路
3、 1N IfW=1: Then /运行普通计算模式 边踞自由输入 Lbi0:”L=”?L:”Z=”?Z: /输入桩号和边距 Porg”ZS-XH-1“：Goto0:IfEnd:运行正算循环子程序 IfW=2:Then /运行设计计算模式 边距按设计输入 Lbi1:”L=”? /输入桩号 Porg”0。5LUKUAN”: /录入公路加宽后，左右侧设计边距 Porg”ZS-XH-1“：Goto1:IfEnd:运行正算循环子程序 正算循环子程序 ZS-XH-1 Prog”PM-XL-XZ”: /进入平面线路选择程序对线路线元进行选择 Prog”CHAOXIAN-CL” /里程超限处理 Prog”GL
4、-ZS”: /进入坐标正算程序 Prog”GL-BZ-ZS” /进入公路边桩正算程序 Prog”GC-XL-XZ”: /进入高程线路选择程序对线路线元进行选择 Prog”GC”: /进入高程部分提取中桩高程 IfW=1:ThenProg”B-H”: /普通计算时进入边桩高程部分提取边桩高程 ElseZ3 Z: /按设计计算时候代入减去半边绿化带后的路基边距 Prog”ZS-XS”: /进入正算显示程序，提取正算三维结果 反算循环主体程序 FS-XH “XL-XZ”？U： /选择线路 1N Lbio：“L”？L：“X=”？T：“Y=”？S： /输入起算假定桩号，实测 X Y Prog”GL-FS
5、”: /进入公路反算程序 Prog”FS-XS”: Goto0: /进入反算显示程序 坐标正算程序坐标正算程序 GL-ZS .1739274226I:.3260725774J: .0694318442K:.3300094782E /四节点法计算系数录入 1-EF：1-KM： Q+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(ISin(K)+JSin(E)+JSin(F)+ISi
6、n(M) Y: /计算出 Y 坐标 Q+Or(C+D) Q： /计算出算点方位角 边桩坐标计算程序边桩坐标计算程序 ZS-BZ X+Zcos(Q+90) G /计算出边桩 X 坐标 Y+ZSin(Q+90) M /计算出边桩 Y 坐标 公路反算程序公路反算程序 GL-FS 20V: /V 值设置为 20，为第一次反算控制 Do:Porg”PM-XL-XZ”: /进入平面线路选择程序 Porg:”CHAOXIAN-CL”: /里程超限处理程序 IfV10: / V 越小反算速度可能越慢，但是半径过小有可能算不出来，10 为建议值 Then Porg”GL-JY-ZS”: /进入公路简易正算二节点
7、程序 Else Porg”GL-ZS”: /进入公路正算 4 节点程序 IfEnd:T-XI:S-YJ: /试算点与测点 X，Y 距离差 Pol(I,J):J-QJ: /方位角转换为接近试算点到测点的值： Rec(I,J): /计算出 X 差和 Y 差（X 里程，J 边） I+(1-CJ-2DJ) V /计算出里程大致差距（此公式为加速反算） L+VL： /修改后的里程 Abs(V) V: /修改值的绝对值 LpWhile V1m: /小于一毫米通过，大于一毫米循环计算 中桩高程计算程序中桩高程计算程序 GC If I-J0:Then1H:IfEnd: /开口向上部分赋值 IfI-J=0:Th
8、enGoto1: IfEnd: /无竖曲线部分赋值 IfI-J0:Then-1IfEnd: /开口向下时赋值 (L-C)I+K+(L-C)2/(2E)HI： /计算得出竖曲线部分中桩高程 Goto2:Lbi1:K+(L-C)II: Lbi2: /计算得出无竖曲线部分中桩高程 边桩高程计算程序边桩高程计算程序 B-H （L-C）/（D-C）P: /计算点占本线元长比例 3P(2(S)-2P(3(S) P: /计算得线性和高次抛物线系数 F+P（T-F）E： /初步计算计算点横坡 If V=1:Then If N= -1:Then /直线和直缓，缓直,曲线左偏时 Z0：ThenIfEZ4:Then
9、Z4E: IfEnd : /计算左侧时，横坡大于一般横坡取一般横坡 I+Abs(Z)EO: IfEnd : /左侧高程 IfZ0:Then I+ZFO:IfEnd: /右侧高程得数 If N=1:Then IfZ0:Then I+Abs(Z)E:IfEnd: /曲线右偏时，左侧高程得得 IfZ0:Then If EZ4:Then Z4E:IfEnd /右侧高程横坡大于一般横坡，取一般横坡 I+ZEO:IfEnd: IfEnd: IfEnd: /右侧高程得数 IfV=2:ThenIf Z0:Then I+ZEO:IfEnd:/圆曲线全超高和 S 曲线超高渐变部分右侧高程得 数 IfZ0:Then
10、I-Abs(Z)EO:IfEnd:IfEnd: / 圆曲线全超高和 S 曲线超高渐变部分左侧高程得 数 设计标准路面宽度子程序设计标准路面宽度子程序 CHANGSHU 12Z1： /选择 12 米为路面半宽度，根据设计修改 1.5Z2： /选择 1.5 米为绿化带半宽 -0.02 Z4 /一般横坡录入 路面宽度子程序路面宽度子程序 0。5LUKUAN ”Z-1,Y+1”?V: /左右边桩选择 Porg”CHANG-SHU”: /设置标准路面半宽 If V=1:Then Porg”GL-JK” /右侧时，进入加宽子程序 Z1+ZZ: /计算右册正确公路半宽, Z-Z2 Z3：IfEnd：/计算右侧减去半边绿化带时计算边桩高程时用的边距 IfV=-1: :Then Porg”GLJK” /右侧时，进入加宽子程序 -Z1-ZZ: /计算左册正确公路半宽 Z+2 Z3IfEnd /计算左侧减去半边绿化带时计算边桩高程时用的边距 公路加宽子程序公路加宽子程序 GL-JK 前点加宽里程前点加宽里程 A，加宽止点里程，加宽止点里程 B， “加宽缓和段全长加宽缓和段全长 C，止点加宽宽度，止点加宽宽度 D 本加宽程序欠缺 S 缓和曲线加宽程序，因为没有遇到过，所以暂时空缺 Porg“JK-XL-XZ”: /进入加宽数据库线路选择程序 If D=1:Then（4(L-A)/(B-A)3-3*(
