方位角小程序.docx

XY-SQ 坐标、方位角、距离标准通用计算程序 2008 年 06 月 22 日 星期日 19:35 ⑵XY—SQ 程序设计 AC MODE 5 1 XY ALPHA — ALPHA SQ EXE 1 A″X0″ B″Y0″ C″X1″ D″Y1″∶Lbl 3∶Pol ((C -A ), (D-B ∶″1.XY=SQ〞∶″2.SQ=XY〞∶ ｛K｝∶K =1 = Goto 0∶ ≠ Goto 1∶ Lbl 0 ∶｛ X Y ｝∶ Pol (X-A , Y-B ∶ S= I ▲ J＜0 = Q= 360+ J ▲ ≠ Q= J ▲ Goto 3 ∶ Lbl 1∶{ S W }∶ X〝XP〞= A+ Rec (S , W+J ) ▲ Y〝YP〞=B+J ▲ Goto 3 EXE ⑶说明 ①功能： 计算测点到控制点的距离及方位角；由观察水平角、平距计算测点的坐标。 ②计算器输入及显示 X0? 输入控制点或测站坐标,米 Y0? X1? 输入后視点坐标,米 Y1? X? 输入所求点坐标,米 Y? S= 显示两点的距离,米 Q= 显示测点到控制点的方位角，度。 S? 输入平距(米), W? 输入水平角(度), XP= 显示点 P 的坐标。YP= ③当 K=1 时，计算测点到控制点的距离及方位角，当 K≠1 时，由观察水平角、平距计算测点的坐标。 ⑷计算 例、控制点 DA29 (229540.940,477984.580 ) 、后視点 A30(229081.728,477624.140) ，拟放中桩 P(229500.384,477900.260) ，计算两 点的距离及方位角，支点 B1 观察角 E=75°30′29″，平距 716.304m。计算支点 B1 的坐标。 选择程序：AC FILE △ 选取 XY—SQ 程序 EXE 输入数据顺序： X0? 229540.940 EXE 输入控制点坐标,米 Y0? 477984.580 EXE X1? 229081.728 EXE 输入后视点坐标,米，只计算距离及方位角可以 不输。 Y1? 477624.140 EXE 1. XY=SQ 2. 2.SQ=XY K？ 1 EXE 输入计算方式，输入 1，选择计算测点到控制点的距离及方位角， X? 229500.384 EXE 输入中桩坐标,米 Y? 477900.260 EXE S= 93.566 EXE 显示距离,米 Q= 244.31351 EXE 显示方位角，度。重复计算。 X0? 229540.940 EXE 检查数值对否？ Y0? 477984.580 EXE X1? 229181.728 EXE Y1? 1. 477624.140 XY=SQ EXE 2. 2.SQ=XY K？ 2 EXE 当 K≠1 时，由观察水平角、平距计 算测点的坐标。 S? 716.304 W? 75°30′29″ EXE 输入平距(米), EXE 输入水平角(度), XP1= 229828.133 EXE 显示支点 B1 的坐标。 YP1= 477328.370 EXE 重复计算。 K？ 2 ……从略。 本程序有两个功能： ⑴由两点坐标计算方位角及距离，各种测量放样都离不开此计算。是最常用 的程序之一。 ⑵由水平角及距离计算点或支点的坐标。也是野外测量离不开的常用程序。 因为是内外业常用的功能，所以将两个小程序合二为一，尽量做成一个标准 最简单之坐标方位角计算子程序一、源程序(FWJ) J=0：D=Pol(U-X, V-Y)：F=J：F0=F=F+360△ 二、说明 1、该子程序适用于 CASIO fx-4800 计算器及 CASIO fx-4850 计算器。 对于 CASIO fx-4500 计算器，注意调整 Pol()计算结果之储存变量结果即可。2、该子程序入口参数 X、Y 为直线起点（或测站点）之坐标，U、V 为直线止点（或后视点）之坐标，返回值 D 为起点至止点间之平距、F 为起点至止点之方位角。 使用计算器自带之坐标变换函数 Pol()快速准确地反算任意两点间之平距和坐标方位向角，可避免方位角所在象限之复杂判断。至于 tandeyong 所给之程序是坐标计算，与坐标方位角计算题意不相符。 调用坐标方位计算之主程序示例(ZCX) Lbl 1：{XYUV}：XX1：YY1：UX2：VY2←┘ 输入两点之坐标(x1,y1)、 (x2,y2) Prog FWJ←┘ 调用坐标方位角计算子程序“FWJ” DD=D◢ 显示两点(x1,y1)、(x2,y2)间之平距FF=F◢ 显示点(x1,y1)至(x2,y2)之坐标方位角Goto 1←┘ 算例 已知两点 P1（19827.336, 28506.838)、P2（19742.686, 28652.914)间之距离