5800曲线道路全线坐标正反算(已验证)

合集下载

5800计算器全线坐标计算放样正反算程序

5800计算器全线坐标计算放样正反算程序此处无法提供完整的程序，但是可以提供一些关于全线坐标计算放样正反算的基本知识。

全线坐标计算放样是指将一条曲线按照一定比例进行分割，然后计算每个分段的坐标值，最终得到完整曲线上每个点的坐标。这个过程可以分为正算和反算两部分。

正算是根据曲线的起点、终点以及每个分段的长度，通过数学公式计算出每个分段末点的坐标，最终得到完整曲线上每个点的坐标。反算则是根据给定的曲线上某个点的坐标，以及曲线起点到该点的距离，计算出该点在曲线上的位置。

在实际工作中，使用计算器进行全线坐标计算放样非常常见。通常使用的计算器有5800和2000等型号，这些计算器都有相应的程序可以使用。以下是大致的步骤：

正算步骤：

1. 选择“坐标计算放样”功能；

2. 输入曲线的起点坐标和终点坐标；

3. 输入曲线分段长度以及分段数量；

4. 计算每个分段的末点坐标；

5. 输出所有点的坐标。

反算步骤：

1. 选择“坐标计算放样”功能；

2. 输入曲线的起点坐标和终点坐标；

3. 输入参考点的坐标；

4. 输入参考点到曲线起点的距离；

5. 计算参考点在曲线上的位置；

6. 输出参考点在曲线上的坐标。

全线坐标计算放样是一项非常重要的工程测量工作，也是计算器的常见应用之一。需要结合具体需求和计算器机型进行操作。

5800公路坐标正反算程序(线元法数据输入)

坐标正反算程序

程序变量说明：

D：选线。E、F:置仪点坐X、Y。K：待算点桩号。B：待算点距离。Q：待算点与线路交角（以顺时针方向）。L：线元起点至待算点长度。O：待算点方位角。S：线元长度。U：线元起点半径。V：线元终点半径。

程序运行内容说明：开机运行程序后，1、进入主程序，选择正算或反算，1为正算，2为反算。

2、选择线路，1为第线。2为第线。3为第线等等。

3、如果上一次计算过的话提示是不更新数线路参数，十秒钟不操作更新，按EXE不更新。如果上一次不是计算现在要计算的线路的话直接更新数据库（数据库更新会倒计时提示）。

3、正算。提示入入置仪点坐标。提示输入待算点桩号。提示输入离中桩距离。提示输入与线路方向夹角。结果：坐标X、Y。距置仪点距离和方位角。再次提示输入待算点桩号。

反算。提示输入实测点坐标X、Y。结果：待算点桩号程距中桩距离。再次提示输入实测点坐标X、Y。

程序特点：1、输入参数少，只要输入线路起点的桩号、半径、方位角、

XY坐标以及各线元的桩号和半径(左+右-直线×1045)即可。

2、调用变量少，本程还有A、G、H、M、N、P、R、W字母变量未使用，可以用于其它程序而不会和本程序产生冲突。

3、数据库独立，更换工程时数据更换方便。

4、界面友好，尽量做到人人都容易上手，操作一学就会。

5、程序尽量运用5800计算器各种指令，使程序速度提高。并能够起到帮助大家学习5800各指令工作原理，以便更好掌握编程。

5800P公路路线坐标正反算及高程计算程序

公路路线座标正反算及高程计算程序

Fx-5800计算机程序

1.FYJS 主程序

Fix 3: “1.SZ=>NE:2.NE=>SZ:3.S=>H”:?Q:

Q=1 => Goto1:Q=2 => Goto2: Q=3 => Goto3←┘

Lbl 1: ＂K＂?S: ＂-B,0,+B＂?Z: “PJ”?M:Prog“5.DAT-SJK”:Prog“2.SUB1”: N+Zcos (F+M) →N:E+Zsin(F+M) →E←┘

Prog“4.FY”：

Goto 1←┘

Lbl 2: “X”?B: “Y”?C:＂K＂?S: Pro g“3.SUB2”: “K=”:S◢

“-B,0,+B=”:Z◢

Goto 2←┘

Lbl 3: ＂K＂?S ：Prog“5.1GCJSCX”: Goto 3

＂K＂?S: 所计算点桩号

＂-B,0,+B＂?Z: 计算点左右边距左- 右+ 中0

“PJ”?M 所计算点斜距的右夹角

“X”?B: 反算实测X坐标

“Y”?C:反算实测Y坐标

＂K＂?S: 反算点附近大概桩号

2.SUB1 正算子程序

0.5（1÷R-1÷P）÷L→D:S-O(字母 )→X←┘

U+∫(cos(A+(X÷P+DX^(2))×180÷π,0,X)→N←┘

V+∫(sin(A+(X÷P+DX^(2))×180÷π,0,X)→E←┘

A+(X÷P+DX^(2))×180÷π→F←┘

3.SUB2 反算子程序

Lbl 1:0→Z：1→Q：Prog“5.DAT-SJK”: Prog“2.SUB1” :

非常好的5800坐标正反算程序

5800坐标正反算程序

“1.If SZThen XY”：“2. If XYThen SZ”：“N=”？→N：起点X→U：起点Y →V：起点里程→O：起点方位角→G：曲线长度→H：起点曲率半径→P：终点曲率半径→R：（左偏－1；直线0；右偏1）→Q：1÷P→C：（P－R）÷(2HPR)→D：180÷π→E：If 1→N：Then Goto 1：Else Goto 2：IfEnd←

Lbl 1：“S＝”？→S：“Z＝”？→Z：Abs(S－O)→W：Prog “SUB1”：X→X▲Y→Y▲

Lbl 2：“X＝”？→X：“Y＝”？→Y：X→I：Y→J：Prog “SUB2”：O+W→S▲Z→Z▲

Goto 2

正算子程序SUB1

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))+A cos(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←

反算子程序SUB2

G－90→T：Abs((Y－V)cosT－(X－U)sinT)→W：0→Z：Lbl 0：Prog “SUB1”：T+QEW(C+WD) →L：（J－Y）cosL－(I－X)sinL→Z：If AbsZ＜0.000001：Then Goto1：Else W+Z→W：Goto0：IfEnd←

5800平曲线和竖曲线计算程序。以验证过

5800平曲线程序

1.主程序

Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙

1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙

Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢

"YS="：Y◢F-90→F：“FS=”：F▲DMS◢

D:X+DCos(F)→X: "X=":X◢

Y+DSin(F)→Y: "Y="：Y◢

Goto4↙

Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙

2. 正算子程序(SUB1)

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))+B cos(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+QE MW(C+MW D))) →Y：

G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y

2. 反算子程序(SUB2)

G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "SUB1"：

5800直线、圆曲线缓和曲线、坐标计算程序

5800直线、圆曲线缓和曲线、坐标计算CASIO fx—5800计算器工程测量与公路测量程序

1、坐标正算

＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J

X+ICos(J)→U:Y+ISin(J)→V

＂X=″:U （待求点的X坐标）

＂Y=″:V （待求点的Y坐标）

说明：X0 Y0：已知点坐标I：两点的距离J：方位角

2、坐标反算

Lbl 0

＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V

Pol(U-X,V-Y):

J<0 J+360→J

＂I=″:I

＂J=″:J DMS

GOTO 0

说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角3、圆曲线

＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1

＂DQHAO=″?L

L<G Or L＞C GOTO 2

＂PY=″?K

180(L-G)÷(πR) →E

2RSin(0.5E) →F

ReC(Abs(F),D+0.5E)：Cls

＂X=″:X+I+KCos(D+E+90) →A

＂Y=″:Y+J+KSin(D+E+90) →B

D+E→o:o<0 360+o→0o

＂FWJ=″:o DMS

Goto 1

Lbl 2

＂END″

说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量

4、竖曲线

＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T:

casio5800曲线坐标反算里程偏距

Casio5800曲线坐标反算里程偏距

“ZH-X=”?H：“ZH-Y=”?G: “ZH-K=”?D: “ZJ(R+,L-)=”?Z: “R=”?R: “HC=”?L: “a(ZH→JD)=”?A 输入曲线要素

(R+L2÷(24R))tan(Abs(Z÷2) )+(L÷2-L^(3)÷(240R2))→T 切线长R(Abs(Z))π÷180+L→S 曲线长

Abs(Z)÷Z→V↙转向（左转-1,右转+1）

Lbl 0：?K 试算里程（里程越接近计算越快）

If K≤D:Then Goto1：Ifend：If K≤D+L:Then Goto2：Ifend：

If K≤D+S-L:Then Goto3：Ifend：If K≤D+S:Then Goto4：Ifend：If K ﹥D+S:Then Goto5：Ifend↙判断语句

Lbl 1 第一直线段

Rec(D-K,180):I→X:J→Y:A→C: Goto6↙

Lbl 2 第一缓和曲线段

K-D→E 曲线长

E-E^(5)÷(40R2L2)+E^(9)÷(3456R^(4)L^(4))→X 坐标增量

E^(3)÷(6RL)-E^(7)÷(336R^(3)L^(3))→Y 坐标增量

A+90VE2÷(πRL)→C 缓和曲线切向方位角Goto6↙

Lbl 3 圆曲线段

K-(D+L÷2)→E 曲线长

RSin(180E÷(πR))+L÷2-L^(3)÷(240R2)→X 坐标增量RSin(180E÷(πR)) tan(90E÷(πR))+L2÷(24R)→Y 坐标增量

卡西欧FX5800全线贯通万能正、反算程序

FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU 主程序

"1.ZS,2.FS" ?→Q输入1正算，输入2反算“NEW=0,OLD≠0”?Z

If Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2

Lbl 1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?L

Lbl Z:Z=1=> Prog“01”：Z=2=>

Prog“02”选择数据库文件，可增加

H- F→X:0.5(E-D)÷(G-F)→N

C+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→P

A+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→U

B+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→V

Q=2=>Goto 4：Cls：Fix 3

"Xn=":Locate 4，1，U："Yn=": Locate 5，2，V：“FWJ=”：P▶DMS◢Norm 2：Cls：Goto 1

Lbl 2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S

“KMDG=”？H ：90→O:0→L：Goto Z （H 线路范围内的任意桩号）

Lbl 4:Pol（R-U，S-V）：J<0 => J+360→J

While abs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=>

CASIO5800坐标正反算计算程序

CASIO 9860/5800 坐标正反算计算程序

1. 坐标正算主程序（命名为ZBZS）

第1 行：Lbl 0: ” K= K: ” BIAN=” Z: ” a =” B

第2 行：Prog “ A”

第3 行：” X仝：N+Zcos（F+B）丄

第4 行：” 丫仝:E+Zsin（F+B）丄

第5行：” F=” :F丄

第6 行：Goto 0

K――计算点的里程

BIAN --- 计算点到中桩的距离（左负右正）

a ---- 取前右夹角为正

2. 坐标反算桩号和偏距主程序（命名为ZBFS）

第1 行：” X1=” C: ” 丫1=” D: ” K1=” K

第2 行：Lbl 0:Prog“A”

第3 行：Pol(C-N,D-E)

第4 行：List Ans[1]T I

第5 行：List Ans[2]T J

第6 行：Icos(F-J) T S:K+S T K

第7 行：Abs(S)>=>Goto 0

第8行：” K仁”：K丄

第9 行：” BIAN=” ：lsin（J-F）Z J

X1——取样点的X坐标

Y1——取样点的Y坐标

K1――输入时为计算起始点（在线路内即可），输出时为反算点的桩号

Z――偏距（左负右正）

3. 计算坐标子程序（命名为XYF）

为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序

第1 行：K-A T S：（Q-P）- L T I

第2

N+/ (cos(F+X(2P+XI) X 90-n ),0,S) T N

行：

第3

E+/ (sin(F+X(2P+XI) X 90-n ),0,S) T E

5800计算器全线坐标计算放样正反算程序

5800计算器全线坐标计算放样正反算程序（定稿）

彭赐明

主程序坐标正反算

程序名称：ZBZFS

LB1 A↙

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

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

If Z=1:Then Prog"FSLCBZ ": Goto A:IfEnd↙(Z=1进入反算里程边桩）

Lb1 B ↙

“K=”?K ：（计算里程）Prog"SJK1 ":Prog”ZBFY” :Goto A↙

子程序数据库 SJK1

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”XLZBJSCX”:Return: IFEND↙

IF…………Prog”XLZBJSCX”: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

卡西欧5800公路坐标正反算程序

一、坐标正算基本公式………………………………………………………０

２

二、坐标反算原理 (04)

三、高程数据库录入变换 (05)

四、计算器程序………………………………………………………０7 ０1、ZBZS(坐标正算)………………………………………………………０7

02、ZBFS(坐标反算)………………………………………………………０8

03、ＧＣJF(高程积分） (09)

04、PＪFＹ(坡脚放样)………………………………………………………1０

05、ＪFCＸ（积分程序) (11)

0６、ZＢFY(坐标放样)………………………………………………………１

１

０７、ＤT(递推） (12)

08、H P(横坡） (13)

０9、LK(路宽)………………………………………………………１4

10、SJK1(平面数据库) (14)

11、SＪK２(纵面数据库)………………………………………………1４

12、SJK3(左路宽度数据库） (15)

１3、SＪＫ4(右路宽度数据库) (15)

1４、SJＫ5(横坡数据库)......................................................1６１5、SＪK６(下边坡数据库) (16)

16、SJK7(左上边坡数据库)………………………………………………1７

17、ＳＪK８（右上边坡数据库）………………………………………………

1８

五、后记 (19)

CASIO 58０0计算器公路工程测量程序

一、正算所涉及得计算公式 X R i d X

αβB

d Y d l d β

5800计算器全线坐标计算放样正反算

5800计算器全线坐标计算放样正反算程序

主程序坐标正反算

程序名称：ZBZFS

LB1 A↙

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

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

If Z=1:Then Prog"FSLCBZ ": Goto A:IfEnd↙(Z=1进入反算里程边桩）

Lb1 B ↙

“K=”?K ：（计算里程）Prog"SJK1 ":Prog”ZBFY” :Goto A↙

子程序数据库 SJK1

IF K

IF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）↙

补充直线段输入如下(单独直线段）

IF K

子程序坐标正算，名称：XLZBJSCX

LB1 2 ↙（曲线要素计算）

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

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

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

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

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

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

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

公路路线座标正反算(5800计算器)

公路路线座标正反算（积分公式）通用程序

公路路线座标正反算

由于现在计算机普及，计算机功能日益强大，宜采用较简单的积分公式，便于计算机处理。单线元通用积分公式如下

M = (1.0/Re-1.0/Rs)/Ls;

x=∫｛cos(Ta + L/Rs + 0.5*M *L*L)，0，L｝;

y=∫｛sin(Ta +L/Rs + 0.5*M *L*L)，0，L｝;

a(i)= Ta +L/Rs + 0.5*M *L*L

Rs:缓和曲线起点半径

Re:缓和曲线止点半径

Rs，Re （NE坐标系下，右偏为正，左偏为负）

Ta:缓和曲线起点的真北方位角

Ls:不完整缓和曲线长度。

此公式为缓和曲线在坐标系下任意位置的通用积分公式，能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs

Fx-5800计算机程序

QXJS-000 主程序

Lbl 4:“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SUB0”↙

Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙

Lbl 1:?Z:Prog“QXJS-SUB1”:“N=”:N◢:“E=”:E◢:“F=”:F→DMS◢: Goto3↙

Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢: “Z=”:Z◢: Goto4↙

Lbl 3：I＝Pol（N－Z［1］,E－Z［2］）：J＜0＝＞J＝J+360：“DIST＝”：I◢:

“FW＝”：J→DMS◢

Goto4↙

（Z［1］为测站点X坐标，Z［2］为测站点Y坐标）

卡西欧5800公路坐标正反算程序

卡西欧5800公路坐标正反算程序是一种用于测量和计算公路坐标的工具，可以帮助测量员准确地确定公路上的位置和坐标。本文将详细介绍卡西欧5800公路坐标正反算程序的功能、使用方法以及相关注意事项。

一、功能介绍

卡西欧5800公路坐标正反算程序具有以下主要功能：

1. 坐标正算：根据已知的起点坐标、方位角和距离，计算出目标点的坐标。

2. 坐标反算：根据已知的起点坐标和目标点坐标，计算出方位角和距离。

3. 坐标转换：支持不同坐标系之间的转换，如高斯投影坐标系、经纬度坐标系等。

4. 坐标纠正：根据已知的控制点坐标和实测点坐标，进行坐标纠正和校正。

二、使用方法

1. 坐标正算：

步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：输入起点坐标（经度、纬度）、方位角和距离。

步骤3：点击计算按钮，程序将自动计算并显示目标点的坐标。

2. 坐标反算：

步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：输入起点坐标（经度、纬度）和目标点坐标（经度、纬度）。

步骤3：点击计算按钮，程序将自动计算并显示方位角和距离。

3. 坐标转换：

步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：选择需要转换的坐标系类型。

步骤3：输入待转换的坐标信息。

步骤4：点击转换按钮，程序将自动进行坐标转换并显示结果。

4. 坐标纠正：

步骤1：进入卡西欧5800公路坐标正反算程序。

步骤2：输入已知的控制点坐标和实测点坐标。

步骤3：点击纠正按钮，程序将自动进行坐标纠正和校正，并显示结果。

三、注意事项

1. 在使用卡西欧5800公路坐标正反算程序之前，确保已正确安装和配置软件，并且设备连接正常。

5800坐标正反算

5800计算器坐标正反算

“Z”？Z：If Z<0：Then Goto 1：IfEnd

LbI 0

“X1”?A:”Y1”?B:”X2”?C:”Y2”?D

Pol((C-A),(D-B)):If J<0:Then J+360→F:Else J→F:IfEnd

＂F=＂:F DMS◢

＂S=＂:I◢

Goto 0

LbI 1

“X1”?A:”Y1”?B:”F”?F:”S”?S

＂XP=＂：A+Rec(S,F) →X◢

＂YP=＂：B+J→Y◢

程序说明

当Z=-1时本程序执行坐标正算，当Z=1时本程序执行坐标反算。X1=起点坐标X；Y1=起点坐标:

F=起点方位角

J=计算方位角；S=计算距离

5800曲线道路全线坐标正反算(已验证)

5800计算器全线坐标计算放样正反算程序

5800公路坐标正反算程序(线元法数据输入)

5800P公路路线坐标正反算及高程计算程序

最新5800计算器公路全线坐标正汇总

非常好的5800坐标正反算程序

5800平曲线和竖曲线计算程序。以验证过

5800直线、圆曲线缓和曲线、坐标计算程序

casio5800曲线坐标反算里程偏距

卡西欧FX5800全线贯通万能正、反算程序

CASIO5800坐标正反算计算程序

5800计算器全线坐标计算放样正反算程序

卡西欧5800公路坐标正反算程序

5800计算器全线坐标计算放样正反算

公路路线座标正反算(5800计算器)

卡西欧5800公路坐标正反算程序

5800坐标正反算