中桩标高计算程序.docVIP

中桩标高计算程序】 主 程 序：【H-SJ】 L1: Lbl ?:K?K:Prog DATA-H↙ L2: Abs(R(G-F))÷200→T↙ L3: If K≤N-T:Then O-0.01F(N-K)→S:Goto 1:IfEnd↙ L4: If K≤N:Then O-0.01F(N-K)-(T+K-N)^2÷R÷2→S:Goto 1:IfEnd↙ L5: If K≤N+T:Then O-0.01G(N-K)-(T+N-K)^2÷R÷2→S:Goto 1:IfEnd↙ L6: If KN+T:Then O-0.01G(N-K)→S:IfEnd↙ L7: Lbl 1:Fix 3:H=:S◢Norm:Goto ?↙ 子程序4：【DATA-SJ】 L1: ?→Z:If K(线路起点里程):Then !:1→Z:IfEnd:If K(线路终点里程):Then !:1→Z:IfEnd↙ L2：If K≤(起点或上一段竖曲线终止里程):Then (变坡点里程)→N:(变坡点高程)→O:(竖曲线半径凸+ 凹-)→R:(前纵坡值)→F:(后纵坡值)→G:Goto E:IfEnd↙ L3：(重复L2) L4：Lbl E ******************************************************************************************************* 【坡脚宽度计算程序】 程序名：【PJD】 L1: 25→L:2.5→G:1.5→T:8→N:0.9→A:0.9→B:1.10→C:1.5→D:H-SJ?S↙ L2: Lbl 1:H-DM?M:Abs(S-M)→H↙ L3: If S-M≥0:Then L+HD→K:Goto 2:IfEnd↙ L4: If H≤N:Then L+G+HA→K:Goto 2:IfEnd↙ L5: If H≤2N:Then L+G+NA+T+(H-N)B→K:Goto 2:IfEnd↙ L6: If H2N:Then L+G+NA+T+NB+T+(H-2N)C→K:Goto 2:IfEnd↙ L7: Lbl 2:Fix 3:L-PJ=:K◢↙ L8: Norm:Goto 1↙ ******************************************************************************************************* 【坐标反算程序】 程序名：【XY-DF】 L1: ?→I:?→J:A.X?D:A.Y?G:B.X?X:B.Y?Y:Pol((X-D),(Y-G)):If J?:Then J+36?→J:IfEnd↙ L2: Fix 5:AB-AZIMUTH=:J◢ L3: Fix 3:AB-DIST=:I◢ L4: Norm↙ ******************************************************************************************************* 【坐标正算程序】 程序名：【DF-XY】 L1: A.X?D:A.Y?G:AB-AZIMUTH?J:AB-DIST?I↙ L2: Fix 3:B.X=:D+Icos(J)→X◢ L3: B.Y=:G+Isin(J)→Y◢ L4: Norm↙ ******************************************************************************************************* 【面积计算程序】 程序名：【AREA】 L1: Lbl ?:M?M:N?N:M→E:N→F:?→S↙ L2: Lbl 1:X?X:Y?Y:S-(XN-YM)÷2→S:If X=E:Then If Y=F:Then AREA=:Abs(S)→S◢ Goto ?:IfEnd:IfEnd↙ L3: X→M:Y→N:Goto 1↙ ******************************************************************************************************* 【两直线交点计算程序】 程序名：【JD】 L1: 1.X?A:1.Y?B:2.X?C:2.Y?D:3.X?E:3.Y?F:4.X?G:4.Y?H↙ L2: C-A→N:D-B→O:G-E→P:H-F→Q:QN-OP→K:NB-OA→U:PF-QE→V↙ L3: Fix 3:P.X=:(PU-NV)÷K→X◢↙ L4: P.Y=:(QU-OV)÷K→Y◢ L5: Norm↙ *******