中线坐标计算改进版.doc

《中线坐标计算改进版.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、公路中线坐标计算改进版王庆军ZHYHZ（主程序）1.Deg:Fix3:12→DimZ2.“ZHYHZ:Z[1-N]”?→Z[9]↙3.IfZ[9]=0:Then“X1”?D:“Y1”?E:“X2”?F:“Y2”?G:“X3”?H:“Y3”?V:“JD2”?W:“Ls1”?L:“Ls2”?T:“R”?R:IfEnd↙4.Cls:“1:KB→XY:2:XY→KB”?→Z[10]:Z[10]=2＝＞Goto3↙5.“CZX”?X:“CZY”?Y↙6.Lbi0:“Kp”?K↙7.Z[9]＞0＝＞Prog“XLZB”:Prog“AA”↙8.Lbi1:90→Z:“JJ=”?Z:Z=0＝＞

2、Goto0:“JB=”?B↙9.IfB≤0：ThenRec（AbsB，Q+Z－180）：ElseRec（AbsB，Q+Z）：IfEnd↙10.M+I→M：N+J→N↙11.Pol（M－X，N－Y）：Prog“BB”：J→J:I→I↙12.1→C:Prog“ZHYHZ-XS”↙13.Lbi2:0→S:“S=”?S:I-S→S▲IfAbs(s)≥0.01:ThenGoto2:ElseGoto1:EfEnd↙14.Lbi3:“Xb=”?M:“Yb=”?N:“Kp=”?K↙15.0→S:0→B:M→Z[11]:N→Z[12]↙16.Lbi4:Z[9]﹥0＝＞Prog“XLZB”:Pr

3、og“AA”↙17.Pol(Z[11]-M,Z[12]-N):IfJ≤0:ThenJ+360→J:IfEnd:J→J:I→I↙18.ICos(J-Q)→S:K+S→K:IfAbs(S)＞0.0001:ThenGoto4:IfEnd↙19..ISin(J-Q)→B↙20.2→C:Prog“ZHYHZ-XS”:Goto3↙ZHYHZ-XS（显示子程序）1.Cis:IfC=1:Then“X=”:Locate4,1,M:“Y=”:Locate4,2,N:Fix4:“FJ=”:Locate4,3,J°:“HD=”:Locate4,4,I▲↙2.IfC=2:Then“K=”:Locate

4、4,2,K:“B=”:Locate4,3,B▲IfEnd↙XLZB（路由器）1.IfZ[9]=1:ThenProg“XLZB-1”:Goto1:IfEnd↙2.IfZ[9]=2:ThenProg“XLZB-2”:Goto1:IfEnd↙3.IfZ[9]=3:ThenProg“XLZB-3”:Goto1:IfEnd↙4.IfZ[9]=4:ThenProg“XLZB-4”:Goto1:IfEnd↙1.Cls:Locate4,2,“ZHYHZ-ERROR”▲Sotp↙2.Lbi1↙XLZB-1（数据库）1.IfK≤××××．×××∶ThenGotoA：ElseIfK≥××××．××

5、×AndK≤××××．×××∶ThenGotoB∶ElseIfK≥××××．×××AndK≤××××．×××：ThenGotoC∶………：ElseIfK≥××××．×××∶ThenGotoN∶EfEnd∶EfEnd∶……∶EfEnd(N个)↙2.Cls:Locate6,2,“KPOUT”▲Stop↙3．LbiA∶(X1)××××．×××→D∶(Y1)××××．×××→E∶(X2)××××．×××→F∶(Y2)××××．×××→G∶(X3)×××××××→H∶(Y3)××××．×××→V∶(JD2)××××．×××→W∶(LS1)××××．×××→L∶(LS2)××××．×××

6、→T∶(R)××××．×××→R∶Goto0↙4．LbiB∶(X1)××××．×××→D∶(Y1)××××．×××→E∶(X2)××××．×××→F∶(Y2)××××．×××→G∶(X3)××××．×××→H∶(Y3)××××．×××→V∶(JD2)×××××××→W∶(LS1)××××．×××→L∶(LS2)××××．×××→T∶(R)××××．×××→R∶Goto0↙5．LbiC∶(X1)××××．×××→D∶(Y1)××××．×××→E∶(X2)××××．×××→F)∶(Y2)××××．×××→G∶(X3)××××．×××→H∶(Y3)××××．×××→V∶(JD2)×

7、×××．×××→W∶(LS1)××××．×××→L∶(LS2)××××．×××→T∶(R)××××．×××→R∶Goto0↙………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………………N．LbiN∶(X1)××××．×××→D∶(Y1)××××．×××→E∶(X2)××××．×××→F∶(Y2)××××．×××→G:(X3)×