卡西欧计算器5800P坐正反算.docx

卡西欧计算器5800P坐正反算卡西欧计算器5800P坐标正反算 Lbl 3:"1ZS,2FS"?Q Q=1=>Goto 1:Q=2=>Goto 2 I0: J0: Lbl 1:"CE:X"?m:"CE:Y"?F:"JL"?L:"FWJ"?A Rec(L,A):m+IC:F+JD 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+360Y:Else JY:IfEnd Cls "FY JL=":Locate 10,1,I:"FY FWJ=":YDMS Goto 3 进入程序运行如下: 1ZS,2FS? 输入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 W0 W=W+360 L4 lntW +0.01lnt(60 Frac W )+0.006 Frac(60 FracW) 说明： 1、本程序用于计算直角坐标值已知的两点间的边长和坐标方位角。 2、起算点和目标点的坐标分别为、。 3、起算点改变时应重新调用程序以改变A、B的值。 4、边长值和方位角值分别自动存放在“V”和“W”中。“W”的单位为：度“ °”。 隧洞断面图如上的程序如下： 直线断面放样程序 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+360J J是方位角，是隧洞的轴线方向。 L2 L=ICos (J-G) L3 M=Isin(J-G) M是偏中 L4 V=F-E V是实际高程 L5 V=16.83 W= W是实际测量出来的顶拱位置 Goto5 说明： 1. 本程序用于计算直线段的如图断面样式的隧洞程系放样程系。 2. 坐标A,B,H,是测算出来的坐标数据。 3. 已知的坐标X,Y是从图纸上的起算点坐标。 4. J是方位角，是隧洞的轴线方向。 5. M是偏中，V是实际高程，W是实际测量出来的顶拱位置。