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

Question

如题所述

Answer 1

这个是我月个朋友编写的“卡西欧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：所求点中桩与四桩的夹角。