《线元法（积木法）匝道坐标正反算放样程序.docx》由会员分享，可在线阅读，更多相关《线元法（积木法）匝道坐标正反算放样程序.docx（4页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、Cis :“ 1Z 2A 3B”？-I /（注：此处”内为线路名，有几条线路就加入几条！）Else Cis: H K。 ?A: KN M ?L : ” X0 ?U : Y0 ?V : “ FO” ?W :“ RO” ?P :” RN ” ?Q: ZX：-1,+1, 0 ?G:IfEnd :ClsZ10: Prog n XY-B n /Cis: l.ZS 2.FS n ? fl: I=2=Goto 3/Cis: “ XC ?H: M YC ?ZZLbIl:Cls: n KX + XXX ” ?KZIf KL Or KGoto 1: ” Z ？T/Prog ” XY-A M /X+Tcos(M+B
2、)-X/Y+Tsin(M+B) - Y/360Frac (M+360) +360-M/Pol(X-H,Y-Z ： 360Frac(J+360) 4-360-JZ2-0: Prog n XY-B M :Goto 2/Lbl 3: Cis: M X M ?C: w Y M ?DZLbl 4 : If KL Or K|-3 :Then K+H-K:Goto 4:IfEndZ(D-Y) 4-cos (M) -T/3-0: Prog n XY-B :Goto 3/子程序1名：XY-A5fN: GCQ -P1) 4-Abs (L-A) -F: Abs (K-A) 52R: 90R+n-S:W+(FNR+2
3、Gpi)NSf M: lEZU+R4-6X (Cos (W) +Cos (M) +4E (Cos (W+(E+0. 5)FR+2GP-1) X (E+0. 5)S), E, 09 (N-l) ) +2E (Cos (W+(EFR+2GP1) ES, E, 1, (N-l) ) -X /V+R4-6X (sin (W)+sin (M) +4E (sin (W+(E+0. 5)FR+2GP-1) X (E+0. 5)S), E, 0, (N-l) ) +2E (sin (W+(EFR+2GP1)ES,E, 1, (N-l) -Y/子程序2名：XY-BCis :Fix 3:If 0=1:Then ”
4、 XY RESULTS: : “ K0= : “ KN= ：F0= : Locate 5, 2, A : Locate 5, 3, L : Locate 5, 4, W /Cis : n X0 ： “ Y : R0= : RN= : Locate 5, 1, U : Locate 5, 2, V : Locate 5, 3, GP : Locate 5, 4, GQIf End/If 0=2:Then/Cis : M KX X X= M : Z= : X= : Y= ： Locate 6, 1, K : Locate 4, 2, T : Locate 4, 3, X : Locate4, 4,
5、 Y,If T=0 :Then Cis : QF(Z) = H : Locate 8,1, M:MTDMSIf End/Cis : M KX X X = u S= : Locate 6,1, K : Locate 4, 2, I :“ F= ” :J:JTDMSIfEndZIf 0=3:Then n X= n : n Y= : n KX X X= u Z= : Locate 4, 1, C: Locate 4, 2, D : Locate6, 3, K : Locate 4, 4,T/IfEnd:ClsZ线路线元数据库子程序格式：数据库采用给矩阵变量Mat B赋值的形式，使数据组织更加简洁，极
6、大的减少了线路数据库子程序的输入 量，节约了计算器空间If KIf K:Tlien ,战科点里程| ,陵元起点X坐标| 陵奇噫半径线元起Y坐标-Mat B: IfEnd /胜其中的线元转向为：左-1右+1直线为0*1J七数据库内容备注1If K 986,117 :Then Cis : Locate 6,2,K ERR!n /该A匝道线路起点桩号 为AKCI+00CI,终点桩号 AKD+986.117,程序开头 限定，以确定线路计算范 围.Stop : IfEndZ2If K5：0 :Then0,153,261,694812.252,564745.798,第一段线元AK0+000-AK0+153
7、,261153053018.94,xio45,2299,961,IfEndZ3If K*:Then *,*,*,*,*,*,*,*-MfEndZ第2段线元4If:ThenB:IfEndZ第3段线元5If K* * * : Then *,*,*,*,*,*,atB:I fEndZ第4段线元6If K，”* : Then */,*,*,*,*,*,*f MatB:IfEnd/第5段线元7If K2 * : ThenB:IfEndZ第6段线元 nIf K字 * : ThenB:IfEndZ第n段线元，一直到线 路最后线元结束。程序说明：程序线元判断原那么：(1)以道路中线的前进方向(即里程增大的方向
8、)区分左右；(2)当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。(3)当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次代替输入xl045。(4)当线元为圆曲线时，无论其起点、终点与什么线元相接，其曲率半径均等于圆弧的半径。(5)当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替输入xl(P45；与 圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径为无穷大，以10的45次代替 输入X10X45；与圆曲线相接时，曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设
9、计规定的值；与圆曲线相接时，曲 率半径等于圆曲线的半径。终点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径 等于圆曲线的半径。输入与显示简单说明l.ZS 2.FS选1正算 选2反算KO? KN? RO? RN?F0?X0? Y07ZX?分别为线元起点桩号、终点桩号、起点半径、终点半径、起点切 线方位角、起点X坐标、起点Y坐标、线元转向。XC? YC?输入置镜点即测站的X,Y坐标Kxx+xxx?输入所求的桩号z ?RJ?输入所求点距中线的边距（在中线输零，左负右正）输入边桩时左右边桩连线与线路前进方向中桩切线的右交角（当输入数字0时进入下一个桩号计算输入）X=、Y=计算得出的所求点的左、中、右 的XY坐标QF（Z）= xxx计算得出所求点的中桩切线方位角F二xxx 计算得出置镜点到测点的方位角S= xxx计算得出置镜点到测点的水平距离X=xxx反算输入所求点的X坐标Y=xxx 反算输入所求点的Y坐标K=xxx 计算得出求点所对应的里程Z=xxx计算得出求点到所对应的里程的垂直距离（负就是左边，正就是右边）