请问高人谁有卡西欧5800p平曲线中边桩坐标计算程序谢谢

Answer 1

圆曲线坐标计算
交点桩号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.026 527583.975) HY(2889320.140 527463. 682)
QZ(2889816.373 527076.808) YH(2890382.383
526801.950)

HZ(2890543.311 526747.167)

例如2:JD15:4013872.8781;456031.1661 JD16:4015349.321;451808.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+400;75+300;75+800;76+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.417;Y=453138.335.
76+500:4015345.755;452031.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、◢为输出指令，若在后面加上，即可显示前面的计算结果输出在屏幕上。