1 | !------------------------------------------------------------------------ |
---|
2 | ! SIMULATE THE RESULTS OF OFF/ON-LINE MAGNETIC MEASUREMENTS |
---|
3 | !------------------------------------------------------------------------ |
---|
4 | Select,flag=ERROR, clear; |
---|
5 | Select,flag=ERROR, class=MB; |
---|
6 | Esave,file="temp/MB.errors",order=0,radius=Rr; |
---|
7 | System,"grep R1 temp/MB.errors > temp/MB.12"; |
---|
8 | System,"grep L2 temp/MB.errors >> temp/MB.12"; |
---|
9 | |
---|
10 | System,"grep R2 temp/MB.errors > temp/MB.23"; |
---|
11 | System,"grep L3 temp/MB.errors >> temp/MB.23"; |
---|
12 | |
---|
13 | System,"grep R3 temp/MB.errors > temp/MB.34"; |
---|
14 | System,"grep L4 temp/MB.errors >> temp/MB.34"; |
---|
15 | |
---|
16 | System,"grep R4 temp/MB.errors > temp/MB.45"; |
---|
17 | System,"grep L5 temp/MB.errors >> temp/MB.45"; |
---|
18 | |
---|
19 | System,"grep R5 temp/MB.errors > temp/MB.56"; |
---|
20 | System,"grep L6 temp/MB.errors >> temp/MB.56"; |
---|
21 | |
---|
22 | System,"grep R6 temp/MB.errors > temp/MB.67"; |
---|
23 | System,"grep L7 temp/MB.errors >> temp/MB.67"; |
---|
24 | |
---|
25 | System,"grep R7 temp/MB.errors > temp/MB.78"; |
---|
26 | System,"grep L8 temp/MB.errors >> temp/MB.78"; |
---|
27 | |
---|
28 | System,"grep R8 temp/MB.errors > temp/MB.81"; |
---|
29 | System,"grep L1 temp/MB.errors >> temp/MB.81"; |
---|
30 | |
---|
31 | System,"perl read.magnet.errors temp/MB.12"; Call,file="temp/MB.12.mad"; |
---|
32 | System,"perl read.magnet.errors temp/MB.23"; Call,file="temp/MB.23.mad"; |
---|
33 | System,"perl read.magnet.errors temp/MB.34"; Call,file="temp/MB.34.mad"; |
---|
34 | System,"perl read.magnet.errors temp/MB.45"; Call,file="temp/MB.45.mad"; |
---|
35 | System,"perl read.magnet.errors temp/MB.56"; Call,file="temp/MB.56.mad"; |
---|
36 | System,"perl read.magnet.errors temp/MB.67"; Call,file="temp/MB.67.mad"; |
---|
37 | System,"perl read.magnet.errors temp/MB.78"; Call,file="temp/MB.78.mad"; |
---|
38 | System,"perl read.magnet.errors temp/MB.81"; Call,file="temp/MB.81.mad"; |
---|
39 | |
---|
40 | return; |
---|