5800公路正反算.docVIP

ZS 正算主程序 Lb1 2 Fix 3 ？K prog “SUB3” “X ”：X◢ “Y ”：Y◢ ？V （一个锁，输入√2就可以算边桩） If V √2:Then prog“SUB2”：IfEnd Goto2 FS（反算主程序） “XP ”?P:”YP ”?Q:?K K为近视里程 Lbl 6 prog “SUB3” Q-Y+ P-Y \ Tan E +0.0001 *Sin E →O K+O→K Abs O →O If O≧.1^ 7 :Then Goto 6：IfEnd -（Y-Q-（X-P）tan E） cos E →S SUB 1 H-H^5/（40R2）/L2→C 计算X增量 H^ 3 /6/R/L - H^ 7 /336/R^ 3 /L^ 3 →D 计算Y增量 √（C2+D2）→F 30H2/∏/R/L→G 计算偏角 SUB2 ?U U：“[L-，R+] ” “EX” X+Ucos E+90° →P ◢ “EY” Y+Usin E+90° →Q◢ SUB3 If K≦线元终点里程:Then prog“x曲线” ： Goto2：IfEnd ……….. …………. Lbl 1 x曲线 ? →R 半径 ? →L 缓和曲线长 K-? →H ？ZH里程 K-? →I ？HY里程 If I≦O:Then ? →A: ? →B ZH点XY坐标（第一缓和曲线） prog“SUB1” FWJ±3G→E 右转为+，左为-，FWJ为ZH点FWJ,此公式计算P点走向FWJ。 A+Fcos E±2G →X ±与上面相反 B+Fsin E±2G →Y ：Goto2：IfEnd 计算p点XY增量 第一缓和曲线结束 K-? →J YH里程 （圆曲线） If I≦O:Then ? →A: ? →B HY点XY坐标 I*90/∏/R→C 2R*sin C→D FWJ±2C→E 右转为+，左为-，FWJ为HY点FWJ,此公式计算P点走向FWJ。 A+Dcos E±C →X ±与上面相反 B+Dsin E±C →Y ：Goto2：IfEnd 计算p点XY增量 圆曲线结束 K-? →S HZ（第二缓和曲线,是从大里程像小里程计算） If S≦0:Then ? →A: ? →B :-S→H HZ点XY坐标 prog“SUB1” FWJ±3G→E 右转为+，左为-，FWJ为HZ点FWJ,此公式计算P点走向FWJ。 A+Fcos E+180±2G →X ±与上面相反 B+Fsin E+180±2G →Y ：Goto2：IfEnd 计算p点XY增量 第一缓和曲线结束 Lbl 2 X直线 K-?→H ?起点里程 ？→ A ?起点XY坐标 ？→ B ？→E ?起点FWJ A+HcosE→X B+HsinE→Y