卡西欧计算器5800P坐标正反算

卡西欧计算器5800P坐标正反算Lbl 3:"1→ZS,2→FS"?Q

Q=1=>Goto 1:Q=2=>Goto 2

I→0: J→0:

Lbl 1:"CE:X"?m:"CE:Y"?F:"JL"?L:"FWJ"?A

Rec(L,A):m+I→C:F+J→D

Cls

"X=":Locate 3,1,C:"Y=":Locate 3,2,D◢

Goto 3

Lbl 2:"CE:X"?G:"CE:Y"?H:"(HOU)FY:X"?N:"(HOU)FY:Y"?E Pol(N-G,E-H)

If J<0:Then J+360→Y:Else J→Y:IfEnd

Cls

"FY JL=":Locate 10,1,I:"FY FWJ=":Y◆DMS◢

Goto 3

进入程序运行如下:

1→ZS,2→FS?输入1为正算,2为反算.

以输入1为例:

CE:X? 测站点X(5796.717)

CE:Y? 测站点Y(5212.569)

JL? 仪器测得的距离(321.889)

FWJ? 仪器测得的方位角(193-41-07)

得到:X=5483.966

Y=5136.414

再按EXE,输2为例:

CE:X? 测站点X(5796.717)

CE:Y? 测站点Y(5212.569)

坐标反算

ZBFS

L1 AB:Fixm:{CD}

L2 pol(C-A,D-B)◢

L3 W<0 W=W+360

L4 lntW +0.01lnt(60 Frac W )+0.006 Frac(60 FracW) ◢ 说明:

1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。

2、起算点和目标点的坐标分别为(A,B)、(C,D)。

3、起算点改变时应重新调用程序以改变A、B的值。

4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为:度“ °”。

隧洞断面图如上的程序如下:

直线断面放样程序(2)

ZXFY2

L1: "CE:X"?A:"CE:Y"?B“CEZ:H”?E:"(HOU)FY:X"?C:"(HOU)FY:Y"?D: "(HOU)FY:H"?F

POL(C-A,D-B): Cls

If J<0:Then J+360→J J是方位角,是隧洞的轴线方向。

L2 L=ICos (J-G)◢

L3 M=Isin(J-G) ◢M是偏中

L4 V=F-E◢V是实际高程

L5 V=16.83 W= ((V-16.83)2+M2)◢W是实际测量出来的顶拱位置Goto5

说明:

1. 本程序用于计算直线段的如图断面样式的隧洞程系放样程系。

2. 坐标A,B,H,是测算出来的坐标数据。

3. 已知的坐标X,Y是从图纸上的起算点坐标。

4. J是方位角,是隧洞的轴线方向。

5. M是偏中,V是实际高程,W是实际测量出来的顶拱位置。