Subversion Repositories svnkaklik

set terminal postscript

set samples 2000

set key off

set xlabel "time [s]"

set ylabel "amplitude [1]"

s=1913

#d=0.1

a=500

o=14

fi=pi

set output "pohl0.ps"

f(x)=a*exp(-d*x)*sin(o*x+fi)+s

fit f(x) "pohl0.txt" using 2:3 via a, d, o,fi ,s 

plot f(x)

set output "pohl200.ps"

f(x)=a*exp(-d*x)*sin(o*x+fi)+s

fit f(x) "pohl200.txt" using 2:3 via a, d, o,fi ,s 

plot f(x)

set output "pohl400.ps"

f(x)=a*exp(-d*x)*sin(o*x+fi)+s

fit f(x) "pohl400.txt" using 2:3 via a, d, o,fi ,s 

plot f(x)

set output "pohl500.ps"

f(x)=a*exp(-d*x)*sin(o*x+fi)+s

fit f(x) "pohl500.txt" using 2:3 via a, d, o,fi ,s 

plot f(x)

set output "pohl600.ps"

f(x)=a*exp(-d*x)*sin(o*x+fi)+s

fit f(x) "pohl600.txt" using 2:3 via a, d, o,fi ,s 

plot f(x)

set output "pohl700.ps"

f(x)=a*exp(-d*x)*sin(o*x+fi)+s

fit f(x) "pohl700.txt" using 2:3 via a, d, o,fi ,s 

plot f(x)

!ps2pdf pohl0.ps

!ps2pdf pohl200.ps

!ps2pdf pohl400.ps

!ps2pdf pohl500.ps

!ps2pdf pohl600.ps

!ps2pdf pohl700.ps