公路路线高程、坐标联合计算程序(线元法)(fx-5800P)

EXE 键到正反算选择界面；
（‐）键计算边桩坐标；
°′″键显示线路切线方位角α；
10X 键计算以左右边桩连线为轴线、以左右边桩距离为长度、以二倍偏距为宽度的平行四边形的四角坐标（如计
算涵洞四角坐标等）（计算边桩坐标后有效）。
不需要改动任何子程序，更不需要每次计算前再次输入已知要素，只需编辑全线已知要素于数据
‐1‐
公路路线高程、坐标联合计算程序（张金成（QQ:36799978，UC:48013858））
4、变量说明：
变量类型 全程变量 内部变量 过程变量
变量名称 Z[1]～Z[N] Z[N+1]～Z[2N] Z[2N +1]～Z[2N+L] Z[2N+L+ 1]～Z[2N+2L ] Z[2N+2L +1]～Z[2N+3L ] List X[1] ～List X[N] List Y[1] ～List Y[N] List Freq[1] ～List Freq[N]
2、特点：
在程序编辑模式中存储已知要素，数据可长期保存，省去每次计算时输入已知要素的麻烦。 存储数据的方法相当于 DATA 语句，只需要用逗号分隔数据，不需要用多重 If 等语句。 不需要输入每段线元起点的坐标，仅输入全线起点的坐标即可，输入简单方便。 平曲线和竖曲线既可联合计算，也可单独计算；数据库中平曲线和竖曲线要素既可全部存入，也可只存其一。 菜单式正反算选择和暗菜单操作，避免了计算过程中的无用操作。需要时就去按相应的按键，不需时则不用理它。
键 显示切线方位角α
注： 正算示例只列出由里程
计算坐标和高程（ ）时 的情况；
当仅计算坐标（ ）时 无高程信息；
当仅计算高程（ ）时 无坐标信息。
无箭头连接的显示间不 需按键，用箭头连接的显 示间未标明的，按 键。
‐4‐
公路路线高程、坐标联合计算程序（张金成（QQ:36799978，UC:48013858））
显示已计算的主点数量
正反算选择界面
按 ＋ 键正算坐标 按 － 键反算桩号 按 × 键计算高程 按 ÷ 键正算坐标和高程
桩号输入
提示平曲线有效桩号范围
桩号输入 当桩号为负数时，返回正反算选择界面
反算点坐标输入
反算
当 X,Y 坐标至少有一个为负数时，返回正反算选择界面 反算时起点作为起始坐标和桩号
反算点与切点的连线在切线上的投影
公路路线高程、坐标联合计算程序（张金成（QQ:36799978，UC:48013858））
公路路线高程、坐标联合计算程序
（适用于 CASIO fx‐5800P 计算器）
张金成（QQ:36799978，UC:48013858）
1、功能与适用范围：
正算：计算全线任意桩号的设计高程与中、边桩坐标及切线方位角（含结构物坐标计算）。 反算：计算已知坐标对应路线的桩号、边距与中桩坐标及切线方位角。 适用于任意线型组合的主线和匝道计算。 特别适合公路施工测量计算。
IfEnd
Next
Lbl 0
Fix 3
Cls
0 →V
0 →U
N≠0=＞ “ ＋：K =＞ XY”
N≠0=＞ “ －：XY =＞
K”
L≠0=＞ “ ×：K =＞
H”
L≠0 And N≠0=＞ “ ÷：K =＞ XYH”
Do Getkey =77 Getkey =67 Getkey =24 Getkey =87
=＞ 1 → V =＞ 2 → V =＞ 3 → V =＞ 4 → V
Lpwhile V=0 N=0=＞3 →V
Lbl 1
Cls If V≠2 Then If N≠0
Then ”QDK”：Locate 4,1, Z[1] ” ZDK”：Locate 4,2, Z[N]
IfEnd
“LI CHENG”?A A＜0 =＞ Goto 0 V=3 =＞Goto 4
竖曲线要素。L=0 时不需要输入 注意：此两行在计算器中输入时为一行
{X1,Y1,α1，桩号 1，半径 1，桩号 2，半径 2，···，桩号 N，半径 N }→List Y Prog“LX0”
平曲线要素。N=0 时不需要输入 转要素转存子程序
特别说明：要注意竖曲线要素输入语句【{ }→ListX】和平曲线要素输入语句【{ }→List Y】输入的先后次序，
‐2‐
公路路线高程、坐标联合计算程序（张金成（QQ:36799978，UC:48013858））
5、主程序与子程序之间的关系
主程序
LX0
LX GAOCHENG
LX3
（实质上的主要运行程序）
LX ZUOBIAO
子程序 LX3 是实质上的主要运行程序。当路线已知要素转存完成之后，一切计算均是在 LX3 中或调 用坐标计算子程序（LX ZUOBIAO）和高程计算子程序（LX GAOCHENG）来完成。
6、计算点与路线的关系
‐3‐
公路路线高程、坐标联合计算程序（张金成（QQ:36799978，UC:48013858））
7、界面显示（启动你事先编制好的某路线的主程序，将会逐步显示下图信息）
说明
说明
转存竖曲线要素
转存竖曲线要素
始 初 转存平曲线要素 化
计算平曲线特征点(主点) X、Y、α
初
转存平曲线要素
输入偏距（角点距同侧边 桩的距离）和偏角 (0°＜P＜180°)
显示左侧角点坐标 La 左边桩前角点 Lb 左边桩后角点
显示右侧角点坐标 Ra 右边桩前角点 Rb 右边桩后角点
切线的坐标方位角
暗菜单按键说明： 键
回到正反算选择界面 键
计算边桩坐标 键
计算以左右边桩连线 为轴线、以左右边桩 距离为长度、以二倍 偏距为宽度的平行四 边形的四角坐标（计 算边桩坐标后有效）
显示已转存的平曲线要素数量 转存平曲线要素 变半径为曲率 清理统计串列 起点 X、Y、α转存
转计算子程序
‐5‐
公路路线高程、坐标联合计算程序（张金成（QQ:36799978，UC:48013858））
计算子程序（程序名称：LX3）（实ห้องสมุดไป่ตู้上的主要运行程序）
程序
Deg
Cls N=0 =＞Goto 0 ” JS：X,Y,α[i]”
Locate 10,3,N‐1 For 1→B To N‐1
Locate 5,3,B Z[B +1]‐Z[B] → S
If S =0 Then List X[B] → List X[B+1]
List Y[B] → List Y[B+1] List Freq[B] → List Freq[B+1] Else Prog “LX ZUOBIAO” X→List X[B+1] Y→List Y[B+1] T→List Freq[B+1]
Next
ClrStat X → List X[1] Y → List Y[1] T → List Freq[1] Prog“LX3”
→Z[N+B]
定义额外变量
说明
显示转存竖曲线要素提示信息 显示竖曲线要素总数量
显示已转存的竖曲线要素数量 转存竖曲线要素
显示转存平曲线要素提示信息 显示平曲线要素总数量
始 化
计算平曲线特征点(主点) X、Y、α
正反算选择界面
显示平曲线有效桩号范 围，输入桩号。桩号超出 范围时则不向下执行
桩号 K 对应的设计高程 H 和中桩坐标 X/Y
负数
正算
正反算选择界面
反算
负数
输入反算点的 X、Y，当 X/Y 至少有一个为负数时，返
回到正反算选择界面
超范围 或 长按 键
反算过程信息
Locate 10,3,L For 1→B To L
Locate 5,3,B List X [3B‐2]→Z[2N+B] List X[3B‐1]→Z[2N+L+B] List X [3B]→Z[2N+2L+B]
Next
Lbl 1 N=0 =＞Porg “LX3”
Cls ” ZHC：PM YS”
Locate 10,3,N List Y[1]→X List Y[2]→Y List Y[3]→T For 1→B To N Locate 5,3,B： List Y[2B+2] →Z[B] List Y[2B+3] →Z[N+B] Z[N+B] ≠0 =＞ Z[N+B] ‐1
A H L N S T V W X Y I J B C D E F G K M Q R U O P Z
存储内容 平曲线特征点（主点）桩号 平曲线曲率（路线左转“－”、右转“＋”、直线 0。） 竖曲线特征点桩号 竖曲线特征点高程 竖曲线半径 平曲线特征点（主点）的 X 坐标 平曲线特征点（主点）的 Y 坐标 平曲线特征点（主点）的切线方位角 待求点桩号 所求点高程 竖曲线特征点个数 平曲线特征点个数 待求点至起算点的里程长度 切线方位角 正、反算控制变量 边线至中线的最大距离（控制反算点的范围） 中桩的 X 坐标 中桩的 Y 坐标 边长或 X 坐标差 角度或 Y 坐标差 用于循环变量 前段坡度、缓和曲线参数、路线转角、偏距 本段坡度、缓和曲线线元长度、圆曲线长 下段坡度、完整缓和段起点至线元起点的长度 前竖曲线切线长、完整缓和段起点至计算点长度 后竖曲线切线长、完整缓和段起点的切线方位角 缓和曲线计算中±号控制、路线方向 缓和曲线两端曲率差 边距、反算点 X 坐标 右夹角、反算点 Y 坐标 点与切点的连线在切线上的投影长度 偏角与夹角之差 偏角
8、程序清单
主程序
（程序名称任意，自己清楚就行；每条线路或每个匝道一个主程序。主程序其实是竖曲线要素和平曲线要素的数据库）