AQH2-8程序修改后文件.docVIP

QH2-8程序集 主程序QH2-8 “AHKGS QH2-8” ◢ Deg:Fix 3:FreqOn 510→DimZ 设置Z[I]总变量数，线元最多不超过100，如果超过写为1010，这时线元总量不超过200 “NEW（0），OLD（≠0）DATA=”？ →C If C≠0:Then “RECOMP(0),NO(≠0)=” ？→G If G=0:Then Goto T:Else Goto J:IfEnd:IfEnd “CURVE NUM=”?N 某一条线元总数 0→K “Z[MIN]=“？K “START a(Deg)=”? →Z[5+K] For 1→I To N “n=”:I◢ “START R(m)=”? →Z[5I-4+K] Z[5I-4+K]=0=1*10^30→Z[5I-4+K] “END R(m)=”? →Z[5I-3+K] Z[5I-3+K]=0=1*10^30→Z[5I-3+K] “LENGTH(m)=”? →Z[5I-2+K] If Z[5I-4+K] 1*10^30 or Z[5I-3+K] 1*10^30:Then “DEFLEX L(-1),R(1)=”? →Z[5I-1+K]:IfEnd Next “[MODE][1]=Stop !” ◢ LBI T 0→I:For 1→I To N List X[I+K/5]+ReP(Z[5I-2+K]) →List X[I+1+K/5] List X[I+1+K/5] →Z If Z[5I-4+K]=Z[5I-3+K] And Z[5I-4+K]=1*10^30 Then 0→S:0→T:Z[5I-2+K] →D Prog “SUBQ2-84”:Goto 0:IfEnd If Z[5I-4+K]=Z[5I-3+K] And Z[5I-4+K]1*10^30 Then Prog “SUBQ2-83”:Goto 0:IfEnd →A ReP(Z[5I-2+K])+Ai→Z[5I-2+K] Prog “SUBQ2-82” LbI 0 T→Z[5(I+1)+K] ReP(U) →List Y[I+1+K/5] ImP(U) →List Freq[I+1+K/5] Next “PEG-END(m)=”:List X[N+1+K/5] ◢ “a-END(DMS)=”:Z[5(N+1)+K] ◆DMS◢ “X-END(m)=”:List Y[N+1+K/5] ◢ “Y-END(m)=”:List Freq[N+1+K/5] ◢ “[MODE] [4]=Stop!” ◢ LBI J “STA BACK XY,NEW(0),OLD(≠0)=”? →J J≠0=Goto 1 “STA n,X(m),0=N0=”? →S 0→Z[501] S0=Goto 1 “STA Y(m)=”? →T:S+Ti→Z[501] “BACK n,X(m),OLD a(0),0=a=”? →U U=0=Goto 1 If U0:Then “a-BACK(Deg)=”? →Z[503]:Goto 1:IfEnd “BACK Y(m)=”? →V U+Vi→Z[502] Arg(Z[502]-Z[501]) →J J0=J+360→J:J→Z[503] LBI 1 Prog “SUBQ2-88” 进入选择线路程序 1→Q “PEG→ZS（1），FS（2），3XYH（≥3）=”？ →Q Q≠1=Goto 2 Do “+K(m),0=END=”?Z ZList X[1+K/5] or ZList X[N+1+K/5]=Break For 1→I To N ZList X[I+K/5] or ZList X[I+1+K/5]=Goto N Z-List X[I+K/5] →L If [5I-4+K]=Z[5I-3+K] And Z[5I-4+K]=1*10^30 Then 0→S:0→T:L→D Prog “SUBQ2-84” Prog “SUBQ2-85” Break:IfEnd If Z[5I-4+K]=Z[5I-3+K] And Z[5I-4+K]1*10^30 Then Prog “SUBQ2-83” Prog “SUBQ2-85”:Break:IfEnd Prog “SUBQ2-82” Prog “SUBQ2-85” Break LbI N Next LpWhile Z0:Goto E LbI 2 “XJ(m),0=END=”?X:X0=Goto E “YJ(m)=”?Y “J in NUM,0=AUTO=”? →I I0=Goto 3 Abs(X+Yi-List