| Date 06/09/2010 |
|
||||||
|
| Script S4_2_2.m | |||
|
|||
|
%==============================================
%A wedge shaped soap film %============================================== % %refractive index od the water n=4/3; %wavelength of the incident beam in microm lambda=0.6; %number N+1 of fringes N=4; m=0:N; max=length(m) %preliminary calculi n4=n*4; n2=n*2; num1=2*m+1; %the path shift for maxima dmax=num1*lambda/2 %and for minima dmin=m*lambda %thickness for maxima tmax=(num1*lambda)/n4 %thickness for minima tmin=m*lambda/n2 %plot of thicknesses function of the oerder m plot(m,tmax,'ro-',m,tmin,'bd-'),grid on title('t in micron for maxima(red) and minima(blue) function of the order m') axis([0,N,0,1.05]) figure %difference diffmax and diffmin between two adjacent maxima or minima for i=1:max-1 ip1=i+1; diffmax(i)=tmax(ip1)-tmax(i); diffmin(i)=tmin(ip1)-tmin(i); end diffmax diffmin %difference between a maximum and the adjacent minimum for j=1:max diff(j)=tmax(j)-tmin(j); end diff % %================================= %Ir function of the thickness t %================================= k=2*pi/lambda; % t=linspace(eps,0.6,101) t=linspace(eps,0.6,41) d=2*n*t; arg=k*d/2; Ir=4*(sin(arg)).^2 plot(t,Ir,'ro-'),grid on title('Ir function of the thickness t between 0 and 0.6 micron') axis([0,0.6,0,4]) %when thickness changes from 0 to 0.6 micron there %are three minima and three maxima %============================================== % |
|||
| Top | |||
