《卡西欧5800--高程计算程序》由会员分享，可在线阅读，更多相关《卡西欧5800--高程计算程序（3页珍藏版）》请在金锄头文库上搜索。
1、卡西欧 5800-高程计算程序此程序并非本人原创，是根据百度文库 ws_liugang的程序进行修改，除了原先的计算边桩，超高，减去结构层厚度功能外，还增加了计算坡脚功能，并且实现多线元共存，可应用于路网工程。因本人能力有限，不足之处还望海涵并指出，本人将应用户要求积极改进。意见箱：1. 主程序（G）行号 程序 说明1 ClsStat:ClrMemory:FreqOff:Fix 3：10DimZ 2 “GC1-N”? Z5 选择道路代码，比如1、2、3、4 分别表示a、b、c、d 道路，并存储在变量Z5中，对于具体道路项目，用户可自行决定对应关系。3 Lbl 1 : ?K :”D”?W: “H
2、D”？SZ3: Prog“GC-DATA” K输入桩号，D 输入偏距，HD 输入结构层厚度4 -1Q : I 1Q 5 RAbs(I-J) 100L : L2T : T(2R)E 6 C-TM : C+TN 这些公式，初中就学过7 Prog“GCJS” ：Prog “GC-PODU” 调用子程序8 （K-A）（H -A）（Z6-B）+BX9 （K-A）（H -A）(Z7-G)+ GYX为计算点左边桩横坡值；Y 为计算点右边桩横坡值10 Cls 清屏11 “H=”：Locate 4，1，Z 显示中装高程12 “HL=”：Z+XWZ1：Locate 5，2，Z1 显示左边装高程13 “HR=”：Z
3、+YWZ2：Locate 5，3，Z2 显示右边装高程14 ”SPJM”?O:O=3=:Goto 2: Goto 1 若需计算坡脚则输入 3，否则返回输入桩号（=为双线箭头）15 Lbl 2:”L=”:?U 输入机动车道半幅路宽，以下简称“机半宽”16 Lbl 8:”HY”? Z4 输入原地面实测高程17 If U=第一种机动车道宽度：Then Goto 3:If U=第二种机动车道宽度：Then Goto 418Lbl 3:第一种机半宽+对应人行道半宽+1Abs（z-第一种机半宽对应机动车道横坡+对应人行道半宽人行道横坡-Z4）Z8: Goto 719Lbl 4:第二种机半宽+对应人行道半宽
4、+1Abs（z-第二种机半宽对应机动车道横坡+对应人行道半宽人行道横坡-Z4）Z8: Goto 7因为我们项目只有：7.5m 机动车道 4.5m人行道，和 4.5m机动车道 3m人行道这两种路宽，所以我只编辑了两种，若有多种路宽，可继续编辑（不懂可私聊我）。20 Lbl 7：Cls 清屏21 “K=”: Locate 4，1，K 显示当前桩号22 “D=”: Locate 4，1，W 显示当前偏距23 “HD=”: Locate 4，1，S 显示当前结构层厚度24 U=第一种机半宽=Goto 5: Goto 6 25 Lbl 5: “第一种机半宽 P=”:Locate 10，4，Z8 显示坡脚
5、位置26 “FUCK”?V:V=3双箭头 Goto 1:Goto 8 27 Lbl 6: “第二种机半宽 P=”:Locate 10，4，Z8 显示坡脚位置28 “FUCK”?V:V=3=Goto 1:Goto 8 输入 3则返回输入桩号，否则可继续输入原地面实测高程2. 高程计算子程序（GCJS）行号 程序 说明1 If KM : Then D+(K-C)I100 - Z3Z : Return : IfEnd 2 If KM And KC : Then(K-M)(2R)P : D+(K-C)I100+QP - Z3Z : Return : IfEnd 3 If KC And KN : The
6、n(K-N)(2R)P : D+(K-C)J100+QP - Z3Z : Return : IfEnd 4 If KN : Then D+(K-C)J100 - Z3Z : Return : IfEnd 这丫的初中数学就学过了！不懂也不要问我，问我你就挨骂！3. 调用数据库程序(GC-DATA)行号 程序 说明1 If Z5=1:Then Prog G-1:Goto 1:IfEnd2 If Z5=2:Then Prog G-2:Goto 1:IfEnd3 If Z5=3:Then Prog G-3:Goto 1:IfEnd4 If Z5=4:Then Prog G-4:Goto 1:IfEnd
7、5 If Z5=5:Then Prog G-5:Goto 1:IfEnd6 If Z5=6:Then Prog G-6:Goto 1:IfEnd调用数据库的程序，不懂没关系，想知道的可以私聊我7 Cls:Locate 4,2,GC ERROR8 Stop若线元不存在，则警告并终止程序9 Lbl 1:Mat B1,1C:Mat B1,2D:Mat B1,3I:Mat B1,4J:Mat B1,5R 将线元数据赋值给相关变量3. 数据库子程序(G-1、G-2、G-3、G-4、G-5、G-6)1 If K终点桩号：Then 变坡点桩号，变坡点标高，前坡度，后坡度，半径Mat B:Return:IfE
8、nd2 If K终点桩号：Then 变坡点桩号，变坡点标高，前坡度，后坡度，半径Mat B:Return:IfEnd每一个变坡线元一个 If语句，直坡半径为 1。以此类推. 4、横坡子程序（GC-PODU）行号 程序 说明1If K第一变（非变）坡段终点：Then 第一曲线起点桩号A：第一曲线起点左坡B ：第一曲线起点右坡G：第一曲终点桩号H：第一曲终点左坡U：第一曲终点右坡V： Return：Ifend2If K第一变（非变）坡段终点：Then 第一曲线起点桩号A：第一曲线起点左坡B ：第一曲线起点右坡G：第一曲终点桩号H：第一曲终点左坡U：第一曲终点右坡V： Return：Ifend每一个超高变化线元一个 If语句(因为我们项目只有一种横坡，没有超高，所以对此子程序没有进行改动）以此类推
