不对称缓和曲线要数的计算方法.doc

不对称缓和曲线的计算方法 ????????? 发布日期：2012-02-12??浏览次数：52 圆曲线两端缓和曲线不等长的测设方法，圆曲线起始端缓和曲线的长度为L1终端的缓和曲线长度为L2 圆曲线半径为R,所测转角为a 切线角 切线增量 内移值 切线长 曲线长 或者 外矢距 由于缓和曲线的不等长，故曲线的中点与圆曲线的中点并不一致，为便于测设，一般取曲线的交点与圆心的连线与圆曲线的交点M,作为曲线的中点 ? 坐标CASIO FX5800 P程序 1. 正算主程序 程序名： XLZBZB LbI 1：“K”？K ：“L(-Z +Y)” ？L：90→M ：（注：此处若给M赋值，则可计算斜角。M是指图纸上的斜交右角） Prog“DAT” ：（P - R）÷（2（H-O）PR）→D (注：表示按EXE键即可) Abs（K-O）→J：Prog“SUB1” (注：表示按EXE键即可) “X=” : X “Y=” ：Y Goto 1 ↙ (注：表示按EXE键即可) 2. XLZBZB 使用说明：K? 正算时所求点的里程： L(-Z+Y) 正算时所求点距该里程中线的边距（左侧取负值，右侧取正值，在中线上取零（即数字0）） 3. 正算子程序 程序名：SUB1 4→DimZ (注：表示按EXE键即可) 0.1184634425→A： 0.2393143352→B： 0.2844444444→Z[4]: 0.0469100770→C: 0.2307653449→E: 0.5→Z[1] (注：表示按EXE键即可) I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD) ×180÷π)+Z[4]cos(G+QZ[1]J(1÷P+Z[1]JD) ×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD) ×180÷π)+Acos(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π)) →X (注：表示按EXE键即可) S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD) ×180÷π)+Z[4]sin(G+QZ[1]J(1÷P+Z[1]JD) ×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD) ×180÷π)+Asin(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π)) →Y (注：表示按EXE键即可) G+QJ(1÷P+JD) ×180÷π+M →F: X+LcosF →X: Y+LsinF→Y (注：表示按EXE键即可，π表示3.141592653) 4. 曲线元要素数据库 程序名：DAT If K＜本段曲线终点桩号： Then 本段线元起点的X坐标→I： 本段线元起点的Y坐标→S： 本段线元起点里程→O： 本段线元起点切线方位角→G: 本段线元终点里程→H: 本段线元起点曲率半径→P： 本段线元终点曲率半径→R： 本段线元左右偏标志→Q： Eise If K＜ 二段曲线终点桩号： Then 二段线元起点的X坐标→I：二段线元起点的Y坐标→S：二段线元起点里程→O：二段线元起点切线方位角→G: 二段线元终点里程→H: 二段线元起点曲率半径→P： 二段线元终点曲率半径→R： 二段线元左右偏标志→Q：………………… （注：如有多个曲线元要素，还要继续添加到数据库DAT中） I= 线元起点的X坐标： S= 线元起点的Y坐标: O= 线元起点里程: G= 线元起点切线方位角: H= 线元终点里程 P= 线元起点曲率半径 R= 线元终点曲率半径 Q= 线元左右偏标志（注： 左偏为-1， 右偏为+1 ） （注：如有多个曲线元要素，还要继续添加到数据库DAT中,曲率半径直径输入半径值） 5. 坐标反算 程序名： ZBFS LBI 0:“X1=”?X:“Y1=”?Y:“X2=”?A:“Y2=”?B POL（A-X,B-Y）:J〈0 =〉J+360→J “I=”:I◢ “