卡西欧5800坐标计算程序 卡西欧5800怎么算坐标

悬赏！！求卡西欧5800计算器坐标正反算程序（曲线）

主程序坐标正反算

卡西欧5800坐标计算程序 卡西欧5800怎么算坐标

卡西欧5800坐标计算程序 卡西欧5800怎么算坐标

程序名称：ZBZFS

Lb1 A↙

30→Dim Z :"0=ZS,1=FS"?Z ↙

If Z=0:Then Goto B:IfEnd↙ (Z=0进入里程点坐标正算）

If Z=1:Then Prog"FSLCZ "↙ (Z=1进入反算里程边桩）

Lb1 B ↙

Prog”ZBZS” ↙

子程序反算里程桩 名称：FSLCZ

Lb1 1↙

"XK="?X:"YK="?Y↙（输入任意测点的X、Y坐标）

“K=”?K ↙（试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）

Lb1 2↙

Prog"SJK ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])Cos(W)-(X-Z[18])Sin(W))→S↙

If S<0.0001:Then Goto 4:Else Goto 3:Ifend↙

Lb1 3↙

K+S→K: Prog"SJK":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])Cos W-(X-Z[18])Sin (W)→Q↙

If Q<0.0001 :Then Q→S: Goto 4:Else if QS :Then K-Q→K:Goto 2:Ifend:Ifend:Ifend↙

Lb1 4↙

Pol (X-Z[18],Y-Z[19]:

"DP(-Z+Y)=":I◢(偏距）

"K=":K+S→K◢（里程）

Goto 1↙

子程序坐标正算 名称：ZBZS

Lb1 0 ↙

“XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":JDMS◢(后视方位角)

Lb1 1↙

“K=”?K ：（输入所需计算里程）Prog"SJK "↙

XI: Z[18]↙

YI: Z[19] ↙

Pol(Z[18]-M,Z[19]-N): J<0=>J+360→J↙

“PJ=”?P↙ (输入桩与线路夹角)

“PD=”?D↙ （输入桩距中线的距离）

Z[18]+DCos(T+P) →Z[20] ↙

Z[19]+DSin(T+P) →Z[21] ↙

“X=”: Z[20] ◢ （放样坐标X）

“Y=”: Z[21] ◢ （放样坐标Y）

Pol(Z[20]-M,Z[21]-N):"D=":I◢（放样距）J<0=>J+360→J:"F=":JDMS◢（放样方位角）

Goto 1↙

子程序数据库 名称：SJK

if K<本段曲线终点里程 And K≥上段曲线终点里程 ：Then 本段曲线终点里程→Z[1] : 上段曲线终点里程（段曲线输起点的里程）→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 半径→R : 曲线偏角→A:缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点 X→B :交点 Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Prog”JSPB”:Return: Ifend↙

if…………Prog”JSPB”:Return:Ifend（曲线段分段输入）↙

补充直线段输入如下 (只需输线路的一段直线数据）

if K<本段直线终点里程 And K≥本段直线起点里程:Then 本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E: Z[16]+ (K- Z[3])Cos(E)→Z[18]:Z[17]+ (K- Z[3])Sin(E)→Z[19] : Return:Ifend↙

子程序计算判别 名称：JSPB

Lb1 2 ↙（曲线要素计算）

Z[6]/2- Z[6]^3/(240R^2)+ Z[6]^5/(34560R^4) →Z[8] ↙ （M1）

Z[7]/2- Z[7]^3/(240R^2)+ Z[7]^5/(34560R^4) →Z[9] ↙ （M2）

Z[6]^2/(24R)- Z[6]^4/(2688R^3) →Z[10] ↙ （P1）

Z[7]^2/(24R)- Z[7]^4/(2688R^3) →Z[11] ↙ （P2）

2009-12-31 20:04 回复

讲你个讲

2位粉丝

2楼

πAR/180+0.5( Z[6]+ Z[7])→Z[25] ↙ （曲线总长）

90 Z[6]/(Rπ) →Z[14] ↙ （缓和曲线总偏角）

90 Z[7]/(Rπ) →Z[15] ↙（第二缓和曲线总偏角,可以省略）

Z[8]＋（R+Z[10])Tan(A/2)-(Z[10]-Z[11] )/Sin( A)→Z[12]↙ (切线T1)

Z[9]＋（R+Z[11])Tan(A/2)+(Z[10]-Z[11] )/Sin (A）→Z[13]↙ (切线T2)

B+ Z[12]Cos (E+180)→ Z[16] ↙ （ZH点X）

C+ Z[12]Sin(E+180)→ Z[17] ↙ （ZH点Y）

Z[1]- Z[25]→Z[3] ↙ (ZH点里程)

Z[3]+ Z[6]→Z[4] ↙ (HY点里程)

Z[1]- Z[7]→Z[5] ↙ (YH点里程)

Goto 3 ↙

LB1 3 ↙(判断里程点与曲线关系)

if K≤Z[3] And K> Z[2] : Then Goto 4 : Ifend ↙

if K≤Z[4] And K> Z[3] : Then Goto 5 : Ifend ↙

if K≤Z[5] And K> Z[4] : Then Goto 6 : Ifend ↙

if K≤Z[1] And K> Z[5] : Then Goto 7 : Ifend ↙

Lb1 4 ↙（里程小于直缓点直线坐标）

K- Z[3] →Z[23] : 0→Z[24] : E→T : Goto 8↙

Lb1 5 ↙（缓和曲线坐标）

K- Z[3] →H ↙

H-H^5/(40R^2 Z[6]^2)+H^9/(3456R^4 Z[6]^4) →Z[23] ↙

H^3/(6R Z[6])-H^7/(336R^3 Z[6]^3) →Z[24] ↙

90H^2/( Rπ Z[6]) →T ↙

if O>0 ：Then T +E→T : Eles E-T →T : T<0=>360+T→T : Ifend ↙

Goto 8 ↙

Lb1 6 ↙（圆曲线坐标）

K- Z[4] →H ↙

H180/( Rπ)+ Z[14]→T ↙

RSin(T)+ Z[8]→Z[23] ↙

R(1-Cos(T))+ Z[10]→Z[24] ↙

if O>0 ：Then T +E→T : Eles E-T →T : T<0=>360+T→T : Ifend ↙

Goto 8 ↙

Lb1 7 ↙（第二缓和曲线坐标）

Z[1] -K →H ↙

H-H^5/(40R^2 Z[7]^2)+H^9/(3456R^4 Z[7]^4) →U↙

H^3/(6R Z[7])-H^7/(336R^3 Z[7]^3) →V ↙

90H^2/( Rπ Z[7]) →T ↙

Z[13]Cos(A)+ Z[12]-UCos(A)-VSin(A)→Z[23] ↙

Z[13]Sin(A)-USin(A)+VCos(A)→Z[24] ↙

if O>0 ：Then F-T→T : T<0=>360+T→T : Else F+T →T : Ifend ↙

Goto 8 ↙

Lb1 8

if O<0 : Then - Z[24]→Z[24] : Ifend ↙

Z[16]+Z[23]Cos(E) -Z[24]Sin（E）→Z[18] ↙

Z[17]+Z[23]Sin(E)+Z[24]Cos(E)→Z[19] ↙

Return↙

可以登陆亦文轩文具网免费下载测量程序

程序已发到你邮箱

请查收

↙是什么

求卡西欧fx-5800计算器匝道曲线坐标计算程序

网上很多程序的，只要你仔细找找就能找到很多，不过要自己一一核对··毕竟打出来的还是有错误的，不要运行不了就认为程序是错误的！一般是交点法用的比较多，线元法用的比较少····除非是卵形曲线！言至于此··同行！

急需卡西欧5800计算器圆曲线坐标计算程序？

(CASIO-4850)竖曲线标高计算程序--全线贯通

(CASIO-4850)竖曲线标高计算程序

1,加了水准点数据.

2,加了竖曲线数据库(实现了全线贯通)

3,加了测量仪器的选择功能

4,能进行现场高程放样工作

(能计算除了超高段以外的任意桩号的中桩及任意距离边桩高程)

[SJG]------------------主程序

E“LGP”:N“JGC”:Lbi 0:A“BM”:O“HS”: “1,SZY”: “-1,QZY”:K“SZY,QZY”:{LM}:L“K”:M“ZBJ”:Prog“SQX”⊿T=RAbs(J-I)/2:C=B-L:F=1:I>J=>F=-1←┘

L ≤0=>{AO}:Goto 0 : ≠>LZ=0:P=I: ≠>LZ=1:P=I :≠>L Z=1:P=J: ≠>Z=0:P=J⊿⊿⊿⊿ ←┘

Fix 3:G=H-N-CP+ZF(T-AbsC) 2/(2R)+ME:Goto 1←┘

Lbi 1:{D}:D“QS”:Fix 3:X=A+KO-KD:G:Pause 0:X: Pause 0:Q=G-X: “+T,-W=”:Q◢

Goto 0←┘

[SQX]------------------子程序

L≤932.25(第二竖曲线起点桩号)=>H=179.17(竖曲线交点高程):B=160(竖曲线交点桩号):R=7000(竖曲线半径):I=-0.003(竖曲线前坡度):J=0.005(竖曲线后坡度):Goto 1⊿

L≤1173.96(第三竖曲线起点桩号)=>H=183.17(第二竖曲线交点高程):B=960(第二竖曲线交点桩号):R=18000(第二竖曲线半径):I=0.005(第二竖曲线前坡度):J=0.00808(第二竖曲线后坡度):Goto 1⊿

Lbi 1

…………………………继续添加竖曲线要素(坡度上+下-),括号内的数据供测试程序用

说明:

选择主程序进入

1, LGP?----------输入路拱坡度,负值 (按EXE键)

2, JGC?----------输入结构层厚度 (按EXE键)

3, BM?-----------输入水准点高程 (按EXE键)

4, HS?------------输入后视读数(全站仪测量时带+,-号) (按EXE键)

5, 1,SZY

-1,QZY

SZY,QZY?----选择测量仪器:输入1用水准仪,输入-1用全站仪 (按EXE键)

6, K≤0 BREAK

K?--------------输入放样桩号, K值≤0时返回程序起始位置 (按EXE键)

7, ZBJ?-----------输入边桩至中桩的距离,中桩放样时输入0 (按EXE键)

8, QS?-------------输入前视读数(全站仪测量时带+,-号) (按EXE键)

显示:

9, 12.3-------------设计高程

11.2-------------实测高程

+T,-W

1.1(填挖量,+填-挖)

(按EXE键 重复6,7,8,9步,进行下一个桩点的放样工作.

求卡西欧5800计算器坐标正反算程序

"XA=”?X:”YA=”?Y:“FWJ=”?J:”K0=“?K 回车

Lbl 0 回车

"KP=“?L: ”BJ=“?M 回车

A＋(L－K)cos(J)+Mcos(J－90)→X 回车

B＋(L－K)sin(J)+Msin(J－90) →Y 回车

“XP=“:X◢

“YP=“:Y◢

Goto 0 回车

Xa、Ya ——直线上已知里程的坐标（X,Y）

FWJ ——直线方位角

K0——A点桩号（即里程）

K1——待算点桩号，即待算点在已知直线上距离点A的距离

BJ——待算点中桩距离，顺直线前进方向，左＋右－

XA=”?X:”YA=”?Y:“XB=”?U:”YB=”?V

Pol((U-X),(V-Y)):J<0=>J+360→J: ”K0=“?K

Lbl 0

“KP=“?L: ”BJ=“?M

A＋(L－K)cos(J)+Mcos(J－90)→X

B＋(L－K)sin(J)+Msin(J－90) →Y

“XP=“:X◢

“YP=“:Y◢

Goto 0

每行句末回车

求卡西欧5800p公路测量不对称缓和曲线坐标计算程序

坐标CASIO FX5800 P程序

1. 正算主程序 程序名： XLZBZB

LbI 1：“K”？K ：“L(-Z +Y)” ？L：90→M ：（注：此处若给M赋值，则可计算斜角。M是指图纸上的斜交右角）

Prog“DAT” ：（P - R）÷（2（H-O）PR）→D↙ (注：↙表示按EXE键即可)

Abs（K-O）→J：Prog“SUB1” ↙(注：↙表示按EXE键即可)

“X=” : X ◢

“Y=” ：Y ◢

Goto 1 ↙ (注：↙表示按EXE键即可)

2. XLZBZB

使用说明：K? 正算时所求点的里程： L(-Z+Y) 正算时所求点距该里程中线的边距（左侧取负值，右侧取正值，在中线上取零（即数字0））

3. 正算子程序 程序名：SUB1

4→DimZ ↙ (注：↙表示按EXE键即可)

0.1184634425→A： 0.2393143352→B： 0.2844444444→Z[4]: 0.04600770→C: 0.2307653449→E: 0.5→Z[1] ↙ (注：↙表示按EXE键即可)

I+J(Acos(G+QCJ(1÷P+CJD)×180÷π)+Bcos(G+QEJ(1÷P+EJD) ×180÷π)+Z[4]cos(G+QZ[1]J(1÷P+Z[1]JD) ×180÷π)+Bcos(G+Q(1-E)J(1÷P+(1-E)JD) ×180÷π)+Acos(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π)) →X ↙ (注：↙表示按EXE键即可)

S+J(Asin(G+QCJ(1÷P+CJD)×180÷π)+Bsin(G+QEJ(1÷P+EJD) ×180÷π)+Z[4]sin(G+QZ[1]J(1÷P+Z[1]JD) ×180÷π)+Bsin(G+Q(1-E)J(1÷P+(1-E)JD) ×180÷π)+Asin(G+Q(1-C)J(1÷P+(1-C)JD) ×180÷π)) →Y ↙ (注：↙表示按EXE键即可)

G+QJ(1÷P+JD) ×180÷π+M →F: X+LcosF →X: Y+LsinF→Y ↙ (注：↙表示按EXE键即可，π表示3.141592653)

4. 曲线元要素数据库 程序名：DAT

If K＜本段曲线终点桩号： Then 本段线元起点的X坐标→I： 本段线元起点的Y坐标→S： 本段线元起点里程→O： 本段线元起点切线方位角→G: 本段线元终点里程→H: 本段线元起点曲率半径→P： 本段线元终点曲率半径→R： 本段线元左右偏标志→Q： Eise If K＜ 二段曲线终点桩号： Then 二段线元起点的X坐标→I：二段线元起点的Y坐标→S：二段线元起点里程→O：二段线元起点切线方位角→G: 二段线元终点里程→H: 二段线元起点曲率半径→P： 二段线元终点曲率半径→R： 二段线元左右偏标志→Q：…………………

（注：如有多个曲线元要素，还要继续添加到数据库DAT中）

I= 线元起点的X坐标： S= 线元起点的Y坐标: O= 线元起点里程:

G= 线元起点切线方位角: H= 线元终点里程 P= 线元起点曲率半径

R= 线元终点曲率半径 Q= 线元左右偏标志（注： 左偏为-1， 右偏为+1 ）

（注：如有多个曲线元要素，还要继续添加到数据库DAT中,曲率半径直径输入半径值）

5. 坐标反算 程序名： ZBFS

LBI 0:“X1=”?X:“Y1=”?Y:“X2=”?A:“Y2=”?B◢

POL（A-X,B-Y）:J〈0

=〉J+360→J◢

“I=”:I◢

“J=”:J▲DMS ◢

Goto 0 ↙ (注：↙表示按EXE键即可)

6. 任意多边形的面积 程序名： RYDBX S

0→S :?A ：?B ：?C ：?D ↙(注：↙表示按EXE键即可)

Lbl 1: “X”?→X : “Y” ?→Y ↙(注：↙表示按EXE键即可)

0→I:0→J : P0l(C-A , D-B) : I→G : J→H :

P0l(X-A , Y-B) : X→C : Y→D : I→K : J→N :

“M=”:0.5GKsin(Abs(N-H))→M ↙(注：↙表示按EXE键即可)

“S=”:S+M→S ▲ 平方米

“U=”:S÷666.667→U ▲ 亩

Goto 1

（注：0表示数字零）

说明：点位必须按顺序输入成封闭形图型！

A B C D 为，二两点坐标（常量），X Y……为第三，四，五，六点坐标（变量）。

例：X1=10.000 , Y1=20.000

X2=500.000 , Y2=600.000

X3=700.000 , Y3=400.000 三角形面积 107000M2 160.50亩

X4=800.000 , Y4=300.000 四边形面积 160500M2 240.75亩

X5=650.000 , Y5=100.000 五边形面积 218500M2 327.75亩

X6=550.000 , Y6=50.000 六边形面积 230500M2 345.75亩

说明：

一、程序功能及原理

1.功能说明：

本程序由两个主程序——正算主程序(GSZS)、反算主程序(GSFS)和两个子程——正算子程序(SUB1)、线元数据库(DAT-M)构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、终点里程、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本程序可以在CASIO fx-4800P计算器及 CASIO fx-4850P计算器上运行。由于加入了数据库(DAT-M)，可实现坐标正反算的全线贯通。

组合程序5可实现M线的正算贯通，组合程序7可实现M线的反算贯通，组合程序6可实现坐标计算到放样一体化。

2．计算原理：

利用Gauss-Legendre 5点通用公式计算线路中边桩坐标并计算放样数据。

利用待求点至线元起点切线作垂线，逐次迭代趋近原理反算里程及边距。

二、使用说明

1、规定

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

(2) 当所求点位于中线时，L=0；当位于中线左侧时，L取负值；当位于中线右侧时，L取正值。

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

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

(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替； (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

(7)曲线元要素数据库（DAT-M）可根据线型不同分为各个线元段输入到DAT-M中，即分为直线段、缓和曲线、圆曲线等。

(8)正算时可仅输入里程和边距及右交角可实现全线计算，但反算时只能通过首先输入里程K值读取数据库DAT-M，计算器自动将里程K所在线元数据赋给反算主程序GSFS进行试算，试算出的里程和边距须带入正算主程序GSZS中计算坐标，若坐标吻合则反算正确。

2、输入与显示说明

（1）输入部分：

X0 ？线元起点的X坐标 （在“DAT－M”程序中对应为I）

Y0 ？线元起点的Y坐标（在“DAT－M”程序中对应为S）

K0 ？线元起点里程（在“DAT－M”程序中对应为O）

F0 ？线元起点切线方位角（在“DAT－M”程序中对应为G）

KN ？线元终点里程（在“DAT－M”程序中对应为H）

R0 ？线元起点曲率半径（在“DAT－M”程序中对应为P）

RN ？线元止点曲率半径（在“DAT－M”程序中对应为R）

Q ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0) （在“DAT－M”程序中对应为Q）

K ？ 正算时所求点的里程

L ？ 正算时所求点距中线的边距(左侧取负值，右侧取正值，在中线上取零)

ANG？正算边桩时左右边桩连线与线路中线的右交角

X ？ 反算时所求点的X坐标

Y ？ 反算时所求点的Y坐标

M ? 斜交右角

线元要素数据库中K≥O=>K＜H=>中的O和H分别为该段线元起点里程和终点里程

A、 B、Z[4] 是Gauss-Legendre求积公式中的插值系数

C 、E、Z[1] 是Gauss-Legendre求积公式中的求积

（2）显示部分：

X=××× 正算时，计算得出的所求点的X坐标

Y=××× 正算时，计算得出的所求点的Y坐标

K=××× 反算时，计算得出的所求点的里程

L=××× 反算时，计算得出的所求点的边距

三、算例

某匝道的由五段线元（直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线）组成，各段线元的要素（起点里程S0、起点坐标X0 Y0、起点切线方位角F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线元左右偏标志Q）如下：

S0 X0 Y0 F0 LS R0 RN Q

500.000 19942.837 28343.561 125 16 31.00 269.256 1E45 1E45 0

769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75 -1

806.748 19766.566 28594.574 120 25 54.07 112.779 221.75 221.75 -1

9.527 19736.072 28701.893 17 30.63 80.285 221.75 9579.228 -1

999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 0

（注：该算例中线元要素Ls为程序修改前须输入的线元长度，程序修改后改为输入线元终点里程KN）

卡西欧FX-5800P坐标正反算程序怎么编辑?

正算子程序（ZS）（不运行）

1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚

0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y： G+QEW（C+WD）+90→F： X+ZcosF→X： Y+ZsinF→Y

3反算子程序（FS）（不运行）

G-90→T： Abs（（Y-V））cos（T）-（X-U）sin（T）→W： 0→Z←┚

Lbl 0←┚

prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then Goto1：Else W+Z→W：IfEnd :Goto 0←┚

Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z

ZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦）

＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标）

LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚

LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto W

LbI B:990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W

LbI C:947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W

LbI D:867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto W

LbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+）

If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚

LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角）

＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢

＂Y1=＂ :Z[4]+Tsin（F+N+ O）→V◢

U→Z: V→M: GotoP←┚

LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚

＂JL=＂:I◢（仪站至测点的距离）

＂FWJ=＂:J DMS◢（仪站至测点的方位角）

Goto0

备注：

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

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

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

卡西欧5800计算器程序

5800中边桩坐标计算程序ZZZZZZ(主程序)Lb1 1:”NO.I”?H:Prog”Z1”换行(E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I换行C＋（I＋2D）×Q×90÷π→J换行C＋（I÷8＋2D）×Q×45÷（4π）→M换行C＋（3I÷8＋2D）×Q×135÷（4π）→N换行C＋（5I÷8＋2D）×Q×225÷（4π）→U换行C＋（7I÷8＋2D）×Q×315÷（4π）→V换行C＋（I÷4＋2D）×Q×45÷（2π）→K换行C＋（I÷2＋2D）×Q×45÷π→L换行C＋（3I÷4＋2D）×Q×135÷（2π）→Z换行A＋Q÷24×（cosC＋4×（cosM＋cosN＋cosU＋cosV）＋2×（cosK＋cosL＋cosZ）＋cosJ）→X换行B＋Q÷24×（sinC＋4×（sinM＋sinN＋sinU＋sinV）＋2×（sinK＋sinL＋sinZ）＋sinJ）→Y换行“X=”:X◢“Y=”:Y◢ “W L“?O:"WR"?R“XL=”:X＋O×cos（J－90）◢ “YL=”:Y＋O×sin（J－90）◢ “XR=”:X＋R×cos（J＋90）◢ “YR=”:Y＋R×sin（J＋90）◢Goto 1换行 Z1（数据库）If H≤终点桩号：Then起点桩号→F:终点桩号→G：起点X坐标→A:起点Y坐标→B：起点切线方位角→C：起点曲率→D:终点曲率→E: Goto 0:If End换行同上下一个线元要素。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。N个Lb1 0：Return换行曲率左偏为负右偏为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。。。等等需要使用时把主程序Z1改为Z2依次类推NO.I？为要求点里程