Subversion Repositories svnkaklik

Rev

Rev 945 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log

Rev 945 Rev 946
1 
set terminal png
 1 
set terminal png
2 
 
 2 
 
3 
set key off
 3 
set key off
4 
set grid
 4 
set grid
5 
 
 5 
 
6 
f(x)=k*x+q
 6 
f(x)=k*x+q
7 
g(x)=p/x+t
 7 
g(x)=p/x+t
8 
 
 8 
 
9 
#energeticka kalibrace
 9 
#energeticka kalibrace
10 
 
 10 
 
11 
fit f(x) "kalibrace.txt" using 1:2 via k,q
 11 
fit f(x) "kalibrace.txt" using 1:2 via k,q
12 
set output "kalibrace.png"
 12 
set output "kalibrace.png"
13 
set xlabel "Číslo kanálu"
 13 
set xlabel "Číslo kanálu"
14 
set ylabel "Energie [keV]"
 14 
set ylabel "Energie [keV]"
15 
plot "kalibrace.txt" using 1:2 with points, f(x)
 15 
plot "kalibrace.txt" using 1:2 with points, f(x)
16 
 
 16 
 
17 
#set xrange [0:2000]
17 
#set xrange [0:2000]
18 
 
 18 
 
19 
# energeticke rozliseni
19 
# energeticke rozliseni
20 
fit g(x) "kalibrace.txt" using ($2):(($3)/($2)) via p,t
 20 
fit g(x) "kalibrace.txt" using ($2):(($3)/($2)) via p,t
21 
set output "kalibrace_sigma.png"
 21 
set output "kalibrace_sigma.png"
22 
set xlabel "Energie [keV]"
 22 
set xlabel "Energie [keV]"
23 
set ylabel "S [-]"
 23 
set ylabel "S [-]"
24 
plot "kalibrace.txt" using 2:($3/$2) with points, g(x)
 24 
plot "kalibrace.txt" using 2:($3/$2) with points, g(x)
25 
 
 25 
 
26 
set xrange [0:1800]
26 
set xrange [0:1800]
27 
 
 27 
 
28 
set output "pozadi.png"
 28 
set output "pozadi.png"
29 
set xlabel "Energie [keV]"
 29 
set xlabel "Energie [keV]"
30 
set ylabel "Intenzita [Imp]"
 30 
set ylabel "Intenzita [Imp]"
31 
plot "./data2/pozadi.txt" using (f($1)):2 with points
 31 
plot "./data2/pozadi.txt" using (f($1)):2 with points
32 
 
 32 
 
33 
 
 33 
 
34 
set key top
 34 
set key top
35 
 
 35 
 
36 
set xrange [0:300]
36 
set xrange [0:300]
37 
set output "Am241.png"
 37 
set output "Am241.png"
38 
plot "./data2/Am.txt" using (f($1)):2 with points title "Am"
 38 
plot "./data2/Am.txt" using (f($1)):2 with points title "Am"
39 
 
 39 
 
40 
set xrange [0:800]
40 
set xrange [0:800]
41 
set yrange [0:8000]
41 
set yrange [0:8000]
42 
set output "Ba133.png"
 42 
set output "Ba133.png"
43 
plot "./data2/Ba.txt" using (f($1)):2 with points title "Ba"
 43 
plot "./data2/Ba.txt" using (f($1)):2 with points title "Ba"
44 
 
 44 
 
45 
set xrange [0:1800]
45 
set xrange [0:1800]
46 
set yrange [0:500]
46 
set yrange [0:500]
47 
set output "Co60.png"
 47 
set output "Co60.png"
48 
plot "./data2/Co.txt" using (f($1)):2 with points title "Co"
 48 
plot "./data2/Co.txt" using (f($1)):2 with points title "Co"
49 
 
 49 
 
50 
set yrange [0:3000]
50 
set yrange [0:3000]
51 
set output "Cs137.png"
 51 
set output "Cs137.png"
52 
plot "./data2/Cs.txt" using (f($1)):2 with points title "Cs"
 52 
plot "./data2/Cs.txt" using (f($1)):2 with points title "Cs"
53 
 
 53 
 
54 
set key off
 54 
set key off
55 
set yrange [0:600]
55 
set yrange [0:600]
56 
set output "neznamy.png"
 56 
set output "neznamy.png"
57 
plot "./data2/neznamy.txt" using (f($1)):2 with points title "Uknown"
 57 
plot "./data2/neznamy.txt" using (f($1)):2 with points title "Uknown"
58 
 
 58 
 
59 
set key under
 59 
set key under
60 
#set autoscale x
 60 
#set autoscale x
61 
set autoscale y
 61 
set autoscale y
62 
set xrange [0:4]
 62 
set xrange [0:4]
63 
#set logscale y
 63 
#set logscale y
64 
 
 64 
 
65 
c1(x)=I1*exp(u1*x)
 65 
c1(x)=I1*exp(u1*x)
66 
c2(x)=I2*exp(u2*x)
 66 
c2(x)=I2*exp(u2*x)
67 
c3(x)=I3*exp(u3*x)
 67 
c3(x)=I3*exp(u3*x)
68 
 
 68 
 
69 
I1=10000
 69 
I1=10000
70 
I2=10000
 70 
I2=10000
71 
I3=10000
 71 
I3=10000
72 
 
 72 
 
73 
fit [0:2] c1(x) "./stineni.txt" using ($1):2 via I1,u1
 73 
fit [0:2] c1(x) "./stineni.txt" using ($1):2 via I1,u1
74 
fit [0:2] c2(x) "./stineni.txt" using ($1):3 via I2,u2
 74 
fit [0:2] c2(x) "./stineni.txt" using ($1):3 via I2,u2
75 
fit [0:2] c3(x) "./stineni.txt" using ($1):4 via I3,u3
 75 
fit [0:2] c3(x) "./stineni.txt" using ($1):4 via I3,u3
76 
 
 76 
 
77 
set output "stineni.png"
 77 
set output "stineni.png"
78 
plot "./stineni.txt" using ($1):2:5 with errorbars title "1332,492 keV", c1(x), "" using ($1):3:6 with errorbars title "1173,228 keV",c2(x)
 78 
plot "./stineni.txt" using ($1):2:5 with errorbars title "1332,492 keV", c1(x), "" using ($1):3:6 with errorbars title "1173,228 keV",c2(x)
79 
 
 79 
 
80 
 
 80 
 
81 
set xrange [0:4]
 81 
set xrange [0:4]
82 
set yrange [150000:200000]
 82 
set yrange [150000:200000]
83 
 
 83 
 
84 
set output "stineni2.png"
 84 
set output "stineni2.png"
85 
plot "./stineni.txt" using ($1):4:7 with errorbars title "661,657 keV", c3(x)
 85 
plot "./stineni.txt" using ($1):4:7 with errorbars title "661,657 keV", c3(x)
86 
 
 86 
 
87 
set autoscale y
 87 
set autoscale y
88 
#set autoscale x
 88 
#set autoscale x
89 
set xrange [100:1500]
 89 
set xrange [100:1500]
90 
set output "utlum.png"
 90 
set output "utlum.png"
91 
plot "./utlumy.txt" using (f($1)):5 with points title "0 mm", "" using (f($1)):10 with points title "2 mm", "" using (f($1)):15 with points title "3,5 mm"
 91 
plot "./utlumy.txt" using (f($1)):5 with points title "0 mm", "" using (f($1)):10 with points title "2 mm", "" using (f($1)):15 with points title "3,5 mm"
92 
 
 92 
 
- 
 
 93 
set output "utlum0.png"
- 
 
 94 
plot "./utlumy.txt" using (f($1)):2 with points title "0 mm pozadi", "" using (f($1)):4 with points title "0 mm zarice"
- 
 
 95 
 
- 
 
 96 
set output "utlum2.png"
- 
 
 97 
plot "./utlumy.txt" using (f($1)):7 with points title "2 mm pozadi", "" using (f($1)):9 with points title "2 mm zarice"
- 
 
 98 
 
- 
 
 99 
 
- 
 
 100 
set output "utlum35.png"
- 
 
 101 
plot "./utlumy.txt" using (f($1)):12 with points title "3,5 mm pozadi", "" using (f($1)):14 with points title "3,5 mm zarice"
- 
 
 102 
 
- 
 
 103 
 
93 
print u1
 104 
print u1
94 
print u2
 105 
print u2
95 
print u3
 106 
print u3