(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 34020, 721] NotebookOptionsPosition[ 33151, 687] NotebookOutlinePosition[ 33495, 702] CellTagsIndexPosition[ 33452, 699] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Silicon skin depth vs. wavelength \ \>", "Title", CellChangeTimes->{{3.440930658059*^9, 3.4409306911470003`*^9}, { 3.4409308995109997`*^9, 3.440930910046*^9}, {3.441217566064286*^9, 3.441217573158286*^9}}], Cell["\<\ From Optical Imaging and Spectroscopy (Wiley - OSA 2009) By David J. Brady www.opticalimaging.org Figure 5.3\ \>", "Subtitle", CellChangeTimes->{{3.4409307282320004`*^9, 3.440930761152*^9}, { 3.440930913613*^9, 3.440930913829*^9}, {3.441217577128286*^9, 3.441217577638286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"siDat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.4`", ",", "0.387`", ",", "0.082250617`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4025`", ",", "0.355`", ",", "0.090225161`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4052`", ",", "0.329`", ",", "0.098008485`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4078`", ",", "0.313`", ",", "0.10367953`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4105`", ",", "0.291`", ",", "0.112256193`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4133`", ",", "0.269`", ",", "0.122265312`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4161`", ",", "0.255`", ",", "0.129851709`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4189`", ",", "0.244`", ",", "0.136618864`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4217`", ",", "0.228`", ",", "0.14718342`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4246`", ",", "0.211`", ",", "0.160135519`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4275`", ",", "0.203`", ",", "0.167583099`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4305`", ",", "0.194`", ",", "0.176588152`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4335`", ",", "0.185`", ",", "0.186469373`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4366`", ",", "0.185`", ",", "0.187802833`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4397`", ",", "0.17`", ",", "0.20582479`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4428`", ",", "0.163`", ",", "0.216177328`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.446`", ",", "0.149`", ",", "0.238198338`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4492`", ",", "0.149`", ",", "0.239907384`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4525`", ",", "0.133`", ",", "0.270742901`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4558`", ",", "0.131`", ",", "0.276881004`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4592`", ",", "0.13`", ",", "0.281092115`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4626`", ",", "0.131`", ",", "0.281011743`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4661`", ",", "0.134`", ",", "0.276798951`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4696`", ",", "0.12`", ",", "0.311413172`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4732`", ",", "0.12`", ",", "0.313800496`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4769`", ",", "0.09`", ",", "0.42167218`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4806`", ",", "0.094`", ",", "0.406860987`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4843`", ",", "0.083`", ",", "0.464329753`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4881`", ",", "0.079`", ",", "0.491667897`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.492`", ",", "0.077`", ",", "0.508469039`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4959`", ",", "0.073`", ",", "0.540581755`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4999`", ",", "0.073`", ",", "0.544942165`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.504`", ",", "0.066`", ",", "0.60768251`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5081`", ",", "0.072`", ",", "0.561573796`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5123`", ",", "0.06`", ",", "0.679458978`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5166`", ",", "0.06`", ",", "0.68516203`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5209`", ",", "0.056`", ",", "0.740212588`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5254`", ",", "0.053`", ",", "0.788867992`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5299`", ",", "0.043`", ",", "0.980653539`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5344`", ",", "0.045`", ",", "0.945026684`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5391`", ",", "0.048`", ",", "0.893754477`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5438`", ",", "0.044`", ",", "0.983505205`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5486`", ",", "0.044`", ",", "0.992186384`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5535`", ",", "0.032`", ",", "1.376441578`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5585`", ",", "0.038`", ",", "1.169579417`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5636`", ",", "0.032`", ",", "1.401558218`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5687`", ",", "0.034`", ",", "1.331050237`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.574`", ",", "0.03`", ",", "1.522582289`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5794`", ",", "0.027`", ",", "1.707673593`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5848`", ",", "0.03`", ",", "1.551230179`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5904`", ",", "0.03`", ",", "1.56608464`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5961`", ",", "0.027`", ",", "1.756893733`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6019`", ",", "0.025`", ",", "1.915907205`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6078`", ",", "0.025`", ",", "1.934687488`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6138`", ",", "0.024`", ",", "2.035193835`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6199`", ",", "0.022`", ",", "2.242276119`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6262`", ",", "0.022`", ",", "2.265064213`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6326`", ",", "0.019`", ",", "2.649510974`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6391`", ",", "0.018`", ",", "2.825442337`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6458`", ",", "0.017`", ",", "3.023007713`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6526`", ",", "0.016`", ",", "3.245766121`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6595`", ",", "0.016`", ",", "3.280083905`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6666`", ",", "0.015`", ",", "3.536422836`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6738`", ",", "0.014`", ",", "3.829950023`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6812`", ",", "0.013`", ",", "4.169859509`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6888`", ",", "0.013`", ",", "4.216381723`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6965`", ",", "0.013`", ",", "4.263516072`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7045`", ",", "0.012`", ",", "4.671860725`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7126`", ",", "0.011`", ",", "5.155173293`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7208`", ",", "0.011`", ",", "5.214494681`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7293`", ",", "0.01`", ",", "5.803585`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.738`", ",", "0.01`", ",", "5.8728174`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7469`", ",", "0.009`", ",", "6.604045944`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.756`", ",", "0.009`", ",", "6.68450761`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7653`", ",", "0.008`", ",", "7.612579872`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7749`", ",", "0.008`", ",", "7.708072838`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7847`", ",", "0.007`", ",", "8.92063456`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7948`", ",", "0.007`", ",", "9.035453484`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8051`", ",", "0.006`", ",", "10.67797039`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8157`", ",", "0.006`", ",", "10.81855726`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8266`", ",", "0.005`", ",", "13.1557476`"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.441217290247286*^9, 3.441217326439286*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"eData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1000", " ", RowBox[{"siDat", "[", RowBox[{"[", RowBox[{"n", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"siDat", "[", RowBox[{"[", RowBox[{"n", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "81"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"skin", "=", RowBox[{"Fit", "[", RowBox[{"eData", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}], ",", RowBox[{"x", "^", "6"}]}], "}"}], ",", "x"}], "]"}]}], ";"}]}], "Input",\ CellChangeTimes->{{3.401359233519842*^9, 3.401359325983842*^9}, { 3.401359357845842*^9, 3.401359388483842*^9}, {3.4013594389148417`*^9, 3.401359466312842*^9}, {3.401359741495842*^9, 3.401359774629842*^9}, { 3.4013598174598417`*^9, 3.401359817766842*^9}, {3.4013598751458416`*^9, 3.401359877655842*^9}, {3.401359964458842*^9, 3.401359971418842*^9}, { 3.401360012368842*^9, 3.401360072812842*^9}, {3.412874500259784*^9, 3.4128745175947843`*^9}, {3.412874607694784*^9, 3.412874654826784*^9}, { 3.412874707007784*^9, 3.4128747076797843`*^9}, {3.412874760852784*^9, 3.412874809937784*^9}, 3.441217340302286*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"eData", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1000", " ", RowBox[{"siDat", "[", RowBox[{"[", RowBox[{"n", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{"1", "/", RowBox[{"siDat", "[", RowBox[{"[", RowBox[{"n", ",", "3"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "81"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ex", "=", RowBox[{"Fit", "[", RowBox[{"eData", ",", RowBox[{"{", RowBox[{"1", ",", "x", ",", RowBox[{"x", "^", "2"}], ",", RowBox[{"x", "^", "3"}], ",", RowBox[{"x", "^", "4"}], ",", RowBox[{"x", "^", "5"}], ",", RowBox[{"x", "^", "6"}]}], "}"}], ",", "x"}], "]"}]}]}], "Input", CellChangeTimes->{{3.401359233519842*^9, 3.401359325983842*^9}, { 3.401359357845842*^9, 3.401359388483842*^9}, {3.4013594389148417`*^9, 3.401359466312842*^9}, {3.401359741495842*^9, 3.401359774629842*^9}, { 3.4013598174598417`*^9, 3.401359817766842*^9}, {3.4013598751458416`*^9, 3.401359877655842*^9}, {3.401359964458842*^9, 3.401359971418842*^9}, { 3.401360012368842*^9, 3.401360072812842*^9}, {3.412874500259784*^9, 3.4128745175947843`*^9}, {3.412874607694784*^9, 3.412874654826784*^9}, { 3.412874707007784*^9, 3.4128747076797843`*^9}, {3.412874760852784*^9, 3.4128748537917843`*^9}}], Cell[BoxData[ RowBox[{"4873.224688673859`", "\[InvisibleSpace]", "-", RowBox[{"47.064093417808465`", " ", "x"}], "+", RowBox[{"0.18877177532133116`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0004018668857926528`", " ", SuperscriptBox["x", "3"]}], "+", RowBox[{"4.784253167409479`*^-7", " ", SuperscriptBox["x", "4"]}], "-", RowBox[{"3.0181183146640785`*^-10", " ", SuperscriptBox["x", "5"]}], "+", RowBox[{"7.879111810304972`*^-14", " ", SuperscriptBox["x", "6"]}]}]], "Output", CellChangeTimes->{ 3.401359449835842*^9, 3.401359506279842*^9, 3.4013596744858418`*^9, 3.401359776462842*^9, 3.401359818457842*^9, 3.401359878375842*^9, { 3.401359972596842*^9, 3.4013600734358416`*^9}, 3.4128742022167845`*^9, { 3.4128745100937843`*^9, 3.412874518601784*^9}, 3.412874656320784*^9, 3.412874708347784*^9, {3.4128747703707843`*^9, 3.4128748111527843`*^9}, 3.412874856582784*^9, 3.441217372261286*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"skin", ",", RowBox[{"{", RowBox[{"x", ",", "400", ",", "800"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4013597288558416`*^9, 3.401359738181842*^9}, { 3.401359798524842*^9, 3.401359804602842*^9}, {3.412874664297784*^9, 3.4128747127587843`*^9}, {3.4128747484547844`*^9, 3.4128747493247843`*^9}}],\ Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd1Hk8lekXAPCrSIWikJT1Im1GZUnTOG9ZKpWlkJBBlEyWEU0pWVIkcWXX 2BIhW5Kl973XbpC6SIvGUjdmlBY1qZvI7zy/P+7n/Xw/7/M85zznnPequfvt 85zDYrEY/JHnPqv4+SzWaYr1Vt5rZVkjcD71XPwigm7gdGZmNAI/WVbs3Vy0 8u70A1GNsGcgXeS5OJoTkHfCrRHMj92YurMY3WkUs0OhEX4+X/f2qAo6JklB l9MAwVrT3i5q6I2jRiphDVDbYfzalo1+PvmHiX8DGEi3jG5bhc4JPrPGpgF0 Mx8OrfgJnTY9e1yuATRqXnXzjdGS7q91rOrB3VHLqo1CU0uHwvTrIXfG6wGz HV0rV22wsh6UTd93FJmjT+2K7HrDA4UeYdN5S7Ru3JPkWB7YB/68LdgaXSFU nQ7iQfKyc/X++9AKh4ybf+XBEpe5zCF7sl7ZL0CPB5LjUncNXdDTG9kWAi5Y xFlv0nFFy2qfK3nIhUsbEm9ruKN3WpQep7kw75RCmcwR9J9PpMRSuMASY98c 90ELw+MvW3HBuNBTU+BH7ntkW68xF0J2F+Y9+x09NtN/QocLUwnrc1qDSP43 9rYt4sKk8ub07BB0u+HGrEcMTF9+7NQQip6QNY1pYUD0W4Dyy3D05uNtg3cZ kH1Umqd+key/YF2XzsBKavcRk2i0w6YTVCwD7NIxbY8Ysl5v6/pQBjZGscvy 48j9p6f0jzCw5XODfxuH5JO8yMaRgW1uLpv+vUrea4p2WzJg/XN6rXYqurCu 7+tmBvw+LGq+lY32khwUyDBw0rnkQlcuOlqaL72AgXMdu3a+yyPvo9ZmsxiI y4t8oFNI6vXI9+8JGlKk1TlWxSSezNno1zRkhtTv8y8h97tIJQloKDkw9fR2 BYnXB22PaahqSc3orSTzOZw3zqeB3qB/6L8qUp94Gd9OGpqyelVka8h+N+W9 rTR0SvgL9OpIv1e5RjfQ0HtKKt+ORrtK+agwNDwfLT56kouen/G3TC0Ngn07 16TWk3zLtv9aRcPr+tG3NY0kv3Aj8ds0TKw7X/6sGW2dfWBBGQ3CdNWAb63k PKGe5y0aWOI8PcV2Mp9NxxSLaJgf6PR1Sydxbpz2TRqkXwrrnLpIvLCt8fk0 LLNMOXv2IcmvUNLyBg3K9CbI7Cbr76V55NGgpd0jwusl/SoN7r1Og06yb8tQ H1nfvScVrT9HMmr2Cdq/s6gSvdWvaJdqP6l/6joN3G86YC657W/S/yv+4+g9 u0Yeug2S+bCRmY/xbavDEyKG0WFvik8X0ODMVrHNe0n6XdwPhTQc5jDyLa9I v0y3OBbT4D1zsH9klHxvtcfaS2gI8P56TWyMzPdhsZhyGoKfJrlovUGrfirO qqQhwnSj2o63pF9eQrFqGmJu818dfU/qpRZbX0dDgrJPQfQEOZ8vep9LQ47w 5trOzyR/L7UnbTQUepq9f/OF9NNZ9PF9Gsp7BRUS30g97Cw0emjglSgZ7J0h 8zETVjlAQ9tyWugzS/I7eGcC5+fhRQc6TiSYYj1b2hWC8zXomkh1i6HHog3P f8X9GuGvu8SJa+6d/kFD1pjv1Y4FaM68tjtiDLj4W4w0SaFzVpp/lGXgRahI 9F05tPbhyksGDDSYfNCtXIZub9iSBAzkig/2ly1HR0//N7yTAff42rWFSiT+ 4l4jZwZeZfnxMzTRm/2MPlxgoMX90KnUVWiFv0y+cxi4obVbLWk1WtfR0PxP BjzKtE5cWY9WHbuXeoeBf7iD8mH66AnOEbVRBl4P7HbxNEM7pJYl7OdCZ46R uPsOtPQ89d/cuVDssarCZReJ76QU+jsXvN/OmeOwFx1Wdc2Ow4W33+vyLezI /tz9d7u58EFR+91Pnmj/wANizjzoHpJLWXeUnGcnOOrLg4rrc2H1MVKfSj4r nAf+a4Y56j7k/MjuvgIefDJK0ZMLIvV47fPjMw8mHUTPTkWS82M/qF6rh0LT a2veXUTXVua7VNSDs+7G/uFo9HzHoa7WemgRdzVojUULNT8ZfayHpGp6Ij6J 3P+TvrZmA+jJnvDUvIEObO/IimiAAP5LS+tm9Odn5nstG0GLPjWzvRXd5VTL c2qE5wWLS/T/Qr94IG52rBG2n/tlwYr76J1lz+MjG0FmfXrzaC96oD12BdMI FTHWm88ISD4S9pM6TfDerF6tQOQM5hspsYDdDL99r5Btnou2/dEMes0wVnFd /IUYeR8QetmsGQQrLr5bvhA9khnr5tUMTz7uqbuyBM0ojIiWNwM387l1EBsd 2SAtTbVA7ORkqKkZ+i1n2Rn/Vlibv25IEI1ur2WUxNoh7V65znLxszjf/NwZ nwdgsX00+UU8OknFaFrYA4M8j6Or5UNwHlcr7/J6DNkfv3X9lojWoFd1tD6D gpRtu2DFOYrlLKuskzgAAx+zDkpmoE17oovUX8DnbeZ9jvKh+D3e/u43TwDW ojmeWzLRvosfeeuMgA8vqvWSVBjFis0eirL+Bx7fSXvFs0FXXWVXdIxBad7D 6qok9J5fKp95jUOm72LbVY/Qtg5L1yx6D+UBRWcF8uH4f2oWvD5lAvptLP0U 7dHyZ2TptZ9A03vPu4wMdIpFosfCzyA466c6MIgWaAfdW/gFarwzlTJWRuC8 qiw9IS2EsgSNghxXtPNsZKLvFHATq4XsHLTrhgE7/jT8wvFheQ2hu5KcQ/bM wnBrSOJntfMUq0nf1UxehEp/kjYx44rmdVQdiphDBalK9Vvlo1vypJ6qi1JN HgUn3cfQx6+pzukRo7QiLYY+akVSrK3lCf6B4lTpwI6eDm80r7Ztu+UCare0 dZxyMdrb5mXecgnK0TiEpTeGNjZYHzguSV3On/sjYe0FimWvGyOcXET1/ZvU etwbfaGzt+ekNAWHQxU4Zeind/kiCTJUU12gvu57tM1fZY9zl1DVC+PFE9Zd pFj5qZMra5ZSXUlzPLf4o0367DkTstTUt7BY13I0f4OcIVueskhzAP5/6B1H RjQillESG+xu/jCIolibqP01HxWokRvO/cVB6KfFk31uitSwDTcluw4tnjxR tWQl9alfW1nmG/poTqfbAyUqyLnO0cQwmmId6FeVv6VCKSrkqfOCo6mwM1XO q76oUk/LUqvu1qHZitKXNNSpmnOjPZMz6OyxRudUNqXcGTs1Q/xNKBeLjpTT Y8/7ga6/702jbUoiAuWJf6qVV0xjU+P9KssMiXtK/3iKVtF3dD5FzF7ssi+D TUWNP/xnitipjdmZyabeG5xcPHcWvWH16lNo2wilzRLEjy1TbqLVlh+/tIL4 vCBgXhabos0XrNtKXLpOvwX9Idfk9xBisBqCHDZl/+5N+oX/+6W9H5rZfLXp CrG+QXcW+hL/xdIs4lurW2fQ7JmQah6xk0EtncumYnZqDrcRB700GEdPJHaJ 84nvWlUrXmdT3DUrDg4TzwTVnEZrnGwK/5d4k45RETqm8VjxB2K3IvoZekJS 5tFXYqUx4/l5bOqAQ+33WeK5b5oM0f8Dni5VLA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{400., 0}, PlotRange->{{400, 800}, {0., 9.818784800592539}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4013598053648415`*^9, 3.4013598213698416`*^9}, 3.412874205064784*^9, {3.412874513096784*^9, 3.412874521240784*^9}, { 3.412874693563784*^9, 3.412874713472784*^9}, {3.412874750070784*^9, 3.412874815375784*^9}, 3.4412173760322857`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"ex", ",", RowBox[{"{", RowBox[{"x", ",", "400", ",", "800"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4013597288558416`*^9, 3.401359738181842*^9}, { 3.401359798524842*^9, 3.401359804602842*^9}, {3.412874664297784*^9, 3.4128747127587843`*^9}, {3.4128747484547844`*^9, 3.4128747493247843`*^9}, { 3.412874872925784*^9, 3.4128748820937843`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwl13k8Fd8bB3BJEYVsoRSVSmRrIcmZVlFZSkLa8bVnLSGEbFH27G7Jkgql hDCyJMLcO9aQXUkpSUWi33nu7x9e79fnOc+Z5cyZuTIXLh2z5OTg4FiI/8D/ rXlhuRaJnoSS0apQeR5JYpuIq6XsfU+i0mSF88UcCcKFGtAzqPYk/MrsNmel iBNfD5AyWQu8CA7D17Jvc8UIu9kCkeqFXoTf56KJV0lixGjBPe7+Rdja9tav w8SIwZVB4xK82Plo27StGNH+/UhJhBAeHxMsMS8vRpSndhm4r8OWrlsWViBK hP/86bv/APZhptWpahFCPlOhdzAEe63v+7JlwoTfE8cX3WG4X9aoy6MFwkR7 eUFkazh25zQz86cQ4d++bd/rSOy6yPrn74WITu7dOQ8S8Pg5kT6dPCEiyPao i1MO9pZrmpqGQsSgkuPi+TrsMeeUFWnLiYTSfEUJbm/Cb+PQm/XHBIkXkUeO aC7xJjhi5yO8tQWJdqtPNmf5cP7neMN7TUFCWHhdZqYA9kqZkLKNgsQtu/iV quK4fkjSrnVWgAhcdY3nsBz2wujM+ZMChLOP7qD3YWydrB9PpfgJ3b0jcf23 sRU+1ut08xGahHzJTBR2Y3VSWAMfoajl3CMUi/3TlrerhI8Q1phbeyABu7wu 6n4CH9GjIlrwgIFdZdH6wZiPuCRzoMHlCbZu/qBIOy8Ry5E5z9WCbdedV9G7 hHhfYfGfnNg1guOLymuGGA+RIzzrtFocu0aOT4CXh3CzjvIUlsTe99smeI6b 4BWqiJiTwpbTNYwf5iZ2WK54xpLFpoKb5Au5iVt8DRye27Gtg2q3HOMmtEyU khqMsEW7txjeWUykf59ptIvBzk+w2q+5iNgm+FnyZhz28+WS4iqLiDeKPda5 d7CnnYifsouICbsKrk/J2KsukW8FFhHEB39Nq/vY1ZTn6BAX0d/F9+jcc+xQ z3udEVzE2hqpmyc6sBsG+I6PLiSy4vfooJU+BEdRk2LVc05CeGnANQ0p7MSH dQcecxJ+12uebF+DHbL9OXWfkzCz15ZUWIftkOP2K4aTWLb36GdxeWxWLn3L hZNwGzeJmNTA1jEPGVHmJPbsd2JlmmFP29T8e7KA6PmeZro0CTu3yyOthoOY 2nOw1UzMl+Aoexd88/g8MuBiWGqkYluI7osynUUOFcG1ocv8CI5Ivxcq49Oo rTBhqMIQu1JepCn2F3qc0Vz0LBbb6Og+H+8plOooYLSxBVuBe/D8w0mU7/LA e1DsOsHBEIyLYU6gd4Z6lySNsSv3hNaZfkWytkfGk5Kwpb8+npgdQ4Pel6R7 3mNPeKzR7/uIXtimSiWt8ic4+rsvWmwaQXlR67MY57D9/AKGnQdReUzR9DoG 5Bmb9Tb2o92RDhzWvdgcrhWqBj1IhFWierkPm/HLgIvoQWPLF1sG9oNdx/uU elBCTFo9YxD6LdJ/LtCDJuOp6HcfsKU/zndS3SgrVUX28Dfsylbjxce6Ef/D nzqKHAF4fC/Be6YL9dVei5mSwfabGtga14nWqk4WT6zFJi6V+Yd0Ios0q94v 68D1TV1enWjssr7ciCzUuyRlXehEvzbKkG1y2Bxu84+UOxF/WM1YkQqYMe/e 3IE09fj2Xt2DXTl2jWN5B/It9f3PfS/kenYeizpQ1YapcOd9YLsnMzPt6NC/ ng6bAzDfhK74UDs6XpDnYKYDeeyb2uftyFboWOIuQ+jne3PQvB0ltidMzJ2D +ijNjU/bUGW2hrrABcg35IxntaFRjx5f6Yswvn4tmdyGdqyUFthnCXnxwYAb baj1bPaWEBsYz2MYadqGBD89txVygfq5pPKFbSh4lh7eEAD1q6Qsz7WivEY3 BfVAqN+TEmHcitpTxdx0bsD1OC736kgrWk+YLbQPhnovO52dragqcEDmyU3I ufx7hVrR/LKJM7tiIT/hKvmmBblLL3unnwl+ON6i0YKCbgSsM8+C+fN1AlVb UMLYjIN1NuSRW9HmFlT67APn9Qcwv8yjVokWNH+oUuHpY/DLZT4zNApxdvUT KYJ6Iev6UhqlVL3b+O41zB/fo3aARo83GriM1EG9laKaFo0qwl+XfX8D8/H0 EGo0GjAuNOR9Cy7Y6ypHow2fw712UdBvlsuIn0b5wgSV2gH9xAMWdrFQlUXW 5Quj0K/iAO9VFiJ+7n9m/gnqs5cWurJQ+Y2h78ZjkMvFWTiyUHGWtMPhL9Bf anDgIgvljSZd3DYB9ZbyB/RZKNn+tsHiacjb7B9tZCHxuS23OGZgvjU7+tey UHxE49s/bE8krVrNQtF5S7S/zYKHFfJFWChkImB35z9wrtwuThZyc/PYnMsd iPtZbvvSy0STXCus7/NgVyp75nQx0aW455lpS7CJCGWHdiayLZqUjuEDJw0J NDPRuWn7Fd4CUE8IlZYz0VHv81x6K6Cfz2xaGhNtCNTt/b4B26/GIM6KiUKu imkt2AT5j/0iF5lozHEwVVAOXJufcpaJ8kw9TyvJQ31ZR70JE6kp5fbYK0F/ +6nYw0x0qGtJ90c1yG2sxlSZKJdq0/itDrlt9rwSEy2tvZu0WAOOr0p01RYm YubvNJPVhHzNfy4bmcj0hs27CwSMdzQKX4XPR7m+4/0hyI25nHmYqFE2Tm1c B/L+t6KLmUhx5fk7f3XBn5yqF+Lrs2jGeOVROF7Oay7zFPLq3tRuYgj55ger xinUy5zabn0McvNPk6MUIl5Xxl05Dp653TVMIa4nJifiT4BTh9/3UCg8KKS1 xRTGX/YsbKLQVy+jbUNmkCe8FG6gkIGzdOzkKcj38N14TSER8+Ljy8+w++Uk kRRKURml9S6AW+9GPqXQ/IZnqmcuQr2+pEc+hc6t8ot2sADrHXR6RKH13OLH wq3AZmHRWRR63KPNqreF8ee9UpMp5D23a32dHeT7C7YlUkh3tfKVGntwhkxX PIU+nBWXIh2h3jlaP5pC0kOj1s9cIB9PHArFx7/w/csnruz50z8HU6h8PYs/ 3w3qiegFQRQysyp59uAy5OfFT/pTKPZTKEe6J+S8N7O9KHSB1+d4ihfkMQNS nhRSkXfJSvQGB7Xe9aBQs73ZkVgfqB+wpN3x+UfopUf5Qv7om48bhezy9k7e 8oNc74u6K4V4JjYnhPqDFUXanCjULrjmc1AA1DtsfnGJQpkqwlqBgZDfCs1y pNBe19khnyBw1e9H9hQSjP22wzsYnPu92o5Cfc+GQq+GgF8vGbXF1+vXWyW3 MHa9zUkbfL1WVPo732Svj5R71hSSUH/W5hgO8/m/+vMfhUZNcjbZR0CuQJ3F Lrqa4mVzC3LFUpYVhQKTIputbkOedMUA+/jLQBmLSMid/nZbUmhtj4fb+SjI i3a7YU/8ta87Ew25kbIEdoXUeUnzGPDR+gYLCkVonXAwjQVfmQvBNj+rU2kc By56dRx7s99uYaN4cDOvPPY0Q8XK8A74VhM/dt0r2RK9BHDt/PxFCsUPSiw9 kgjeGDOLbbGQ/6xOEhyPvi8Xrlddz/n0YDLkC4slsBcc+MW1PwXcorILm2k5 dnJPKvjUgDV2WlBvrlYaeMXLe9j22fTcrnTol1U4ir3rzWuDnQzIb5Aa+Px4 P5Vm7LgLuWBLAnbnkvxfW++xj3+QE1+vrM0ZOioZkEsMeWC7H76TongfvP3N H+z99je/yWdCfXJQCL7+QhG+e+WywLeF1uL71f/YNW5DNnjvuTrsvOb/Rtfl sJ+3ix74/h4WNLi1OhfytWfm8P3nqhUfFnsI+dapRrw+yq4O7BR4BPnitGy8 fhSGXEb+PQZP/ruG19fwnV27pvOg/tLdq3j9pRzhiprIhzxYzg+vz6VFcZoD TyBfX/nYhUI1tmei3z0Fl75oxevZe83GUVYh+/myXozX/3hIcUzVc8gTX4de wc/Hqe6xjBLIN2wTuEahIMH7REope38tCPOhkFatfXzsS3BJqKAfhfIV5/fc KAfPy+wKoFDkAplEq1cwnv8ebxiFDhV9+nqmCnKD4o6bFOKwe7r/ZDXk3o15 ERRybt03oV0L5iE9oyh0LNtKW64e6oO8Q/D+wWuulCrTAC5TvY/3lyrB6UmJ t1B/L6g+lUJbPUPTeJvA0h3K9/D+dvTRz89MsF+N00P8vE5+z8jrhPGhfA/x fncru3Qm6x04tsesikIHzQP007vAjTeEayn0olZk9nYP2F0xHe+fCQlqx5z7 oV/B5dXteP/RusaxbRRc+erJVwr9PunqsecT+/7GKE3i/cjZZkJvDGzfW/ST Qk33T/TbfAG/TRz4i/dzPsXK9AkYz/GFXoTfb529vnwzYJGLDqL4/eBM/Btc cgP228ekGhPdvrnjygTvDfb34iINJlLIVPg2xwdOu6yvyUSWneJ94vxQz18/ TjBRp9b3Cj0hcNQ3I10mquC751MqiV2pf732NBPdzFw4HyUPXjkzEcREsWMy NhEK4B+nHUKZKE2JaA3Zgs1x7c/nm0xUUOKd66sEflX2LZKJWpt+Gjtshfk9 YgWTmWj1r4/5h3ZBPjVXkI/rDzae/6cLPl2sht//rR9ja+1tof/UWJ4q/p6J 6j92zQ7Gj98r2c5CBbsU+iPsoX5dYY06C928Xf0nzxGOX/JZtxYL7VWbVPru Ar6xZulhFsoP0k9y94L6jUwH/H0TJst7yScc8geLvsawELroKx6ZB7mL8MPv LJSk/iPhVj7kag+PTLHQ1LL/JCIKwNbmX36xUE6xnmTYU6jXGZP9y0KC/KtX BRaB7zX5LaZRf3HZGo8KsHZAsySN/Pj/bDjXDP5jFrmHRl1DDtlnKOh3EY3s o9G2koGNp5ngXDW1gzQavVi/yYyG+h37aF0aGZQkbDZqB88MDR2nkYyFmuKh XvCK3Y6WNKoqcduu/BWcp/zxBo0WrysvlvsGfu9eG0wj3fBFmusmwIt/pYfS iHUmfq/YJMxXEaoTgY93YbH+359gdyXHWBr9Ozpr82YOLLfw910a7X2xb/zV PPhWQFwGjYKkw51e/gOb1Stl0oj/x6oreQuCcP99ISdzaLQ6QSswdhG2XxiP ax6NNAevp51bBrlIbUsJvh6HG2TM+CHP0pB/SaOaZ0KZxwUgz+f0KaPR4eCM hweXQz7gIErSyEyhtlhBFHLWGG8NjdLilmluEIPcTlGzlkaD8yfINSsgXxZu /ZpGtqwPtUISkL+8+vQNja5e5mmZXgVOOcXbRKOyPgPjSSnw30fCzTTi0El8 93k1jO/pX0Hh7/WVm/t7pcHVrYIsGiVUHh6vWQ+eVahppVGPXKxThSyMz6Ez 2mgkHdPz48UGsOJ6n3YaZVs6/MndBM7OX9tJoyLe29xRCuCqh5u7adTbyfU4 fQv41O9xbO5sz2N5imCOitweGpnss0p9qwzzhSQJ9uLrtbxnb5cK2Cu9BDun z3B0VBXq8+ZO9dFoxmv31sXbId9zP7yfRmt1CztFdoC7uiUH8P0Xl/NZpwZG h+9hu3xIW6eqDuNFx9YO0ijpmUg9sRMsVZCCXeUf5qivAeaPExii0WcDDpEz u8CMSC9szfHPZ7x2g3kfag3TyOLlea4wLbBNSRx2eGjHgwQE89WUj2A/O3lU P5sAT+crjtDovWz11PM94MFgJ+zFU+pJNXthvNvuh9iKVXmoZR/kOW96sY0j 148M7Gffbxm+DzTyOZMUNnEAcgopY2cpCCr/Owh540o9bOrPjbZlhyB3emyB Pf1m1nOVDuTDX1yxpe84S8vrQr6F9sI+ZPmxdudhsOMJb2ynraftDh0Bjzi6 YycsaBE8eRTG3xf7D/sVdajIUg/8Zb8h9lhqxSk3fTDP5FZsIfttCwIMYLyS mAC2hkZuVpQh5BkPBvH5XOCRPsI4Bn5zPw87rD3ue95xqB/+54JdeJ/vTrkR 5F6FStg9Ltc1G09AXvViGF9Prj2/B7qMwQcWRWMrCDgEfzoJ9a6xathG7wcV pk3Azafb8P3yfmhCLzaDeqapHXbm1eYroqcgX3p9Bt/vZu39UuvNwcsafbF/ iZZWqZ4Gu2+dx+vl4NPMZQZnYTy/xhBeX45+KwvPnIM8oUEH+45elInDefA2 sxy8HkfHvDPCLkL9W9OjeL0KlkweSrSA/MTLmPc0Ug+2/pptCbnqPxZe76Hr jHbW/gfWX74DPw9Pv9f3tliDrVinuvB+SaLAQRvwpZNX39Fos7k89c+OPX9i cgeNGmM5LTWc2PvHVu8WGp2/xZjb4Qy5Y4YLjc8nWCt+qwvka0vO4+d5jZdn nYIb5Ocq5fDz7nJ+Um6NB9gj61wDfh5PRVatvAoOf7yyHv9eN1I8Je4JdlCi 6mhUq20bvtwb+vnfWoP3H3HFwa8L/SBv2WhJwu95v2CO65AvcR0qx/unzGrp ObDfHQEzvL/ZiZgZ/goA+25SxvthxR9W4Wgw1D896vuURhfrXnk03QbPSWXi /Xa68uzyhkioP6iUhffj8NK5B6+jwGf3p6fj/eXxzm4yBhzz39VkGvHEPtn9 9A54jXBTNI3yzt3lvJMO/cRkvvrSaJ8ZSo5hQC5u4nCNRp3H32+NvAv+eWTY k0YLtCUsQzPA386WuOP1tCWqzisbXF/yz5ZGf2b8ws/lQz9jega/j1xNjmi7 FIB3dj4xoNGXohWcgU/Y+/vg2aM06nPNu5JdCHn/ZCp+v9WMd1/4+gLyscC7 6jS6NbBjp3cl+ExxFX5fchOcUxGv2PvTgndieP9La8pLr4Lx8XwjQni+Uxbr q2sgX3mylxfvl21RArz1YLULJ/6w0Nr6LyN3WFC/XedYBwslbyxmPKAhz+St pllIJCjg1MsWyE1N5JpZiHufJKu3DfKR8PYaFvpSpl0m2wX5imWFT1ioqOBe dOEge79WdAllId0EE0T9gNx39R9lFnocNv23ewpyQfet8vh74FpC6ehP9n7u dUGWhdrPd27nnGbfv6i7Eix0Qd5EYftfGJ/GzFjAQp4VJyWSuYJxbiJWTDFR 7rDxDyvRYHifslZbMNGyjl8FrmLgdzbL8PeYU328o98KqK9+8v0EE+3Ia/+U KAHuO56szURVV4z7G6XAbZyum5moi9e4SXUDjK9Mt8W///lUTmTP7wCr1W3o aUZdelImM2rg88Lxjc0o136EZ0o9mP0+/FHWjA7luNt+0gDHi3qlNqOgNfFb WrXAwdeLTzcjTv6OwgcHwfr3prqa0PSYSaWRMfir0L03jWj4vvm7XHewT2eR SwNK2HjsUellsEqa6ekGdCRX27fhCtjZZ0y7AT3LV5Uduwr+SbevakCBpTzO cj7g2rzu2nq0jvmMJycIvGAiU6QeXZhdqp55B+x0ryazDvUZlsenl4AfyQon 16DJd5tWL58B7zX0/VaG3M1LzPaphcDv2Sz/0AL8e/LdAUN18LxEhlEBOpY7 rXx2J9jscOuaAqQ8rcbttQu8LazNPh+NxRQVPkVgo+ixN4/RmbeFS9ceAt9X 6AzJRYc08io4TMFlZcWK99GOgaYH/GbgwET+txlINmQ8dtUp8H6JrP8yEGe7 gp36aXZulnb3HipzfrjC6Ty4MYwWv4tUHuQ49dmAR1cHbU5BkuIZays8wYck s1MikfvYGEepF9jAWeTLbcQsU+177g0ucCcYt1DQ+arkxz7gSOGupeFoMndA JNUf7DR743cQqt8tze0dBpYee6XgidYLWo9cucm29kjVFeQzmF/tGs52mqm5 O9oWjPzsboEZ9ScTnRCDeWbGLBrsd9V90hx5XEz9vDMJTExNp1uSLdtH6rcn s02aLrAlFXm25KikgCs//TVzJIcflVnIpYHPRZ/zciUNfnW/F78H7ldf/dGL 3BQqyfz9AMwU3zR7gww4dSHvRy544sSpySCyd0tu+LeH7PP/dvxjMBlL79T5 +BisXHe9IZTkWGVa1f6Efb7K2u4RZEfenWfPS8AJkcsVokmxD0ufvy4FW3tb pUaTxlL+zztegk1kdi+LIdtu2hfNlIOLr14YjSFbrPcU764Cq0uohMeRQoyi Yr1q8HSQ2vc48liHfMnZGnZ/+UyjeJJ1QKz0+mt2/+QcsTsktfbzy9oG9v38 PRGUQPKbnStrf8seL0j3JpB6UW1lHxvZ9UL/tiWSTf/I8iUU+3g+KvYkkm97 YsmjLeA37wNEk0leEd7KM63s+QwunE0mdQ/7Vl5qY/cPdcpOJutLbF5FdbDr F/GrppB18VrVbd1gD/VR5VRycXNh9Yce9vlJ9tulkgcXydX8fg8Wp8bup5K1 rsK1Ev3gzl9yy9NIrochtZsH2Mez8OT+NHL/4FztrkH2fCtC3NPIaoPR16eH wSEWH1lpJGfI6TrHEXb/VfxzaeRekq7z/cC+ft1yG9JJ/1/abyI/st2242g6 +WpL+Zu7o+x+SMUlneSwVK1/+ol9fXRF49JJIiW7vnqMXb+u73k6SfJGN4x8 YZ9Pj8j3dHJ+D/fbX+PgKf+yRQxS66r3W+5v4OHad8sZpE/B97fiE2D7A/2r GGT5R6tGue9g72XNGxjk39U9jRqT7Odv410lBqlpbNh0+Ae7X8pJNQbpHfG6 yXyK/by7ftvNIF/W7Gp2+Ml+3p9Y7WOQf2YLmn1+gblMX2ozSI2tG6jbv9nj bT/rMkhP22SKMc2ef3TqCIMsuSvIfDIDNm9uO8ogpztvMKv+gFMkwrHVBWeZ LbPg2GpRXO+h7cQa/guuqXXSYZAvfEZYP+fAf0WTDzDI1Q3hf+bYfrTkKnag 6LZ1i+fBmi+MsQ0f+buJsR2LlmN/frdmhRrbXxYF7GeQa7abmXuw/dfSFJ9P 8OfmD3/+X2/GIhjk1x2XBRb+Y18v/yxsI38pdT62Wy96YctI2Ieu/H9+bD32 y4NLFDTZdut3QQzy2919ztfYHi7h1GKQxuNjiTfYtr/cgq9nmXp0VQTbj75k YIdS/cJpbHNx7cdeN3etqOL/4/v8NBlk2CHZvtf/72+pjz0R08hNsW1+Xwq7 fPNK077/H8/Rkl0Mcv3lqusf2X5WFIQd9som9xvb67uOY08sXd7ym+2/z6Wx T5oUz/5ju0Z3XINB/g/NMH8o "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{400., 0}, PlotRange->{{400, 800}, {-0.03184383529696788, 6.507978575090461}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.4013598053648415`*^9, 3.4013598213698416`*^9}, 3.412874205064784*^9, {3.412874513096784*^9, 3.412874521240784*^9}, { 3.412874693563784*^9, 3.412874713472784*^9}, {3.412874750070784*^9, 3.412874815375784*^9}, {3.4128748747917843`*^9, 3.412874883082784*^9}, 3.441217379677286*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"skin", ",", RowBox[{"{", RowBox[{"x", ",", "400", ",", "800"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Black", "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.401359301332842*^9, 3.401359318799842*^9}, { 3.401359394068842*^9, 3.4013594118178415`*^9}, {3.4013599055748415`*^9, 3.4013599374288416`*^9}, 3.4013600043808417`*^9, {3.4013600954998417`*^9, 3.4013600958678417`*^9}, {3.4013601315538416`*^9, 3.401360179544842*^9}, { 3.4128749490347843`*^9, 3.4128749606247845`*^9}, {3.4128750697787843`*^9, 3.412875070391784*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwd1Hk8lekXAPCrSIWikJT1Im1GZUnTOG9ZKpWlkJBBlEyWEU0pWVIkcWXX 2BIhW5Kl973XbpC6SIvGUjdmlBY1qZvI7zy/P+7n/Xw/7/M85zznnPequfvt 85zDYrEY/JHnPqv4+SzWaYr1Vt5rZVkjcD71XPwigm7gdGZmNAI/WVbs3Vy0 8u70A1GNsGcgXeS5OJoTkHfCrRHMj92YurMY3WkUs0OhEX4+X/f2qAo6JklB l9MAwVrT3i5q6I2jRiphDVDbYfzalo1+PvmHiX8DGEi3jG5bhc4JPrPGpgF0 Mx8OrfgJnTY9e1yuATRqXnXzjdGS7q91rOrB3VHLqo1CU0uHwvTrIXfG6wGz HV0rV22wsh6UTd93FJmjT+2K7HrDA4UeYdN5S7Ru3JPkWB7YB/68LdgaXSFU nQ7iQfKyc/X++9AKh4ybf+XBEpe5zCF7sl7ZL0CPB5LjUncNXdDTG9kWAi5Y xFlv0nFFy2qfK3nIhUsbEm9ruKN3WpQep7kw75RCmcwR9J9PpMRSuMASY98c 90ELw+MvW3HBuNBTU+BH7ntkW68xF0J2F+Y9+x09NtN/QocLUwnrc1qDSP43 9rYt4sKk8ub07BB0u+HGrEcMTF9+7NQQip6QNY1pYUD0W4Dyy3D05uNtg3cZ kH1Umqd+key/YF2XzsBKavcRk2i0w6YTVCwD7NIxbY8Ysl5v6/pQBjZGscvy 48j9p6f0jzCw5XODfxuH5JO8yMaRgW1uLpv+vUrea4p2WzJg/XN6rXYqurCu 7+tmBvw+LGq+lY32khwUyDBw0rnkQlcuOlqaL72AgXMdu3a+yyPvo9ZmsxiI y4t8oFNI6vXI9+8JGlKk1TlWxSSezNno1zRkhtTv8y8h97tIJQloKDkw9fR2 BYnXB22PaahqSc3orSTzOZw3zqeB3qB/6L8qUp94Gd9OGpqyelVka8h+N+W9 rTR0SvgL9OpIv1e5RjfQ0HtKKt+ORrtK+agwNDwfLT56kouen/G3TC0Ngn07 16TWk3zLtv9aRcPr+tG3NY0kv3Aj8ds0TKw7X/6sGW2dfWBBGQ3CdNWAb63k PKGe5y0aWOI8PcV2Mp9NxxSLaJgf6PR1Sydxbpz2TRqkXwrrnLpIvLCt8fk0 LLNMOXv2IcmvUNLyBg3K9CbI7Cbr76V55NGgpd0jwusl/SoN7r1Og06yb8tQ H1nfvScVrT9HMmr2Cdq/s6gSvdWvaJdqP6l/6joN3G86YC657W/S/yv+4+g9 u0Yeug2S+bCRmY/xbavDEyKG0WFvik8X0ODMVrHNe0n6XdwPhTQc5jDyLa9I v0y3OBbT4D1zsH9klHxvtcfaS2gI8P56TWyMzPdhsZhyGoKfJrlovUGrfirO qqQhwnSj2o63pF9eQrFqGmJu818dfU/qpRZbX0dDgrJPQfQEOZ8vep9LQ47w 5trOzyR/L7UnbTQUepq9f/OF9NNZ9PF9Gsp7BRUS30g97Cw0emjglSgZ7J0h 8zETVjlAQ9tyWugzS/I7eGcC5+fhRQc6TiSYYj1b2hWC8zXomkh1i6HHog3P f8X9GuGvu8SJa+6d/kFD1pjv1Y4FaM68tjtiDLj4W4w0SaFzVpp/lGXgRahI 9F05tPbhyksGDDSYfNCtXIZub9iSBAzkig/2ly1HR0//N7yTAff42rWFSiT+ 4l4jZwZeZfnxMzTRm/2MPlxgoMX90KnUVWiFv0y+cxi4obVbLWk1WtfR0PxP BjzKtE5cWY9WHbuXeoeBf7iD8mH66AnOEbVRBl4P7HbxNEM7pJYl7OdCZ46R uPsOtPQ89d/cuVDssarCZReJ76QU+jsXvN/OmeOwFx1Wdc2Ow4W33+vyLezI /tz9d7u58EFR+91Pnmj/wANizjzoHpJLWXeUnGcnOOrLg4rrc2H1MVKfSj4r nAf+a4Y56j7k/MjuvgIefDJK0ZMLIvV47fPjMw8mHUTPTkWS82M/qF6rh0LT a2veXUTXVua7VNSDs+7G/uFo9HzHoa7WemgRdzVojUULNT8ZfayHpGp6Ij6J 3P+TvrZmA+jJnvDUvIEObO/IimiAAP5LS+tm9Odn5nstG0GLPjWzvRXd5VTL c2qE5wWLS/T/Qr94IG52rBG2n/tlwYr76J1lz+MjG0FmfXrzaC96oD12BdMI FTHWm88ISD4S9pM6TfDerF6tQOQM5hspsYDdDL99r5Btnou2/dEMes0wVnFd /IUYeR8QetmsGQQrLr5bvhA9khnr5tUMTz7uqbuyBM0ojIiWNwM387l1EBsd 2SAtTbVA7ORkqKkZ+i1n2Rn/Vlibv25IEI1ur2WUxNoh7V65znLxszjf/NwZ nwdgsX00+UU8OknFaFrYA4M8j6Or5UNwHlcr7/J6DNkfv3X9lojWoFd1tD6D gpRtu2DFOYrlLKuskzgAAx+zDkpmoE17oovUX8DnbeZ9jvKh+D3e/u43TwDW ojmeWzLRvosfeeuMgA8vqvWSVBjFis0eirL+Bx7fSXvFs0FXXWVXdIxBad7D 6qok9J5fKp95jUOm72LbVY/Qtg5L1yx6D+UBRWcF8uH4f2oWvD5lAvptLP0U 7dHyZ2TptZ9A03vPu4wMdIpFosfCzyA466c6MIgWaAfdW/gFarwzlTJWRuC8 qiw9IS2EsgSNghxXtPNsZKLvFHATq4XsHLTrhgE7/jT8wvFheQ2hu5KcQ/bM wnBrSOJntfMUq0nf1UxehEp/kjYx44rmdVQdiphDBalK9Vvlo1vypJ6qi1JN HgUn3cfQx6+pzukRo7QiLYY+akVSrK3lCf6B4lTpwI6eDm80r7Ztu+UCare0 dZxyMdrb5mXecgnK0TiEpTeGNjZYHzguSV3On/sjYe0FimWvGyOcXET1/ZvU etwbfaGzt+ekNAWHQxU4Zeind/kiCTJUU12gvu57tM1fZY9zl1DVC+PFE9Zd pFj5qZMra5ZSXUlzPLf4o0367DkTstTUt7BY13I0f4OcIVueskhzAP5/6B1H RjQillESG+xu/jCIolibqP01HxWokRvO/cVB6KfFk31uitSwDTcluw4tnjxR tWQl9alfW1nmG/poTqfbAyUqyLnO0cQwmmId6FeVv6VCKSrkqfOCo6mwM1XO q76oUk/LUqvu1qHZitKXNNSpmnOjPZMz6OyxRudUNqXcGTs1Q/xNKBeLjpTT Y8/7ga6/702jbUoiAuWJf6qVV0xjU+P9KssMiXtK/3iKVtF3dD5FzF7ssi+D TUWNP/xnitipjdmZyabeG5xcPHcWvWH16lNo2wilzRLEjy1TbqLVlh+/tIL4 vCBgXhabos0XrNtKXLpOvwX9Idfk9xBisBqCHDZl/+5N+oX/+6W9H5rZfLXp CrG+QXcW+hL/xdIs4lurW2fQ7JmQah6xk0EtncumYnZqDrcRB700GEdPJHaJ 84nvWlUrXmdT3DUrDg4TzwTVnEZrnGwK/5d4k45RETqm8VjxB2K3IvoZekJS 5tFXYqUx4/l5bOqAQ+33WeK5b5oM0f8Dni5VLA== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesOrigin->{400., 0}, Frame->True, FrameLabel->{ FormBox["\"wavelength (nm)\"", TraditionalForm], FormBox["\"skin depth (\[Mu]m)\"", TraditionalForm]}, PlotRange->{{400, 800}, {0., 9.818784800592539}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.401359307368842*^9, 3.401359329024842*^9}, 3.4013594134618416`*^9, 3.4013598855988417`*^9, 3.401359917424842*^9, { 3.4013599770588417`*^9, 3.4013600965348415`*^9}, 3.4013601802428417`*^9, 3.412874211703784*^9, {3.412874950945784*^9, 3.412874962026784*^9}, 3.412875072155784*^9, 3.4412173870172863`*^9}] }, Open ]] }, Open ]] }, WindowSize->{929, 567}, WindowMargins->{{Automatic, -974}, {Automatic, 25}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (April 27, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 221, 6, 137, "Title"], Cell[814, 31, 293, 8, 133, "Subtitle"], Cell[1110, 41, 7830, 168, 552, "Input"], Cell[8943, 211, 1499, 37, 52, "Input"], Cell[CellGroupData[{ Cell[10467, 252, 1471, 36, 52, "Input"], Cell[11941, 290, 960, 19, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12938, 314, 364, 7, 31, "Input"], Cell[13307, 324, 4196, 74, 250, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17540, 403, 413, 8, 31, "Input"], Cell[17956, 413, 9860, 167, 247, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27853, 585, 875, 18, 52, "Input"], Cell[28731, 605, 4392, 78, 257, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)