5800道路中边桩坐标计算程序

合集下载

5800中边桩坐标计算程序及坐标反算桩号及左右偏N米

5800中边桩坐标计算及坐标反算桩号及左右偏N米数据库：1

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)）+B cos（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+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+ Zcos(F)→X:Y+Zsin(F)→Y

数据库：2

G-90→T:(Y-V)cos(T)-(X-U)sin(T)→W:Abs(W)→W:O数字→Z:Lb1 0数字:Prog “1”:T+QEW (C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→Z:If Abs(Z)＜1×10-6:Then 0数字→Z:Prog“1”：（J-Y）÷sin(F)→Z:Else W+Z→W:Goto 0:IfEnd

子程序：3

Lb1 0数字：If J=1：Then本线元起点X→U: 本线元起点Y→V: 本线元起点里程→O字母: 本线元起算方位角→G：本线元长度→H：起点曲率半径（ 0输10×1045 ）→P：终点曲率半径（ 0输10×1045 ）→R：0（或1、-1）→Q:IfEnd：If J=2：Then 本线元起点X→U: 本线元起点Y→V: 本线元起点里程→O字母: 本线元起算方位角→G：本线元长度→H：起点曲率半径（0输10×1045 ）→P：终点曲率半径（ 0输10×1045 ）→R：0（或1、-1）→Q:IfEnd：If J=3：Then本线元起点X→U: 本线元起点Y→V: 本线元起点里程→O字母: 本线元起算方位角→G：本线元长度→H：起点曲率半径（ 0输10×1045 ）→P：终点曲率半径（ 0输10×1045 ）→R：0（或1、-1）→Q:IfEnd

卡西欧5800P计算器-道路中桩及边桩计算程序

G-90￫T:Abs((Y-V)Cos(T)-(X-U)Sin(T))￫W:0（数字符 0）￫Z:Lbl 0 （数字符 0）： Prog “SUB1”： T+QEW(C+WD)￫L:(J-Y)Cos(L)-(I-X)Sin(L) ￫Z:If Abs(Z)<0.001:Then Goto1:Else W+Z￫W:Goto 0（数字符 0）:IfEnd:Lbl 1:0（数字符 0）￫Z:Prog“SUB1”:(J-Y)÷Sin(F)￫Z
卡西欧 5800P 计算器-道路中桩及边桩计算程序 Lbl 4:“1：KD￫ XY,2：XY￫ KD” ？N:?K If k<270.348:(第一段的终点桩号）Then0（0 是零，起点桩号）￫ O（字母符）:355933.039(起点 x 坐标）￫ U:467305.867(起点 y 坐标）￫ V:0°15′46″（第一段的方位角）￫ G:270.348(第一段的距离）￫ H:10^（45）（直线）￫ P:3000(曲线半径）￫ R:0（数字）￫ Q:Goto 0（数字）:Ifend If k<759.748：(第二段的终点桩号）Then270.348(第一段的终点桩号）￫O(字母）：3559603.384(第一￫U:467307.108 段终点 x 坐标）（第一段终点 y 坐标）￫V:0°15′46″ （第二段起点方位角）￫ G:489.4(第二段距离）￫H:3000(第￫P:3000(第二段曲线半径）￫Q:Goto 二段曲线半径）￫ R:1(右转） 0IfEen

5800线路坐标正反算程序

曲線任意里程中边桩正反算5800p

TYQXJS(主程序名)

LbI 0:4→Dimz:Cls

"1.SZ→XY"

"2.XY→SZ"?→N:Cls

"XO"?U: "YO"?V: "SO"?O:"FO"?G: "LS"?H: "RO"?P:"RN"?R:?Q

1÷P→C：(P-R)÷(2HPR) →D：180÷π→E

N=2=>Goto 2

LbI 1:Cls:?S：?Z:Abs(S-O)→W

Prog"SUB1":Cls

"XS=":X◢

"YS=":Y◢

"FS=":F-90 ►DMS◢

Goto 1

LbI 2:Cls:?X：?Y:X→I:Y→J

Prog"SUB2":O+W→S:Cls

"S=":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))+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

SUB2(子程序名)

G-90→T

(Y-V)cos(T)-(X-U)sin(T)→W

Abs(W)→W:0→Z

卡西欧5800P计算器曲线任意里程中边桩坐标正反算

卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算

⼀、程序功能

本程序由⼀个主程序(ZHUCHENXU)和⼏个⼦程序——正算⼦程序(SUB1)、反算⼦程序(SUB2)、数据库(SUB3)、算⽅位⾓程序(FA)、使⽤⽅位⾓算坐标(NE)、边坡放样程序(BIANPO)、隧道圆⼼放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或⾮完整型）的线元要素（起点坐标、起点⾥程、起点切线⽅位⾓、线元长度、起点曲率半径、⽌点曲率半径）及⾥程边距或

坐标，对该曲线段范围内任意⾥程中边桩坐标进⾏正反算。

⼆、源程序

增加变量16→DimZ

1.主程序(ZHUCHENXU)

"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N：

Lbl 1：”ZHUANGHAO=”?S：Prog "SUB3"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"："XS=”:X→X ◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1:

Lbl 2：”CX=”?X:X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then

Prog”SDYX”:

IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2

2. 正算⼦程序(SUB1)

0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L) →F：(1-K)→M：

道路中桩边桩计算程序(附件)

附件：

道路中桩、边桩计算公式(fx-5800P程序)

主程序：

“QXZBJS”

“QZH”?B: （线路起点桩号，前一个曲线的HZ或YZ,或是）

“LS1”?C:“LS2”?I: （第一缓和曲线与第二缓和曲线，可以不等）

”JDZH”?N:”JDX”?G:”JDY”?H: (交点桩号与坐标)

”XZH”?M: （下一个曲线的ZH或ZY桩号）

“T1”?S:”T2”?J: （第一、二切线长）

“QXC”?Z: （曲线全长，含缓和曲线长）

“JDPJ”?A: （本交点的转向角）

“QDFWJ”?O: （起始点到交点的方位角）

“R”?R: （本曲线的圆曲线半径）

“W”?W: （曲线偏转信息，左为－１，右为＋１）

Lbl 0:“K”?K: （所求断面的桩号）

If K<B: （比较所求桩号是否小于起点桩号）

Then Goto6: （条件为真，转到Lbl 6）

IfEnd:

If K>N-S:（判定所求桩号是否大于ZH或ZY点，即所求点是否在曲线段）

Then Goto 1:（条件为真，转到Lbl 1）

IfEnd:

(条件为假时运行下例程序，即所求桩号在第一段直线上)

G+(N-K)COS(O+180)→X ▲（以上条件都为假是运行该段，所求桩号在直线段，

H+(N-K)Sin(O+180)→Y ▲求其中桩坐标）

O→T: （起始方位角赋值与T）

Prog “ZI-1”

Goto 0

Lbl 1:If K>N-S+C: （判定所求桩号是否大于HY点）

Then Goto 2: (条件为真，转到Lbl 2，即为所求桩在圆曲线或第二缓和曲线上) IfEnd:

Casio5800交点法程序(线路任意中边桩坐标计算)

Casio5800交点法程序

（输入版）

（歪哥哥2009版）

本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！

本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！

主程序名：5.JD

24→Dimz↙

Cls :＂XC＂?U :＂YC＂?V :＂K（JD）＂?K :＂X（JD）＂?X :

＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R :

＂（ZH）FWJ°＂?M : ＂α（Z-,Y+）°＂?O : M+O→N :

Prog ＂JDA＂↙

Cls :＂T1=＂:＂T2=＂:＂L=＂:＂L Y=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢

Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢

Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢

我的5800p测量程序及公式

FILE

非常好用的卡西欧5800p程序

一、坐标反算(XY--FD)

Deg：Fix 3↓(换行)

Lbl 0↓

〝X0=〞?A:〝Y0=〞?B:〝XN=〞?C:〝YN=〞?D↓(换行)

Pol〔〔C-A〕,(D-B)〕J＜0＝＞J+360→J↓(换行)

〝JL=〞：I◢〝FWJ=〞：J：▶DMS

Goto 0

二、坐标正算(DF--XY)

Deg：Fix 3↓(换行)

〝X0=〞?A；〝Y0=〞?B：〝L=〞?L：〝C=〞?C↓(换行)

A+Lcos(C)→X↓ B+Lsin(C)→Y↓

〝X=〞：X◢〝Y=〞：Y◢

三、直线段中桩、边桩坐标计算〔该程序从起点往终点计算〕(ZX)

1、Deg：Fix 3↓(换行) 设置小数保留位数

2、Lbl 1↓程序标签

3、〝X0〞?X：〝Y0=〞?Y：〝K0=〞?E：〝FWJ=〞?J↓赋值起点坐标、桩号、走向方位角

4、?K：?L：?A↓输入所求的桩号、边距、相对于主线的方位角

〔如果只计算中桩坐标，边距及方位角皆为0〕5、X+(K-E)cos(J)+Lcos(J+A)→C↓计算坐标X

6〝XP=〞：C◢显示坐标X

7、Y+(K-E)sin(J)+Lsin(J+A)→D↓计算坐标Y

8、〝YP=〞：D◢显示坐标Y

9、Goto 1↓转向程序标签循环执行计算

四、圆曲线坐标计算程序〔该程序从起点往终点计算〕(YQX)

1、Deg：Fix 3↓(换行)

2、Lbl 0：

3、〝K0=〞?K：?X：?Y：?A：?R：

4、〝L=-1，R=+1〞：?G：

5、〝ZS=0，FS≠0〞：?S：

6、S≠0 =＞Goto 1↓

5800交点法计算中边桩坐标程序

交点法正反算程序

主程序JD—NE

LBI 1："JDk="？C："JDμ="？D："Li"？L："R="？R："JDX="？U："JDY="？V："JDA="？A："（+1R，-1L）"？M："Z（+R，—L）"？B："K="？P：Prog："JD—NE1"："X="？X"▲Y="？Y▲

"F="？F▲Goto 1↙

子程序JD—NE1

（（R+L²÷（24R））tan（D÷2）+L÷2—L³÷（240R²）→T↙C—T→I↙

I+L→J↙

J+πDR÷180—L→H↙

H+L→K↙

If P＜I：Then U+（C-P）cos（A+180°）+Bcos（A+90°）→X ↙

V+（C-P）sin（A+180°）+Bsin（A+90°）→Y↙

A→F：Return：IfEnd↙

If P＞I And P＜J ：Then A+M×30°×（P—I）²÷（πRL）→O↙

（P—I）—（P—I）²÷（90R²）→G↙

U+Tcos（A+180°）+Gcos（O）→X↙

V+Tsin（A+180°）+Gsin（O）→Y↙

90°×（P—I）²÷（πRL）→W↙

X+Bcos（A+MW+90°）→X↙

Y+Bsin（A+MW+90°）→Y↙

A+MW→F：Return：IfEnd↙

If P＞J And P＜H ：Then A+M×90°×（L+P—J）÷（πR）→O↙

2Rsin（（P—J）×90°÷（πR））→G↙

U+Tcos（A+180°）+（L—L³÷（90R²））cos（A+M（30°×L）÷（πR））+Gcos（O）→X↙

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

CASIO 5800道路坐标计算器程序

CASIO 5800计算器程序

一、程序功能：

本程序由一个主程序（AK）及两个子程序：坐标正算程序（SUB1）、坐标反算程序（SUB2）

平曲线数据库（PQX）构成，可以根据曲线段的组成部分：直线、圆曲线、缓和曲线（完整

或非完整型）的线元要素（起点坐标、止点坐标、起点切线方位角、线元长度、起点曲率半

径、止点曲率半径、里程、边距或坐标），对该曲线段范围内任意里程中边桩坐标进行正反

算。

二、源程序：

1、主程序（AK）A排在前面，方便运行程序，不用往下翻页了。

Deg：“0→ZX,1→A,2→B”?Z ：“1→JDF,2→XYF”?E：“X(CZ)”?A：“Y”?B 说明：设置角度模式，选择线路0为主线，1为A匝道。。。。可以自己再增加。选择计算方法，交点法还是线元法计算坐标，1为交点法，2为线元法。输入测站坐标，如不需要计算极坐标，即放样的时候需要输入坐标到仪器里面去，则X(CZ)输0，Y不用管可以为任何值，建议把测站坐标输进去，省了放一个点输一次坐标数据到仪器里面去。只有一条线路可以不需要黄色部分。

“1.Ki→XY,2.XY→Ki”?N：Lbl 0：“Ki”?K：Prog“PQX”

IfE=1：Then Prog“JD”：IfEnd

N=1＝＞Goto 1：N=2＝＞Goto 2

Lbl 1

K-O→W：Prog“SUB1”

说明：1为正算，即知道桩号和偏距（注意只能计算边桩，不能计算斜交的点，构造物可以

通过后面的ZHIXIAN程序计算），2为反算，即知道坐标，求桩号和偏距。Ki为桩号，正

算直接输，反算需要输入附近桩号，第一次计算最好输好桩号之后，把反算出来的桩号再输

卡西欧5800道路编程程序

fx-5800公路坐标-偏距-里程正反计算坐标

四、程序变量清单

五、计算流程示例

1．中桩坐标计算示例

计算任务：计算HY高速公路K6+100～K6+700段的中桩坐标及切线方位角（桩距20m），并在导线点（2807118.026，474113.687）上架设全站仪，计算各中桩的极坐标放样数据。

使用道路中边桩坐标放样正反算程序RAOD－2的操作流程见下表。

5800线路坐标正算

5800计算器坐标正算程序

1. 坐标正算主程序(命名为ZBZS)

Lbl 0:”K=”?K:”BIAN=”? Z:”JJ=”?B

Prog “A”

”X=”:N+Zcos(F+B◢”Y=”:E+Zsin(F+B◢Goto 0

K——计算点的里程

BIAN——计算点到中桩的距离（无论左右都为正）

JJ——中线与中边桩连线的夹角(取前右夹角为正)

2. 计算坐标子程序(命名为XYF)

为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序K-A→S：(Q-P)÷L→I

N+∫(co s(F+90X(2P+XI)÷π,0,S→N

E+∫(sin(F+90X(2P+XI)÷π,0,S→E

F+90S(2P+SI)÷π→F

3. 数据库（命名为A）

500.000→A: 19942.837→N: 28343.561→E:125°16′31″→F:0→P:0→Q:

269.256→L

K≤A+L=> Goto 1

769.256→A: 19787.340→N: 28563.378→E:125°16′31″→F:0→P:-1/221.75→Q: 37.492→L

K≤A+L=> Goto 1

806.748→A: 19766.566→N: 28594.574→E: 120°25′54.07″→F: -1/221.75→P:

-1/221.75→Q:112.779→L

K≤A+L =>Goto 1

919.527→A: 19736.072→N: 28701.893→E: 91°17′30.63″→F: -1/221.75→P:

5800中边桩

CASIO FX—5800P 交点法计算中边桩坐标

1、[JDFY] 主程序

Lbl 0 ：

90→C: "ZH‖ ? Q：提示输入桩号

Prog―JDSJ‖ ：运行数据库―JDSJ‖

―JL‖ ? W：提示输入距中桩距离

Goto 1：跳转到标记1

Lbl 1：

R= 0 => Goto 3：如果圆曲线为0直接进入标记3

Abs(B) πR÷180-(L+M) ÷2→G：计算圆曲线长

M→S: 1→Z：将M(LS1)值赋予S以计算p2和q2

Lbl 2：

S^2÷24÷R- S^(4)÷2688÷R^(3) →P: S÷2 - S^(3)÷240÷R^2→O：计算内移值和切线增值

If Z= 1: Then 0 →Z: L→S: P→U: O→V: Goto 2: IfEnd：将p2和q2分别存入U、V并计算p1和q1

(R+U-(R+P)cos(Abs(B)))÷sin(Abs(B))+O →T：计算第一切线长T(T1)

(R+P- (R+U)cos(Abs(B)))÷sin(Abs(B))+V→S：计算第一切线长S(T2)

F-T→D：计算直缓点(ZH)桩号

Q ≤ D => Goto 3：计算里程小于直缓进入标记3

If Q ≤ D+L: Then Q - D →J : L →U: Goto 4: IfEnd：计算桩号在第一缓和段进入标记4 If Q ≤ D+L+G: Then 1 →J: Goto 5: IfEnd：计算桩号在圆曲线内进入标记5

If Q ≤ D+M+L+G: Then Q - D- L- M- G →J: M →U: Goto 4: IfEnd：计算桩号在第二缓和段进入标记4

卡西欧5800程序

卡西欧FX5800计算器公路测量全线中边桩正反算交点法程序修改版

1.主程序：一般坐标计算及放样程序-----交点法

程序名:1-JD

Lal 0:10→DimZ:Norm 2:1→A:＂A: XY=1,KMD=2＂? A:A=1=>Goto 1:A=2=>Goto 2: （选择正算还是反算）Lal 1:Lal A:Prog＂QX＂: 90→B ＂PJ＂?B:B→Z[1]: （默认与道路切线方向90度）Lal B:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂:?D:（输入正算计算里程，输入-1则停止，输入- 2转反算），偏距默认中桩0，左为-，右为+，）

Porg＂Z＂:I+Dcos(Z[2]+Z[1]→X:J+Dsin(Z[2]+Z[1]→Y:Fix 3:＂X=＂:Locate 6,4,X: ＂Y=＂:Locate 6,4,Y: ＂FWJ＂=:Locate 6,4,Z[2]◢（显示坐标，切线方位角）

Prog “S-Z”: Prog “3-GC”: “H=”：H◢（高程计算并显示，如不需要高程此部分可以省略） Prog＂5-SD＂:＂-CW +QW=＂:M◢（隧道超欠挖，如不需要此部分可以省略）

LpWhile Z≠-1(Goto B此处也可以用这个命令)

Lal 2 Prog＂QX＂: （选线，默认（线路1） X1=1，（线路2）X2=2.........）

Lal C:Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: （反算时输入大概桩号，输入-1则停止，输入-2正算）Prog＂K＂: ＂X0＂?X: ＂Y0＂?Y: Porg＂B＂Fix 3: ＂KM＂:Lcoate

CASIO fx-5800P计算器路线坐标高程计算程序

CASIO fx—5800P计算器

路线坐标计算程序（单个交点）

主程序名CALXY （计算中桩、边桩坐标）

Lbl 1：“ZZ”? →Z[27] ：“D(-+m)”? →D：If D≠0 ：Then “∠(DMS)”? →V：Ifend』

If Z[27]≤Z[17]：Then Z[18]+ (Z[27] —Z[17]) Cos( F)+D Cos( F+V)：“X=”：Ans▲Z[19]+ (Z[27] —Z[17]) Sin( F )+D Sin( F+V)：“Y=”：Ans▲：Ifend』

If Z[27]＞Z[17] And Z[27]≤Z[20]：Then Z[27] —Z[17] →L：Prog “HHXY”：Z[18] +I Cos( F+ JH）+D Cos( F+WH+V)：“X=”：Ans▲：Z[19] +I Sin(F+ JH）+D Sin( F+WH+V)：“Y=”：Ans▲：Ifend』

If Z[27]＞Z[20] And Z[27]≤Z[24] —Z[6]：Then Z[27] —Z[20] →L：Prog “YUXY”：Z[21] +I Cos( Z[23]+ JH）+D Cos( Z[23]+WH+V)：“X=”：Ans▲：Z[22] +I Sin(Z[23]+ JH）+D Sin( Z[23]+WH+V)：“Y=”：Ans▲：Ifend』

If Z[27]＞Z[24] —Z[6] And Z[27]≤Z[24]：Then Z[24] —Z[27] →L：Prog “HHXY”：Z[25] +I Cos( C—JH）—D Cos( C—WH+V)：“X=”：Ans▲：Z[26] +I Sin(C—JH）—D Sin( C—WH+V)：“Y=”：Ans▲：Ifend』