source: Sophya/trunk/AddOn/TAcq/dispspectre.pic@ 3940

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

This commit was generated by cvs2svn to compensate for changes in r3537,
which included commits to RCS files with non-trunk default branches.
File size: 1.3 KB
RevLine 
[3537]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.