卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序).docVIP

卡西欧5800测量实用程序(含直线、圆曲线、大地转施工程序)

一、直线计算程序

0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:IfA0:

ThenA+360→A:ElseA→A:IfEnd:Lbl0:?O:?S:IfO≠0:ThenGoto1:IfEnd:

D+Scos(A)→X:”X=”:X◢

E+Ssin(A)→Y:”Y=”:Y◢

Goto0:Lbl1:D+Scos(A)+Ocos(A+90)→X:”X=”:X◢

E+Ssin(A)+Osin(A+90)→Y:”Y=”:Y◢

Goto0

说明：

输入程序时注意区别字母O与数字0

程序运行时符号说明

X0?Y0?分别输入直线起点的XY坐标值

X1?Y1?分别输入直线终点的XY坐标值

O?输入边桩与中桩的距离(左边桩为负值,右边桩为正值),如计算中桩坐标输入0

S?输入所求点到直线起点的距离

二、圆曲线计算程序

0→I:0→J:”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1R:1”?N:”ZY”?W:Lbl0:”LN”?T:

T-W→O:Pol(E-C,F-D):I→S:J→A:IfA0:ThenA+360→A:ElseA→A:IfEnd:

sin-1(S÷(2R))→K:2∏RK÷180→L:180O÷(2∏R)→G:(2R)sin(G)→H:C+Hcos(A-KN+GN)→X:”X=”:X◢

D+Hsin(A-KN+GN)→Y:”Y=”:Y◢

R-0.5√(4R2-H2)→Q:”Q=”:Q◢

“S=”?V:IfV=0:ThenGoto0:IfEnd:”L:-90R:90”?U:X+Vcos(A-KN+2GN+U)→X:”X=”:X◢

Y+Vsin(A-KN+2GN+U)→Y:”Y=”:Y◢

Goto0

说明：

输入程序时注意区别字母O与数字0

程序运行时符号说明

X0?Y0?分别输入直线起点的XY坐标值

X1?Y1?分别输入直线终点的XY坐标值

R?输入圆曲线半径

L:-1R:1?圆曲线向左转弯时输入-1,向右转弯时输入1

ZY?输入起点桩号

LN?输入所求点桩号(按下exe键后显示中桩坐标)

S?输入所要求的边桩与中桩的距离

L:-90R:90要求左边边桩输入-90,右边边桩输入90(按下exe键后显示边桩坐标)

三、大地转施工

“QK=”？Z:“QX=”？A:“QY=”?B:“ZX=”？O:“ZY=”？Q↙

Pol(O-A,Q-B)↙

J0=J+360→J↙

J360=J-360→J↙

J→F:“JF=”：F◆DMS◢

Lb10↙

？X:?Y↙

Pol（X-A,Y-B):I→D↙

J0=J+360→J↙

J360=J-360→J↙

J-F→T:T→G↙

T0=T+360→G↙

T360=T-360→G↙

Z+Dcos（G)→K:“K=”：K◢

Dsin（G)→C:“C=”：C◢

GoTo0↙

说明：

QK--输入线路起始点里程

QX--输入线路起始点中桩X坐标

QY--输入线路起始点中桩Y坐标

ZX--输入线路前进方向中桩X坐标

ZY--输入线路前进方向中桩Y坐标

JF=--显示线路测量坐标方位角

X--输入线路附近任意点测量X坐标

Y--输入线路附近任意点测量Y坐标

K--显示计算结果：里程桩号，即工程X坐标

C--显示计算结果：左右偏距，即工程Y坐标,中桩=0，左偏=负值，右偏=正值。

正算主程序(ZS)：

Lb10：FIX4：?S：?Z：Prog“PM-SJ”：Abs(S-O)→W：ProgSUB1：XS=：X◢YS=：Y◢F-90→F(需要时可以让他显示，不要时不必输入)：Prog“SQX-SJ”:Prog“SQX”：“H=”：H◢Goto0

反算主程序(FS)

Lb10：FIX4:?S：?X：？Y：Prog“PM-SJ”：X→I：Y→J：ProgSUB2：S=：O+W→S◢Z=：Z◢

Prog“SQX-SJ