匝道线元法

任意里程中边桩坐标正反算(CASIO

fx-4800P计算器)程序

时间:2007-12-18 13:13:15 来源:工测员网作者:未知

1. 加编数据库作为主程序 , 计算中不必逐项输入 " 线元要素 ", 提高运算速度，避免现场忙中出错

2. 将原来的主程序并入数据库

3. 计算直观 , 人性化

4. 正算直接输入里程和边距 , 反算输入近似里程便可

5. 增加了“ 计算点与测站点” 的距离和方位角计算语句，方便直接放样

6. 愿收获与大家共享

7. 核心计算程序摘自“yshf”

1. 正算子程序 (SUB1)

A=0.1739274226 ： B=0.3260725774 ： K=0.0694318442 ： L=0.3300094782 ：F=1-L ：

M=1-K ：

X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+ 57.2958QFW

(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD))) ：

Y=V+W(Asin(G+57.2958QKW(1/P+KWD))+Bsin(G+

57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/ P+MWD))) ： F=G+57.2958QW(1/P+

WD)+90 ： X=X+ZcosF ： Y=Y+ZsinF

2. 反算子程序 (SUB2)

T=G-90 ： W=Abs((Y-V)cosT-(X-U)sinT) ： Z=0 ： Lbl 0 ： Prog "SUB1" ：L=T+57.2958QW(1/P+

WD) ： Z=(J-Y)cosL-(I-X)sinL ： AbsZ<1E-6=>Goto1 ：≠>W=W+Z ： Goto 0Δ←┘

Lbl 1 ： Z=0 ： Prog "SUB1" ： Z=(J-Y)÷sinF

3、 . 增设数据库程序（ＳＪＫ主程序）

Lb1 4 ： "1.SZ => XY" ： "2.XY => SZ" ：｛ NS ｝：S ∠ 下一线元起点里程＝＞O = 本线元起点里程： U= 本线元起点 X ： V= 本线元起点 Y ： G= 本线元起算方位角： H= 本线元长度： P= 起点曲率半径： R= 终点曲率半径： Q=0 或 1 、 -1 ： Goto0Δ←┘( 第一线元数据要素)

S ∠ 下一线元起点里程＝＞O = 本线元起点里程： U= 本线元起点 X ： V= 本线元起点 Y ： G= 本线元起算方位角： H= 本线元长度： P= 起点曲率半径： R= 终点曲率半径： Q=0 或 1 、 -1 ： Goto0Δ←┘( 第二线元数据要素)

S ∠ 下一线元起点里程＝＞O = 本线元起点里程： U= 本线元起点 X ： V= 本线元起点 Y ： G= 本线元起算方位角： H= 本线元长度： P= 起点曲率半径： R= 终点曲率半径： Q=0 或 1 、 -1 ： Goto0Δ←┘( 第三线元数据要素)

。。。。。。。。。。 Goto0Δ←┘( 第 N-1 线元数据要素) 。。。。。。。。。。 Goto0Δ←┘( 第 N 线元数据要素)

LB1 0 ： D=(P-R)÷(2HPR) ： N=1=>Goto 1 ：≠>Goto 2Δ←┘

Lbl 1 ： {Z} ： Z ： W=Abs(S-O) ： Prog "SUB1" ：X"XS"=X ◢ Y"YS"=Y ◢

F"FS"=F-90 ◢

C“XC” ：E“YC” ： I=0 ： J=0 ： Pol （ X-C ， Y-E ）：I“I=” ◢ J ∠ 0 ＝＞J“J=”+360 ◢

≠ ＞J“J=” ◢

ΔGoto4←┘

Lbl 2 ： {XY} ： XY ： I=X ： J=Y ： Prog "SUB2" ： S"S"=O+W ◢

Z"Z "=Z ◢

Goto4

三、使用说明

1 、规定

(1). 把所有相关的” 线元要素“ 依次输入”SJK“

(2). 运算时直接调用“SJK” 运行，程序提示输入里程“S” ？时，正算直接输入待求点里程，反算输入所求点“ 近似“ 里程

(3). 程序中“XC 、 YC 、” 为测站坐标，“ Ｉ＝” 、“ Ｊ＝” 为放样距离和方位角

(4) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1 ；当线元往右偏时， Q=1 ；当线元为直线时， Q=0 。

(5) 当所求点位于中线时， Z=0 ；当位于中线左铡时， Z 取负值；当位于中线中线右

侧时， Z 取正值。

(6) 当线元为直线时，其起点、止点的曲率半径为无穷大，以 10 的 45 次代替。

(7) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆

弧的半径。

(8) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以 10 的45

次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半

径为无穷大，以 10 的 45 次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。

(9) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等

于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

2 、输入与显示说明

输入部分：