function rn = schott(a,wvln) % SCHOTT % % SCHOTT(A,WVLN) returns a matrix whose elements are the % refractive indices calculated using the Schott % dispersion formula. % % SCHOTT(A) returns the refractive index at 0.58756 (n_d) % % A vector of Schott coefficients % WVLN vector of wavelengths (microns) % % if (nargin<2) wvln = [0.58756]; end ws = wvln.*wvln; rn = sqrt(a(1)+ws.*a(2)+ (a(3)+(a(4)+(a(5)+a(6)./ws)./ws)./ws)./ws);
>> a = [2.2718929 -1.0108077e-2 1.0592509e-2 2.0816965e-4 -7.6472538e-6 4.9240991e-7]; >> wvl = [ 0.48613 0.58756 0.65627]; >> schott(a,wvl) ans = 1.5224 1.5168 1.5143 >> format long >> rn = schott(a,wvl) rn = 1.52237718435987 1.51679977054573 1.51432312962362 >> abbe = (rn(2)-1)/(rn(1)-rn(3)) abbe = 64.16640902867334 >> w = linspace(0.4,0.7,100); >> plot(w,schott(a,w)) >> xlabel('wavelength \lambda (\mu m)') >> ylabel('index') >> title('Refractive index vs \lambda for BK7 glass'); >> [fig1,map] = capture; >> imwrite(fig1,map,'fig1.tif');
Maintained by John Loomis, last updated 10 Sept 1997