5800计算器程序67480.docVIP

路基高填高挖单级多级坡度边线放样控制程序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+S→K第4行：Abs(S)0.0001=Goto 0第5行：”K1=”:K第7行：”BIAN=”:Isin(J-F)→Z第6行：”HS=” ? H: ”HP=” ? Q:G-H→H(输入反算点K的设计标高和对应路基横坡，如标准横坡输入0.02)第7行：Prog “BP”X1——取样点的X坐标Y1——取样点的Y坐标H1——取样点的标高K1——输入时为计算起始点(在线路内即可)，输出时为反算点的桩号HS——取样点处的设计标高HP——取样点的横坡，以设计线向左右两侧，坡降为正，因挖方路基的碎落台宽度或填方路基的路肩宽度一般较小，全部以路基横坡计算，对放样影响不大，若较大须对边坡子程序进行调整Z——偏距（左负右正）2. 计算坐标子程序(命名为XYF)? ?为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序第1行：K-A→S：(Q-P)÷L→I第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行：F+S(2P+SI)×90÷π→F3. 数据库（命名为A）第1行：K≤175.191=Stop（超出后显示Done）第2行：175.191→A:428513.730→N:557954.037→E:92°26′40″→F:0→P:1/240→Q:70.417→L: K≤A+L =GoTo 1（第一缓和曲线）第3行：245.607→A: 428507.298→N:558024.092→E: 100°50′59.4″→F: 1/240→P:1/240→Q:72.915→L: K≤A+L =Goto 1（圆曲线）第4行：318.522→A: 428482.988→N:558092.538→E: 118°15′25.2″→F: 1/240→P: 0→Q: 55.104→L: K≤A+L =Goto 1（第二缓和曲线）第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L: K≤A+L=Goto 1:Stop（下一曲线的第一缓和曲线，示例为S型曲线，超出后显示Done）第6行：Lbl??1:Prog “XYF”A——曲线段起点的里程N——曲线段起点的x坐标E——曲线段起点的y坐标F——曲线段起点的坐标方位角P——曲线段起点的半径倒数(左负右正)Q——曲线段终点的半径倒数(左负右正)L——曲线段长度（尽量使用长度，为计算断链方便，详见本程序集有关断链程序）4. 边坡计算子程序（命名为BP，示例为三级坡度的挖填路基断面）第1行：If Z0:Then 1→U: Else -1→U:IfEnd第2行：If Z0:Then Z+14→Z: H+14P→H :Else Z-2→Z: H+2P→H:IfEnd(14和2分别为至坡脚处路面左宽、右宽，见图，P为横坡，横坡在主程序中根据反算桩号和左右位置输入)第3行：If H0 And H≤8:Then Z-0.5U(H-0)→Z:Else Z-(0.5×8+2)U→Z :IfEnd(示例中一级坡度高度控制范围0～8m，第2个8表示本级坡度的设计高度，坡比1:0.5，2为其上台阶宽度)第4行：If H8 And H≤16:Then Z-0.75U(H-8)→Z: Else Z-(0.75×8+3)U→Z :IfEnd(示例中二级坡度高度控制范围8～16m，第2个8表示本级坡度的起始高，第3个8表示本级坡度的设计高度，坡比1:0.75，3为其上台阶宽度)……（如果坡度级数较多可照本行方式来增加）第5行：If H16:Then Z-1.0U(H-16)→Z:IfEnd(示例中顶级坡度即第三级坡度高度控制范围16m，第2个16表示本级坡度的起始高，坡比1：1.0)第6行：If H≥0:Then “WAIYI=”:-UZ Return:IfEnd (H为正表示挖方路基)(显示外移距或内移距，正值表示向远离中线方向移动或欠挖，负值表示向靠近中线方向移动或超挖)以上2～6行为挖方路基的取点放样判断，下面为填方路基的取点放样判断第7行：If Z0:Then Z+11.75→Z: H+11.75P→H :Else Z-0.75→Z: H+0.75P→H:IfEnd(11