4800曲线坐标计算程序

发表于 2005-3-15 14:28:32

铁路曲线坐标计算程序

一、主程序：M（M是文件名，下同）

L1 A”CX”B”CY”C”HX”D”HY”E”ZHX”F”ZHY”Q”HZX”L”HZY”G”ZHDK”

H”ZHJD°”V”A°”W”L0”K”L1”R

L2 Pol(C-A,D-B):M=J

L3 Lbl 2:J=90:{NOJZ}:Z”DK”N”Z/!/Y(1/2/3)”:N=2=>Goto 1⊿O”M”J”A°”

L4 Lbl 1=Z-G:S=E:T=F:U=H:I=H:Fixm

L5 P≤0=>rog ”3”:≠=>≤W=>rog ”1”:≠=>≤W+K=>rog ”2”:I=90W/π/R+

180π-1R-1(P-W)⊿⊿P≤W+K=>rog ”4”:I=H+I⊿⊿

L6 P>W+K=>=2W+K-P:S=Q:T=L>0=>rog ”1”:X=-X:U=H+Vrog ”4”:

I=U-I:≠=>U=H+V:I=U=-Prog ”3”⊿⊿

L7 N≠2=>=U=I-J:N=3=>=-P⊿S=X:T=Yrog ”3”⊿

L8 Pol(X-A,Y-B):J=J-M:J<0=>J=J+360⊿

L9 J:”°°°=”◢I:”S=”◢X:”X=”◢Y:”Y=”◢Goto 2

二、子程序：1

L1 I=90P2(πRW)-1

L2 X=P-Pxy5(40R2W2)-1

L3 Y=PIπ/540

三、子程序：2

L1 Y=180π-1R-1(P-0.5W)

L2 X=RsinY+W/2- Wxy3/240/R2

L3 Y=W/24/R+R-RcosY

四、子程序：3

L1 X=S+PcosU

L2 Y=T+PsinU

五、子程序：4

L1 V<0=>Y=-Y:I=-I⊿

L2 S=S+XcosU-YsinU

L3 Y=T+XsinU+YcosU

L4 X=S

说明：1、该程序适用于计算器 CASVO fx-4800P。

2、程序符号定义说明：测站点坐标CX,CY；后视点坐标HX,HY；直缓点坐标ZHX,ZHY；缓直

点坐标HZX,HZY；直缓点里程ZHDK；经过直缓点和交点的直线的方位角ZHJD°；曲线偏

角（曲线左偏为负，右偏为正）A°；缓和曲线长L0；圆曲线长L1;圆曲线半径R；计算

点里程DK；计算曲线的左边点或者右边点）Z/!/Y(1/2/3)，曲线的右边输入1，左边输

入3，线路上输入2；左边的点与当前里程点的连线的距离和当前里程点切线的逆时针

方向的角度A°（如果上一项不选择2的话）。

3、计算结果显示的数据是：极角、极距和坐标。

4、该程序适用于极坐标法测量曲线时的数据（极角和极距）计算，以及曲线坐标计算。

程序设计：杨序邦 2002年7月重庆Ｂ

发表于 2006-4-27 11:05:49

作者：一个老员工

程序名称：卡西欧fx4800公路曲线坐标计算程序

程序简介：适用于圆曲线、缓和曲线-圆曲线-缓和曲线（前后缓和曲线不等长同样适用）中桩及任意斜交角边桩的坐标。使用前将合同段内所用曲线要素全部输入计算器（至少可输入50个曲线）；放线时，输入桩号、交角及边距即可算出坐标。本程序历时一个月开发，程序语句精炼，占用内存少，使用方便，完全可达到用Ｅ５００计算器的使用功能。

联系方式：对此感兴趣的同仁可发邮件如下：JQF130188@163.COM

备注：卡西欧fx4800匝道坐标（包括中桩及边桩）的计算程序可为同仁量身定做．

发表于 2005-8-8 17:42:03

圆曲线（YQX）：说明：

L=K-Z← K：所求点桩号

C=L×90÷R÷π← Z：起点桩号

J=1=〉 D=F-C：W=D-C▲ J=1为左转，≠1右转

≠〉D=F+C：W=D+C▲ F：起点方位角

△S=2*RsinC← W：所求点方位角

P“ZX”=X+S*cosD▲ R：圆曲线半径

Q“ZY”=Y+S*sinD▲ X：起点X坐标

Prog“BZ” Y：起点Y坐标

ZX：所求点中桩X坐标

BZ：边桩程序（稍后附）上 ZY：所求点中桩Y坐标

缓和曲线（HHQX）：说明：

D=K-Z← K：所求点桩号

F=D-D5÷（40×R＾2×L＾2）← Z：起点桩号

E=D3÷（6×R×L）-D＾7÷（336÷R＾3×L＾3）← R：半径

J=1=〉 W=T-90×D＾2÷（R×L×π）▲ L：缓和曲线长度

△← J=1左转，=2右转

J=2≠〉W=T+90×D＾2÷（R×L×π）▲ T：起点方位角

△← W：所求点方位角

X=cosT×F+N“XQ”← XQ：起点X坐标

Y=sinT×F+M“YQ”← YQ：起点Y坐标

J=1=〉C=T-90：≠〉C=T+90△ ZX：所求点中桩X坐标

Lbl2← ZY：所求点中桩Y坐标

P“ZX”=cosC×E+X▲

Q“ZY”=sinC×E+Y▲

Prog“BZ”

边桩（BZ）：说明

I=1=〉V=W-（180-G）← I=1左边边桩，I=2右边边桩

Goto1← W：中桩方位角

I=2=〉V=W+G← G：边桩与中桩的角度

Lbl1← B：边桩到中桩的距离

A“BX”=P+BcosV▲ P：中桩X坐标

U“BY”=Q+BsinV▲ Q：中桩Y坐标

BZ：边桩X坐标

BY：边桩Y坐标

以上程序纯熟个人编辑，忘大家多多指正（联系方式：john1203@163.com)

QQ:258972627 327337952

发表于 2006-4-27 11:05:49