![]() |
||||||
|
| 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 | |||