set fit logfile "Arrheniusfit.log"
set parametric
set samp 50
seed = rand(time(0))
unset key
dat="Arrheniusfit.dat"
set table dat
R = 8.314
E = 1.33e4
f(T,E) = 7*exp(-E/(R*T))
set trange [393:773]
plot 1/t, f(t,E) + 0.05*(rand(0) - 0.5)
unset table

fit f(t,Ea) dat using (1/($1)): 2 via Ea
set title sprintf("推定値: E_{a} = %.3e", Ea) font "IPAGothic,16"
set xlabel "1/T [K^{-1}]" font "Times,14"
set logscale y
set grid xtics ytics mytics
set xtics ("1/400" 1.0/400, "1/500" 1.0/500,\           
           "1/600" 1.0/600 , "1/700" 1.0/700, "1/800" 1.0/800) 
set term pngcairo enh font "Times,10" size 480,360
set out "fit_Arrhenius.png"
plot dat u 1:2 pt 6 ps 0.4 lc rgb "#009900", 1/t, f(t,E) lt 1