5800高程计算(含超高).doc

5800高程计算（含超高）BG:（标高计算式程序）Lbl 1：Abs(.01(IJ)R2)T：If ZL+T：Then Goto 4:IfEndIf ZL-T：Then Goto 3:IfEndLbl 2：H+.01(ZL)IB: Goto 5Lbl 3:H+.01(Z-L)I+(J-I)(Z+T-L)2(2R Abs(J-I) B:Goto 5Lbl 4:H+.01(Z-L)JB:Goto 5Lbl 5:BH竖曲线顶点高程I后坡J前坡L竖曲线顶点桩号B设计高程R圆曲线半径GX:（挂线高计算主程序）Lbl 0：“U=”?U: “Z=”?Z:If U=0: Then ?L:?H:?I:?J:?R: “Z=”?Z:Prog“BG”：“B=”：B“P=”?P:P:Goto 4: IfEndIf U=1: ThenProg“L1”： Prog“PY”：Goto 1: IfEndIf U=2: ThenProg“L2”： Prog“PY”：Goto 1: IfEndIf U=3: ThenProg“L1”： Prog“PZ”：Goto 1: IfEndIf U=4: ThenProg“L2”： Prog“PZ”：Goto 1: IfEndIf U=5: ThenProg“L3”： Prog“PZ”：Goto 1: IfEndIf U=6: ThenProg“LA”：Goto 2: IfEndIf U=7: ThenProg“LB”：Goto 2: IfEndIf U=8: ThenProg“LC”：Goto 2: IfEndIf U=9: ThenProg“LD”：Goto 2: IfEndIf U=10: ThenProg“LE”：Goto 2: IfEndLbl 1： Prog“BG”：Prog“HP”： “B=”：B“P=”：PGoto 3Lbl 2：Prog“BG”：“B=”：B“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4：(BW) (SN) 1000+.01P(E1)1.31+.2M: “GX=”:MIf E13.5: Then Goto 3:Else E=13.5: “V=”?V:Z+VZ: Goto 0: IfEndTX:（抬线高计算主程序）Lbl 0：“U=”?U: “Z=”?Z:If U=0: Then ?L:?H:?I:?J:?R: “Z=”?Z:Prog“BG”：“B=”：B“P=”?P:P:Goto 4: IfEndIf U=1: ThenProg“L1”： Prog“PY”：Goto 1: IfEndIf U=2: ThenProg“L2”： Prog“PY”：Goto 1: IfEndIf U=3: ThenProg“L1”： Prog“PZ”：Goto 1: IfEndIf U=4: ThenProg“L2”： Prog“PZ”：Goto 1: IfEndIf U=5: ThenProg“L3”： Prog“PZ”：Goto 1: IfEndIf U=6: ThenProg“LA”：Goto 2: IfEndIf U=7: ThenProg“LB”：Goto 2: IfEndIf U=8: ThenProg“LC”：Goto 2: IfEndIf U=9: ThenProg“LD”：Goto 2: IfEndIf U=10: ThenProg“LE”：Goto 2: IfEndLbl 1： Prog“BG”：Prog“HP”： “B=”：B“P=”：PGoto 3Lbl 2：Prog“BG”：“B=”：B“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4:(BW)+.01P(E1) (SN) 1000M: “TX=”:MIf E0: Then Goto 3:Else E=0: “V=”?V:Z+VZ: Goto 0: IfEndE距中桩距离N前视读数S视线高U条件语句V桩号递进参数W结构层厚度Z所求桩号HP:（超高缓和段前后等长的线性横坡计算子程序）If ZA:Then -2P: Goto1： IfEndIf ZA+C:Then -2+(F+2)(Z-A) CP: Goto1：IfEndIf ZA+C+O:Then FP: IfEndIf ZA+O+2C:Then -2+(F+2)(A+O+2C-Z) CP: Goto1： IfEndIf ZA+O+2C:Then -2P: Goto1：IfEnd Lbl 1:本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A前超高缓和段起点桩号C超高缓和段长度F全超高段横坡O全超高长度P所求桩号横坡HP1 （超高缓和段前后不等长的线性横坡计算子程序）：If Z A: Then -2P: Goto 1:IfEndIf ZA+L: Then -2+(F+2)(Z-A)/LP: Goto 1:IfEndIf ZA+L+ O : Then FP: Goto 1:IfEndIf ZA+ L+O+C: Then -2+(F+2)(A+ O Z)/CP: Goto 1:IfEndIf ZA + L+O+C: Then -2P: Goto 1:IfEnd本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A前超高缓和段起点桩号L前超高缓和段长度C后超高缓和段长度F全超高段横坡O全超高长度P所求桩号横坡HP2:（3次抛物线性横坡计算子程序）If ZA:Then PP: Goto1： IfEndIf ZQ:Then (Z-A)（Q-A）K:P+(3K2-2K3)(F-P) P: Goto1：IfEnd If ZQ:Then FP: Goto1： IfEndLbl 1:本程序超高是绕中轴旋转（设定中央分隔带边缘高于路面外侧边缘横坡为负）A横坡变化段起点桩号; P(是过渡值)横坡变化段起点横坡Q横坡变化段终点桩号;F横坡变化段终点横坡P所求桩号横坡L1.或LA.等:（竖曲线数据库）If Z:ThenI : J :L : H :R : Goto 1: IfEnd Lbl 1:PY或PZ（横坡数据库）If ZQ+O:Then A: Q:P : F : Goto 1: IfEndLbl 1:谢谢发贴：+26 分 【测量空间】0查看楼主其它文章A + L+O+C: Then -2P: Goto 1:IfEnd13 楼：公道翁11-2-15 12:59 我竖曲线计算程序本程序只需按程序提示输入三个变坡点的桩号和高程，再输入竖曲线半径，即可随心所欲的计算任意点的纵断高程。可以大大减少使用者在现场的工作量。一、程序清单1、CASIO F 5800 计算程序“BP1”？A: “BP1H” ？G: “BPD” ？B: “BPDH”？I :LbI 0: “BP2”?C: “BP2H”?J: “R”?R: B-AD: C-BF: I-GK: J-IM: KDN: MFO :N-OP: “T”:Abs (RP2) T“E”:T2R) B-TW :B+TX:G+N(W-A)YI+OTZLbI 1“KM”?Q:QX=Goto 2: While QWQ-ASG+SNVGoto 1: WhileEnd: While QB And QWQ-WSIfP0Then Y+SN-S (2R) VElse Y+SN+S (2R) VIfEndGoto 1: WhileEnd: While QX And QBX-QSIfP0Then Z-SO-S (2R) VElse Z-SO+S (2R) VIfEndGoto 1: WhileEnd: LbI 2: BA: CB: IG JI :Goto 02、CASIO F 45004800计算程序LbI 0: CJR:A“BP1”:G “BP1H” :B “BPD” :I “BPDH” : C“BP2”:J“BP2H”:D=B-A: F=C-B: K=I-G:M= J-I: N=K/D: O=M/F :P=N-OT=Abs (RP2) E=T2R) W=B-T:X=B+T:Y=G+N(W-A)Z=I+OTLbI 1:Q:Q“KM”:QX=Goto 2 QW=S=Q-AV=G+SNQB= QW=S=Q-W: P0=V= Y+SN-S /(2R) V=Y+SN+S /(2R) QX = QB=S=X-QP0 =V=Z-SO-S /(2R) V= Z-SO+S /(2R) Goto 1LbI 2: A=B:B=C: G=I:I=J :Goto 03、程序提示符号含义及程序使用说明BP1BP1H-前一变坡点里程桩号及高程；BPDBPDH-竖曲线变坡点里程桩号及高程；BP2BP2H-后一变坡点里程桩号及高程；R-竖曲线半径T-切线长；E-外矢距；ZXG-计算中线高程首先按程序提示输入7个参数，计算前一变坡点至竖曲线终点的纵段高程。当输入桩号大于竖曲线终点时，程序会自动提示输入后一变坡点的桩号及高程，以及下一竖曲线半径，输入三个参数后即可进行下一段纵段高程的计算。校核程序时，可以随便找一本纵断设计图进行校核，这里不再举例 。 的竖曲线计算程序只需要输入3个变坡点的桩号和高程及竖曲线半径就能计算中线高程，现发上来与大家共享，14 楼：老第 楼主 11-2-15 13:16 13楼：数据库是4850和5800的优势，若果一个If Z:ThenI : J :L : H :R : Goto 1: IfEnd计算区间的掺数少是可以借见的，I : J :L : H :R 是5个呀，比7个少了15 楼：老第 楼