有時會想知道某一鏡片的有效
焦距 1<n'F
H3 !gX(Vh*k
6jpfo'uB$ kWm[Lt 如圖,想知道第二枚鏡片的有效焦距,然後鍵入Eva (efy s3..4) 指令後得到
])vWvNx 91.7933170054708。
T {B\1|2w xC^| S0B 但因為第二及第三枚鏡片為膠合鏡,所以前述焦距其實是受到第三枚鏡片影響,而非第二枚鏡片本身在空氣中的焦距。
&3~_9+ \*i[m&3;q 應用造鏡者公式,下述函數可計算出第 s1 及 s+1 鏡面所形成之鏡片在空氣中之焦距:
D@iE 2-n&V !--------------------------------------------------------------------------
$:!L38[7$ fct @EleEFY(num ^s1, num ^z)
%&\DCAFk ^s2== ^s1+1
NB)$l2<d ^n== (ind s^s1 z^z); ^d == (thi s^s1 z^z)
*T:gx:Sg/ ^c1== (cuy s^s1 z^z); ^c2 == (cuy s^s2 z^z)
.'Rz
tBv ^K== (^n-1)*(^c1-^c2+(^n-1)/^n*^d*^c1*^c2)
ZD`p$:pT if^K <> 0
t}m"rMbt ^EleEFY == 1/^K
YLkdT% els
!`qw"i ^EleEFY == 1e11
K!A;C#b! endif
{+@M! end fct ^EleEFY
,Z aPY !---------------------------------------------------------------------------
XMi)PXs$ yh{Wuz=T 鍵入eva @EleEFY(3, 1) 得到57.1690177496983。這才是它本身的有效焦距。