进行改低等级公路三维5800程序.docVIP

低等级公路三维坐标测量程序5800 作者：龚喜雄，联系方式QQ：940774693 平曲线要素储存程序（PQXDATA） 变量解释：P所求桩的里程 IF P缓直点里程（后断链里程） AND P ≥前缓直点里程： THEN 交点桩号→A：交点X坐标→B：交点Y坐标→C：前直线方位角→F：转角（左负右正）→O：曲线半径→R：前缓和曲线长→E：后缓和曲线长→K：Goto 0：IFEND【一般标准曲线类型】 …… IF P匝道终止桩号 AND P ≥本段起始桩号： THEN 本段起始桩号→A：起始X坐标→B：起始Y坐标→C：起始方位角→F：转角（左-1右1）→O：起始半径(直线为0)→R：终止半径（直线为0）→Z：曲线长度→E：0→K：Goto 1：IFEND【一般标准曲线类型】 …… Lb1 0 O /Abs(O) →Z[2] “转角判断”O字母 Goto 3 Lb1 1 0→Z[3]：0→Z[4]：E→S Prog “JMPQX” Lb1 3 平曲线正算子程序“PQXDATA” tan(Abs O ÷2)-(-/ sin Abs O→Z[3] ‘前切线长度 (-/ sin Abs O →Z[4] ‘后切线长度 Abs OπR/180+0.5(E+K) →S ‘曲线总长 上述程序解释 或写成为：→Z[3] 前切线长度 是缓和曲线所增切线增量。是缓和曲线内移值。 If P≤A-Z[3]:Then P-A+Z[3] →I:0→J:F→H:Goto 1:IfEnd 进入前直线段 If P A-Z[3] AND P≤A-Z[3]+E :THEN Goto 2 :IfEnd ‘进入前缓和曲线段 If P A-Z[3]+E AND P≤A-Z[3]+S-K :THEN Goto3 :IfEnd ‘进入圆曲线段 If P A-Z[3]+S-K AND P≤A-Z[3]+S :THEN Goto4 :IfEnd ‘进入后缓和曲线段 If PA-Z[3]+S:Then P-(A-Z[3]+S) →I:0→J:-Z[4] →Z[3]:F+O→F:F→H:Goto 1:IfEnd 进入后直线段 Lb1 2 ‘前缓和曲线计算子程序 P-A+Z[3] →L L-L^5/(40*R^2* E^2)+L^9/(3456*R^4* E^4)→I L^3/(6*R* E)-L^7/(336*R^3* E^3)→J 90*L^2/( R*π* E) →H If O 0 :Then F+H→H:Else F-H→H:H0=360+H→H:IfEnd:Goto 1 Lb1 3 ‘圆曲线计算子程序 P-A+Z[3]-E →L (180L+90E) ÷(πR) →H Rsin(H)+ →I:+ R(1-cos(H)) →J: If O 0 :Then F+H→H:Else F-H→H:H0=360+H→H:IfEnd: Goto 1 Lb1 4 ‘后缓和曲线计算子程序 Z[3]+S-P→L L-L^5/(40*R^2* K^2)+L^9/(3456*R^4* K^4)→M L^3/(6*R* K)-L^7/(336*R^3* K^3)→N 90*L^2/( R*π* K) →H Z[4]cos(Abs(O))+Z[3]-Mcos(Abs(O))-Nsin(Abs(O)) →I Z[4]sin(Abs(O))-Msin(Abs(O))+Ncos(Abs(O)) →J If O 0 :Then F+O-H→H: H0=360+H→H :Else F+O+H→H:IfEnd: Goto 1 Lb1 1 B- Z[3]cos F + I cos F-Z[2] J sin F →X “曲线中桩坐标X项” C- Z[3]sin F+ I sin F+ Z[2] J cos F →Y “曲线中桩坐标Y项” X+Dcos(H+W) →X “曲线边桩坐标X项” Y+Dsin(H+W) →Y “曲线边桩坐标Y项” 积木法正算子程序（JMPQX） R=0 =1*10^45→R Z=0 =1*10^45→Z P-A→X RO→U: ZO→V (U-V)/（2UVE）→Z[17] F+(X/U+Z[17]L^2)×180/π→H:H0=H+360→H ‘ (计算点切线方位角）+∫(Cos(F+(X/U+Z[17]X^2)*180/π)，0，)→M C+∫(Sin(F+(X/U+Z[17]X^2)*180/π)，0，)→N M+D *C