source: Sophya/branches/Reza/AddOn/TAcq/dispspectre.pic@ 3537

Last change on this file since 3537 was 3537, checked in by ansari, 17 years ago

Ajout du module AddOn/TAcq (programmes test pour acquisition BAORadio) ds cvs sophya (sous-repertoire AddOn/) , Reza 22/10/2008

File size: 1.3 KB
Line 
1setaxesatt 'font=helvetica,bold,14 fixedfontsize minorticks'
2
3set CDIR './'
4
5defscript ds
6 min = 1
7 max = 10
8 if ( $# > 1 ) then
9 min = $1
10 max = $2
11 endif
12 echo "IMin = $min IMax= $max"
13 for i ${min}:$max
14 del spectre
15 openppf $CDIR/spectre$i.ppf
16 rename spectre$i spectre
17 plot2d spectre 1200.+n*500./4072. val n>2 'notit'
18# plot2d spectre n val n>2
19 settitle "Spectre $i" 'freq MHz' 'font=helvetica,bolditalic,16'
20
21 sleep 1
22 end
23endscript
24
25defscript dsv
26 min = 1
27 max = 10
28 if ( $# > 1 ) then
29 min = $1
30 max = $2
31 endif
32 echo $min $max
33 for i ${min}:$max
34 mv spectre /autoc/spectre
35 openppf $CDIR/spectre$i.ppf
36 rename spectre$i spectre
37 disp spectre 'notit'
38 settitle "Spectre $i" ' ' 'font=helvetica,bolditalic,16'
39 sleep 1
40 end
41endscript
42
43defscript dsh
44 min = 1
45 max = 10
46 if ( $# > 1 ) then
47 min = $1
48 max = $2
49 endif
50 echo "IMin = $min IMax= $max"
51 newh1d hspec 1199.5 1449.5 2036
52 zone 1 2
53 for i ${min}:$max
54 del spectre
55 openppf $CDIR/spectre$i.ppf
56 rename spectre$i spectre
57 projh1d hspec spectre 1200.+n*500./4072. val n>0&&n<2037 'nodisp'
58# disp hspec
59# disp spectre
60# settitle "Spectre $i" 'freq MHz' 'font=helvetica,bolditalic,16'
61# sleep 1
62 end
63zone 1
64disp hspec
65endscript
66
67
68
Note: See TracBrowser for help on using the repository browser.