谁能给我个 卡西欧4800坐标方位角计算编程程式

这个是我月个朋友编写的“卡西欧4800计算全站仪坐标程序”一共是5个程序。1个主程序，4个子程序，好用的话大家帮我推荐一下：

平曲线坐标计算程序（CASIO fx-4800P）

A子程序：X＞M⇒Prog“B”：Goto 0：≠⇒X=M⇒Prog“C”：≠⇒X＜M⇒Prog“B”：Q=Q+180：Lb1 0：Q=Q+360：Q≥360⇒Q=Q-360◢≠⇒Q=Q◢

B子程序：Q“Q”=tan-1（（Y-N）÷（X-M）

C子程序：Y≥N⇒Q=90◢

≠⇒Q=270◢

D子程序：C“SO”=√（（X-M）2+（Y-N）2）

PQX主程序：

R“R”S“LS1”U“LS2”W“ZG”P“WZH”：A=90S÷Rπ：B=90U÷Rπ：C=S2÷24R：D=U2÷24R：E=S÷2-S＾3÷240R2：F=U÷2-U＾3÷240R2：Q“T1”=E+（R+C）tan（AbsW÷2）+（D-C）÷sin AbsW◢

K“T2”=F+（R+C）tan（AbsW÷2）-（D-C）÷tan AbsW◢

O“S”=（AbsW-A-B）Rπ÷180+S+U◢

J“JD”T“XJD”V“YJD”：A“ZH”=J-Q◢

B“HY”=A+S◢

E“YH”=A+O-U◢

F“HZ”=A+O◢

G“XZH”=T+Q cos（P+180）◢

H“YZH”=V+Q sin（P+180）◢

I“XHZ”=T+K cos（P+W）◢

J“YHZ”=V+K sin（P+W）◢

M“XO”N“YO”：Prog“A”：Prog“D”◢

Lb1 O：｛Z｝：Z“ZHUANG HAO”：｛D｝：D：｛T｝：T“JG”：Lb1 0：Z≤A⇒Goto 1：≠⇒Z＞A⇒Z≤B⇒L=Z-A：Goto 2：≠⇒Z＞B⇒Z≤E⇒L=S：Goto 2：≠⇒Z＞E⇒Z≤F⇒L=F-Z：Goto 2：≠⇒Z＞F⇒C=Z-F：Goto 8△Lb1 1：C=A-Z：X=G+C cos（P+180）：Y=H+C sin（P+180）：V=P：Goto 9△Lb1 2：Z＞A⇒Z≤E⇒K=RS：Goto Y：≠⇒Z＞E⇒Z≤F⇒K=RU：Goto Y△Lb1 Y：K=0⇒V=P：X=G：Y=H：Goto 6≠⇒Goto 3：Lb1 3：X=L-L＾5÷40K2+L＾9÷3456K＾4-L＾13÷599040K＾6：Y=L＾3÷6K-L＾7÷336K＾3+L＾11÷42240K＾5-L＾15÷9676800K＾7：C√（X2+Y2）：V=90L2÷πK：Q=tan-1（Y÷X）：Goto A△Lb1 A：W＜O⇒Q=-Q：V=-V·GotoB△ Lb1 B：Z＞A⇒Z≤E⇒Goto 5：≠⇒Z＞E⇒Z≤F⇒Goto 7△Lb1 5：X=G+C cos（P+Q）：Y=H+C sin（P+Q）：V=P+V ：Goto C△ Lb1 C：Z＞A⇒Z≤B⇒Goto 9：≠⇒Z＞B⇒Goto 6△ Lb1 6：∠L=Z-B：Q=90L÷πR：C=2R sinQ：Goto D△ Lb1 D：W＜O⇒Q=-Q：Goto E△ Lb1 E：X=X+C cos（V+Q）：Y=C sin（V+Q）+Y：V=V+2Q：Goto 9△ Lb1 7：X=I+C cos（P+W+180-Q）：Y=J+C sin（P+W+180-Q）：V=P+W-V：Goto 9△ Lb1 8：X=I+C cos（P+W）：Y=J+C sin（P+W）：V=P+W：Goto 9△ Lb1 9：X=X+D cos（V+T）：“X=”：Pause 0：Y=Y+D sin（V+T）◢

Prog“A”：Prog“D”：◢

Goto O

程序执行输入说明

R：输入半径

Ls1：缓和曲线第一段长度

Ls2：缓和曲线第二段长度

ZG：转角 即路线偏角（左转为渗手喊负，右转为正）

WZH：后段切线方位角（按路线前进方向，在路线方向后为后段切线）

T1：第一段切线长度

T2：第二段切线长度

S：平曲线长度（包括缓和曲线和圆曲线）

JD：交点桩薯肆号

XTD：交点桩号X轴坐标

XTD：交点桩号Y轴坐标

ZH：直缓点桩号

HY：缓圆点桩号

YH：圆缓点桩号

HZ：缓直点桩号

XZH：直缓点X轴坐标

YZH：直缓点Y轴坐标

XHZ：缓直点X轴坐标

YHZ：缓直点Y轴坐标

XO：置仪点（测站点）X轴坐标 不用输

YO：置仪点（丛野测站点）Y轴坐标 不用输

X：后视点X轴坐标 不用输

Y：后视点Y轴坐标 不用输

Q：方位角（置仪点至后视点方位角，当输入桩号“ZHUANG HAO”即所求点桩号时，会计算置仪点至放样点的方位角）

SO：距离（置仪点至后视点距离，当输入桩号“ZHUANG HAO”即所求点桩号时，会计算置仪点至放样点的距离，适用于利用经纬仪+测距仪使用）

ZHUANG HAO：输入所求点桩号。

D：所求点至中桩的距离，左边桩为“—”；右边桩为“+”，当D=0时，即求中桩点的坐标。

JG：所求点中桩与四桩的夹角。

这个。。您能表达得更具体点吗？

这个。。。貌似正迟我还没学到。。抱歉、帮不上忙了

下面有种、你参考下，不知道对不对

程序目的：依平曲线要素计算斗尺直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。

程序说明：K0：起始桩号 X0：起始X坐标 Y0：起始Y坐标 ALF：起始方位角 R：半径 LS：缓和曲线长 N：曲线左转N=1，右转N=2 K：待求桩号 LL、LR：左、右桩距离 Q：左、右桩与中线斜交角 求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。

一、 直线段

文件名：ZX (COMP)

程式： L”K0”:O”X0”:P”Y0”:W”ALF”:

Lbl 0:{K}:X”XZ”=O+(K-L)cosW◢

Y”YZ”=P+(K-L)sinW◢

{B}:S”XL”=X-B”LL”cos(W+Q) ◢

T”YL”=Y-Bsin(W+Q) ◢

{C}:U”XR”=X+C”LR”cos(W+Q) ◢

V”YR”=Y+Csin(W+Q) ◢

Goto 0

注：在程序执行过程中，赋给的要素变数的值被固定不变，举销李可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。

二、 圆曲线段

文件名：YQX (COMP)

程式： L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:{K}:

J=(-1)^N (K-L)÷R×180÷π:D=2Rsin((-1)^N J÷2):

X”XZ”=O+Dcos(W+J÷2) ◢

Y”YZ”=P+Dsin(W+J÷2) ◢

{B}:S”XL”=X-B”LL”cos(W+J+Q) ◢

T”YL”=Y-Bsin(W+J+Q) ◢

{C}:U”XR”=X+C”LR”cos(W+J+Q) ◢

V”YR”=Y+Csin(W+J+Q) ◢

Goto 1

注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转+)。

三、 缓和曲线

文件名：HHQX (COMP)

程式： L”K0”:O”X0”:P”Y0”:W”ALF”: M”LS”:Lbl 3:{K}:

I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π:

D=(K-L)-(K-L)^5÷90÷(RM)^2:

X”XZ”=O+Dcos(W+I)◢ Y”YZ”=P+Dsin(W+I) ◢

{B}:S”XL”=X-B”LL”cos(W+3I+Q) ◢

T”YL”=Y-Bsin(W+3I+Q) ◢

{C}:U”XR”=X+C”LR”cos(W+3I+Q) ◢

V”YR”=Y+Csin(W+3I+Q) ◢

Goto 3

注：1、坐标计算方法是根据偏角法原理；

2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点；

3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。

---