Home

Introduction

Contents

Scripts

FeedBack

Date 08/09/2010
Script S4_2_3.m
Download Script S4_2_3.m
%==============================================
%Newton's rings 1
%==============================================
%
%wavelength lambda (in mm)
%of the incident monochromatic beam
lambda=0.643e-03;
%value of radius R (in mm) of the lens
R=6.2208e+003;
%
%first ten radii r (in mm) of the rings
M=10;
m=1:M;
costm=sqrt(m);
cost=sqrt(lambda*R);
rm=cost*costm(m)
plot(m,rm,'ro-'),title('first ten radii r (in mm) of the rings')
grid on, figure
%
%difference diff between two adjacent rings (in mm)
for m=1:M-1
mp1=m+1;
diff(m)=rm(mp1)-rm(m);
end
diff
mm1=2:M;
plot(mm1,diff,'bd-'),grid on
title('difference diff between two adjacent rings (in mm)')
figure
%
%corresponding values of the thickness t (in micron)
tm=((rm.^2)/(2*R))*1000
m=1:M;
plot(m,tm,'g*-'),grid on,title('rings thickness t (in micron)')
%==============================================
%
Top