曲线测量程序.docVIP

SETOUT（等长缓和曲线） A：A=0= Goto C△ G＂ ＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂＂ 步数 显示 输入/输出 说明 1 A？ 输入 曲线总偏角,如为0,则不计算曲线要素,直接跳至第9步 2 Z(-1),Y(1)？ 输入 左偏为-1,右偏为1 3 LS？ 输入 缓和曲线长度 4 R？ 输入 圆曲线半径 5 T=nnn.nnn L=nnn.nnn 输出 T:切线长度 L:曲线总长度 6 ZH．Ｋ 输入 ZH点里程 7 ZH．C 输入 ZH点坐标(坐标均以X+Yi格式输入,以下同) 8 ZH．= 输入 ZH点切线方位角(即第一切线方位角) 9 ZJ(0=K)？ 输入 置镜点坐标,ZJ0(即该点坐标已知)则跳至第13步 10 K？ 输入 置镜点里程 11 E？ 输入 置镜点偏移值,曲线内侧为负,外侧为正 12 PXY= nnn．nnn+nnn．nnni 输出 置镜点坐标 13 HS(0=K)？ 输入 后视点坐标,HS0(即该点坐标已知)则跳至第17步 14 K？ 输入 后视点里程 15 E？ 输入 后视点偏移值,曲线内侧为负,外侧为正 16 PXY= nnn．nnn+nnn．nnni 输出 后视点坐标 17 HS．S=nnn．nnn HS．==nnn．Nnn 输出 后视点距离 后视方位角(按DMS转换至°′″格式) 18 QS(0=K)？ 输入 前视点坐标,QS0(即该点坐标已知)则跳至第22步 19 K？ 输入 前视点里程 20 E？ 输入 前视点偏移值,曲线内侧为负,外侧为正 21 PXY= nnn．nnn+nnn．nnni 输出 前视点坐标 22 nnn．nnn nnn．nnn V= nnn．nnn 输出 后视距离 前视距离 顺拨角(按DMS转换至°′″格式) 23 结束 　 按EXE跳至第18步,计算下一个前视点的数据 曲线任意里程中边桩坐标正反算(4850P计算器)程序(第四次修改版） 一、程序功能及原理1.功能说明：本程序由一个主程序(TYQXjs)和四个子程——正算子程序(SUB1)、反算子程序(SUB2)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序也可以在CASIO fx-4800P计算器运行。2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb0=该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。二、源程序 主程序(TYQXjs) Lbl 0：Defm 50:1.SZ = XY,2.XY = SZ：N： N=1=Goto 1：≠Goto 2Δ Lbl 1：{SZ}：SZ S≤Z[18]=J=1：Prog “DAT1”：Goto 3Δ S≤Z[26]=J=2：Prog “DAT1”：Goto 3Δ S≤Z[34]=J=3：Prog “DAT1”：Goto 3Δ S≤Z[42]=J=4：Prog “DAT1”：Goto 3Δ …………… S≤Z[8（N+1）+2]=J=n：Prog “DAT1”：Goto 3Δ Lbl 3：W=Abs(S-O)：Prog SUB1：XS=:X=X◢ YS=:Y=Y◢ ”FWI=”: F=F-M :F→DMS◢ Goto 4 Lbl 2：{XY}：XY：Z[4]=X：Z[5] =Y：N=0 Lbl A：Isz N：A=Z[8N+3]-M：B=Z[8（N+1）+3]-M：Prog ZX1 ：Z[6]×Z[7]0=J=N：Prog DAT1 ：Goto BΔA=Z[8N+3]+M：B=Z[8（N+1）+3]+M：P