单圆竖曲线高程计算程序PM10-1.pdf

覃辉编著图书光盘附 (2) 主程序 PM10-1 占用内存1092 字节 "SINGLE CIRCLE VERTICAL CURVE" 显示程序标题 Deg:ClrStat:FreqOn:Fix 3 基本设置 "C MILEAGE PEG(m)="?Z 输入以m 为单位的变坡点桩号 "HC(m)="?H 输入变坡点C 高程 "i1(%)="?A 输入坡度 1 "i2(%)="?B 输入坡度2 "R(m)="?R 输入竖曲线半径 13 DimZ 定义额外变量维数 If A-B>0:Then -1 Z[10]:Else 1 Z[10]:IfEnd tan-1(0.01A) Z[1]:tan-1(0.01B) Z[2] 计算坡度竖直角Z[1],Z[2] Z[1]-Z[2] Z[13]:Abs(Z[13]) Z[3] 计算坡度转角Z[3] -0.5(Z[1]+Z[2]) Z[4] 计算变坡点C 的铅垂线与外距直线的夹角δ RZ[3] 180 L 计算竖曲线长 Rtan(0.5Z[3]) T 计算切线长 R((cos(0.5Z[3]))-1-1) E 计算竖曲线外距 " 1(DMS)=":Z[1] 显示第一纵坡竖直角 " 2(DMS)=":Z[2] 显示第二纵坡竖直角 " 1- 2(DMS)=":Z[13] 显示竖曲线转角 "DELT(DMS)=":Z[4] 显示δ "L(m)=":L 显示竖曲线长 "T(m)=":T 显示切线长 "E(m)=":E 显示竖曲线外距长 Z-T List X[1] 计算竖曲线起点A 的桩号 -Tcos(Z[1]) List Y[1] 计算C A 的水平距离 H-Tsin(Z[1]) List Freq[1] 计算竖曲线起点A 的高程 "START-A PEG(m)=":List X[1] 显示竖曲线起点A 的桩号 "DIST C A(m)=":List Y[1] 显示C A 的水平距离 "HA(m)=":List Freq[1] 显示A 点的高程 List X[1]+0.5L+Etan(Z[4]) List X[2] 计算变坡点到投影点D 的桩号与高程 H+Z[10]E cos(Z[4]) List Freq[2] 0 List Y[2] 计算C D 点的水平距离 "D PEG(m)=":List X[2] 显示D 点的桩号与高程 "DIST C D(m)=":List Y[2] "HD(m)=":List Freq[2] List X[1]+L List X[3] 计算竖曲线终点B 桩号与高程 Tcos(Z[2]) List Y[3] 计算C B 的水平距离 H+Tsin(Z[2]) List Freq[3] "END-B PEG(m)