This preview has intentionally blurred sections. Sign up to view the full version.
View Full DocumentThis preview has intentionally blurred sections. Sign up to view the full version.
View Full DocumentThis preview has intentionally blurred sections. Sign up to view the full version.
View Full DocumentThis preview has intentionally blurred sections. Sign up to view the full version.
View Full DocumentThis preview has intentionally blurred sections. Sign up to view the full version.
View Full DocumentThis preview has intentionally blurred sections. Sign up to view the full version.
View Full Document
Unformatted text preview: ylabel('Magnetization M\cdot cos\phi') legend(int2str(180/pi*thetas')); figure(2) Mtot=zeros(1,length(hs)); for ii=1:(length(hs)1) for jj=1:length(thetas) if H(ii,jj)~=0 Mtot(ii)=Mtot(ii)+M(ii,jj); else %it switched Mtot(ii)=Mtot(ii)M(length(hs)ii,jj); end end end plot(hs,Mtot);hold on; plot(hs, Mtot); hold off; xlabel('Reduced Magnetic Field h') ylabel('Magnetization M\cdot cos\phi')...
View
Full Document
 Fall '11
 Appelbaum
 Magnetism, Solid State Physics, Magnetic Field, Cyclic group, (hs)1), M\cdot cos\phi

Click to edit the document details