路基高填高挖单级多级坡度边线放样控制程序

1、.路基高填高挖单级多级坡度边线放样控制程序1. 取点放样控制主程序(命名为TWFS)第1行：”X1=”? C:”Y1=”?D: ”H1=”?G: ”K1=”?K第2行：Lbl  0:Prog “A”第3行：Pol(C-N,D-E):Icos(F-J)S:K+SK第4行：Abs(S)>0.0001=>Goto 0第5行：”K1=”:K第7行：”BIAN=”:Isin(J-F)Z第6行：”HS=” ? H: ”HP=” ? Q:G-HH(输入反算点K的设计标高和对应路基横坡，如标准横坡输入0.02)第7行：Prog “BP”X1取样点的X坐标Y1取样点的Y坐标H1取

2、样点的标高K1输入时为计算起始点(在线路内即可)，输出时为反算点的桩号HS取样点处的设计标高HP取样点的横坡，以设计线向左右两侧，坡降为正，因挖方路基的碎落台宽度或填方路基的路肩宽度一般较小，全部以路基横坡计算，对放样影响不大，若较大须对边坡子程序进行调整Z偏距（左负右正）2. 计算坐标子程序(命名为XYF)   为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-AS：(Q-P)÷LI第2行：N+(cos(F+X(2P+XI)×90÷),0,S)N第3行：E+(sin(F+X(2P+XI)×90

3、7;),0,S)E第4行：F+S(2P+SI)×90÷F3. 数据库（命名为A）第1行：K175.191=>Stop（超出后显示Done）第2行：175.191A:428513.730N:557954.037E:92°2640F:0P:1/240Q:70.417L: KA+L =>GoTo 1（第一缓和曲线）第3行：245.607A: 428507.298N:558024.092E: 100°5059.4F: 1/240P:1/240Q:72.915L: KA+L =>Goto 1（圆曲线）第4行：318.522A: 428482.98

4、8N:558092.538E: 118°1525.2F: 1/240P: 0Q: 55.104L: KA+L =>Goto 1（第二缓和曲线）第5行：373.627A:428453.283N:558138.912E:124°504.5F:0P:-1/180Q:67.222L: KA+L=>Goto 1:Stop（下一曲线的第一缓和曲线，示例为S型曲线，超出后显示Done）第6行：Lbl  1:Prog “XYF”A曲线段起点的里程N曲线段起点的x坐标E曲线段起点的y坐标F曲线段起点的坐标方位角P曲线段起点的半径倒数(左负右正)Q曲线段终点的半

5、径倒数(左负右正)L曲线段长度（尽量使用长度，为计算断链方便，详见本程序集有关断链程序）4. 边坡计算子程序（命名为BP，示例为三级坡度的挖填路基断面）第1行：If Z>0:Then 1U: Else -1U:IfEnd第2行：If Z<0:Then Z+14Z: H+14PH :Else Z-2Z: H+2PH:IfEnd(14和2分别为至坡脚处路面左宽、右宽，见图，P为横坡，横坡在主程序中根据反算桩号和左右位置输入)第3行：If H>0 And H8:Then Z-0.5U(H-0)Z:Else Z-(0.5×8+2)UZ :IfEnd(示例中一级坡度高度控制范

6、围08m，第2个8表示本级坡度的设计高度，坡比1:0.5，2为其上台阶宽度)第4行：If H>8 And H16:Then Z-0.75U(H-8)Z: Else Z-(0.75×8+3)UZ :IfEnd(示例中二级坡度高度控制范围816m，第2个8表示本级坡度的起始高，第3个8表示本级坡度的设计高度，坡比1:0.75，3为其上台阶宽度)（如果坡度级数较多可照本行方式来增加）第5行：If H>16:Then Z-1.0U(H-16)Z:IfEnd(示例中顶级坡度即第三级坡度高度控制范围>16m，第2个16表示本级坡度的起始高，坡比1：1.0)第6行：If H0:T

7、hen “WAIYI=”:-UZ Return:IfEnd (H为正表示挖方路基)(显示外移距或内移距，正值表示向远离中线方向移动或欠挖，负值表示向靠近中线方向移动或超挖)以上26行为挖方路基的取点放样判断，下面为填方路基的取点放样判断第7行：If Z<0:Then Z+11.75Z: H+11.75PH :Else Z-0.75Z: H+0.75PH:IfEnd(11.75为左宽，0.75为右宽，见图，P为横坡，横坡在主程序中根据反算桩号和左右位置输入)第8行：If H<0 And H-6:Then Z+1.5U(H+0)Z:Else Z-(1.5×6+1)UZ :If

8、End(示例中一级坡度高度控制范围0-6m，6表示一级坡度的设计高，坡比1:1.5，1为其下台阶宽度)第9行：If H<-6 And H-14:Then Z+1.75U(H+6)Z: Else Z-(1.75×8+2)UZ :IfEnd(示例中二级坡度高度控制范围-6-14m，6表示本级坡度的起始高，8表示本级坡度的设计高，坡比1:1.75，2为其下台阶宽度)（如果坡度级数较多可照本行方式来增加）第10行：If H<-14:Then Z+2.0U(H+14)Z:IfEnd(示例中顶级坡度即第三级坡度高度控制范围<-14m，14表示本级坡度的起始高，坡比1：2.0)第

9、11行：If H<0:Then “WAIYI=”:UZ Return:IfEnd (H为负表示填方路基)(显示外移距或内移距，正值表示向远离中线方向移动或填宽不足，负值表示向靠近中线方向移动或超宽)说明：（1）以上所有计算子程序均为通用程序，可自编程序随时调用，数据库可更改适合可变项目的测量数据。（2）适用于任意线形：直线（0P、0Q）、圆曲线（圆半径倒数P、圆半径倒数Q）、缓和曲线（0或圆半径倒数P、圆半径倒数或0Q）、卵形曲线（接起点圆的半径倒数P、接终点圆的半径倒数Q），曲线左转多加一负号。（3）本程序保持了坐标计算和平曲线数据库输入模式不变，如果您以前使用了本程序集的其他程序时输

10、入了平曲线数据库，则在其基础上只需增加填挖计算主程序（或由以前反算程序稍作修改）和边坡计算子程序即可使用，减少了数据库重复输入的次数。（4）本程序适用于全断面开挖、全断面填筑或半填半挖路基的取点放样（填方路基的左右边坡须对称、挖方路基的左右边坡须对称），在原地面或已施工边坡上取点均可计算宽度是否达到设计要求，适应性较强，若只计算挖方路基，则取边坡子程序的16行，若只计算填方路基，则取其第1行和711行，也可同时并用。（5）程序规定取样点与设计标高高差为正值时均从设计标高向上起算高度，为负值时均从设计标高向下起算高度，坡度级数亦从此处算起。（6）若碎落台及边沟或绿化等的零坡总宽度较大，则须对边坡子程序的第2行和第7行处的横坡宽度有效值进行调整再乘以横坡值P，如示例中可将H+14PH和H+2PH分别调整为H+12PH和H+0PH（即HH）（7）有多个匝道的项目，可