[求助]：边角后方交会 fx-4800 程序 错在哪,请高手指点

c52ljg

求:边角后方交会 fx-4800 程序

在网上找了一个:
A"X1"B"Y1"C"X2"D"Y2"：Lbl5：{KLP}

pol(C-A,D-B)

Q=90(1-K)+K SIN-1(L SIN P/I)

T=J+180-P-Q

Rec (L,T) : X=A+I◢ Y=B+J◢

Goto5

说明:1、测边的已知点作为X1（A,B），未测边的已知点作为X2（C,D）。

2、测边对角为锐角时K=1，测边对角为钝角时K=-1。

3、角度P是以测边方向为起始方向，顺时针观测另一个已知点方向的右角。

注：理想图形要求实测的S边相对于已知边P1P2越短越好，角P越接近180°越好。

运行后发现有时对,有时错,请高手指点!

nt_cgh

这种计算的方法不科学