方位角小程序.docx

XY-SQ坐标、方位角、距离标准通用计算程序2008年06月22日星期日 19:35⑵XY—SQ程序设计AC MODE 5 1 XY ALPHA — ALPHA SQ EXE 1A〃xo〃 B〃YO〃 C〃X1〃 D〃Y1〃：Lbl 3：Pol ((C -A ),(D-B :〃 1・XY=>SQ"：〃2 ・SQ=>XY"：{K}：K =1 => Goto 0： H> Goto 1：Lbl 0 ：{ X Y } : Pol (X-A , Y-B :S= I ▲ JV 0 => Q= 360+ J ▲ H> Q= J ▲ Goto 3 :Lbl 1 ： { S W } ： X〝XP〞= A+ Rec (S , W+J ) ▲ Y〝YP〞=B+J ▲ Goto3 EXE⑶说明① 功能： 计算测点到控制点的距离及方位角；由观察水平角、平距计算测点的坐标② 计算器输入及显示X0?输入控制点或测站坐标,米Y0?X1?输入后視点坐标，米Y1?X?输入所求点坐标,米Y?S=显示两点的距离，米Q=显示测点到控制点的方位角，度S?输入平距(米)，W?输入水平角(度)，XP=显示点P的坐标YP=③ 当K=1时，计算测点到控制点的距离及方位角，当KH1时，由观察水平 角、平距计算测点的坐标。

⑷计算例、控制点 DA29 (229540.940,477984.580 )、后視点A30(229081.728,477624.140)，拟放中桩 P(229500.384,477900.260)，计算两 点的距离及方位角，支点B1观察角E=75° 30'29〃，平距716・304m计算支 点B1的坐标选择程序：ACFILE△ 选取XY—SQ程序 EXE 输入数据顺序：X0? 229540.940EXE输入控制点坐标,米Y0? 477984.580EXEX1? 229081.728EXE输入后视点坐标,米，只计算距离及方位角可以不输Y1? 477624.140EXE1. XY=>SQ2. 2.SQ=>XYK？ 1EXE 输入计算方式，输入1，选择计算测点到控制点的距离及方位角，X? 229500.384 EXE 输入中桩坐标,米Y? 477900.260 EXES= 93.566 EXE 显示距离,米Q= 244.31351 EXE 显示方位角，度重复计算X0? 229540.940 EXE 检查数值对否？Y0? 477984.580 EXEX1? 229181.728 EXEY1? 477624.140 EXE1. XY=>SQ2. 2.SQ=>XYK? 2 EXE 当KH1时，由观察水平角、平距计算测点的坐标。

S? 716.304 EXE 输入平距（米）,W? 75°30,29〃 EXE输入水平角（度），XP1= 229828.133 EXE显示支点B1的坐标YP1= 477328.370 EXE 重复计算K？ 2 ……从略本程序有两个功能：⑴由两点坐标计算方位角及距离，各种测量放样都离不开此计算是最常用 的程序之一⑵由水平角及距离计算点或支点的坐标也是野外测量离不开的常用程序 因为是内外业常用的功能，所以将两个小程序合二为一，尽量做成一个标准最简单之坐标方位角计算子程序一、 源程序(FWJ)J=0： D=Pol(U-X, V-Y)： F=J： Fv0=>F=F+360A二、 说明1、 该子程序适用于CASIO fx-4800计算器及CASIO fx-4850计算器 对于CASIO fx-4500计算器，注意调整Pol()计算结果之储存变量结果即可2、 该子程序入口参数X、Y为直线起点(或测站点)之坐标，U、V为直线止点(或后视点)之坐标，返回值D为起点至止点间之平距、F为起 点至止点之方位角使用计算器自带之坐标变换函数Pol()快速准确地反算任意两点间之平距和坐标 方位向角，可避免方位角所在象限之复杂判断。

至于 tandeyong 所给之程序是 坐标计算，与坐标方位角计算题意不相符1•调用坐标方位计算之主程序示例(ZCX)Lbl 1： {XYUV}： X"X1": Y"Y1"： U"X2": V"Y2"—」输入两点之坐标(x1,y1)、 (x2,y2)Prog "FWJ"-」调用坐标方位角计算子程序“FWJ”D"D"=D丄 显示两点(x1,y1)、(x2,y2)间之平距 F""F"=F丄 显示点(x1,y1庠(x2,y2)之坐标方位角Goto 1-」2.算例已知两点 P1 (19827.336, 28506.838)、P2 (19742.686, 28652.914)间之距离 和方位角1) 选择程序"ZCX"并启动它(2) 输入X1? 19827.336 / (/代表蓝色之［EXE］键)Y1? 28506.838 /X2? 19742.686 /Y2? 28652.914 /(3) 显示D=168.8307445F=120.0919859(以度为单位，即 120°05，31.15〃)。