求卡西欧5800计算器道路正反算程序

说明：本程序适用于计算器 CASIO fx-5800P，可计算：第一夹直线段、第一缓和曲线段、圆曲线段、第二缓和曲线段、第二夹直线段的线路中、边桩坐标及切线方位角，反算里程和偏距。数据库名：YTGoto 1Lbl 1：If Z<10000：Then 3378226.731→U：456053.721→V：3373351.385→N：458628.379→E：9557.84→D：2040→R：260→S：280→T：-14°18ˊ10″→A：Return：IfEndLbl 1：If Z<………………………………………………………………………………………………………………Lbl 1：If Z<本交点HZ里程或下个交点ZH里程：Then 前交点坐标X→U：前交点坐标Y→V：本交点坐标X→N：本交点坐标Y→E：交点里程→D：曲线半径→R：第一缓和曲线长→S：第二缓和曲线长→T：转角→A：Return：IfEndLbl 1每增加一行则为增加一个交点要素,……表示下一个交点要素。注：1、◢ 为显示指令。2、 ↙为回车(EXE)标识。3、()括号内为注解不用输入。 计算参数：1=>XY
2=>DK
J? 2(输入1表示调用数据库,输入2表示手动输入数据)
1、QJD(X)=? 3378226.731(前交点坐标X)
2、QJD(Y)=? 456053.721(前交点坐标Y)
3、JD(X)=? 3373351.385(本交点坐标X)
4、JD(Y)=? 458628.379(本交点坐标Y)
5、JD(DK)=? 9557.84(本交点里程)
6、R=? 2040(曲线半径)
7、LS1?= 260(第一缓和曲线长)
8、LS2?= 280(第二缓和曲线长)
9、α?= -14°18ˊ10″(转角)
10、JSDK?= 9500(计算里程)
11、W?= 10(偏距：左为负,有为正数)
12、α?= 90(偏角)
………………………………
13、FWJ=146°34ˊ4.38″(切线方位角)
14、X= 3373402.498(计算结果坐标X)
15、Y= 458602.6783(计算结果坐标Y)
16、ZH=09+170.838,X=3373693.598,Y=458447.6569,FWJ=152°9′41.68″
17、HY=09+430.838,X=3373466.361,Y=458573.9060,FWJ=148°30′37.36″
18、QZ=09+550.461,X=3373366.244,Y=458639.3431,FWJ=145°9′2.25″
19、HY=09+670.084,X=3373270.134,Y=458710.5365,FWJ=141°47′27.15″
20、HZ=09+950.084,X=3373058.317,Y=458893.5689,FWJ=137°51′31.68″资料地址： https://skydrive.live.com/?cid=23F98B07A5CC3A18&id=23F98B07A5CC3A18%213143