铁路与公路计算程序5800(实用).docVIP

铁路与公路计算程序5800（实用） 如有雷同请，按照我的程序进行编写。 QXYS（曲线要素表） N=1=Goto 1↙ N=2=Goto 2↙ …… (注：每个N=？代表一条线路，如有多个线路继续添加入N=*) Lbl 1↙(注：Lbl N 到下一个Lbl N 之间是第N条线路的数据) 0→S：143686.379→A：113455.055→B：28°31′44″→C：-1000→I：54.259→K：-1000→T↙ If L≧S And L ﹤K :Then Goto 0 :IfEnd↙ 54.259→S：143734.729→A：113479.663→B：25°25′12″→C：10^(45)→I：321.279→K：10^45→T↙ If L≧S And L ﹤K :Then Goto 0 :IfEnd↙ (注：如有多个曲线元要素继续添加入数据库QXYS中)…… Lbl 2↙ 0→S：143686.379→A：113455.055→B：28°31′44″→C：-1000→I：54.259→K：-1000→T↙ If L≧S And L ﹤K :Then Goto 0 :IfEnd↙ 54.259→S：143734.729→A：113479.663→B：25°25′12″→C：10^(45)→I：321.279→K：10^45→T↙ If L≧S And L ﹤K :Then Goto 0 :IfEnd↙ (注：如有多个曲线元要素继续添加入数据库QXYS中)…… Lbl 0↙ Return↙ FSZB(反算坐标) Lbl 0：Prog “QXYS”：Prog “ZSZB”：Z=O-90↙ P=(R-Y)cos(Z)-(M-X)sin(Z)：L=L+P↙ If Abs(P)≥0.001↙ Then Goto 0↙ Else Goto 1↙ If End↙ Lbl 1：Q=(R-Y)cos(O)-(M-X)sin(O) ↙ Return↙ ZSZB(正算坐标) 90÷π→F：(L-S)… Lbl 0：“1.LC→XY”：“2.XY→LC”：?V： If V=1：Then Goto 1： Else Goto 2： IfEnd↙ Lbl 1：?L：Prog “QXYS”：“JL”?Q：?J：Q=0“ZSZB”： “X=”：X ▲ “Y=”：Y ▲ “FWJ=”：O ▲ Goto 0↙ Lbl 2：?L：Q=0：J=0： “XO”?M： “YO”?R：Prog “FSZB” ↙ “LC”：L ▲ “JL”：Q ▲ Goto 0↙ 变量说明： S……..起点里程 A…..起点X坐标 B….起点Y坐标 C….起点方位角 I ….….起点半径 K…..终点里程 T .…终点半径 L….计算点里程 J…输入左右（左-，零，右+）角度 Q….中桩到边桩的距离 注意： 1:计算中桩坐标 J D,JL 等于零。 3：这里的方位角是指 “主点作为起点” 的方位角 例如：（ZY , YZ , ZH , HY , YZ）每个点都是 起点 所以特别注意 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， 半径＝半径*-1；当线元往右偏时，半径=半径；当线元为直线时，半径=以10的45次代替。 (2) 当所求点位于中线时，Q,J=0；当位于中线左侧时，J取负值；当位于中线右侧时，J取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2、输入与显示说明 V=1的时候 JL ？ 正算时所求点距中线的边距(在中线上取零) J ？ 边桩时左右边桩连线与线路中线的交角线元左右偏标志 (左偏J=-1*角度，右偏J=角度，直线段J=0) 角度 X=××× 正算时，计算得出的所求点的X坐标 Y=××× 正算时，计算得出的所求点的Y坐标