reset

set title "Eingangswiderstand des Tastkopfs"
set xlabel "[t in s]"
set ylabel "[R in Ohm]"
set grid xtics ytics
set key top left

t1 = 0
U1 = 0.536
C = 0.47e-6

f(x) = m * x + a
fit f(x) 'DatenEntladungTastkopf.txt' us ($1)-0.800:(($1)-t1-0.800)/(C*(log(U1) - log($2))) via m,a

plot \
'DatenEntladungTastkopf.txt' us ($1)-0.800:(($1)-t1-0.800)/(C*(log(U1) - log($2))) notitle lt 1, \
f(x) title "Ausgleichsgerade" lt 3

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