超高横坡计算小程序
高等级公路三维坐标计算系统设计
高等级公路三维坐标计算系统(线元法)[内容摘要]:本人根据高速公路施工测量的特点，运用Casiofx—5800p编程函数计算器的功能，参考了一些网络资料编写了这套非常实用的公路三维坐标计算系统。
[关键词]: 里程坐标平曲线竖曲线超高加宽边坡放样隧道超欠挖一、简述高速公路施工测量有点多、线长的特点，特别是海外项目。
这就要求现场测量工程师能够准确的计算出放样数据，使施工现场数据信息全面。
该系统采用Gauss-legendre 5节点公式计算平面坐标，近似公式计算设计高程；适用于各种线形的坐标计算，不受平面线形、独立单元、里程桩号、断面距离的限制，能够方便快速的算出现场需要的设计坐标值、高程值、横坡值、断面加宽值、填挖高度、挖方开口线、填方坡脚线、隧道超欠挖值、以及对应测点坐标的里程和边距等数据；只要对其数据库进行编辑，就能够满足各种平面线形计算，本系统可存储多条线路三维数据。
二、程序功能及计算范围（一）、程序功能根据现场工作需要，本系统共设置了6种计算模式。
1、JS-QDFWJ，计算起点方位角:适用于计算曲线元起点方位角，为数据库存储数据做准备。
2、ZS—XY，正算模式:适用于中、边桩计算，输入里程桩号及边距算出平面坐标。
3、XY—FS，反算模式:适用于任意里程及边距计算，输入任意点坐标反算出里程及边距，也适用于工程竣工检测。
4、GCJS，设计高程计算模式:输入任意里程桩号就能计算出路面设计高程及横坡，同样也可以计算曲线桥桥面设计高程。
5、BP-FY，路基放样模式:输入任意测点三维坐标就能马上确定填方坡脚线或者挖方开口线的位置、路基填挖高度。
6、SD-CQW，隧道超欠挖模式:输入任意点三维坐标就能马上算出隧道横断面径向超欠挖值。
三、程序文件:1、平曲线线路选择程序:XL-XZ“ZHUXIAN→0，ZD-A→1，ZD-B→2，ZD-C→3”？→CIf C=0：Then m0→Z[98]：n0→Z[99]：IfEnd：If C=1：Then m1→Z[98]：n1→Z[99]：IfEnd：If C=2：Then m2→Z[98]：n2→Z[99]：IfEnd：If C=3：Then m3→Z[98]：n3→Z[99]：IfEnd：说明：C=0—为选择主线进行计算；C=1—为选择匝道A进行计算；C=2—为选择匝道B进行计算；C=3—为选择匝道C进行计算；Z[98]—为各条线路平曲线矩阵变量最小偏移量，这样能留一些变量给其它程序；Z[99]—为各条线路平曲线线元总数；mi—为第i条线路起始线元最小矩阵变量偏移量；各条线路中每一个线元需要8个矩阵变量存储线元要素；ni—为第i条线路平曲线线元总数；各条线路中的线元矩阵变量不能重叠否则会出现错误；如果是新项目那么就重新编辑程序文件的线元总数和最小偏移量录入程序文件里；如果有多条匝道或者不止一条主线程序中还可以增加新的线路。
5800计算器公路测量常用程序
5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)(销售与维修陀螺全站仪、超站仪全站仪经纬仪垂准仪水准仪对讲机标线仪。
fx-5800P平曲线超高、加宽计算程序(实用!!!)
5800平曲线超高、加宽计算程序5800CG JK JSLbI 0:Cls:“Z H”?C:“H Z”?E:“L B K”?A:“H P”?B:“Z-,Y+”?Z:“L S”?G:“C G”?P:“J K”?X←∣P+B→O: 0.04G÷O→N:Goto 1←∣LbI 1:Cls:D o：“C D，<0=﹥R e t u r n!”?S:I f S<0:T h e n G o t o0:I f E n d←∣S＜C=﹥Goto5←∣S>E=﹥Goto5←∣S＞C+G=﹥Goto2←∣N+C→H:(S-C)/G→L:L O-B→I:L X+A→J←∣I f S＜H:T h e n-B J→D:A I→F:E l s e-I J→D:A I→F:IfEnd←∣Goto4←∣LbI 2:S＞E-G=﹥Goto3←∣X+A→J:-P(A+X)→D:A P→F: Goto4←∣LbI 3:E-N→K:(E-S)/G→L:(4L3-3L4)X+A→J:L O-B→I←∣I f S＜K:T h e n-I J→D:A I→F:E l s e-B J→D:A I→F:IfEnd←∣Goto4←∣LbI 4:If:Z＜0: J→H:A→K:D→L:F→M:Goto6:IfEnd←∣If Z≥0:T h e n A→H:J→K:F→L:D→M:Goto6:IfEnd←∣LbI 5:A→H:A→K:-BA→L:-BA→M:Goto6←∣Lbl 6:C l s←∣“Z K=”:L o c a t e4,1,H←∣“Y K=”:L o c a t e4,2,K←∣“Z-H=”:L o c a t e5,3,L←∣“Y-H=”:L o c a t e5,4,M▲Goto1←∣Lbl 0:C l s:“R e t u r n”：S t o p←∣说明：该程序适用于绕中轴旋转的一、二级公路，在三、四级公路上，有的设计也采用Ⅰ类加宽（本程序），有的则采用Ⅱ类加宽，只需将Lbi3中的=(4L3-3L4)X+A→J 改为L X+A→J即可。
9860公路测量实用程序5.0版本使用说明
9860公路测量实用程序6.0正式版使用说明QQ258062902 编程群2429110686.0版本和5.0版本比较：5.0版本自动根据缓和曲线长进行超高和加宽分配计算，操作简单，但是对于两圆公用一段缓和曲线的情况就无法处理。
6.0版本和其他新出的程序一样，根据前后特征桩号的加宽和超高值进行线性或者抛物线过渡，可以计算异坡，同坡或者反坡过渡。
但是数据输入比较麻烦，如果没有出现两圆公用一段缓和曲线的情况建议使用5.0版本。
一：免责声明程序仅供参考，任何因使用本程序造成的损失本人概不负责。
因本程序较为复杂，使用者需要一定的CASIO编程经验才能理解，对于初学者建议使其它软件。
参考了其它优秀的程序后，目前程序包含交点法，万能坐标转换程序以及线元法坐标计算程序，已经可以满足C型，卵形等复杂曲线的测量工作。
因本人没有做过高等级公路，所以目前专为低等级公路考虑，使用者掌握了使用方法后由能够快速，灵活，全面的完成测量作业，挡墙和涵洞可以在根据现场情况快速完成设计和测量作业，为测量工作节约了时间。
因程序中止容易误删代码，所以重要程序上锁敬请谅解。
在使用第一次使用本程序时请将list和listfile 文件一起拷贝到计算器，否则程序无法运行。
因本程序是由分段程序整合而来，所以和真正的全线程序在反算时有一定差别，在跨越不同交点段时用户应至少进行一次正算复核。
本程序所有输入和输出角度均为度分秒形式。
二：主程序符号说明普通的等完整过度曲线用户可以直接采用交点法计算,交点法操作简单直观，非常适合低等级公路的测量。
如果选遇到C型，卵形等非完整过度曲线时需要运行T程序进行交点参数修正，也可以直接运行线元法进行坐标计算。
但是线元法坐标计算参数输入太繁琐，且可计算范围仅为交点法的1/5，小半径曲线反算需要经常正算复核，否则极易出错，所以不建议采用，只是作为一种独立的复核程序使用。
A【交点法主程序】1-ZS,2-FS,3-CS (正算-1，反算-2)用户在第一次运行程序时必须先运行一次3-CS选中正确的项目，否则不能正确计算。
FX-5800计算器公路测量常用程序
FX-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11]→A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:GotoZ:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)W Ｓ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+W Ｓ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:El seAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
5800高程计算(含超高)
BG:（标高计算式程序）Lbl 1：Abs(.01(I－J)R÷2)－﹥T：If Z≥L+T：Then Goto 4:IfEndIf Z≥L-T：Then Goto 3:IfEndLbl 2：H+.01(Z－L)I－﹥B: Goto 5Lbl 3:H+.01(Z-L)I+(J-I)(Z+T-L)2÷(2R Abs(J-I)) －﹥B:Goto 5 Lbl 4:H+.01(Z-L)J－﹥B: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: Then Prog“L1”：Prog“PY”：Goto 1: IfEndIf U=2: Then Prog“L2”：Prog“PY”：Goto 1: IfEndIf U=3: Then Prog“L1”：Prog“PZ”：Goto 1: IfEndIf U=4: Then Prog“L2”：Prog“PZ”：Goto 1: IfEndIf U=5: Then Prog“L3”：Prog“PZ”：Goto 1: IfEndIf U=6: Then Prog“LA”：Goto 2: IfEndIf U=7: Then Prog“LB”：Goto 2: IfEndIf U=8: Then Prog“LC”：Goto 2: IfEndIf U=9: Then Prog“LD”：Goto 2: IfEndIf U=10: Then Prog“LE”：Goto 2: IfEndLbl 1：Prog“BG”：Prog“HP”：“B=”：B▲“P=”：P▲Goto 3Lbl 2：Prog“BG”：“B=”：B▲“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4：((B－W) －(S－N) ÷1000+.01P(E－1))×1.31+.2－﹥M: “GX=”:M▲If E≠13.5: Then Goto 3:Else E=13.5: “V=”?V:Z+V－﹥Z: 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: Then Prog“L1”：Prog“PY”：Goto 1: IfEndIf U=2: Then Prog“L2”：Prog“PY”：Goto 1: IfEndIf U=3: Then Prog“L1”：Prog“PZ”：Goto 1: IfEndIf U=4: Then Prog“L2”：Prog“PZ”：Goto 1: IfEndIf U=5: Then Prog“L3”：Prog“PZ”：Goto 1: IfEndIf U=6: Then Prog“LA”：Goto 2: IfEndIf U=7: Then Prog“LB”：Goto 2: IfEndIf U=8: Then Prog“LC”：Goto 2: IfEndIf U=9: Then Prog“LD”：Goto 2: IfEndIf U=10: Then Prog“LE”：Goto 2: IfEndLbl 1：Prog“BG”：Prog“HP”：“B=”：B▲“P=”：P▲Goto 3Lbl 2：Prog“BG”：“B=”：B▲“P=”：?P ：Goto 3Lbl 3: “S=”?S: “W=”?W: “E=”?E: “N=”?N:Lbl 4:(B－W)+.01P(E－1) －(S－N) ÷1000－﹥M: “TX=”:M▲If E≠0: Then Goto 3:Else E=0: “V=”?V:Z+V－﹥Z: Goto 0: IfEnd E——距中桩距离N——前视读数S——视线高U——条件语句V——桩号递进参数W——结构层厚度Z——所求桩号HP:（超高缓和段前后等长的线性横坡计算子程序）If Z≤A:Then -2－﹥P: Goto1：IfEndIf Z≤A+C:Then -2+(F+2)(Z-A) ÷C－﹥P: Goto1：IfEndIf Z≤A+C+O:Then F－﹥P: IfEndIf Z≤A+O+2C:Then -2+(F+2)(A+O+2C-Z) ÷C－﹥P: Goto1：IfEndIf Z＞A+O+2C:Then -2－﹥P: Goto1：IfEndLbl 1:本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——前超高缓和段起点桩号C——超高缓和段长度F——全超高段横坡O——全超高长度P——所求桩号横坡HP1 （超高缓和段前后不等长的线性横坡计算子程序）：If Z＜A: Then -2→P: Goto 1:IfEndIf Z≤A+L:Then -2+(F+2)(Z-A)/L→P: Goto 1:IfEndIf Z≤A+L+ O: Then F→P: Goto 1:IfEndIf Z≤A+ L+O+C: Then -2+(F+2)(A+ O–Z)/C→P: Goto 1:IfEndIf Z>A + L+O+C: Then -2→P: Goto 1:IfEnd本程序超高是绕中轴旋转起讫点的横坡是-2（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——前超高缓和段起点桩号L——前超高缓和段长度C——后超高缓和段长度F——全超高段横坡O——全超高长度P——所求桩号横坡HP2:（3次抛物线性横坡计算子程序）If Z≤A:Then P－﹥P: Goto1：IfEndIf Z≤Q:Then (Z-A)÷（Q-A）－﹥K: P+(3K2-2K3)(F-P) －﹥P: Goto1：IfEndIf Z＞Q:Then F－﹥P: Goto1：IfEndLbl 1:本程序超高是绕中轴旋转（设定中央分隔带边缘高于路面外侧边缘横坡为负）A——横坡变化段起点桩号; P——(是过渡值)横坡变化段起点横坡Q——横坡变化段终点桩号;F——横坡变化段终点横坡P——所求桩号横坡L1..或LA...等:（竖曲线数据库）If Z≤××× :Then ×××－﹥I : ×××－﹥J :×××－﹥L :×××－﹥H :×××－﹥ R : Goto 1: IfEnd………Lbl 1:PY或PZ（横坡数据库）If Z≤Q+O:Then ×××－﹥A: ×××－﹥Q:×××－﹥P :×××－﹥F : Goto 1: IfEn d………Lbl 1:谢谢发贴：+26 分【测量空间】[0查看楼主其它文章<<返回→回复内容只查看楼主与本人回复沙发：老第楼主11-1-22 12:57L1,2,3.A,B,C....等是线路命名子程序库，如断链，分离式路基所需而设。
9750,9860,CG20四方测量程序公路测量多功能计算程序说明书
9860GⅡ公路测量多功能计算程序说明书欢迎使用9860GⅡ公路测量多功能计算程序！！该程序陆续编写于2010年5月至9月,直至10月1日程序基本编写成功,本测量程序适用于国家公路，市政，水利等各等级公路及隧道工程建设施工放样计算，拥有一些测量用小功能计算程序、程序数据库列表化（可直接在EXCLE表格中输入数据库导入计算器）、同时支持交点法与线元法两种平面计算方式、三维线路计算强大、一般小结构物计算、可对图纸进行逐桩检查、线路内任意点计算或者放样，边坡放样,无限制隧道断面计算等许多亮点功能。
程序由本人原5800程序《5800三维全能程序（丢掉图纸轻松测量）》改编而来，更改幅度很大，只保留了部分结构意图，数据库参数输入方便，使用操作人性，功能超强大，且保留扩展接口方便以后增加更多的功能，方便升级。
在学习本程序之前请认真学习附件fx-9860Gsoft中文说明书，以防止在计算器使用过程中发生低级操作错误。
如果您的计算器是SLIM 或者GSD1.0操作系统，请进入网站进行刷机升级，/thread-1535-1-1.html（网站上说明很清楚，在此不再说明），刷机成功后在菜单MENU中会增加一个E-CON2模块文件，请确认是否刷机成功，用1.0版的操作系统使用本程序会出现错误。
请安装程序附件中的FA-124软件，您的光盘中的FA-124软件是1.0版本，不能使用！如有安装1.0软件，请先卸载再进行安装，使用FA-124 1.0版，会在程序传输过程中出现乱码扰乱程序今后的正常运行安装软件后请使用数据线连接计算器。
请先将9860GⅡ公路测量多功能计算程序传输进计算器中进行以下步骤连接电脑与计算器，在计算器中会出现以下菜单选项Select Connection ModeDateTrans : [F1] ScreenCapt : [F2] Scrojectro : [F3] ScreenRecv : [F4] 按F1连接计算机如果您是第一次联机，计算器中会提示发现新硬件连接是否安装软件，选择是当您听到滴答的声音证明连接成功运行桌面上的FA-124按连接计算器，当该键变成灰色连接即成功！在软件界面右侧的列表栏中，鼠标右键点击选择Import 找到程序文件中的文件，点击打开这时您的FA-124软件中的Defauit下拉文件中会出现List\List File\Program子文件,如下图:移动鼠标将这三个文件拉至右侧，如下图恭喜！！程序安装成功按键即可结束联机功能序号一览表序号目录一数据库的编写及检查和运用1 数据库的输入方法1．1 平曲线数据库1．2 竖曲线数据库1．3 横坡超高数据库1．4 隧道数据库1．4．1 隧道断面变化里程数据库1．4．2 隧道断面数据库1．4．3 隧道结构层数据库1．5 EXCLE操作数据库及传输1．6 列表初始化二程序使用及其操作指南1 界面1〈Xuan-Ze(1)〉菜单界面1．1 三维模式 A1．2 简单反算 B1．3 单交点法 C1．4 导线简易平差 D1．5 多功能正算 E1．5．1 简单单点正算1．5．2 简单多点正算1．5．3 简单结构计算1．5．4 简单支导线计算1．6 单线元法 F1．7 坐标系转换 G1．8 面积计算 H1．9 四等水准计算 I2 线路选择3 界面2〈Xuan-Ze(2)〉菜单界面3．1 线路单点三维计算 A3．2 线路单点三维反算 B3．3 线路逐桩计算 C3．4 隧道模式 D3．5 三维功能的设置 E3．6 涵洞计算 F3．7 设计边桩计算 G3．8 边坡放样 H4 界面3〈Xuan-Ze(3)〉菜单界面4．1 右线隧道超欠计算 A4．2 左线隧道超欠计算 B4．3 仰坡计算 C4．4 定点放样计算 D一数据库编写及检查和运用（请参考列表说明文件对应学习）1，程序数据库的输入方法列表基本认识：9860计算器列表功能支持File1～File6（ 6张列表），查看调度方式为进入MENU菜单模式，进入STAT列表功能，先按SHIFT再按MENU进入参数设置界面，List File功能即是，移动光标至List File 按F1选择FILE 出现1～6选择，如果您想调取第二张列表，输入2按EXE回车，再按EXIT退出键，即可看到列表的第二张表格，现在即可对该表进行编辑和检查。
高速公路边轴旋转超高方式横坡计算
高速公路边轴旋转超高方式横坡计算路基超高方式图：说明∶1.路基超高采用边轴旋转，整体式路基旋转轴为中央分隔带边缘线；分离式路基为行车道前进方向左侧路基边缘内侧1.0米处。
2.行车道和硬路肩超高，土路肩不超高。
3.图中所示符号∶Ls--缓和曲线长,Lc--超高过渡段长;X0--与路拱同坡的单向超高点至超高过渡段起点的距离,I1--路拱横坡度;X--过渡段上任意点至超高过渡段起点的距离,I0--路肩横坡度;Ib--弯道超高横坡度,hc--路基外缘最大抬高值，h″c--路基内缘最大降低值；h″cx--x点路基内缘降低值,hcx--x点路基外缘抬高值.4.超高方式：圆曲线为全超高路段，超高过渡段长度（LC）从缓圆点（HY）往直缓点（ZH）或从圆缓点（YH）往缓直点（HZ）点计算。
先按超高渐变率p＝1/330算出超高过渡段长度Lc，若Lc<Ls，则超高渐变率p＝1/330。
若算出的Lc>Ls，则取Lc=Ls，超高过渡段长度等于缓和曲线长度。
5.图中尺寸均以厘米为单位，适用于设计时速V=80Km/h。
备注：正常路拱横坡（即直线段）为-2%；横坡计算按硬路肩比路缘带低为负。
一、整体式路基：图上为一左转直线到圆曲线的超高方式图。
半径为800m，缓和曲线长250m。
读图可得：R=800m，所以Ib弯道超高横坡度=4%；左转曲线，则黑线表示右幅，红线表示左幅；红点为直缓点；黑点为右幅超高起点；黄点为左幅超高起点；蓝点为缓圆点。
R=800，那么Lc=205<Ls=250.则：红点与黑点距离为：Ls-Lc=45m；黄点到蓝点距离为TX：（lb-|i左|）/（lb+|i右|）*Lc=（4-2）/（4+2）*205=68.333m； 黑点到黄点距离（与路拱同坡的单向超高点至超高过渡段起点）：X0=Lc-68.333=136.667m 。
由此可得：1.直线段左右幅横坡都为-2%；2.圆曲线上分2种情况：曲线左转则：左幅横坡为-lb；右幅横坡为lb；曲线右转则：左幅横坡为lb；右幅横坡为-lb；3缓和曲线分为4种情况设桩号K：曲线左转：第一缓和曲线上则：左幅横坡= -2% -(K - (HY - TX)) / TX * (lb - 2%)右幅横坡= -2% +(K - (HY - Lc)) / lc * (lb + 2%)第二缓和曲线上则：左幅横坡= -lb + (K - YH) / TX * (lb - 2%)右幅横坡= lb - (K - YH) / lc * (lb + 2%)曲线右转：第一缓和曲线上则：左幅横坡= -2% +(K - (HY - Lc)) / Lc * (lb +2%)右幅横坡= -2% -(K - (HY - TX)) / TX * (lb -2%)第二缓和曲线上则：左幅横坡= lb - (K - YH) / Lc * (lb + 2%)右幅横坡=-lb + (K - YH) / TX * (lb - 2%)将缓和曲线公式汇总：设转向ZX，左转为-1，右转为1；设路幅A，左幅为-1，右幅为1；设与路拱同坡的过渡长TX，左转左幅或右转右幅Lc=TX，，即当ZX*A=1时，Lc=TX;公式为：第一缓和曲线：HP = -2% - ZX * A * (K - (HY - lc)) / lc * (lb - A * ZX * lz)第二缓和曲线：HP = -ZX * A * lb + ZX * A * (K - YH) / lc * (lb - ZX * A * lz)附：整体式路基excel VBA公式宏。
计算道路超高lisp
计算道路超⾼lisp先来了解⼀下超⾼的概述，道路设计时为什么要设置超⾼呢？超⾼是指车辆在弯道上⾏驶，为了抵抗离⼼⼒的作⽤，常需要设置超⾼。
即由直线路段的双向横坡路⾯通过超⾼缓和段过度到全超⾼的单向横坡路段。
在设计中如何知道超⾼被明确的设置呢？只要知道横断⾯在超⾼过渡段上任何⼀点与⾼程基准点的⾼差被明确的确定，这个时候超⾼设置就能明确的反映出来。
在了解超⾼之前，⼤家打清楚的了解道路横断⾯的⼏个关键点位和轴线。
⾸先是设计基准点，⾼程基准点通常采⽤路肩边缘点、路中线点或中央分隔带边缘点。
另外⼀个就是轴线，为了保证超⾼过渡的平稳连续，需要在路⾯的三个轴线，也就是路中线、内存路⾯边缘线或外侧路⾯边缘线将路⾯进⾏旋转。
从⽽达到双向横坡果断到单向横坡的⽬的。
最后⼀个为了让超⾼计算更加清晰，还需要明确横断⾯上的⼏个代表点，以道路左转为例。
有左侧也就是内侧路肩边缘、内侧路⾯边缘、路中、和右侧也就是外侧路⾯边缘、路肩边缘这五个代表点。
道路右转同理。
好了，接下来开始说超⾼了。
1 超⾼的过渡⽅式超⾼的过渡⽅式分为有中央分隔带和⽆中央分隔带两种。
1.1⽆中央分隔带1.1.1、当超⾼等于路拱横坡时，只需要将外侧⾏车道绕中线逐渐抬⾼旋转⾄于内侧横坡相等。
1.1.2、当超⾼⼤于路拱横坡时，可以采⽤三种⽅式过渡：①绕中轴旋转；②绕内边轴旋转；③绕外边轴旋转。
这⾥有适⽤于新⼿的⼀个⼩技巧，在超⾼过渡前1-2m，把路肩抬⾼⾄和路⾯同坡，然后再开始旋转。
绕中轴旋转：将外侧车道绕路中线旋转，等到与内侧横坡相同时，整个断⾯⼀起再绕中线旋转，直到超⾼值。
这种⽅法可保持中线⾼程不变，多⽤于旧路改建。
绕内边轴旋转：将外侧车道绕路中线旋转，等到与内侧横坡相同时，整个断⾯⼀起再绕内侧到边缘线进⾏旋转，直到超⾼值。
这种⽅法利于路⾯纵向排⽔，多⽤于新建道路。
绕外边轴旋转：先将外侧车道绕外边线旋转，内侧车道随着中线的降低⽽降低，构成单向横坡后，整个断⾯⼀起再绕外侧边线旋转，直到超⾼值。
5800计算器全线贯通桥梁隧道道路高程边坡程序
FX5800计算器公路测量常用程序集2.3 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、取消原线元法计算，化线元法为交点法。
3、高程计算修改,4、附计算坐标及高程参数设计要素输入实例二、源程序（绿色为程序名；蓝色为输入计算器内容）红色为网友调试后修改笔误。
0.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路。
程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY”:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: WhileZ[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:1.主程序：一般坐标计算及放样程序程序名:1XYProg ＂DX＂:Prog＂QX＂:90→A: ＂PJ1＂?A:A→B: ＂PJ2＂?B:A→Z [1]:B→Z[9]: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ? D: 0→L: ＂L0＂?L:L→Z[10]: Porg＂A＂:Z[2]+Z[1] →A :A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog＂XY＂: Prog＂JS＂:LpWhile Z≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-13.主程序：任意点高程计算及横坡程序名:3GCP rog＂QX＂:0→B: ＂H-B＂?B: B→Z[9]: Do: ＂KM＂?Z:Z=-1=>Stop: Z=-2=>Break:?D:Prog＂H＂:Fix 3: ＂ H=＂: Locate 6,4,H-Z [9]：＂ I=＂:Locate 6,4,I：LpWhile Z≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂ LGD=＂: Locate 6,4,P：＂ RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂K M＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0. 75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+S+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W：Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfE nd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂ LX=＂:Locate 6,4,T：Prog＂ZD＂:＂ TW=＂: Locate 6,4,G◢ LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: P rog＂K＂: ?D: Porg＂A＂:Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:P rog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:” T W=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z→Z[9]:Prog”C”:L→Z[10]:Prog”K”: Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:E lse –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A →Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhi le X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z =-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S: S=0=>Goto 1:√(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2) -V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2:” LX=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E: Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos (S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: If End:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Ret urn:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→Z:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2]→J:Isin(J→S: Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D)>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H∧(6)÷506880÷R∧(5)- H∧(8)÷154 828800÷R∧(7)→A:H÷2-H∧(3)÷240÷R2+ H∧(5)÷34560÷R∧(4)- H∧(7)÷÷R∧(6)+ H∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:90S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+ I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:LbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名：C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J) +0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:” FWJ=”: Lo cate 6,4,J：Fix 3:” S=”:Locate 6,4,I◢如果要显示度分秒，可将粉色部分去掉，后面的改成：“FWJ=”：J►D MS◢” S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
5800公路线路计算万能程序
5800公路线路计算万能程序本程序以高斯四节点法为计算内核,多条线路正反算,中桩,边桩高程计算,超高计算,超高缓和计算,加宽计算,加宽缓和计算,边坡开口线计算,挡土墙坡脚线计算，考虑了中间绿化带的影响，适用与国家高速公路至乡村四级公路计算和放样，路基路面工程可以直接得出中边桩的设计三维坐标，去掉加宽和超高影响的计算困难，边坡和坡脚线计算可直接在边坡上提取坐标带入程序，经过所有设计因素的综合，得出更改边距并显示修改偏差后的坐标．反算速度明显提高,只需要3秒.程序无错，可放心输入，另本程序可以增加隧道超欠挖计算子程序,非常方便,因为每个隧道的断面数据不一样,所以在此没有明确写出.计算器主程序：ZHU-CHENG-XULbi0:“1，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”: 进入大地坐标转施工坐标程序…………Goto0:说明：计算器总的主程序，进入选择各种分支计算程序。
1为公路三维计算，2为普通正算，3为普通反算，4为大地坐标转施工坐标。
选择错误重新选择。
此程序可以不用输入，只为给大家一个思路,可以把计算器所有程序集中到一个主程序内管理.公路三维部分正反算选择程序：ZS-FSDeg: //设置角度模式20→DimZ: //扩展变量“1LZ＝＞XY，2XY＝＞LZ,3BIANPO-FY”？U： //正反算选择，正算选1，反算选2,坡口坡脚选3If U=1: ThenProg”ZS-XH”:IfEnd: //进入正算循环主程序IfU=2:Then Prog”F S-XH”:IfEnd: //进入反算循环主程序IfU=3:ThenProg”BIANPO-XH”:IfEnd: //进入边坡开挖主程序正算循环主体程序ZS-XH“1PT-2SJ”？W： //普通计算和设计边距计算选择“XL-XZ“？U： //选择线路 1～NIf W=1: Then //运行普通计算模式边踞自由输入Lbi0:”L=”?L:”Z=”?Z: //输入桩号和边距Porg”ZS-XH-1“：Goto0:IfEnd:运行正算循环子程序If W=2:Then //运行设计计算模式边距按设计输入Lbi1:”L=”? L： //输入桩号Porg”0。
FX.5800公路程序doc
FX-5800计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix 3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else IfG>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂ＫＭ＝＂：Locate 6,4,Ｚ◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→Di mZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3 LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A：0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M：U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LW Ｓ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LW Ｓ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W( C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"：T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lb l 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else If Z<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I: 11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd: LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
超高缓和段 横坡计算程序
超高缓和段横坡计算程序A"QD":b"ZD":E:F: 回车Lbl 0:{C}:D=(B-C)/(B-A)回车“I=”:(F-E)(1-3D平方+2D三次方)+E◢（超高缓和段）“I1”=：（E-F）D+F◢Goto 0说明A 起点里程B 终点里程E 起点横坡F 终点横坡C 计算点里程I 计算点的横坡说明：如果超高缓和段是直线性的把I=(F-E)(1-3D平方+2D三次方)+E改为I=（E-F）D+F◢修改后Lbl 0: Fixm:{ABSEF}:A:B:S:E:FS≧A=>S＜B=>D=(B-S)÷(B-A)“I=”:(F-E)(1-3D平方+2D三次方)+E◢（超高缓和段）“I1”=：（E-F）D+F◢(超高直线段)Goto 0说明A 起点里程B 终点里程E 起点横坡F 终点横坡S 计算点里程I 计算点的横坡查看楼主其它文章<<返回→回复内容只查看楼主与本人回复沙发：'WURH 06-5-20 14:48 回评：+6 分超高缓和段的横坡计算公式我找了很久，谢谢楼主了2 楼：'WURH 06-5-20 18:41 回输入有错误吧，D=(B-C)/(B-C)应该改为D=(B-C)/(B-A)3 楼：zcj007 06-5-21 6:54 回结果不对啊4 楼：xyj7405 06-5-21 9:33 回如果超高缓和段是直线性的把I=(F-E)(1-3D平方+2D三次方)+E改为I=（E-F）D+F◢5 楼：wuyadong 楼主 06-5-21 14:28 回不好意思笔误谢谢WURH 提出在这里说明一下铁路大部分用我这个公式计算现在高速公路好像很多都用XYI7405 所说的公式计算的可先根据路基设计表计算几个点看看6 楼：'管晋06-6-2 22:30 回太感谢了,7 楼：fin0920 06-6-23 20:39 回楼主,你好!有没有算任意点高程的程序(绕内侧旋转的),若有请楼主发一个给我,fin0920@ 谢谢!!!8 楼：'cel 06-8-27 17:59 回评：+5 分有那位测量的朋友有超高加宽的程序,我急需要超高的程序!请发给我,zhuxing8888@谢谢9 楼：'wqc 06-8-28 12:32 回超高方式在设计图上会提供的,这是设计文件的组成部分,无需你自己去关心. 10 楼：野人06-10-9 21:32 回请问楼主，这个程序适用于所有超高方式吗？如果不是，请指出是哪种11 楼：xyj7405 06-10-10 8:43 回评：+4 分适用于所有超高方式12 楼：'huahuahua 06-11-4 8:3 回评：+8 分的确不错啊13 楼：hZpeng 06-11-8 20:3 回请问楼主,如果要计算每一个断面的边桩的坡度用你的这个程序计算的了吗? 14 楼：'※天使之泪※06-11-25 2:51 回评：+8 分楼主好！给位前辈好！请问哪位前辈有超高加宽的程序，可以发个给我不，有的话发到邮箱heiying_2003@ 谢谢！15 楼：'阿波06-11-25 17:28 回你好!请问A"QD":b"ZD":E:F: 回车中的小b在4800的计算机里怎么改16 楼：'hg 06-11-30 23:26 回评：+10 分可想而知17 楼：'xiaoxiao 07-2-2 20:1 回评：+4 分请问:要不要带正负号18 楼：黄沙溪07-2-24 19:11 回这个程序我检验了一下，计算结果不大正确，19 楼：'yangjian001 07-3-8 23:20 回结果不大正确20 楼：ygt0516 07-9-12 20:50 回错误用内查发计算就可以了。
公路横断面超高计算
h0=bJiG
ib
③全超高断面：
新《规范》公式
（ib>3%)
(ib≤3%)
（4）双坡断面：（x≤x0）
iG
ih
iG
B
双坡阶段长度x0计算：
超高过渡原则： 路面外边缘高程按正比例升高，直到超高横坡断面。 路面横坡度按正比例增加，直到超高横坡度。
《规范》7.5.6条规定，当线形设计须采用较长的回旋线时，横坡度由2%（或1.5%）过渡到0%路段的超高渐变率不得小于1/330（0.3%）。
4. 横断面上超高值的计算
提肩
双坡阶段
全超高阶段
旋转阶段
ZH
HY
提肩
双坡阶段
全超高阶段
旋转阶段
4. 横断面上超高值的计算
（1）超高形成过程： （三个阶段） 绕路面内边缘线旋转 绕路面中线旋转
4. 横断面上超高值的计算
（2）路线设计高程 新建公路的路线设计高程： 高速公路和一级公路（整体式路基）采用中央分隔带的外侧边缘高程； 二、三、四级公路采用路基外边缘高程；设置超高、加宽地段为超高、加宽前的路基设计高程； 对于改建公路一般按新建公路规定办理，也可视具体情况而采用行车道中线标高。
这时，不利于路面横向排水，应限制x0的长度。 可按p1=0.3%计算x0：
（4）双坡断面：（x≤x0）
iG
ib
iG
B
双坡阶段长度x0计算：
②超高过渡可设在回旋线的某一区段范围内（ Lc<Ls ）
①超高过渡在回旋线全长范围内进行（Lc=Ls） 可按p1=0.3%计算x0：
全超高断面宜设在缓圆点或圆缓点处。
2. 超高过渡方式：
(2)有中间带公路 ①绕中间带的中心线旋转：中间带宽度小于或等于4.5m的公路可采用。 ②绕中央分隔带边缘旋转：各种宽度中间带的公路均可采用。 ③分别绕行车道中线旋转：车道数大于4条的公路可采用。 (3)分离式路基公路 分离式路基公路的超高过渡方式，宜按无中间带公路分别予以过渡。
公路测量计算程序fx-5800P操作手册(无图片版)
fx-5800P矩阵编程计算器《公路测量计算程序操作手册》感谢您fx-5800P矩阵编程计算器公路测量计算程序！本次fx-5800P程序提供公路路线计算、高程计算、测量放样计算、交会计算等计算程序。
本程序特色为公路测量的全部数据（包括路线平面曲线，竖曲线，横坡度，路基宽度，路面结构层，水准点，导线点数据）储存在一台计算器上，紧密结合计算，实现外业或计算过程只要计算器一台，无需设计图纸。
愿它给您的工程测量工作带来更大的方便，有误或有改进的地方敬请向联系作者指出以便完善改进。
本程序只能在fx-5800P 中运行，不能在fx-4500PA、fx-4800P及fx-4850P中运行！主程序名都是以字符、“11…”“23…”开头命名的，其余字符开头的程序均为子序（见下表表备注栏），用户只能运行“11…”~“92…”主程序，不能直接运行子程序。
一、程序名及其功能列于表：二、各程序代码：1、程序11FY，计算输出路线放样坐标及方位角、距离。
"XZ" 显示XZ （提示为测站X坐标）Locate 8,2,Z[1] 显示Z[1]值（测站X坐标）"":"YZ":W▲换行后显示W值（测站Y坐标）Lbl 0Prog "13ZW" 调用13ZWPol(X-Z[1],Y-W)If J<0:then J+360→J:IfEnd 变量J的值在0~360度之间Prog"9" 变量J的转换成度分秒Locate 9,3, J 在9列3行显示J的值Fix 3Locate 1,1, "X" 显示计算结果Locate 1,2, "Y"Locate 1,3, "J···" 角度（度分秒）Locate 1,4, "D(m)"Locate 8,4, I""▲程序暂停，等待用户输入EXE后继续ClsProg"DLP"Goto 02、程序12CZZB，输入测站数据（XY），可输入已储存控制点编号"XZ"？W 提示XZ，输入测站X坐标If W<2000:Then Prog "62DS":Else W→Z[1] 2000表示编号少于2000，如大于2000则认为是X坐标值"YZ"？W"X":Z[1]▲"Y":W▲IfEnd3、程序13ZW，输入桩号，计算设计坐标10→DimZ 增加10个扩展变量L→Z[10] Z[10]为中间变量，以实现桩号自动递增或递减Prog "P""JJ"?M 提示JJ，输入与路线前进方向的右交角"DR+L-"?N 提示DR+L-，输入与中桩的距离，右正左负F+M→F 计算出中点至所要计算点的方位角Fix 3：X+Ncos(F) →XClsLocate 8,1,X 输出X坐标Y+Nsin(F) →YLocate 8,2,Y输出Y坐标4、程序HB-B^(5)÷(40A^(4))+B^(9)÷3456÷A^(8)→CB^(3)÷(6A2)-B^(7)÷336÷A^(6)+B^(10)÷42240÷A^(10)→DB2÷2÷A2÷π×180→E5、程序GS注：本程序可设定改线范围后，参照程序PP储存数据。
高速公路边轴旋转超高方式横坡计算
高速公路边轴旋转超高方式横坡计算高速公路边轴旋转超高方式横坡计算路基超高方式图：说明∶1.路基超高采用边轴旋转，整体式路基旋转轴为中央分隔带边缘线；分离式路基为行车道前进方向左侧路基边缘内侧1.0米处。
2.行车道和硬路肩超高，土路肩不超高。
3.图中所示符号∶Ls--缓和曲线长,Lc--超高过渡段长;X0--与路拱同坡的单向超高点至超高过渡段起点的距离,I1--路拱横坡度;X--过渡段上任意点至超高过渡段起点的距离,I0--路肩横坡度;Ib--弯道超高横坡度,hc--路基外缘最大抬高值，h″c--路基内缘最大降低值；h″cx--x点路基内缘降低值,hcx--x点路基外缘抬高值.4.超高方式：圆曲线为全超高路段，超高过渡段长度（LC）从缓圆点（HY）往直缓点（ZH）或从圆缓点（YH）往缓直点（HZ）点计算。
先按超高渐变率p＝1/330算出超高过渡段长度Lc，若LcLs，则取Lc=Ls，超高过渡段长度等于缓和曲线长度。
5.图中尺寸均以厘米为单位，适用于设计时速V=80Km/h。
备注：正常路拱横坡（即直线段）为-2%；横坡计算按硬路肩比路缘带低为负。
一、整体式路基：图上为一左转直线到圆曲线的超高方式图。
半径为800m，缓和曲线长250m。
读图可得：R=800m，所以Ib弯道超高横坡度=4%；左转曲线，则黑线表示右幅，红线表示左幅；红点为直缓点；黑点为右幅超高起点；黄点为左幅超高起点；蓝点为缓圆点。
R=800，那么Lc=205< p="">红点与黑点距离为：Ls-Lc=45m；黄点到蓝点距离为TX：（lb-|i左|）/（lb+|i右|）*Lc=（4-2）/（4+2）*205=68.333m；黑点到黄点距离（与路拱同坡的单向超高点至超高过渡段起点）：X0=Lc-68.333=136.667m 。
由此可得：1.直线段左右幅横坡都为-2%；2.圆曲线上分2种情况：曲线左转则：左幅横坡为-lb；右幅横坡为lb；曲线右转则：左幅横坡为lb；右幅横坡为-lb；3缓和曲线分为4种情况设桩号K：曲线左转：第一缓和曲线上则：左幅横坡= -2% -(K - (HY - TX)) / TX * (lb - 2%)右幅横坡= -2% +(K - (HY - Lc)) / lc * (lb + 2%)第二缓和曲线上则：左幅横坡= -lb + (K - YH) / TX * (lb - 2%)右幅横坡= lb - (K - YH) / lc * (lb + 2%)曲线右转：第一缓和曲线上则：左幅横坡= -2% +(K - (HY - Lc)) / Lc * (lb +2%)右幅横坡= -2% -(K - (HY - TX)) / TX * (lb -2%)第二缓和曲线上则：左幅横坡= lb - (K - YH) / Lc * (lb + 2%)右幅横坡=-lb + (K - YH) / TX * (lb - 2%)将缓和曲线公式汇总：设转向ZX，左转为-1，右转为1；设路幅A，左幅为-1，右幅为1；设与路拱同坡的过渡长TX，左转左幅或右转右幅Lc=TX，，即当ZX*A=1时，Lc=TX;公式为：第一缓和曲线：HP = -2% - ZX * A * (K - (HY - lc)) / lc * (lb - A * ZX * lz)第二缓和曲线：HP = -ZX * A * lb + ZX * A * (K - YH) / lc * (lb - ZX * A * lz)附：整体式路基excel VBA公式宏。
任意边桩超高高程 CASIO4850程序
任意边桩超高横坡、高程计算程序（文件名自定）程序运行时：ZHUANG HAO ? (1)输入求算点的桩号ZHONG GAO ? (2)输入求算点的中桩设计高程ZUO KUAN ? (3)输入求算点的左侧宽度YOU KUAN ? (4)输入求算点的右侧宽度ZUO PO DU= （5）输出左侧求算点的左侧横坡度值，为百分比分子值ZUO PO DU= （6）输出右侧求算点的左侧横坡度值，为百分比分子值ZUO GAO= (7)输出求算点的左侧宽度对应的设计高程YOU GAO= (8)输出求算点的右侧宽度对应的设计高程循环到第(1)步……程序语言:Lbl 1：{K}：K“ZHUANG HAO”：K≥(标段主线或匝道路线起点桩号,如处于超高渐变段应继续到前标段图纸标明的超高渐变段起点位置处桩号) K≤(第1段超高设计横坡桩号,即单坡旋转起点桩号) Goto A K≤(第1段超高设计横坡桩号,即单坡旋转终点桩号) Goto B K≤(第1段超高设计横坡桩号,即双坡旋转终点桩号) Goto C K≤(第2段超高设计横坡桩号, 即单坡旋转起点桩号) Goto D K≤(第2段超高设计横坡桩号,即单坡旋转终点桩号) Goto E K≤(第2段超高设计横坡桩号,即双坡旋转终点桩号) Goto F (如此桩号顺序排列且字母顺序排列直至标段终点处主线或匝道路线终点桩号, 如处于超高渐变段应继续到后标段图纸标明的超高渐变段终点位置处桩号)Lbl 2：{H，Y，Z}：H“ZHONG GAO”：Y“ZUO KUAN”：Z“YOU KUAN”“ZUO PO DU=”：U=（（（K-A）÷(B-A)）(D-C)+C）×100◢“YOU PO DU=”：V=（（（K-A）÷(B-A)）(F-E)+E）×100◢“ZUO GAO=”：G=（（（K-A）÷(B-A)）(D-C)+C）(Y- 设计中分带宽度的一半,如无设计中分带,就输入零)+H◢“YOU GAO=”：I=（（（K-A）÷(B-A)）(F-E)+E）(Z- 设计中分带宽度的一半,如无设计中分带,就输入零)+H◢Goto 1Lbl A：A=（标段主线或匝道路线起点桩号, 如处于超高渐变段应继续到前标段图纸标明的超高渐变段起点位置处桩号）：B=（第1段超高设计横坡桩号,即单坡旋转起点桩号）：C=（对应A桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：D=（对应B桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：E=（对应A桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：F=（对应B桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：Goto 2Lbl B：A=（第1段超高设计横坡桩号,即单坡旋转起点桩号）：B=（第1段超高设计横坡桩号,即单坡旋转终点桩号）：C=（对应A桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：D=（对应B桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：E=（对应A桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：F=（对应B桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：Goto 2Lbl C：A=（第1段超高设计横坡桩号,即单坡旋转终点桩号）：B=（第1段超高设计横坡桩号,即双坡旋转终点桩号）：C=（对应A桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：D=（对应B桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：E=（对应A桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：F=（对应B桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：Goto 2Lbl D：A=（第1段超高设计横坡桩号,即双坡旋转终点桩号）：B=（第2段超高设计横坡桩号,即单坡旋转起点桩号）：C=（对应A桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：D=（对应B桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：E=（对应A桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：F=（对应B桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：Goto 2Lbl E：A=（第2段超高设计横坡桩号,即单坡旋转起点桩号）：B=（第2段超高设计横坡桩号,即单坡旋转终点桩号）：C=（对应A桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：D=（对应B桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：E=（对应A桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：F=（对应B桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：Goto 2Lbl F：A=（第2段超高设计横坡桩号,即单坡旋转终点桩号）：B=（第2段超高设计横坡桩号,即双坡旋转终点桩号）：C=（对应A桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：D=（对应B桩号的左侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：E=（对应A桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：F=（对应B桩号的右侧横坡度值,以小数表示,相对于中桩上坡为正,下坡为负,如为下坡要带上负号）：Goto 2……（如此按说明输入参数值，直至对应到Lbl 1里面的最后所示桩号区间）备注：1.本程序为绕中分带外侧或绕中轴线旋转的超高渐变方式。