卡西欧计算器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是实际测量出来的顶拱位置。
