Displaying 1 result from an estimated 1 matches for "tabh1".
Did you mean:
tab1
2009 Nov 26
1
Arrhenius Plot 2 with lattice
...n should be plottet as log10(n)~1000/T into the data:
kurve2<-function(T)2^-.5*sqrt(1e17*2*6*I(T^1.5)*(2*pi*0.689*9.109e-31*1.38e-23/43.9e-68)^1.5)*exp(-.047*1.6e-19/(2*1.38e-23*T))
#Here is the plot-function, but I don't know the argument for
#panel.curve()
trellis.device(jpeg,file="Tabh1.jpg",color=FALSE)
n2plot<-xyplot(n2log~Temp2,xlab=list(label="1000/T
(1/K)",fontsize=20),ylab=list(label="log(n/cm^3)",fontsize=20),scales=list(cex=1.5),panel=function(){panel.xyplot(Temp2,n2log);panel.curve(kurve2)})
print(n2plot)
dev.off()
thanks
Markus