![]() |
||||||
|
| Script S2_2_16.m | |||
|
|||
|
%==============================================
%Principal planes %============================================== % %the focal lengths in cm f1=81.3; f2=87.8; %the distance between them in cm t=37; %the focal length f of the system of two lens somma=f1+f2; prod=f1*f2; f=prod./(somma-t) %for the meaning of the next variables %see the problem z2=f1-t somma2=f2+z2; prod2=z2*f2; zp2=prod2./somma2 diff=f-zp2 hp=t-diff % %the place of the two lenses are interchanged F1=87.8; F2=81.3; %for the meaning of the next variables %see the problem Z2=F1-t Somma2=F2+Z2; Prod2=Z2*F2; Zp2=Prod2./Somma2 H=f-Zp2 % % %the two lenses return to the initial places f1=81.3; f2=87.8; %now the distance between the lenses %is variable t1=linspace(166,172,60); somma1=f1+f2; prod1=f1*f2; f1=prod1./(somma1-t1); %plot of focal length function of t plot(t1,f1,'ro-'),grid on title('focal length of the coaxial system function of t') %============================================== % |
|||
| Top | |||