线元法(积木法)匝道坐标正反算放样程序.doc

Cls :1Z 2A 3B？I (注：此处内为线路名，有几条线路就加入几条！)Cls:K Or K To Shu?K:If K0:ThenI=1=ProgP. ZI=2=ProgP. AI=3=ProgP. B(注：此处必须与上述内为线路名和下面的数据库子程序名对应，有几条线路就加入几条！)Mat B1,1A: Mat B1,2L: Mat B1,3U: Mat B1,4V: Mat B1,5W: Mat B1,6P: Mat B1,7Q: Mat B1,8GElse Cls:K0?A:KN?L :X0?U :Y0?V :F0?W :R0?P :RN?Q:ZX:-1,+1,0?G:IfEnd :Cls 1O: Prog XY-BCls:1.ZS 2.FS? I: I=2=Goto 3Cls:XC?H:YC?ZLbI 1 : Cls:K+?KIf KL Or KA : Then Cls: Locate 6,2,K OUT !Stop: IfEndLbI 2: Cls:90B: Cls:RJ Or 0 To K?B:B=0 =Goto 1:Z?TProg XY-AX+Tcos(M+B)XY+Tsin(M+B)Y360Frac(M+360)360MPol(X-H,Y-Z : 360Frac(J+360)360J2O: Prog XY-B:Goto 2LbI 3 : Cls: X?C:Y?DLbI 4 : If KL Or KA : Then Cls: Locate 6,2,K OUT !Stop:IfEndProg XY-A(D-Y)sin(M)+(C-X)cos(M)HIf Abs(H)X10-3 :Then K+HK:Goto 4:IfEnd(D-Y)cos(M)T3O: Prog XY-B:Goto 3子程序1名： XY-A5N: G(Q-1-P-1)Abs（L-A）F: Abs（K-A）NR: 90RS: W+(FNR+2GP-1)NSM:1EU+R6(Cos (W)+Cos (M) +4（Cos (W+(E+0.5)FR+2GP-1)(E+0.5)S),E,0,(N-1)）+2（Cos (W+(EFR+2GP-1)ES,E,1,(N-1)）X V+R6(sin (W)+sin (M) +4（sin (W+(E+0.5)FR+2GP-1)(E+0.5)S),E,0,(N-1)）+2（sin (W+(EFR+2GP-1)ES,E,1,(N-1)）Y 子程序2名： XY-BCls :Fix 3:If O=1:Then XY RESULTS: K0=:KN=:F0=: Locate 5,2,A : Locate 5,3,L : Locate 5,4,WCls :X0=:Y0=:R0=:RN=: Locate 5,1,U : Locate 5,2,V : Locate 5,3,GP : Locate 5,4,GQIfEndIf O=2:ThenCls :K=:Z=:X=:Y=: Locate 6,1, K : Locate 4, 2, T : Locate 4,3, X : Locate 4,4, YIf T=0 :Then Cls :QF(Z)=: Locate 8,1, M:MDMSIfEndCls :K=:S=: Locate 6,1, K : Locate 4, 2, I : F=:J:JDMSIfEndIf O=3:Then X=:Y=:K=:Z=: Locate 4,1,C: Locate 4, 2, D : Locate 6,3,K :Locate 4,4,TIfEnd:Cls线路线元数据库子程序格式:数据库采用给矩阵变量Mat B赋值的形式，使数据组织更加简洁，极大的减少了线路数据库子程序的输入量，节约了计算器空间程序说明： 程序线元判断原则: (1) 以道路中线的前进方向（即里程增大的方向）区分左右； (2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。(3) 当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次代替输入10x45。(4) 当线元为圆曲线时，无论其起点、终点与什么线元相接，其曲率半径均等于圆弧的半径。(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替输入10x45；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径为无穷大，以10的45次代替输入10x45；与圆曲线相接时，曲率半径等于圆曲线的半径。(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。输入与显示简单说明1.ZS 2.FS选1正算 选2反算K0？ KN? R0? RN?F0?X0? Y0?ZX? 分别为线元起点桩号 、终点桩号、起点半径、终点半径、起点切线方位角、起点X坐标、起点Y坐标、线元转向。XC ? YC? 输入置镜点即测站的X,Y坐标K+? 输入所求的桩号Z ？ 输入所求点距中线的边距(在中线输零，左负右正) RJ？ 输入边桩时左右边桩连线与线路前进方向中桩切线的右交角（当输入数字0时进入下一个桩号计算输入）X =、Y = 计算得出的所求点的左、中、右 的X Y坐标 QF(Z)= 计算得出所求点的中