5800p计算器程序及使用说明 (1).doc

第 1 页 共 22 页1．公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛 ：25425579一、线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线在特殊的情况下（公路立交匝道） ，截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元即直线单元，圆曲线单元，完全缓和曲线单元和不完全缓和曲线单元各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型圆曲线单元是始终保持某一半径和相应曲率不变的线型缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。

于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZB 第 2 页 共 22 页N(X)=”?R:”CZD ZB E(Y)=”?S:”DY QD ZB N(X)=”?A:”DY QD ZB E(Y)=”?B:”DY QD BJ(R1)=”?T:”DY QD LC(L1)=”?D:”DY QD QX FWJ=”?E:”DY ZD BJ(R2)=”?U:”DY ZD LC (L2)=”?G:”DYQD—ZD QXZX(Z=-1,Y=+1)=”?WWT→C:WU→F:0→I:0→J:(C-F)÷(2CF(G-D))→HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If O＜D:Then Goto B:IfEndIF O＞G:Then Goto B:IfEnd“ZZ-BZ FXJ(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+((O-D)÷C+H(O-D)2)r→V:If V＜0:Then V+360→V:IfEndIf V≥360:Then V-360→V:IfEnd“ZZD QX FWJ=”:V▶DMS◢Rad:A+∫(cos(E 。

+(X-D)÷C+H(X-D)2),D,O) →ZB+∫(Sin(E +(X-D)÷C+H(X-D)2),D,O) →Y“FYD ZB N(X)=”:Z+I→Z:Z ◢“FYD ZB E(Y)=”:Y+J→Y:Y ◢Pol(Z-R,Y-S)If J＜0:Then J+360→J:IfEndIf J≥360:Then J-360→J:IfEnd“CZD-FYD FWJ=”:J▶DMS ◢“CZD-FYD PJ=”:I◢第 3 页 共 22 页“＋－×÷END＋－×÷”:Goto A:Lbi B:”CHAO CHU DAN YUAN FAN WEI”:Goto A:Lbi C:”DAN YUAN FANG YANG JIE SHU”:Goto D三，注意事项：上面程序适用于直线、圆曲线、完全缓和曲线和不完全缓和曲线的各类型的计算所以，该程序适用于铁路、公路任何线型线路单元的中桩切线方位角和中、边桩坐标计算的通用公式实际使用上述程序时，还应注意一下几点：1. 若计算直线单元时，则起终点的半径均为正的无穷大（取Ra=Rb=1×1010）;2. 若计算圆曲线单元时，则起、终点的半径均等于其圆曲线的半径（Ra=Rb=R）;3. 若计算完全缓和曲线单元时，则与直线相连接的一端，其半径为无穷大（取 R=1×1010） ；与圆曲线相连接的一端，其半径为所连接的圆曲线半径；4. 若计算不完全缓和曲线单元时，则起终点半径分别为其两端所连接的圆曲线半径；5. 若用于曲线单元的计算，则由线路单元的起点向终点方向确定曲线的左、右转向6. 一般情况下，线路单元的起终点是顺里程方向确定的，即起点里程小于终点里程，其起终点和单元任一待求中桩点的里程均为正数（LA、LB、Li 均为正） 。

若线路单元的起第 4 页 共 22 页终点是???绿里程方向确定的，即起点里程大于终点大于终点里程，则其起、终点和单元上任一待求中桩点的里程均为负数（LA、LB 、Li 均为负） ，且起点切线方位角，线路的左、右转向及线路的左、右边均与上述相反四，计算器屏幕字符提示说明1. 输入已知数据的提示GTL ZHY ZBZ FYJS (提示公路铁路直缓圆中边桩放样计算的程序已启动)CZD ZB N(X)=?(提示输入测站点坐标 N(X))CZD ZB N(X)=?(提示输入测站点坐标 E(Y))DY QD ZB N(X)=?(提示输入单元起点坐标 N(X))DY QD ZB E(Y)=?(提示输入 单元起点坐标 E(Y))DY QD BJ (R1)=?(提示输入单元起点半径 (R1))DY QD LC (L1)=?(提示输入单元起点里程(L1))DY QD QX FWJ=?(提示输入单元起点切线方位角)DY ZD BJ(R2)=?(提示输入单元终点半径(R2))DY ZD LC(L2)=?(提示输入单元终点里程(L2))DY QD—ZD QX ZX （Z=-1 ；Y=+1 ）=？（提示输入单元起点一终点曲线转向（左输入-1，右输入+1） ）FYD DY ZZ LC=？（提示输入放样点对应中桩里程）ZZ—BZ FXJ（Z-- ；Y+ ）=？（提示输入中桩—边桩方向角（左边桩输入负角，0~180 ；右边桩输入正角，0~180 ） ）第 5 页 共 22 页ZZ—BZ PJ=？（提示输入中桩—边桩平距，平距不分正负，均输入正数）任何线型的线路单元，均需要输入以上 13 个已知数据，可从线路设计文件资料中查取。

2. 程序计算数据的提示ZZD QX FWJ= （提示计算的中桩点的切线方位角）FYD ZB N(X)= （提示计算的放样点坐标 N(x)）FYD ZB E(Y)= （提示计算的 放样点坐标 E(Y)）CZD—FYD FWJ= (提示计算的测站点—放样点方位角)CZD—FYD PJ= （提示输入的测站点—放样点平距）＋－×÷EDN＋－×÷ （提示一点的计算已经 结束）CHAO CHU DAN YUAN FAN WEI （提示放样中桩点的里程已经超出单元范围）DAN YUAN FAN YANG JIE SHU （提示本线型单元放样结束）五．程序算例一段公路、铁路中线各单元端点的线路设计资料主点线路里程主点坐标 X主点坐标 Y主点切线方位角 ɑ半径（R ）单元线型QD 7+000.000 971.711 4406.31730 00 001×1010 直线第 6 页 共 22 页ZH 7+478.300 1385.931 4645.46730 00 001×1010缓和曲线HY 7+628.300 1513.378 4724.45835 22 17.41800 圆曲线YH 8+549.510 1834.637 5534.209101 20 53.92800缓和曲线HZ 8+699.510 1796.008 5679.089106 43 11.31×1010 直线ZD 9+000.000 1709.559 5966.875106 43 11.31×1010 直线2．公路立交匝道完全与不完全缓和曲线中边桩坐标的计算程序（BWZHQXZBZ JS）一， 计算程序Deg;fix 4:O→I：O→J“HHQX QD ZB N(X)=”?A”:”HHQX QD ZB E(Y)=”?B：”HHQX QD QX FWJ=“?C:”HHQX QD LC(L1)=”?D:”HHQX QD BJ(R1)=”?E:”HHQX ZD BJ (R2)=”?F:”HHQX ZD LC(L2)=”?GIf E＞F:Then GotoB:E1se Goto C:IfEnd第 7 页 共 22 页Lbi B:1→Z:”R1＝＞R2 QX ZX(Z=-1,Y=1)=”?Q:If Q =1:Then 1→U:E1se -1→U:IfEnd:Goto DLbi C:If Z=-1:”R1=＞R2 QX ZX(Z=-1,Y=1)=”?Q:If Q=-1:Then 1→U:E1se -1→U:IfEndLb1 D:Abs(G-D)→H:Abs(FH÷(E-F))→K:√(EK)→L:C-90QK 2÷(∏L 2) →MLbI A:”CSD DY ZX LC=”?S:”Z-Y PXJ=”?V:”Z-Y PJL= “?R:IF E﹥F:Then Goto E:Goto f:IfEndLb1 E:If D0:Then 1→W:E1se-1→W:IfEnd“SQX QXC=”:RAbS(I) ÷200→T:T◢“SQX QD LC=”:L–T→U:U◢“SQX ZD LC=”:L+T→V:V◢Lb1 A:”JS DM LC=”?OIf OV:Then 0→K:IfEnd:If 0≥U And O≤V:Then W→K:IfEndIf O≤L:Then“ZZ GC=”: H-O.O1MAbs(O-L)-K(T-Abs(O-L))2÷(2R)→Y:Y ◢ IfEndIfO>L:Then“ZZGB=”:H+0.01NAbs(O-L)-K(T-Abs(0-L))2÷(2R) →Y:Y◢IfEnd“BF KD=”?B:”HX PD=”?P:”BZ GC=”:Y+O.O1BP→Z:Z◢” + -×÷END+ -×÷”:GOto A二，屏幕提示BPD LC=？ （提示输入变坡点里程）第 12 页 共 22 页BPD GC=？ （提示输入变坡点高程）SQX BJ=？ （提示输入竖曲线的半径）QD PD=？ （提示输入变坡点的前段坡度，上坡为正，下坡为负）HD PD=？ （提示输入变坡点的后段的坡度，上坡为正，下坡为负）SQX QXC= （提示计算的竖曲线的切线长）SQ QD LC= （提示计算的竖曲线 起点的里程）SQ ZD LC= （提示计算的竖曲线终点的里程）JS DM LC=？ （提示输入计算 断面的里程）ZZ GC= （提示计算的线路 中桩的高程）BF KD=？ （提示输入公路的半幅宽度）HX PD=？ （提示输入路面的横向坡度）BZ GC= （提示计算的路肩 边桩的高程）＋－×÷END＋－×÷ （提示计算的路肩边桩的高程 ）注意：本程序可以计算竖曲线段内的线路中边桩和路肩边桩的高程，也可以计算竖曲线两端外的斜直坡段的线路中、边桩高程。

三，程序算例1.显示”BPD　ＬＣ＝？”，提示输入变坡点里程：12345.6782.显示 BPD GC=？， 提示输入变坡点高程：382.9963. 显示 SQX BJ=？, 提示输入竖曲线的半径：100004．显示 QD PD=？， 提示输入变坡点的前段坡度：3（上坡为第 13 页 共 22 页正，3%）5．显示 HD PD=？，提示输入变坡点的后段坡度：-4（下坡为负，-4% ）6．显示 SQX QXC= ，提示计算的竖曲线的切线长：3507．显示 SQ QD LC= ，提示计算的竖曲线起点的里程：11995.6788.显示 SQ ZD LC= ，提示计算的竖曲线终点里程：12695.6789.显示 JS DM LC=？， 提示输入计算断面的里程：12300.00010.显示 ZZ GC= ，提示计算的 线路中桩的高程：376.99511.显示 BF KD=？，提示输入的线路半幅宽度： 10.00012．显示 HX P。