卡西欧5800缓和曲线坐标计算程序

卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算

卡西欧5800P计算器曲线任意⾥程中边桩坐标正反算

⼀、程序功能

本程序由⼀个主程序(ZHUCHENXU)和⼏个⼦程序——正算⼦程序(SUB1)、反算⼦程序(SUB2)、数据库(SUB3)、算⽅位⾓程序(FA)、使⽤⽅位⾓算坐标(NE)、边坡放样程序(BIANPO)、隧道圆⼼放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或⾮完整型）的线元要素（起点坐标、起点⾥程、起点切线⽅位⾓、线元长度、起点曲率半径、⽌点曲率半径）及⾥程边距或

坐标，对该曲线段范围内任意⾥程中边桩坐标进⾏正反算。

⼆、源程序

增加变量16→DimZ1.主程序(ZHUCHENXU)

"1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N：

Lbl 1：”ZHUANGHAO=”?S：Prog "SUB3"：N≥2=>Goto 2：Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"："XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1:

Lbl 2：”CX=”?X:X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:ThenProg”SDYX”:

IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2

2. 正算⼦程序(SUB1)

0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K：0.3300094782→L：(1-L) →F：(1-K)→M：

U+W(Z[1]cos(G+QEK W(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD)))→X：

CASIO fx-5800P ——若有疑问请咨询邮件：ceo@

本程序由【CYT】编辑 ——更多程序请访问： [正确] CASIO fx-5800P QXZB曲线坐标计算 CASIO fx-5800P QXZB程序可计算不等缓和曲线、圆曲线上的任意中、边桩坐标： 该程序适用于计算器 CASIO fx-5800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线中、边桩坐标及待测点方位角和距离。 1、DK(JD)？输入交点桩号 2、X(JD)？ 输入交点坐标X 3、Y(JD)？ 输入交点坐标Y 4、T1？ 输入第一切线长(如果只有一条切线两者都输入一致) 5、T2？ 输入第二切线长(如果只有一条切线两者都输入一致) 6、FWJ？输入直线方位角(ZH→JD) 7、A？ 输入转角：左转为负，右转为正 8、R？ 输入圆曲线半径 9、LS1？输入第一缓和曲线长(如果只有一条缓和曲线两者都输入一致) 10、LY？输入圆曲线长(L-LS1-LS2) 11、LS2？输入第二缓和曲线长(如果只有一条缓和曲线两者都输入一致) 12、X(ZJD)？输入置镜点坐标X 13、Y(ZJD)？输入置镜点坐标Y 14、JSDK？输入前视点里程 15、PL？输入偏距 16、PA？输入偏角 程序名称：QXZB ＂DK(JD)＂?R：＂X(JD)＂?S：＂Y(JD)＂?T：＂T1＂?U：＂T2＂?V：＂FWJ＂?F：＂A＂?W：＂R＂?H：＂LS1＂?I：＂LY＂?J：＂LS2＂?K：＂X(ZJD)＂?D：＂Y(ZJD)＂?E F+W→G If W>0： Then -1→L ：IfEnd(式中为数字0…括号内不输入) If W<0： Then 1→L ：IfEnd (式中为数字0…括号内不输入) If W=0： Then 0→L ：IfEnd (式中为数字0…括号内不输入) R-U→A S-Ucos( F) →B T-Usin( F) →C S+Vcos( G) →Z[1] T+Vsin( G) →Z[2] 180÷π→O(式中为字母0…括号内不输入) Lb1 A ＂JSDK＂?M M-A→P If M(A+I+J+K)： Then Goto A ：IfEnd ＂PL＂?N CASIO fx-5800P ——若有疑问请咨询邮件：ceo@

CASIO 5800程序编辑说明

CASIO-5800P计算器程序编辑说明

一(程序名称:直线坐标计算——Z-X-Z

程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q

2. LbI 0

3. “N=”,N : “S=”,S : ”E=”,E

4. A + N cos(Q) ?D : B + N sin(Q) ?F

5. D + S cos(Q + E) ?

6. F + S sin(Q + E) ?

7. Goto 0

内容说明:A 、 B——以知点即起算点的x,y坐标值;

Q——直线段方位角;

N——直线段距离;

S——边桩距离;

E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算 ——ZY-YZ

程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:

“F=”,F : “N=”,N : “U=”,U

2. R tan(N?2) ? T

3. Q–T ? A

4. W+T cos(F+180) ?M : K+T sin(F+180) ?G

5. LbI 0

6. “H=” ,H : ” S=” ?,S : “E=” ,E 7. Abs(H - A) ? D

8. 180 D?(Rπ) ?О

9. R sin(О) ?C

10. R (1-cos(О)) ?D

11. M+C cos(F) ? I : G+C sin(F) ? J

12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y

13. X+S cos(F+ОU+E) ?

14. Y+S sin(F+ОU+E) ?

15. Goto 0

内容说明: Q——交点里程桩号;

W 、K——交点X、Y坐标;

R——圆曲线半径;

F——前切线正方位角;

N——偏角;(即转向角)

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)