Subversion Repositories svnkaklik

Rev

Go to most recent revision | Details | Last modification | View Log

Rev Author Line No. Line
589 kaklik 1 
set terminal postscript
2 
set samples 2000
3 
set key off
4 
set xlabel "time [s]"
5 
set ylabel "amplitude [1]"
6 
 
7 
s=1913
8 
#d=0.1
9 
a=500
10 
o=14
11 
fi=pi
12 
 
13 
set output "pohl0.ps"
14 
f(x)=a*exp(-d*x)*sin(o*x+fi)+s
15 
fit f(x) "pohl0.txt" using 2:3 via a, d, o,fi ,s
16 
plot f(x)
17 
 
18 
set output "pohl200.ps"
19 
f(x)=a*exp(-d*x)*sin(o*x+fi)+s
20 
fit f(x) "pohl200.txt" using 2:3 via a, d, o,fi ,s
21 
plot f(x)
22 
 
23 
set output "pohl400.ps"
24 
f(x)=a*exp(-d*x)*sin(o*x+fi)+s
25 
fit f(x) "pohl400.txt" using 2:3 via a, d, o,fi ,s
26 
plot f(x)
27 
 
28 
set output "pohl500.ps"
29 
f(x)=a*exp(-d*x)*sin(o*x+fi)+s
30 
fit f(x) "pohl500.txt" using 2:3 via a, d, o,fi ,s
31 
plot f(x)
32 
 
33 
set output "pohl600.ps"
34 
f(x)=a*exp(-d*x)*sin(o*x+fi)+s
35 
fit f(x) "pohl600.txt" using 2:3 via a, d, o,fi ,s
36 
plot f(x)
37 
 
38 
set output "pohl700.ps"
39 
f(x)=a*exp(-d*x)*sin(o*x+fi)+s
40 
fit f(x) "pohl700.txt" using 2:3 via a, d, o,fi ,s
41 
plot f(x)
42 
 
43 
!ps2pdf pohl0.ps
44 
!ps2pdf pohl200.ps
45 
!ps2pdf pohl400.ps
46 
!ps2pdf pohl500.ps
47 
!ps2pdf pohl600.ps
48 
!ps2pdf pohl700.ps