卡西欧5800--高程计算程序.docx

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