CASIO 5800边角后方交会程序

CASIO 5800边角后方交会程序

一、程序功能

本程序适用于在一个未知点上设测站，观测两到个已知点的距离及夹角后，解算该未知坐标,本程序可在CASIOfx-5800P计算器上运行。

注意：这种观测两到个已知点的距离及夹角后解算该未知坐标的方法，缺少多余观测值，也就缺少检核条件。

二、源程序

Lb1 1

Fix 4

＂XA＂？A：＂Y1＂？B：＂X2＂？C：＂Y2＂？D：＂D1＂？E：＂D2＂？F：＂α＂？O

√((C-A)^2+(D-B)^2)→L

tan-1((C-A)÷(D-B))→J

If D≥B：Then 90-J→J：Else 270-J→J：Ifend

If E≤F：Then Esin(O)→K：180-sin-1(K÷L)→P：＂XP=＂：C+Fcos(J+P)→X◢

＂YP=＂：D+Fsin(J+P)→Y◢

Else Fsin(O)→K：sin-1(K÷L)→P：＂XP=＂：A+Ecos(J+P)→X◢

＂YP=＂：B+Esin(J+P)→Y◢

Ifend

Goto 1

三、使用说明

1、规定

(1)未知点为P点，已知点分别为A点、B点；

(2)P点至A点的距离为D1，P点至B点的距离为D2，角PBA为α；

2、输入与显示说明

输入部分：

XA?输入A点的X坐标

YA？输入A点的Y坐标

XB?输入B点的X坐标

YB？输入B点的Y坐标

D1？输入P点至A点的距离为D1

D2？输入P点至B点的距离为D2

α？输入P、B、Q夹角

显示部分：

XP=……所求点P的X坐标

YP=……所求点P的Y坐标

四、算例

已知XA=3371514.173，YA=459856.115，XB=3370811.988，YB=460138.747，D1=444.89，D2=314.6723333，α=170°18ˊ50”，求P点的坐标。

输入数据后，经计算得坐标：

XP=3371090.8515

YP=459992.9592