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

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

请问高人谁有卡西欧5800p平曲线中边桩坐标计算程序谢谢
圆曲线坐标计算
交点桩号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 AM：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、◢为输出指令,若在后面加上,即可显示前面的计算结果输出在屏幕上.