任意线型反算.docVIP

任意线型反算，反算速度非常快 程序名:1RYFS 0→Q:”X0=”?M:”Y0=”?R:”JSLC=”?L Prog”3FSZB” “LC=”:L◢ “JL=”:Q◢ Return 程序名：2ZSZB (L-S)÷4 →H 90HHπ（1÷T-1÷I）÷（K-S）→U 180Hπ÷I→D 0→P C+4D+16U→O A+Abs(H) ÷3（Cos(C)+4(Cos(C+3D+9U)+Cos(C+D+U)）+2Cos(C+2D+4U)+Cos(O))+QCos(P) →X B+Abs(H)÷3(Sin(C)+4(Sin(C+4D+9U)+Sin(C+D+U))+2Sin(C+2D+4U)+Sin(O))+QSin(P)) →Y Return 程序名：3FSZB Lbl 0 Prog “4DATA” Prog”2ZSZB” O-90→Z （R-Y）COS(Z) –(M-X)SIN(Z) →P Abs(P)≥0.001=Goto 0 ≠Goto 1 Labl 1 (R-Y)COS(O) –(M-X)SIN(O) →Q RETURN 程序名：4DATA If L≧起点里程AND L≦止点里程 THEN 起点里程→S：起点北坐标→A:起点东坐标→B:起点方位角→C:起点半径→I：止点里程→K：止点半径→T ELSE GOTO 1 IFEND TETURN LBL 1 起点里程→S：起点北坐标→A:起点东坐标→B:起点方位角→C:起点半径→I：止点里程→K：止点半径→T ELSE GOTO 2 IFEND TETURN LBL 2 …… 使用说明 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，曲线半径I或者T输入负值(如-6000)，右偏，正值。 (2) 当所求点位于中线时，显示结果JL=0；当位于中线左侧时，JL显示负值；当位于中线右侧时，JL显示正值。 (3) 当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、终点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 不好理解的话，另外一种说法：缓和曲线接直线的一头半径无穷大，接圆曲线的一头半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 (7)曲线元要素数据库（4DATA）可根据线型不同分为各个线元段输入到数据库中，即分为直线段、缓和曲线、圆曲线等。 (8)反算时只能通过首先输入里程K值读取数据库，进行后续运算 (9)全套程序分4个程序，修改数据库子程序，仅子程序1RYFS可运行 (10)反算出里程L，边距Q后，本套程序可作为后续开发并被调用 (11)4DATA参数说明： S起点里程 A起点X坐标 B起点Y坐标 C起点方位角 I起点半径(左转负半径，右转正半径) K终点半径(左转负半径，右转正半径) T终点里程 本程序特点： 1反算任意线型：直线，缓和曲线，圆曲线 2线元法，积分公式展开后的，不用原积分公式，反算速度快 3线型左转时半径输入负值，右转时半径输入正值，显示结果边距左 — 右 + 这与其他程序通过夹角正负值判断转向有区别 钟远和QQ278541572，电话152 0314 0794，精通桥梁隧道测量，有好的工作请联系我，感激不尽！