![]() |
||||||
|
| Script S2_2_9.m | |||
|
|||
|
%==============================================
%Doublet %============================================== % %============================================== %============================================== %CORRIGENDA %in the book in formula f=(z*zp)/(z-zp), pag %the value 15.6 must be replaced by 14.6 %that we find running this script %============================================== %============================================== % %values are in cm %distance of the object z=-15; %distance of the image zp=500; %the focal length a=z*zp; b=z-zp; f=a/b % %refrative index and dispersive power %of the first lens n1=1.5097; D1=0.0155; %refrative index and dispersive power %of the second lens n2=1.8503; D2=0.0311; %values of f1 and f2 D21=D2-D1; f1=f*D21/D2 f2=-f*D21/D1 %value of R2 R2=(n2-1)*f2 Rp1=R2 %value of R1 a=1/(f1*(n1-1))+1/Rp1 R1=1/a %============================================== % |
|||
| Top | |||