Silicon skin depth vs. wavelength

From Optical Imaging and Spectroscopy (Wiley - OSA 2009)
By David J. Brady
www.opticalimaging.org
Figure 5.3

siDat={{0.4`,0.387`,0.082250617`},{0.4025`,0.355`,0.090225161`},{0.4052`,0.329`,0.098008485`},{0.4078`,0.313`,0.10367953`},{0.4105`,0.291`,0.112256193`},{0.4133`,0.269`,0.122265312`},{0.4161`,0.255`,0.129851709`},{0.4189`,0.244`,0.136618864`},{0.4217`,0.228`,0.14718342`},{0.4246`,0.211`,0.160135519`},{0.4275`,0.203`,0.167583099`},{0.4305`,0.194`,0.176588152`},{0.4335`,0.185`,0.186469373`},{0.4366`,0.185`,0.187802833`},{0.4397`,0.17`,0.20582479`},{0.4428`,0.163`,0.216177328`},{0.446`,0.149`,0.238198338`},{0.4492`,0.149`,0.239907384`},{0.4525`,0.133`,0.270742901`},{0.4558`,0.131`,0.276881004`},{0.4592`,0.13`,0.281092115`},{0.4626`,0.131`,0.281011743`},{0.4661`,0.134`,0.276798951`},{0.4696`,0.12`,0.311413172`},{0.4732`,0.12`,0.313800496`},{0.4769`,0.09`,0.42167218`},{0.4806`,0.094`,0.406860987`},{0.4843`,0.083`,0.464329753`},{0.4881`,0.079`,0.491667897`},{0.492`,0.077`,0.508469039`},{0.4959`,0.073`,0.540581755`},{0.4999`,0.073`,0.544942165`},{0.504`,0.066`,0.60768251`},{0.5081`,0.072`,0.561573796`},{0.5123`,0.06`,0.679458978`},{0.5166`,0.06`,0.68516203`},{0.5209`,0.056`,0.740212588`},{0.5254`,0.053`,0.788867992`},{0.5299`,0.043`,0.980653539`},{0.5344`,0.045`,0.945026684`},{0.5391`,0.048`,0.893754477`},{0.5438`,0.044`,0.983505205`},{0.5486`,0.044`,0.992186384`},{0.5535`,0.032`,1.376441578`},{0.5585`,0.038`,1.169579417`},{0.5636`,0.032`,1.401558218`},{0.5687`,0.034`,1.331050237`},{0.574`,0.03`,1.522582289`},{0.5794`,0.027`,1.707673593`},{0.5848`,0.03`,1.551230179`},{0.5904`,0.03`,1.56608464`},{0.5961`,0.027`,1.756893733`},{0.6019`,0.025`,1.915907205`},{0.6078`,0.025`,1.934687488`},{0.6138`,0.024`,2.035193835`},{0.6199`,0.022`,2.242276119`},{0.6262`,0.022`,2.265064213`},{0.6326`,0.019`,2.649510974`},{0.6391`,0.018`,2.825442337`},{0.6458`,0.017`,3.023007713`},{0.6526`,0.016`,3.245766121`},{0.6595`,0.016`,3.280083905`},{0.6666`,0.015`,3.536422836`},{0.6738`,0.014`,3.829950023`},{0.6812`,0.013`,4.169859509`},{0.6888`,0.013`,4.216381723`},{0.6965`,0.013`,4.263516072`},{0.7045`,0.012`,4.671860725`},{0.7126`,0.011`,5.155173293`},{0.7208`,0.011`,5.214494681`},{0.7293`,0.01`,5.803585`},{0.738`,0.01`,5.8728174`},{0.7469`,0.009`,6.604045944`},{0.756`,0.009`,6.68450761`},{0.7653`,0.008`,7.612579872`},{0.7749`,0.008`,7.708072838`},{0.7847`,0.007`,8.92063456`},{0.7948`,0.007`,9.035453484`},{0.8051`,0.006`,10.67797039`},{0.8157`,0.006`,10.81855726`},{0.8266`,0.005`,13.1557476`}};

eData=Table[{1000 siDat[[n,1]],siDat[[n,3]]},{n,1,81}];
skin=Fit[eData,{1,x,x^2,x^3,x^4,x^5,x^6},x];

eData=Table[{1000 siDat[[n,1]],1/siDat[[n,3]]},{n,1,81}];
ex=Fit[eData,{1,x,x^2,x^3,x^4,x^5,x^6},x]

Plot[skin,{x,400,800}]

Plot[ex,{x,400,800}]

Plot[skin,{x,400,800},Axes->False,Frame->True,FrameLabel->{"wavelength (nm)","skin depth (μm)"},PlotStyle->{Black}]