CASIO5800测量程序.docx

CASIO5800测量程序.docx

《CASIO5800测量程序.docx》由会员分享，可在线阅读，更多相关《CASIO5800测量程序.docx（8页珍藏版）》请在冰豆网上搜索。

CASIO5800测量程序

CASIO-5800测量程序

CASIO-5800测量程序

5800中边桩任意点坐标计算程序

一、文件名：

HZZH输入文件名

Deg:

Fix4基本设置

"FWJ∠α="？

Q8起点切线方位角

"ZX（m）="？

O:

"ZY（m）="？

P8置镜点坐标

"HX（m）="？

M:

"HY（m）="？

N8后视点坐标

Pol（A－O,B－P）8

IfJ<0:

ThenJ＋360"H:

ElseJ"H:

IfEnd8

"QX（m）="?

U:

"QY（m）="?

V:

"QDK（m）="?

G8起算点坐标和里程

Ldl08

"GDK（m）="?

Z8观测点里程

G－Z"C8

"GX（m）=":

U＋cos（Q）×C"Ay置镜点至中桩X坐标

"GY（m）=":

V＋sin（Q）×C"By置镜点至中桩Y坐标

Pol（A－O,B－P）8置镜点到中桩方位角

J－H"J8

IfJ－H<O:

ThenJ＋360"J:

ElseJ"J:

IfEnd8

"SPJ∠α=":

J}DMSy显示顺拔夹角

"I（m）=":

Iy置镜点至中桩距离

Ldl18

"BJ（m）="?

S8边距

IfS=0:

ThenGoto0:

IfEnd8

"JIAJIAOL（-）,R（+）="?

E8

Q＋E"W8

"GX（m）=":

A＋cos（W）×S"Xy显示观测点X坐标

"GY（m）=":

B＋sin（W）×S"Yy显示观测点Y坐标

Pol（X－O,Y－P）8

IfJ<0:

ThenJ＋360"J:

IfEnd8

J－H"J8置镜点到观测点方位角

IfJ<0:

ThenJ＋360"J:

ElseJ"J:

IfEnd8

"SPJ∠α=":

J}DMSy显示顺拔夹角

"I（m）=":

Iy显示置镜点到观测点距离

Goto1回到前面重复下一观测点

二、文件名：

ZHHY缓和曲线段内任意点坐标计算程序

“Deg:

Fix4

“FWJ∠a=”？

Q

“ZX（m）=”?

O:

”ZY（m）=”?

P

“HX（m）=”?

M:

”HY（m）=”?

N

Pol（M-O,N-P）

IfJ<0:

ThenJ+360→H：

ElseJ→H:

IfEnd

“HWJ∠a=”:

H?

DMS◢

“ZHUANXIANGL（-1），R

（1）=”？

T

“R（m）=”?

R

“LS（m）=”?

D

“KZH=”?

G

“ZHX（m）=”?

U

“ZHY（m）=”?

V

LbI0

“QDK=”?

Z

Abs（Z-G）→C

C-C^5/（40R^2D^2）+C^9/（3456R^4D^4）→W

C^3/（6RD）-C^7/（336R^3D^3）+C^11/（42240R^5D^5）→K

Q+（C^2/（2RD）×（180/Π））→F

IfJ<0:

ThenF+360→F：

ElseF→F:

IfEnd

“QFWJ∠a=”:

F?

DMS◢

“QSX（m）=”：

U+W×Cos（Q）+K×Cos（Q+90）→A:

A◢

“QSY（m）=”：

V+W×Sin（Q）+K×Sin（Q+90）→B:

B◢

Pol（A-O,B-P）

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

J-H→J

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

“SPJ∠a=”:

J?

DMS◢

“I（m）=”:

I◢

LbI1

“BJ（m）=”?

S

IfS=0:

ThenGoto0:

IfEnd

“JIAJIAOL（-）,R（+）=”?

E

“BZX=”：

A+SCos（F+E）→X:

X◢

“BZY=”：

B+SSin（F+E）→Y：

Y◢

Pol（X-O,Y-P）

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

J-H→J

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

“∠BIANZHUANGPJ=”:

J?

DMS◢

“I（m）=”:

I◢

Goto0

三、文件名：

HYYH园和曲线段内任意点坐标计算程序

“Deg:

Fix4

“FWJ∠a=”？

Q起算点方位角

“ZX（m）=”?

O:

”ZY（m）=”?

P置镜点坐标

“HX（m）=”?

M:

”HY（m）=”?

N后视点坐标

Pol（M-O,N-P）

IfJ<0:

ThenJ+360→H：

ElseJ→H:

IfEnd

“HFWJ∠a=”:

H?

DMS◢后视方位角

“ZHUANXIANGL（-1），R

（1）=”？

T曲线转向左负右正

“R（m）=”?

R曲线半径

“LS（m）=”?

D缓和曲线长度

“KZH（m）=”?

G曲线起点ZH里程

“XZH（m）=”?

U曲线起点X

“YZH（m）=”?

V曲线起点Y

LbI0

“QDK（m）=”?

Z观测点里程

Abs（Z-G）→C

R×Sin（180×（C-D）/（πR）+90D/（πR））+D/2-D^3/（240R^2）→W

R×（1-Cos（180（C-D））/（πR）+90D/（πR））+D^2/（24R）-D^4/（2688R^3）→K

Q+（180（C-D）/（πR）+90D/（πR））→F

IfF<0:

ThenF+360→J：

ElseF→J:

IfEnd

“QFWJ=”：

F?

DMS◢观测点切线方位角

“QSX（m）=”：

U+√（W²+K²）×Cos（（Q）+tan?

¹（K÷W））→A:

A◢观测点X坐标

“QSY（m）=”：

V+√（W²+K²）×Sin（（Q）+tan?

¹（K÷W））→B:

B◢观测点Y坐标

Pol（A-O,B-P）

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

J-H→J

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

“SPJ∠a=”:

J?

DMS◢观测点所拨偏角

“I（m）=”:

I◢置镜点到观测点距离

“BIANJU（m）=”?

S边距，左负右正

IfS=0:

ThenGoto0:

IfEnd

“JIAJIAOL（-）,R（+）=”?

E边桩至中桩切线方向的夹角左负右正

“BZX（m）=”：

A+SCos（F+E）→X:

X◢

“BZY（m）=”：

B+SSin（F+E）→Y：

Y◢

Pol（X-O,Y-P）

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

J-H→J

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

“BZ∠a=”:

J?

DMS◢

“I（m）=”:

I◢

Goto0

四、文件名：

YHHZ另一端缓和曲线段内任意点坐标计算程序

“Deg:

Fix4

“FWJ∠a=”？

Q起算点方位角

“ZX（m）=”?

O:

”ZY（m）=”?

P置镜点坐标

“HX（m）=”?

M:

”HY（m）=”?

N后视点坐标

Pol（M-O,N-P）

IfJ<0:

ThenJ+360→H：

ElseJ→H:

IfEnd

“HFWJ∠a=”:

H?

DMS◢后视方位角

“ZHUANXIANGL（-1），R

（1）=”？

T曲线转向左负右正

“R（m）=”?

R曲线半径

“LS（m）=”?

D缓和曲线长度

“KZH（m）=”?

G曲线起点ZH里程

“XZH（m）=”?

U曲线起点X

“YZH（m）=”?

V曲线起点Y

LbI0

“QDK（m）=”?

Z观测点里程

Abs（G-Z）→C

C-C^5/（40R^2D^2）+C^9/（3456R^4D^4）→W

C^3/（6RD）-C^7/（336R^3D^3）+C^11/（42240R^5D^5）→K

Q-（C^2/（2RD）×（180/Π））→F

IfF<0:

ThenF+360→F：

ElseF→F:

IfEnd

IfF>360:

ThenF-360→F：

ElseF→F:

IfEnd

“QFWJ∠a=”：

F?

DMS◢

“QSX（m）=”：

U-W×Cos（Q）+K×Cos（Q+90）→A:

A◢

“QSY（m）=”：

V-W×Sin（Q）+K×Sin（Q+90）→B:

B◢

Pol（A-O,B-P）

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

J-H→J

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

“SPJ∠a=”:

J?

DMS◢

“I（m）=”:

I◢

LbI1

“BJ（m）=”?

S

IfS=0:

ThenGoto0:

IfEnd

“JIAJIAOL（-）,R（+）=”?

E

“BZX=”：

A+SCos（F+E）→X:

X◢

“BZY=”：

B+SSin（F+E）→Y：

Y◢

Pol（X-O,Y-P）

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

J-H→J

IfJ<0:

ThenJ+360→J：

ElseJ→J:

IfEnd

“BZ∠a=”:

J?

DMS◢

“I（m）=”:

I◢

Goto0