《缓和曲线不相等直线曲线放样程序》由会员分享,可在线阅读,更多相关《缓和曲线不相等直线曲线放样程序(7页珍藏版)》请在金锄头文库上搜索。
1、1缓 和 曲 线 不 相 等 直 线 曲 线 放 样 程 序该 程 序 适 用 于 计 算 器 CASIO fx-5800p, 可 计 算 线 路 中 的 缓 和 曲 线 、 圆 曲线 、 直 线 段 , 中 、 边 桩 ( 包 括 超 宽 段 ) 坐 标 及 切 线 方 位 角 , 高 程 。 ( 缓 和 曲 线 不 相 等 : LS1 LS2)J ? 输 入 转 角 : 左 转 为 负 , 右 转 为 正LS1、 LS2 ? 输 入 缓 和 曲 线 长 度JD ? 输 入 交 点 里 程 桩 号 R ? 输 入 圆 曲 线 半 径X( JD) ? 输 入 本 交 点 X坐 标Y( JD)
2、? 输 入 本 交 点 Y坐 标FWJ ? 输 入 第 一 切 线 方 位 角 ( ZH 至 JD 的 方 位 角 )P? 输 入 里 程 桩 号 (待 求 点 )BZ: 边 距 ; BJ: ( Z: -,Y: +) 边 转 角 为输出指令 相当于 号( ) 括 号 中 说 明 , 无 需 输 入 为回车键标识O 输 0 计 算 中 桩 坐 标 和 高 程 ; O 输 1 计 算 边 桩 坐 标 和 高 程 ; O 输 2 计算 超 宽 边 桩 坐 标 和 高 程 。调 用 程 序 时 带 有 ? 号 为 输 入 项 , 无 ? 号 则 为 程 序 计 算 项注意:斜交时求边桩输入转角时左侧输
3、入(转)交角的补角;即 BJ(K)180该 程 序 可 计 算 范 围 : 从 上 一 个 单 元 曲 线 的 缓 直 点 ( HZ)到 下 一 个 单 元 曲 线 的 直 缓 点 ( ZH) 范 围 内 都 可 用 该 程 序 计 算 中 桩 坐 标 和高 程 , 边 桩 ( 包 括 超 宽 段 ) 的 坐 标 和 高 程 。 LS1 0、 LS2 0, 则 为 无 缓 和 曲 线 的 单 圆 曲 线 段 ;( LS1 和 LS2 不 能 输 入 0, 应 输 入 一 个 极 微 的 小 数 , 如 0.0000001) ; LS1 0、 入 口 无 缓 和 曲 线 段 ; LS2 0、 出
4、 口 无 缓 和 曲 线 段 ; LS1 LS2、 为 相 等 缓 和 曲 线 段 ; LS1 LS2、 为 不 相 等 的 缓 和 曲 线 段 。该 程 序 简 单 、 方 便 、 易 懂 。 完 全 能 满 足 公 路 、 铁 路 、 和 其 他 各 种 道 路 的 施工 放 样 作 业 。2程 序 中 关 键 部 位 附 有 标 注 。已 知 : 缓 和 曲 线 中 缓 和 曲 线 长 分 别 为 L01、 L02, 圆 曲线 半 径 R, 交 点 JD 转 ( 外 ) 角 ; 求 其 余 各 要 素 。基 本 计 算 公 式 : 角 01 ( 90L01) ( R) 02 ( 90L0
5、2) ( R)缓 和 曲 线 增 值 q1 L012 L013( 240R2)q2 L022 L023( 240R2)内 移 值 P1 L012( 24R) L014( 2688R3)P2 L022( 24R) L024( 2688R3)Z1 ( P1 P2) tan Z2 ( P1 P2) sin 公 切 线 长 T ( R P2) tan( 2)第 一 切 线 长 T1 q1 T Z1第 二 切 线 长 T2 q2 T Z2圆 曲 线 圆 心 角 y 01 02圆 曲 线 长 Ly ( R y) 180曲 线 全 长 L L01 Ly L02新 外 角 1 tan-1( ( T1 q1)
6、( R P1) ) 2 tan-1( ( T2 q2) ( R P2) )外 矢 距 E1 ( R P1) ( cos 1) RE12 ( R P2) ( cos 2) RE ( E1 E2) 2或 者 : E ( R ( P1 P2) 2) cos( 2) R第 一 圆 弧 长 Ly1 ( R)180(101)第 二 圆 弧 长 Ly2 ( R)180(202)缓 和 曲 线 参 数 A1 A20L0L缓 和 曲 线 上 ( ZH HY 或 YH HZ) 任 意 一 点 有 关 要 素横 距 Q L L5( 40R2L02) L9( 3456R4L04)纵 距 I L3( 6RL0) L7(
7、 336R3L03)3夾 角 U tan-1( IQ) 弦 长 C 2IQ弦 切 角 G ( 90L2) ( R L0)计 算 方 位 角 J F0( ZH 或 HZ) WU ( W: Z-1, Y+1)方 位 角 F JHY 点 :横 距 和 纵 距Q M M3( 40R2) M5( 3456R4) M7( 599040R6)I M2( 6R) M4( 336R3) M6( 42240R5)圆 曲 线 上 ( HY YH) 任 意 一 点 有 关 于 要 素 ( 支 距 法 )弦 切 角 U ( 90L) ( R) 弦 长 C 2R sin U方 位 角 J F( HY) WU F ( W:
8、 Z-, Y+)程 序 名 : ZHYQX ( 5800 计 算 器 ) 作 者 : 徐 金 树Deg ClrStat 30 DimZ (扩展变量数据)Lbl 0“J: Z-, Y+”? J: ? R: “LS1”? M: “LS2”? N:“JD”? T M(2)(24R)M(4)(2688R(3) )Z 1 (内移值 p1)N(2)(24R)N(4)(2688R(3) )Z 2 (内移值 p2)M2M(3)(240R(2) )Z 3 (缓和曲线增值 q1)N2N(3)(240R(2) )Z 4 (缓和曲线增值 q2)( 90M) ( R )Z 5 ( 角 1)( 90N) ( R )Z 6
9、 ( 角 2)(Z1Z2) tan(Abs(J))Z7 (Z1 即 m1)(Z1Z2) sin(Abs(J))Z8 (Z2 即 m2)4Abs(J)Z 5Z 6Z 9 (圆心角 y)(RZ2)tan(Abs(J)2)Z10 (公切线 T)“T1=”:Z3Z10Z7Z 11 (第一切线长)“T2=”:Z 4Z 10Z8Z 12 (第二切线长)“LY=”:(Abs(J)Z 5Z 6)R180Z 13 (圆曲线长 Ly)“L=”:MZ 13NZ 14 (曲线全长 L)“E=”: (R(Z 1Z 2)2)cos(Abs(J)2)R Z 15 (外矢距 E)“ZH=”:TZ 11 Z 16 (直缓点)“
10、HY=”: Z 16M Z 17 (缓圆点)“QZ=”: Z 16MZ 132Z 18 (曲中)“YH=”: Z 16MZ 13Z 19 (圆缓点)“HZ=”: Z 16Z14 Z 20 (缓直点)“X(JD) ”?A: “Y(JD) ”?B: “FWJ”?F: “P0”?V :(变坡起点桩号)“H0”?H (变坡起点高程)“W:,”?W (变坡比、上,下) If J 0 (0为数字):Then 1I:Else 1I:If End MM(3)(90R(2) )Z 21 30IM(R)Z 22 AZ 11cos(F180)Z 21cos(FZ 22)Z 23 BZ 11sin(F180)Z 21
11、sin(FZ 22)Z 24 Lbl 1 ?P If P Z 16 :(ZH 点) Then PT C F G “FWJ=” : F U :U DMS Goto 2 If End 5If P Z 17 :(HY 点) Then P Z 16 L LL(5)(90R(2)M(2)) C 30IL(2)(RM) SF180 G FS Q “FWJ=” : F3 S U :U DMS Goto 3 If End If P Z 19 :(YH 点) ThenF3Z 22(PZ 17)90IR G 2Rsin(PZ 17)90R) C F3Z 22(PZ 17)180IR U“FWJ=”:U U :U
12、DMS Goto 4 If End If P Z 20: (HZ 点) Then Z 20 P L LL(5)(90R(2)N(2)) C 30IL(2)(R N) S FJ G FJ180S Q “FWJ”:F3SJ U :U DMS Goto 5 If End If PZ20 :(HZ 点) Then PZ 20Z 12 CFJ G “FWJ”:G U :U DMS Goto 2 Lbl 2 “X=”:ACcos(G) X “Y=”:BCsin(G) Y 6“Z=”:HW(PV) Z (计算中桩高程)Goto 7 If End Lbl 6 “BJ:Z-,Y+”?K :(边桩转角) “BI:,”?E:(横坡比)“BD”?D: (路基宽度)“XB=”:XDcos(UK)Z 25 “YB=”:YDsin(UK)Z 26 “BZ=”:ZE D Z27 (计算边桩高程)Goto 1 Lbl 3 “X=”:AZ 11cos(G)C cos(Q) X “Y=”:BZ 11sin(G)C sin(Q) Y “Z=”:HW(PV) Z (计算中桩高程)Goto 7 Lbl 4 “X=”:Z 23