《计算器程序及使用说明》由会员分享，可在线阅读，更多相关《计算器程序及使用说明（28页珍藏版）》请在金锄头文库上搜索。
1、1公路铁路任意线型单元路线中桩边桩坐标及放样极坐标的通用计算程序(ZHYDLDY ZBJS)作者：琚新涛 QQ：25425579一、 线路中线的线型分析公路铁路线路按照线型分类，可分为直线、圆曲线线路和曲线线路。一般情况下，缓和曲线是连接直线与圆曲线的过渡性曲线，该缓和曲线称为完全的缓和曲线。在特殊的情况下（公路立交匝道），截取完全缓和曲线上的一段，其两端外连接两个不等半径的圆曲线，即将一个半径逐渐过渡到另一半径，这种缓和曲线称为不完全缓和曲线。所以，缓和曲线分为完全的缓和曲线和不完全的缓和曲线两种。那么，一条很长的公路铁路线路可划分为一个一个单一线型的线路单元。即直线单元，圆曲线单元，完全缓
2、和曲线单元和不完全缓和曲线单元。各类线型线路单元具有各自不同的几何性质，直线单元式半径无穷大而曲率为零且始终保持不变的线型。圆曲线单元是始终保持某一半径和相应曲率不变的线型。缓和曲线单元是半径和曲率都处处不等且均匀渐变的线型，即半径和曲率随线路中线点位呈线性变化。完全缓和曲线单元是将直线的零曲率均匀渐变到另一半径圆曲线曲率的线型，不完全缓和曲线单元是将某一半径圆曲线曲率均匀渐变到另一半径圆曲线曲率的线型。于此可见，不完全缓和曲线路线是所有线型线路单元中最一般的线型单元。 / LbI D:Fix 3:Deg:“GTL ZHY ZBZ FYJS”:”CZD ZB N(X)=”?R:”CZD ZB
3、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:”DYQDZD QXZX(Z=-1,Y=+1)=”?WWTC:WUF:0I:0J:(C-F)(2CF(G-D)HLbI A:”FYD DY ZZ LC=”?O：IF O=-1:Then Goto C:IfEnd:If OD:Then Goto B:IfEndIF OG:Then Goto B:IfEnd“ZZ-BZ FXJ
4、(Z-,Y+)=”?P:”ZZ-BZ PJ=”?Q:E+(O-D)C+H(O-D)2)rV:If V0:Then V+360V:IfEndIf V360:Then V-360V:IfEnd“ZZD QX FWJ=”:VDMSRad: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+IZ:Z“FYD ZB E(Y)=”:Y+JY:YPol(Z-R,Y-S)If J0:Then J+360J:IfEndIf J360:Then J-360J:IfEnd“CZD-FYD FWJ=”:JDM
5、S“CZD-FYD PJ=”:I“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=11010）;2. 若计算圆曲线单元时，则起、终点的半径均等于其圆曲线的半径（Ra=Rb=R）;
6、3. 若计算完全缓和曲线单元时，则与直线相连接的一端，其半径为无穷大（取R=11010）；与圆曲线相连接的一端，其半径为所连接的圆曲线半径；4. 若计算不完全缓和曲线单元时，则起终点半径分别为其两端所连接的圆曲线半径；5. 若用于曲线单元的计算，则由线路单元的起点向终点方向确定曲线的左、右转向6. 一般情况下，线路单元的起终点是顺里程方向确定的，即起点里程小于终点里程，其起终点和单元任一待求中桩点的里程均为正数（LA、LB、Li均为正）。若线路单元的起终点是?绿里程方向确定的，即起点里程大于终点大于终点里程，则其起、终点和单元上任一待求中桩点的里程均为负数（LA、LB、Li均为负），且起点切线
7、方位角，线路的左、右转向及线路的左、右边均与上述相反。四，计算器屏幕字符提示说明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 Z
8、D BJ(R2)=?(提示输入单元终点半径(R2)DY ZD LC(L2)=?(提示输入单元终点里程(L2)DY QDZD QX ZX （Z=-1；Y=+1）=？（提示输入单元起点一终点曲线转向（左输入-1，右输入+1）FYD DY ZZ LC=？（提示输入放样点对应中桩里程）ZZBZ FXJ（Z-；Y+）=？（提示输入中桩边桩方向角（左边桩输入负角，0180；右边桩输入正角，0180）ZZBZ PJ=？（提示输入中桩边桩平距，平距不分正负，均输入正数）任何线型的线路单元，均需要输入以上13个已知数据，可从线路设计文件资料中查取。2. 程序计算数据的提示ZZD QX FWJ= （提示计算的中桩
9、点的切线方位角）FYD ZB N(X)= （提示计算的放样点坐标N(x)）FYD ZB E(Y)= （提示计算的放样点坐标E(Y)）CZDFYD FWJ= (提示计算的测站点放样点方位角)CZDFYD PJ= （提示输入的测站点放样点平距）EDN （提示一点的计算已经结束）CHAO CHU DAN YUAN FAN WEI （提示放样中桩点的里程已经超出单元范围）DAN YUAN FAN YANG JIE SHU （提示本线型单元放样结束）五程序算例一段公路、铁路中线各单元端点的线路设计资料主点线路里程主点坐标X主点坐标Y主点切线方位角半径（R）单元线型QD7+000.000971.71144
10、06.31730 00 0011010直线ZH7+478.3001385.9314645.46730 00 0011010缓和曲线HY7+628.3001513.3784724.45835 22 17.41800圆曲线YH8+549.5101834.6375534.209101 20 53.92800缓和曲线HZ8+699.5101796.0085679.089106 43 11.311010直线ZD9+000.0001709.5595966.875106 43 11.311010直线2公路立交匝道完全与不完全缓和曲线中边桩坐标的计算程序（BWZHQXZBZ JS）一， 计算程序Deg;fix
11、 4:OI：OJ“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 EF:Then GotoB:E1se Goto C:IfEndLbi B:1Z:”R1R2 QX ZX(Z=-1,Y=1)=”?Q:If Q =1:Then 1U:E1se -1U:IfEnd:Goto DLbi C:If Z=-1:”R1=R2 QX ZX(Z=-1,Y=1)=”?Q:If
12、 Q=-1:Then 1U:E1se -1U:IfEndLb1 D:Abs(G-D)H:Abs(FH(E-F)K:(EK)L:C-90QK2(L2) MLbI A:”CSD DY ZX LC=”?S:”Z-Y PXJ=”?V:”Z-Y PJL= “?R:IF EF:Then Goto E:Goto f:IfEndLb1 E:If DG:Then K+S-DN:E1se K-S+DN:I fEnd:Goto GLb1 F:DG:Then K-s+DN:E1se K+S-DN:IfEndLb1 G:”ZXD QX FWJ=”:M+90QN2(L2)T:TDMS N-K-(N(5)-K(5) (40
13、L(4)+(N(9)-K(9)(3456L (8)-(N(13)-K(13)(599040L(12)+(N(17)-K(17)(17542600L(16)O:(N(3)-K(3)(6L2)-(N(7)-K(7) (336L(6)+(N(11)-K(11)(42240L(10)-(N(15)-K(15)(9676800L(14)+(N(19)-K(19)(3530097000L(18)PT+VW:Rec(R,W):”CSD ZB N(X)=”:A+ZOcos(M)-UPsin(M)+IX:X“CSD ZB E(Y)=”:B+ZOsin(M)+UPcos(M)+JY:Y“+ -END+ -”:GO
14、TO A二，屏幕提示在应用计算程序计算中边桩点的坐标时，根据程序计算步骤和顺序，计算器显示屏上显示以下输入已知数据和程序计算结果的提示：HHQX QD ZB N(x)=？ （提示输入缓和曲线起点（R1点）的 N（X）坐标）HHQX QD ZB E(Y)=？ （提示输入缓和曲线起点（R1点）的 E（Y）坐标）HHQX QD QX FWJ=？（提示输入缓和曲线起点（R1点）的切线方位角）HHQX QD LC=？ （提示输入缓和曲线起点（R1点）的里程）HHQX QD BJ（R1）=？（提示输入缓和曲线起点（R1点）半径R1）HHQX ZD BJ（R2）=？（提示输入缓和曲线终点（R2点）半径R2）HHQX ZD LC=？（提示输入缓和曲线终点（R2点）的里程 ）R1=R2 QX ZX：Z（-1）；Y（+1）=？（当R1R2时，提示输入缓和曲线从R1R2的曲线转向系数。左转输入-1，右转输入+1；当R1R2时，提示输入缓和曲线从R1R2的曲线转向系数。左转输入+1，右转输入-1 ； ）CSD DY ZX LC=？ （提示输入缓和曲线段的测设点对应于中线里程）ZY PJL=？ （提示输入左，右测设点距中线桩的距离，距离一律输入正数）ZXD QX FWJ=（提示计算的缓和曲线中线点的切线方位角（由R1R2切
