1缓 和 曲 线 不 相 等 直 线 曲 线 放 样 程 序该 程 序 适 用 于 计 算 器 CASIO fx-5800p， 可 计 算 线 路 中 的 缓 和 曲 线 、 圆 曲线 、 直 线 段 ， 中 、 边 桩 （ 包 括 超 宽 段 ） 坐 标 及 切 线 方 位 角 ， 高 程 。 （ 缓 和 曲 线 不 相 等 ： LS1 LS2）J ？ 输 入 转 角 ： 左 转 为 负 ， 右 转 为 正LS1、 LS2 ？ 输 入 缓 和 曲 线 长 度JD ？ 输 入 交 点 里 程 桩 号 R ？ 输 入 圆 曲 线 半 径X（ JD） ？ 输 入 本 交 点 X坐 标Y（ JD） ？ 输 入 本 交 点 Y坐 标FWJ ？ 输 入 第 一 切 线 方 位 角 （ ZH 至 JD 的 方 位 角 ）P？ 输 入 里 程 桩 号 (待 求 点 )BZ： 边 距 ； BJ： （ Z： -,Y： +） 边 转 角 为输出指令 相当于 号（ ） 括 号 中 说 明 ， 无 需 输 入 为回车键标识O 输 0 计 算 中 桩 坐 标 和 高 程 ； O 输 1 计 算 边 桩 坐 标 和 高 程 ； O 输 2 计算 超 宽 边 桩 坐 标 和 高 程 。调 用 程 序 时 带 有 ？ 号 为 输 入 项 ， 无 ？ 号 则 为 程 序 计 算 项注意：斜交时求边桩输入转角时左侧输入（转）交角的补角；即 BJ（K）180该 程 序 可 计 算 范 围 ： 从 上 一 个 单 元 曲 线 的 缓 直 点 （ HZ）到 下 一 个 单 元 曲 线 的 直 缓 点 （ ZH） 范 围 内 都 可 用 该 程 序 计 算 中 桩 坐 标 和高 程 ， 边 桩 （ 包 括 超 宽 段 ） 的 坐 标 和 高 程 。 LS1 0、 LS2 0， 则 为 无 缓 和 曲 线 的 单 圆 曲 线 段 ；（ LS1 和 LS2 不 能 输 入 0， 应 输 入 一 个 极 微 的 小 数 ， 如 0.0000001） ； LS1 0、 入 口 无 缓 和 曲 线 段 ； LS2 0、 出 口 无 缓 和 曲 线 段 ； LS1 LS2、 为 相 等 缓 和 曲 线 段 ； LS1 LS2、 为 不 相 等 的 缓 和 曲 线 段 。该 程 序 简 单 、 方 便 、 易 懂 。 完 全 能 满 足 公 路 、 铁 路 、 和 其 他 各 种 道 路 的 施工 放 样 作 业 。2程 序 中 关 键 部 位 附 有 标 注 。已 知 ： 缓 和 曲 线 中 缓 和 曲 线 长 分 别 为 L01、 L02， 圆 曲线 半 径 R， 交 点 JD 转 （ 外 ） 角 ； 求 其 余 各 要 素 。基 本 计 算 公 式 ： 角 01 （ 90L01） （ R） 02 （ 90L02） （ 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） （ 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（ 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： 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 （ 角 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 （直缓点）“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 21sin（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 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