HW1soln - xlabel('Angular Frequency [s^{-1}]')...

Info iconThis preview shows pages 1–5. Sign up to view the full content.

View Full Document Right Arrow Icon
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 2
clear; taus=10.^(-13:-1:-15); w=10.^(13:0.01:18); c=3e10; %cm/s m=5.11e5/c^2;%eV/c^2 n=1e23;%cm^(-3) alpha=1/137; %fine structure const hc=1240e-7; %in eV*cm ii=1; for tau=taus sigmaoeps0=n*tau/m*(2*hc*alpha)./(1-i*w*tau); eps_rel=1+i*sigmaoeps0./w; r=(1-sqrt(eps_rel))./(1+sqrt(eps_rel)); R(ii,:)=r.*conj(r); %reflection coef imagk=imag(w.*sqrt(eps_rel)/c); sd(ii,:)=1./imagk; %skin depth ii=ii+1; end figure(1) semilogx(w,R) legend(num2str(taus'),'Location','SouthWest')
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Background image of page 4
Background image of page 5
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: xlabel('Angular Frequency [s^{-1}]') ylabel('Reflection coefficient') wp=sqrt(n/m*(2480e-7/137)); %plasma frequency hold on; plot([wp wp], [0 1],'k');hold off; figure(2) loglog(w,sd); v=axis; xlabel('Angular Frequency [s^{-1}]') ylabel('skin depth [cm]') legend(num2str(taus'),'Location','NorthWest') hold on; plot([wp wp], [v(3) v(4)],'k');hold off;...
View Full Document

This note was uploaded on 12/29/2011 for the course PHYSICS 731 taught by Professor Appelbaum during the Fall '11 term at Maryland.

Page1 / 5

HW1soln - xlabel('Angular Frequency [s^{-1}]')...

This preview shows document pages 1 - 5. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online