reset

set encoding iso_8859_1
set title "Abklingkonstante"
set xlabel "[R_a in {/Symbol kW}]"
set ylabel "[1/({/Symbol b}_{R_a} - {/Symbol b}_{unendlich}) in s]"
set grid xtics ytics
set key top left

beta_infty = 0.07

f(x) = a*x + b
fit f(x) 'DatenAbklingkonstante.txt' us ($2):(1/(($1)-beta_infty)) via a,b

plot 'DatenAbklingkonstante.txt' us ($2):(1/(($1)-beta_infty)) title 'Messwerte' lt 1, \
     f(x) title 'Ausgleichsgerade' lt 3

set output "abklingkonstante.eps"
set term postscript enhanced eps color; replot