谁能给我个 卡西欧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：所求点中桩与四桩的夹角。

圆曲线坐标计算

交点桩号YK20+734.498； N=2889769.961；E=527002.305 ；

方位角314'24'58.3' 转角27'19'31.4' 切线长度T1=

814.345 ；T2= 814.347 ；

半径R=3000 ；曲线长度LS1： 170； LC=1260.752； LS2= 170 曲线总长=1600.752 求ZH,HY,QZ,YH,HZ以及圆心点的坐标。

1、A？输入转(偏)角；左转为负，右转为正。转角27'19'31.4'

2、R？输入曲线半径。 3000

3、LS？输入缓和曲线长度。 170

4、JD（DK）？输入交点里程桩号。 20734.498

结果显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151

HY=20090.151 QZ=20720.528 YH=21350.905 HZ=21520.905

5、X（JD）？输入本交点X坐标。 2889769.961

6、Y（JD）？输入本交点Y坐标。 527002.305

7、FWJ？输入直缓(ZH)点切线方位角。 314'敏吵24'58.3'

8、J？输入0程序计算中桩，输入1程序计算边桩。0

9、Z？输入里程桩号。 ZH=19920.151

FWJ:314.416 X=2889200.028 Y= 527583.973完

（FWJ:314.416=314'24'57.6' ）

ZH(2889200.026527583.975) HY(2889320.140 527463. 682)

QZ(2889816.373 527076.808)YH(2890382.383

526801.950)

HZ(2890543.311 526747.167)

例如2:JD15:4013872.8781456031.1661 JD16:4015349.321451808.075 ZH:75+137.901 ay:16.45.49.69 R=9000 缓和曲线长：490 T=1571.257 JD(DK) =76709.158 FWJ=289-16-12.85 给我算一下74+40075+30075+80076+500左中线坐标

。ARCTAN(451808.075

-456031.1661 )\(4015349.321-4013872.8781 )= 70'43'47.16''

-4223.091\1476.443

1、A？输入转(偏)角；左转为负，右转为正。转角16-45-49.69

2、R？输入裂梁曲线半径。肆拿运 9000

3、LS？输入缓和曲线长度。 490

4、JD（DK）？输入交点里程桩号。 76709.158

结果显示T = 1571.257 W=98.296 L=3123.252 ZH=75137.901

HY=75627.901 QZ=76699.527 YH=77771.153 HZ=78261.153

5、X（JD）？输入本交点X坐标。 4015349.321

6、Y（JD）？输入本交点Y坐标。 451808.075

7、FWJ？输入直缓(ZH)点切线方位角。 289'16'12.85'

8、J？输入0程序计算中桩，输入1程序计算边桩。0

9、Z？输入里程桩号。 76500

FWJ:656.382 X=4015345.755 Y= 452031.443完

74+400:4014587.243,453987.857

75+300:X=4014884.417Y=453138.335.

76+500:4015345.755452031.443

CASIO FX-5800P 综合曲线坐标计算程序（正确）陈银 2010-1-19

说明：该程序适用于计算器CASIO FX-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中，边桩坐标及切线方位角。

1、A？输入转(偏)角；左转为负，右转为正。 (-7。36’38.7’’)

2、R？输入曲线半径。 (7000)

3、LS？输入缓和曲线长度。 (390)

4、JD（DK）？输入交点里程桩号。 453325.597(ZH直缓点里程+切线长度D3K452664.943+660.654)

5、X（JD）？输入本交点X坐标。 (2781501.2960)

6、Y（JD）？输入本交点Y坐标。 (525226.2870)

7、FWJ？输入直缓(ZH)点切线方位角。 (191。17’7.13’’)

a=arctan( (Y大-Y小) ÷ ( X大-X小))

8、J？输入0程序计算中桩，输入1程序计算边桩。

9、Z？输入里程桩号。 (放样点里程)

主程序名：ZHQX

1．?A：?R：“LS” ?C：“JD（DK）”?D

2．C^(2)÷24÷R- C^((4)) ÷2688÷R^(3) → P

3．C÷2－C^(3)÷240÷R^(2) → Q

4．90×C÷π÷R→B

5．“T=”：（R+P）tan(Abs(A)÷2)+Q→T◢

6．“W=”：（R+P）÷cos (A÷2)－R→W◢

7．“L=”：（ Abs(A)－2×B）πR÷180+2×C → L◢

8．“ZH=”：D-T→G◢

9．“HY=”：G+C→H◢

10．“QZ=”：G+L÷2→I◢

11．“YH=”：G+L-C→K◢

12．“HZ=”：G+L→M◢

13．“X（JD）”?N：“Y（JD）”?E：“FWJ”?F：?J

14． If A<0：Then -1→S：Else 1→S：IfEnd (备注:本行中0为数字)

15．F+A÷2+90×S→U

16．W+R→V

17．N+V×cos(U) →B

18．E+V×sin(U) →O (备注:本行中O为字母)

19．Lb1 1

20．?Z

21．If Z≤G：Then T+G-Z→L

22．F+180→V

23．“FWJ=”：F→U◢

24．Goto 2

25．IfEnd

26．If Z≤H:Then Z-G→L

27．L-L^(5)÷（90×R^（2）×C^（2））→V

28．30×L^(2)×S÷（πRC）→L

29．F+180→P

30．F+L→Q

31．“FWJ=”：F+3×L→U◢

32．Goto 4

33．IfEnd

34．If Z≤K：Then F+A÷2+90×S+180+180(Z-I)×S÷R÷π→L

35．“FWJ=”：L+90×S→U◢

36．Goto 5

37．IfEnd

38．If Z≤M：Then M-Z→L

39．L-L^(5)÷（90×R^（2）×C^（2））→V

40．30×S×L^(2)÷（πRC）→L

41．F+A→P

42．F+A+180-L→Q

43．“FWJ=”：F-3×L+A→U◢

44．Goto 4

45．IfEnd

46．If Z>M：Then Z-M+T→L

47．F+A→U

48．U→V

49．Goto 2

50．Lb1 2

51．“X=”：N+L×cos(V)→X◢

52．“Y=”：E+L×sin(V)→Y◢

53．Goto 6

54．IfEnd

55．Lb1 3

56．?W

57．“XL=”：X+W×cos(U-90)→P◢

58．“YL=”：Y+W×sin(U-90)→Q◢

59．“XR=”：X+W×cos(U+90)→P◢

60．“YR=”：Y+W×sin(U+90)→Q◢

61．Goto 1

62．Lb1 4

63．“X=”：N+T×cos(P)+V×cos(Q)→X◢

64．“Y=”：E+T×sin(P)+V×sin(Q)→Y◢

65．Goto 6

65．Lb1 5

67．“X=”：B+R×cos(L)→X◢

68．“Y=”：O+R×sin(L)→Y◢ (备注:本行中O为字母)

69．Goto 6

70．Lb1 6

71．J=1=>Goto 3

72．Goto 1

备注：1、括号中（）备注为说明，请不要输入。

2、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。

---