任意线型反算.doc

《任意线型反算.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、任意线型反算，反算速度非常快程序名:1RYFS0→Q:”X0=”?M:”Y0=”?R:”JSLC=”?LProg”3FSZB”“LC=”:L◢“JL=”:Q◢Return程序名：2ZSZB(L-S)÷4→H90HHπ（1÷T-1÷I）÷（K-S）→U180Hπ÷I→D0→PC+4D+16U→OA+Abs(H)÷3（Cos(C)+4(Cos(C+3D+9U)+Cos(C+D+U)）+2Cos(C+2D+4U)+Cos(O))+QCos(P)→XB+Abs(H)÷3(Sin(C)+4(Sin(C+4D+9U)+

2、Sin(C+D+U))+2Sin(C+2D+4U)+Sin(O))+QSin(P))→YReturn程序名：3FSZBLbl0Prog“4DATA”Prog”2ZSZB”O-90→Z（R-Y）COS(Z)–(M-X)SIN(Z)→PAbs(P)≥0.001=>Goto0≠>Goto1Labl1(R-Y)COS(O)–(M-X)SIN(O)→QRETURN程序名：4DATAIfL≧起点里程ANDL≦止点里程THEN起点里程→S：起点北坐标→A:起点东坐标→B:起点方位角→C:起点半径→I：止点里程→K：止点半

3、径→TELSEGOTO1IFENDTETURNLBL1起点里程→S：起点北坐标→A:起点东坐标→B:起点方位角→C:起点半径→I：止点里程→K：止点半径→TELSEGOTO2IFENDTETURNLBL2……使用说明(1)以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，曲线半径I或者T输入负值(如-6000)，右偏，正值。(2)当所求点位于中线时，显示结果JL=0；当位于中线左侧时，JL显示负值；当位于中线右侧时，JL显示正值。(3)当线元为直线时，其起点、终点的曲率半径为无穷大，以10的

4、45次代替。(4)当线元为圆曲线时，无论其起点、终点与什么线元相接，其曲率半径均等于圆弧的半径。(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。不好理解的话，另外一种说法：缓和曲线接直线的一头半径无穷大，接圆曲线的一头半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲

5、率半径等于圆曲线的半径。终点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。(7)曲线元要素数据库（4DATA）可根据线型不同分为各个线元段输入到数据库中，即分为直线段、缓和曲线、圆曲线等。(8)反算时只能通过首先输入里程K值读取数据库，进行后续运算(9)全套程序分4个程序，修改数据库子程序，仅子程序1RYFS可运行(10)反算出里程L，边距Q后，本套程序可作为后续开发并被调用(11)4DATA参数说明：S起点里程A起点X坐标B起点Y坐标C起点方位角I起点半径(左转负半径，

6、右转正半径)K终点半径(左转负半径，右转正半径)T终点里程本程序特点：1反算任意线型：直线，缓和曲线，圆曲线2线元法，积分公式展开后的，不用原积分公式，反算速度快3线型左转时半径输入负值，右转时半径输入正值，显示结果边距左—右+这与其他程序通过夹角正负值判断转向有区别钟远和QQ278541572，电话15203140794，精通桥梁隧道测量，有好的工作请联系我，感激不尽！