求卡西欧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

"XA=”?X:”YA=”?Y:“FWJ=”?J:”K0=“?K 回车

Lbl 0 回车

"KP=“?L: ”BJ=“?M 回车

A＋(L－K)cos(J)+Mcos(J－90)→X 回车

B＋(L－K)sin(J)+Msin(J－90) →Y 回车

“XP=“:X◢

“YP=“:Y◢

Goto 0 回车

Xa、Ya ——直线上已知里程的坐标（X,Y）

FWJ ——直线方位角

K0——A点桩号（即里程）

K1——待算点桩号，即待算点在已知直线上距离点A的距离

BJ——待算点中桩距离，顺直线前进方向，左＋右－

XA=”?X:”YA=”?Y:“XB=”?U:”YB=”?V

Pol((U-X),(V-Y)):J<0=>J+360→J: ”K0=“?K

Lbl 0

“KP=“?L: ”BJ=“?M

A＋(L－K)cos(J)+Mcos(J－90)→X

B＋(L－K)sin(J)+Msin(J－90) →Y

“XP=“:X◢

“YP=“:Y◢

Goto 0

每行句末回车

---