![]() |
||||||
|
| Script S4_2_4.m | |||
|
|||
|
%==============================================
%The Newton's rings 2 %============================================== % %lambda in mm lambda=0.643e-03; % %values of R1 and R2 (in mm) R1=1555; R2=6221; %preliminary calculi Rper=R1*R2; Rplus=R1+R2; Rmeno=R2-R1; % %condition for the first ten dark fringes m=1:10 t=(m*lambda/2)*1000 % %------------------------------------------ %a plano-convex lens over plano-convex lens %------------------------------------------ % %preliminary calculi Acost1=sqrt(m); Acost2=sqrt(lambda); ARR=Rper/Rplus; Acost3=sqrt(ARR); %radii of the Newton's rings Ar=Acost1*Acost2*Acost3 %corresponding thickness At in micron between the two lenses Ass=Rplus/Rper; At=(0.5*(Ar.^2)*Ass)*1000 %--------------------------------------------- %a plano-convex lens over a concave-plane lens %--------------------------------------------- %preliminary calculi Bcost1=sqrt(m); Bcost2=sqrt(lambda); BRR=Rper/Rmeno; Bcost3=sqrt(BRR); %radii of the Newton's rings Br=Bcost1*Bcost2*Bcost3 %corresponding thickness Bt in micron between the two lenses Bss=Rmeno/Rper; Bt=(0.5*(Br.^2)*Bss)*1000 plot(m,Ar,'ro-',m,Br,'bd-'),grid on title('Radii Ar (red) and Br (blue) in mm') figure plot(m,At,'ro-',m,Bt,'bd-'),grid on title('Thicknesses At (red) and Bt (blue) in micron') %============================================== % |
|||
| Top | |||