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