====&nbsp1&nbsp===
坐标反算（源程序）
File&nbspZBFS
1:&nbspM“X0”&nbsp:&nbspN“Y0”&nbsp:&nbspA“PJ”&nbsp:&nbspR&nbsp:&nbspL“LS”&nbsp:&nbspT&nbsp:&nbspO“L”&nbsp:&nbspH“ZH”&nbsp:&nbspF“FWJ”
2:&nbspZ[1]=P“XJD”+T&nbspcos&nbsp(&nbspF+180)&nbsp:&nbspZ[2]=K“YJD”+T&nbspsin&nbsp(&nbspF+180)
3:&nbspU“R+1,L-1”
4:&nbspZ[3]=H+L&nbsp:&nbspZ[4]=H+O－L&nbsp:&nbspZ[5]=H+O
5:&nbspLbl&nbsp0&nbsp:&nbspC“LC”&nbsp:&nbspZ[7]=Abs(C－H)
6:&nbspProg“KL”
7:&nbspS=－((X－M)sin(Q+90)－(Y－N)&nbspcos&nbsp(Q+90)&nbsp:&nbspAbs&nbspS<0.0001&nbspC“&nbspLC&nbsp”&nbsp◢
W=“LP&nbsp”=&nbsp(&nbspX－M&nbsp)&nbspsin&nbspQ－(Y－N)&nbspcos&nbspQ◢&nbspC&nbsp=&nbspC+S&nbsp:&nbspGoto&nbsp0&nbsp△
File&nbspKL
1:&nbspC≤H&nbspZ[8]=－Z[7]&nbsp:&nbspZ[9]&nbsp=&nbsp0&nbsp:&nbspZ[10]&nbsp=&nbsp0&nbsp:&nbspGoto&nbsp2&nbsp△
2:&nbspC≤Z[3]&nbspZ[8]=&nbspZ[7]－Z[7]&nbsp^5÷40÷R2÷L2&nbsp:&nbspZ[9]&nbsp=&nbspZ[7]^3÷6÷R÷L－Z[7]&nbsp^7÷336÷R^3÷L^3&nbsp:&nbspZ[10]&nbsp=&nbsp90&nbspZ[7]&nbsp2÷R÷L÷Л&nbsp:&nbspGoto&nbsp2&nbsp△
3:&nbspC≤Z[4]&nbspZ[10]&nbsp=&nbsp90&nbspL÷R÷Л&nbsp+180(&nbspZ[7]&nbsp－L)÷R÷Л&nbsp:&nbspRsin&nbsp(Z[10]+0.5L－L^3÷240÷R2&nbsp:&nbspZ[9]&nbsp=&nbspR(1－cosZ[10]&nbsp)+L2÷24÷R&nbsp:&nbspGoto&nbsp2&nbsp△
4:&nbspC≥Z[5]&nbspX=－(&nbspZ[7]&nbsp－O)&nbsp:&nbspY&nbsp=&nbsp0&nbsp:&nbspZ[10]&nbsp=&nbspA&nbsp:&nbspGoto&nbsp1&nbsp△
5:&nbspC≥Z[4]&nbspZ[10]=&nbspA－90&nbsp(O－&nbspZ[7]&nbsp)&nbsp2&nbsp÷R÷L÷Л&nbsp:X&nbsp=&nbsp(O－Z[7]&nbsp)－(O－Z[7]&nbsp)^5÷40÷R2÷L2&nbsp:&nbspY&nbsp=&nbsp(O－Z[7]&nbsp)^3÷6÷R÷L－(O－Z[7]&nbsp)^7÷336÷R^3÷L^3&nbsp△
6:&nbspLbl&nbsp1&nbsp:&nbspZ[8]&nbsp=&nbspT+(T－X)&nbspcos&nbspA－Y&nbspsin&nbspA&nbsp:&nbspZ[9]&nbsp=(T－X)&nbspsin&nbspA+&nbspY&nbspcos&nbspA&nbsp:&nbspGoto&nbsp2&nbsp△
7:&nbspLbl&nbsp2&nbsp:&nbspPol&nbsp(Z[8],Z[9])&nbsp:&nbspZ[7]&nbsp=F+JU&nbsp:&nbspQ=F+Z[10]&nbspU&nbsp:&nbspX=Z[1]&nbsp+&nbspIcosZ[7]&nbsp:&nbspY=Z[2]&nbsp+&nbspI&nbspsin&nbspZ[7]

====&nbsp2&nbsp====
用于CASIO4X00计算器的坐标反算程序
用于CASIO4X00计算器的坐标反算程序（已知两坐标求算其平距和方位角）
（最简）源程序如下：
程序名：【AZIMUTH】
I=0：J=0
LbI0
Norm
Deg
{DGXY}
D"XA"G"XB"X"XB"Y"YB"
Pol(X-D,Y-G)
J<0=>J=J+360△
Fix6
J"AZIMUTH&nbspA-B"=IntJ+.01Int(60FracJ)+.
006Frac(60FracJ)▲
Fix3
I"H.DIST="▲
Goto0
特点：界面友好、简单易用、输出方便
注意：本程序在CASIO4800上调试运行通过。如果是在4500上运行请将源程序中的I，J分别用V，W替代即可。
运行后界面如下：
输入项目
XA？————————————请输入点A的X坐标，按EXE键输入下一个量，下同。
YA？————————————请输入点A的Y坐标。
XB？————————————请输入点B的X坐标。
YB？————————————请输入点B的Y坐标。
显示项目
AZIMUTH&nbspA-B=###.######————————————显示点A到点B的方位角（小数点前为度，小数点后第一二位表示分，三四五六位表示为##.##秒。如12.523356即表示为12°52′33.56″.如果你将J"AZIMUTH&nbspA-B"=IntJ+.01Int(60FracJ)+.
006Frac(60FracJ)改为J"AZIMUTH&nbspA-B="的话则必须在输出结果后按"°′″"键将其转换为度分秒.
H.DIST=###.###——————————————显示AB两点的平距值（三位小数）。
再按EXE就转入下一个计算循环。

===========下面的文章由本人所写=========

&nbsp&nbsp&nbsp&nbsp下面是介绍的是用CASSIO&nbsp4500计算器编程进行两点间坐标反算的程序，可将两点的距离和方位角反算出来，在实际运用中最是好用！用途很大，是我测量放样中的主打曲目，非常实用！源程序如下：

上一篇：PC1500单一附合导线平差计算
下一篇：PC1500测边网平差计算