%diffusion vs molecular weight


A=[ 1,4.5e-5;
    32,2.1e-5;
 48,1.92e-5;
 192,6.60e-6;
 5734,2.10e-6;
 1337 ,1.14e-6;
 16900,5.1e-7;
 66500,6.03e-7;
 64500,6.9e-7;
 247500,4.1e-7;
 482700,3.46e-7;
 330000,1.97e-7;
 524800,1.05e-7;
 40590000,5.3e-8];

B=log10(A);
x = B(:,1)
p=polyfit(x,B(:,2),1)
f = polyval(p,x);
       
figure(1)
plot(B(:,1),B(:,2),'o',x,f,'--','linewidth',2)
xlabel('Log_{10}(Molecular weight)','fontsize',20)
ylabel('Log_{10}(Diffusion coeficient)','fontsize',20)

