CASIO+FX-5800P+综合曲线坐标计算程序(正确)2010.1.17

1、PAGE PAGE 6圆曲线坐标计算交点桩号YK20+734.498； N=2889769.961；E=527002.305 ；方位角3142458.3 转角271931.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？输入转(偏)角；左转为负，右转为正。转角271931.4 2、R？输入曲线半径。 30003、LS？输入缓和曲线长度。 1704、JD（DK）？输入交点里程桩号。 20734.498结果

2、显示T = 814.347 W=87.776 L=1600.754 ZH=19920.151;HY=20090.151; QZ=20720.528; YH=21350.905; HZ=21520.9055、X（JD）？输入本交点X坐标。 2889769.9616、Y（JD）？输入本交点Y坐标。 527002.3057、FWJ？输入直缓(ZH)点切线方位角。 3142458.3 8、J？输入0程序计算中桩，输入1程序计算边桩。09、Z？输入里程桩号。 ZH=19920.151FWJ:314.416 X=2889200.028 Y= 527583.973完（FWJ:314.416=3142457.

3、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+4

4、00;75+300;75+800;76+500左中线坐标 。ARCTAN(451808.075 -456031.1661 )(4015349.321-4013872.8781 )= 704347.16-4223.0911476.4431、A？输入转(偏)角；左转为负，右转为正。转角16-45-49.69 2、R？输入曲线半径。 90003、LS？输入缓和曲线长度。 4904、JD（DK）？输入交点里程桩号。 76709.158结果显示T = 1571.257 W=98.296 L=3123.252 ZH=75137.901HY=75627.901; QZ=76699.527; YH=77771

5、.153; HZ=78261.1535、X（JD）？输入本交点X坐标。 4015349.3216、Y（JD）？输入本交点Y坐标。 451808.0757、FWJ？输入直缓(ZH)点切线方位角。 2891612.85 8、J？输入0程序计算中桩，输入1程序计算边桩。09、Z？输入里程桩号。 76500FWJ:656.382 X=4015345.755 Y= 452031.443完74+400:4014587.243,453987.85775+300:X=4014884.417;Y=453138.335.76+500:4015345.755;452031.443 CASIO FX-5800P 综合

6、曲线坐标计算程序（正确） 陈银 2010-1-19说明：该程序适用于计算器CASIO FX-5800P，可计算线路中心的缓和曲线、圆曲线、直线段，中，边桩坐标及切线方位角。1、A？输入转(偏)角；左转为负，右转为正。 (-7。3638.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)点

7、切线方位角。 (191。177.13) a=arctan( (Y大-Y小) ( X大-X小)8、J？输入0程序计算中桩，输入1程序计算边桩。9、Z？输入里程桩号。 (放样点里程)主程序名：ZHQX1?A：?R：“LS” ?C：“JD（DK）”?D2C(2)24R- C(4) 2688R(3) P3C2C(3)240R(2) Q490CRB5“T=”：（R+P）tan(Abs(A) 2)+QT6“W=”：（R+P）cos (A2)RW7“L=”：（ Abs(A)2B）R180+2C L8“ZH=”：D-TG9“HY=”：G+CH10“QZ=”：G+L2I11“YH=”：G+L-CK12“HZ=”

8、：G+LM13“X（JD）”?N：“Y（JD）”?E：“FWJ”?F：?J14 If AM：Then Z-M+TL47F+AU48UV49Goto 250Lb1 251“X=”：N+Lcos(V)X52“Y=”：E+Lsin(V)Y53Goto 654IfEnd55Lb1 356?W57“XL=”：X+Wcos(U-90)P58“YL=”：Y+Wsin(U-90)Q59“XR=”：X+Wcos(U+90)P60“YR=”：Y+Wsin(U+90)Q61Goto 162Lb1 463“X=”：N+Tcos(P)+Vcos(Q)X64“Y=”：E+Tsin(P)+Vsin(Q)Y65Goto 665Lb1 567“X=”：B+Rc