TI_Voyage200测量程序(极坐标放样)

[FYF] 极坐标放样

fyf() 作者：龚建成QQ:333690880（本程序仅供参考，作者不对其结果负责）prgm

input “xo:”,a 测站X坐标

input “yo:”,b 测站Y坐标

input “x:”,c 测点X坐标

input “y:”,d 测点Y坐标

c-a→m （Δx）

d-b→n (Δy)

R▶Pr(m,n) →l

R▶Pθ(m,n) →l

j→f

if j＜0 then

j+360→f

Endif

Disp “d=”,l “距离”

Disp “f=”,f ▶DMS “方位角”

Pause (暂停)

Return (返回)

EndPrgm （程序结束）