function rn = Sellmeier(a,wvln) % Sellmeier % % Sellmeier(A,WVLN) returns a matrix whose elements are the % refractive indices calculated using the Sellmeier % dispersion formula. % % Sellmeier(A) returns the refractive index at 0.58756 (n_d) % % A vector of Sellmeier coefficients % WVLN vector of wavelengths (microns) % % if (nargin<2) wvln = [0.58756]; end ws = wvln.*wvln; rn = sqrt(1.0+a(1)*ws./(ws-a(4))+ a(2)*ws./(ws-a(5))+a(3)*ws./(ws-a(6)));
>> a = [1.03961212 0.231792344 1.01046945 0.00600069867 0.0200179144 103.560653]; >> wvl = [ 0.48613 0.58756 0.65627]; >> Sellmeier(a,wvl) ans = 1.5224 1.5168 1.5143 >> format long >> rn = Sellmeier(a,wvl) rn = 1.52237648507410 1.51680010973989 1.51432242520311 >> abbe = (rn(2)-1)/(rn(1)-rn(3)) abbe = 64.1664
Maintained by John Loomis, last updated 12 Sept 2001