Home

Introduction

Contents

Scripts

FeedBack

Date 08/09/2010
Script S2_2_16.m
Download 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