(* 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[ 28808, 1290] NotebookOptionsPosition[ 27883, 1256] NotebookOutlinePosition[ 28253, 1272] CellTagsIndexPosition[ 28210, 1269] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ P-N diode charge density, space charge field, potential, I-V curve \ \>", "Title", CellChangeTimes->{{3.440930658059*^9, 3.4409306911470003`*^9}, { 3.4409308995109997`*^9, 3.440930910046*^9}, {3.441217566064286*^9, 3.441217573158286*^9}, {3.4412176894802856`*^9, 3.441217733173286*^9}}], Cell["\<\ From Optical Imaging and Spectroscopy (Wiley - OSA 2009) By David J. Brady www.opticalimaging.org Figures 5.4 and 5.5\ \>", "Subtitle", CellChangeTimes->{{3.4409307282320004`*^9, 3.440930761152*^9}, { 3.440930913613*^9, 3.440930913829*^9}, {3.441217577128286*^9, 3.441217577638286*^9}, {3.441217735493286*^9, 3.441217744740286*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"nd", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"na", "=", "0.7`"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"rho", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "na", " ", RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", "x", "]"}], "-", "1"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"na", " ", "x"}]]}], "+", RowBox[{ FractionBox["1", "2"], " ", "nd", " ", RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", "x", "]"}], "+", "1"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "nd"}], " ", "x"}]]}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Ef", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", "x", "]"}], "-", "1"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"na", " ", "x"}]]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", "x", "]"}], "+", "1"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "nd"}], " ", "x"}]]}]}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"V", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", "x", "]"}], "-", "1"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"na", " ", "x"}]]}], RowBox[{"2", " ", "na"}]]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"2", " ", "na"}]], "+", FractionBox[ RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "nd"}], " ", "x"}]]}], RowBox[{"2", " ", "nd"}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", "x", "]"}], "+", "1"}], ")"}]}]}]}], ";"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"rho", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Ef", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], "\n", RowBox[{"Plot", "[", RowBox[{ RowBox[{"V", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}], "Input"], Cell[CellGroupData[{ Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0793651 0.257405 0.347691 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .25376 m .04262 .2531 L .06244 .25227 L .08426 .25119 L .10458 .24996 L .14264 .247 L .18163 .24272 L .20293 .23969 L .22307 .23624 L .26149 .22771 L .28094 .22215 L .30236 .21482 L .34171 .19716 L .36112 .18591 L .38199 .17145 L .4017 .15513 L .42322 .13376 L .46293 .0819 L .4826 .04865 L .48826 .03796 L .4936 .02738 L .49593 .02261 L .49839 .01745 L .49968 .01472 L .50041 .60332 L .50109 .60036 L .50357 .58979 L .52221 .52023 L .54248 .46099 L .56372 .41318 L .58384 .3783 L .60362 .35164 L .62462 .32972 L .64409 .31399 L .66237 .30235 L .68085 .29301 L .70106 .28501 L .7211 .27885 L .7422 .27384 L .76181 .27024 L .78276 .26727 L .80411 .26494 L .82426 .26325 L .84427 .26195 L .86273 .26101 L .88149 .26025 L .90213 .2596 L .92158 .25912 L .94247 .25872 L .97619 .25827 L Mistroke Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{404.813, 250.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzV2vtPTnEcB/DThW7u93sPIXdGbkOatTDLmNtYzBO1ssKqMXOZuS4mY6VI paTSjVLpfqOL/iS/pO+39mnyfh+mL4fWzvfp83717ew8T8/zvZxId0pcTKI7 Jf6M27U7yX0xLv5MsiviQtJAycvDsjzSLcv66rLU4/6Bh0OH/oHv/gx1UJXf f/xFN17WYKc6sXp/GunGUwV9pNAz4pdHHXXrxvu7s/nVtEs3Y75LR3T/C+Qz uB6e/Bp9ApGXMd4JIm/OO0A0xhhvB9FYY7wNRD6ct4LI1xhvAZEf580g8jfG m0AUYIw3gmgc5w0gGs95PYgmGOMfQTSR8zoQTeK8FkSTjfEaEE3h/AOIpnJe DaJpxngViKZz/h5EMzh/B6KZxngliGZxXgGi2ZyXg2iOMV4Gormcl4JoHudv QTSf8xIQLeC8GESBnBeByGWMvwHRQs4LQbSI89cgCuK8AESLOc8H0RLO81Sj x2zLOMoFkQ3PAdFyzrPlFFZx9AJENjxL+lzLUSaIbHiG9Lmeo3QQ2fCn0udG jp6AyIY/lj63cJQGIhv+CERbOX8op7Cdo1RBoRzdFxTG0V1Buzi6LSico5uq 0UkERzekp70cXRO0j6Mr8uciObok6ABHyYIOcXRR0FGOElSjJ1HHOYoTdJKj s4LcHJ0WFMNRlKB4jo6pRk/eEjnarxo/FSRxpJ97XxVc5ShU0G2O9L/+OBU8 5ChYNQEqQO9IQ0iPc2erAH0gDCE/uQRomG8zpddDZR9V8edIv7cFqcpkjq6r 40xVCeEoRZ6FfRwlyAU+zFGsOo5VlSiOouXlE83RKUGxHJ0QdI6jI/IsnOfo oPSUzFGkoMsc6UvoOfxqhWiPOurSdY4ipKebHIULusXRLkF3OAoTdI+jnaBm w3dIn6kcoQ8lG74N1B4M8j4QbZFTeMTRZlCz4ZtALY3zEDmFJxxtADUbjkYx TzlfJ6eQwREabdnwNaD2jPPVoJbJORpOZnG+EtSec74C1F5wjsbL2Zyj0fhL zoNBLYfzpaCWyzmabuQZ42ju84pzNLPK5xzN2wqMcTSJfM25C9QKOQ8EtTfG OJq8F3GOlgaKjXG0TlFijKNFk7fGOFrBKeUcLSeVGeNobavcGEcLbRXGOFok rDTG0YrlO2McLZ++N8bR0m+VUxwtW1cb42gN/YNTHG0X1BjjaO+i1hhHGyl1 TnG0Z/TRGEcbWPVOcbT51uAUR/uMjcY42iNtcoqj/d1mpzjaym4xxtG+eqtT HN1C0OYUR3dLtP8nHN0Y0vGfcHTLTOc/y/EdQV2OkB9ub+r+O+nw5VFfPX8y 0qtGvaMrjHg6yV/+k5H+4TdvyLM8vgFl0eEs\ \>"], ImageRangeCache->{{{0, 403.813}, {249.188, 0}} -> {-6.30969, -0.740336, \ 0.0312506, 0.00713336}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0793651 0.603319 0.589296 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .59448 m .04262 .59289 L .06244 .59089 L .08426 .58826 L .10458 .5853 L .14264 .57812 L .18163 .56777 L .20293 .56042 L .22307 .55208 L .26149 .53142 L .28094 .51797 L .30236 .50022 L .34171 .45744 L .36112 .4302 L .38199 .3952 L .4017 .35568 L .42322 .30394 L .46293 .17838 L .4739 .13518 L .48424 .09048 L .49353 .04672 L .49607 .03409 L .49746 .02707 L .49876 .02044 L .49987 .01472 L .50105 .02179 L .50357 .03996 L .52231 .15845 L .5427 .25923 L .56394 .34003 L .58406 .39899 L .60384 .44405 L .62484 .48109 L .64432 .50768 L .6626 .52736 L .68107 .54313 L .70128 .55666 L .72132 .56708 L .74242 .57554 L .76203 .58162 L .78298 .58665 L .80433 .59058 L .82448 .59344 L .8445 .59564 L .86295 .59723 L .88171 .59852 L .90235 .59962 L .9218 .60042 L .94269 .60109 L .97619 .60186 L Mistroke Mfstroke % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{404.813, 250.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzdmklsVVUch/+lZbAqEsCIBrUooEiMiogjalRAGaMSFQzqs1ZbFMFSNc7z CM6MyoyAiCAWRAoCZdKycOPGlSt27twZN6X3/C7H1nw38Zy8qSbNeze/77vv 3b53zu8O707JNdXXzck1NdTmaiY05ubVN9TOrxk/t7Ejqqwwq1hkZn/XWLLc 3rGYPrR3/LUvTh6SJH75mHuqNL2oI9b231CPBBzLCNr+tXKeUFWXrbGTcQHp z+6pZxd6ctMKoHT9uHtAdjRK/wlQZTfRjwKqCtN7QnakDPUjgHqVk94bssPS DwPq8//UDwE6JUyvhuxQMfSDgE4tJ/00yA5G6a2ATu8m+gFAfcP0MyBrLYa+ H1C/bqLvA9QfsgPF0H8ENKBU+l5AZ0K2vwz1PYDOgmxfMfQWQIMKqp8Nmb59 2w3onFLpPwAaDNneMtR3ATo3TD8Psj1R+veAzi+VvhPQEMhaiqHvAHRBmH4h ZLuj9GZAQ8tJHwaZ5oV9B2h4qfTtgC6GbFcx9G8BjSiofglkmqS2DdDIUulb AV0K2c4y1L8BdBlkO4qhbwF0eZh+BWTNUfrXgEYVVL8SMjWGbQY0Om/6V4Cu CtPHQLY9St8E6OqC6tdApj6yjYCuzZu+AdB1Yfr1kG2L0r8EdEOYPhayrVH6 ekA3huk3QaY+snWAbs6bvhbQLZBtidLXALo1TL8NMvWRrQY0Lm/6KkATINsc pa8EdHuYfgdkqi9bAWhi3vQvAE2GbFOU/jmgKWH6VMjUdrYc0LS86csA3QmZ 2s6WArorTL8bMtWXLQE0PVtfDOgeyNZH6YsA3QfZuij9M0AzsvVPAd0P2doo /RNAsyBT29nHgB4I0x+ETG1nHwF6KFv/ENDDkK2K0j8A9AhkK6P0hYAehUxt ZwsAPRam10OmtrP3Ac2GTPVl7wF6PFt/F9AcyFRf9g6gJ7P1twHNg0xtZ28B aoRM9WVvApqfrb8B6GnI1Hb2OqBnwvRnIUtv1XgN0HOQqb7sVUDPZ+uvAHoR MrWdvQyIMtWXvQSINlD1hW9M/36qvwCIvjrVF34KNI5UX/gZ06BWH+kbdLfC 0DRMJRoVNMnVQjjmqKDUQhrRbhNod6D3wVlCOxv9F/ZU5lhAnaYs7bXVPSoE t8V00KPGwZKhIzB9OfYEIDrYVOOoIN0mrMkcH9YAiE5L1DOqdPeaG/xSiup8 QJcgNNit1kt0fUgTyHJeokuDmtfaSzup2S+laJYP6EcGTUUdcjipxS+laIYP 6NdNzR6710utfilF7rDQrUQ3nGim6EDWkTa/foqmevSLR01Ckzz61SONe53v OPSbX5or5M763P1gv/u1NPZ0MuvQcb+W9qy6AuDQHx5pl66rLO7mrz/9C9YJ jfLoL7+WDmJ0LdIh90lU+NfXAZpdlDz18rza85niNclTb88Hel3H4fotq8rz IZ7rDEZ3G/T1fKTXdXamG17+2b6xXte1EKVucPRJ0tGdUjdkByXp4E6pGw/9 k7S6U5qHmxyt4gQbtpqB\ \>"], ImageRangeCache->{{{0, 403.813}, {249.188, 0}} -> {-6.30969, -1.0238, \ 0.0312506, 0.00420876}}], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 0.0793651 0.0147151 0.242614 [ [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath 0 g .5 Mabswid [ ] 0 setdash .02381 .01991 m .04262 .02085 L .06244 .02202 L .08426 .02357 L .10458 .02531 L .14264 .02954 L .18163 .03562 L .20293 .03994 L .22307 .04485 L .26149 .057 L .28094 .06491 L .30236 .07535 L .34171 .10051 L .36112 .11653 L .38199 .13712 L .4017 .16036 L .42322 .19079 L .46293 .26464 L .50357 .37198 L .52237 .42089 L .5427 .46226 L .56411 .49576 L .58428 .52003 L .60422 .53867 L .62529 .55388 L .64493 .56485 L .66326 .57291 L .68361 .57992 L .70217 .58493 L .72125 .58899 L .74201 .59242 L .76179 .59496 L .78279 .59704 L .80227 .59854 L .82055 .59965 L .83902 .60053 L .85923 .6013 L .87927 .60188 L .90037 .60236 L .91998 .6027 L .94093 .60298 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{404.813, 250.188}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJyt2XtoV2Ucx/EzZ25qylQsUbSlKBIKI0ESKvQf91f+pVSgxByDiQzHHClK JYopauZylmW1pZXXvM7LdHNO3XTqnLt4mfe0tFaWl2pesrXnfJ4eni98Dl/o CNt5Du/XOef323/n++y1jPzsrJyM/CmZGanpeRm52VMyp6eOnZbXnhITgiCh MAiCh6mBOW9rP7WHtvafthXmYMqTP+9slo74vPazhajdzNLD1RmoA8yS7Oo0 1CFmedrVTNQXzdLF1TdRXzbLU66ORx1jlk6ujkNNN0uSq+mo4+S1Y1DHy7/i FdQ3ZB2FOtEsia6ORH1L1hGok2VNQ82SdThqtqwvoE41SwdXh6LmyGsHo+bK aweh5sn6PGq+rM+hvi1rf9SZsvZDnRUu4ZcIz8Jfc+wDny3vsvWdqLt6w9+V d9k6R9ZeqHOjnpUCnyfvsnV+1F3d4O/Lu2xdKGtX1EVRz0qGL47yJPiSKO8E /0B+qq0fRt2VCF8W5R3gBVGeAP8oyoNgOaF/QIWEHoNWEPob9DGhR6BPCD0E rST0APQpofugzwi1glYR+gv0OaE/QV8Q+gP0JaF7KhURugsqJnQH9BWh26DV hH4HrSH0m0pfE7oF+obQryp9S+gX0FpCLSqtI/QzaD2hn1TaQOgmaCOhGypt IvSjSt8R+kGlzYSuq7SF0DWVthL6XqVthK6qtJ3QFdAOQpdVKiF0SaWdhC6q tIvQBZV2Ezqv0h5CzSqVEjqn0l5CZ1XaR+iMSmWETsehckJNKu0n1BiHKgg1 qHSAUH0cqiR0SqWDhOri0CFCJ+PQYUK1KlUROhGHqgkdV+kIoWNx6CihGpVq CB2NQ8cIHVHpOKHqOHSCUFUcqiV0OA6dJHQoDtUROqjSKUKVcaie0IE41ECo QqVGQvtVaiJUrtJpQmUqnSG0T6WzhPaqdI5QqUrNhPaodJ7QbpUuEMILlH3T krRTpUuESlS6TAhvmvaVVNJ2la4SwruwfWmWtFWla4S2qHSdEIYGO11IwhRi xxVJm1S6QQgjlJ21JGEmsxOaJExyduSTtE6lFkKYNe1QKgnDqx1lJWHktbOx JMzQdqKWhMkbI3q472PDHXJtMeguoSLQPULYfbDbFJKwnYHNjfDDbWgl12Iv xe6sSMIODPZjwsfY8Ihci+0fuxkkyW4wP3aP8Xefw7BchP9qgVc7mkP42KVe TXLXLvFqZ1cXebWre8ICr3Z31873aoq7dq5Xe7n6nlefwdcL7D6prX1dneHV Aa5O9+pAcwh3snO8Gm4Qh3vsWV5Nc3WSV19ydYJXR5vDs6a+6tXXzWGYqT29 Os89oYtX/+e/EoKEfwFjwmlQ\ \>"], ImageRangeCache->{{{0, 403.813}, {249.188, 0}} -> {-6.30969, -0.060665, \ 0.0312506, 0.0102228}}] }, Open ]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"<<", "\"\\""}], ";"}], "\n", RowBox[{ RowBox[{"isat", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"VT", "=", FractionBox[ RowBox[{"Coulomb", " ", RowBox[{"(", RowBox[{"290", " ", "Kelvin"}], ")"}], " ", "BoltzmannConstant"}], RowBox[{"Joule", " ", "ElectronCharge"}]]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"current", "[", "V_", "]"}], ":=", RowBox[{"isat", " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox["V", "VT"]], "-", "1"}], ")"}]}]}], ";"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"current", "[", "V", "]"}], ",", RowBox[{"{", RowBox[{"V", ",", RowBox[{ RowBox[{"-", "2"}], " ", "VT"}], ",", RowBox[{"2", " ", "VT"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input"], Cell[GraphicsData["PostScript", "\<\ %! %%Creator: Mathematica %%AspectRatio: .61803 MathPictureStart /Mabs { Mgmatrix idtransform Mtmatrix dtransform } bind def /Mabsadd { Mabs 3 -1 roll add 3 1 roll add exch } bind def %% Graphics %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10 scalefont setfont % Scaling calculations 0.5 9.52751 0.0848784 0.0811451 [ [.1189 -0.0125 -15 -9 ] [.1189 -0.0125 15 0 ] [.30945 -0.0125 -15 -9 ] [.30945 -0.0125 15 0 ] [.5 -0.0125 -3 -9 ] [.5 -0.0125 3 0 ] [.69055 -0.0125 -12 -9 ] [.69055 -0.0125 12 0 ] [.8811 -0.0125 -12 -9 ] [.8811 -0.0125 12 0 ] [ 0 0 -0.125 0 ] [.5 -0.0125 -26 -21.5625 ] [.5 -0.0125 26 -9 ] [-0.0125 .00373 -12 -4.5 ] [-0.0125 .00373 0 4.5 ] [-0.0125 .08488 -6 -4.5 ] [-0.0125 .08488 0 4.5 ] [-0.0125 .16602 -6 -4.5 ] [-0.0125 .16602 0 4.5 ] [-0.0125 .24717 -6 -4.5 ] [-0.0125 .24717 0 4.5 ] [-0.0125 .32831 -6 -4.5 ] [-0.0125 .32831 0 4.5 ] [-0.0125 .40946 -6 -4.5 ] [-0.0125 .40946 0 4.5 ] [-0.0125 .4906 -6 -4.5 ] [-0.0125 .4906 0 4.5 ] [-0.0125 .57175 -6 -4.5 ] [-0.0125 .57175 0 4.5 ] [ 0 0 -0.125 0 ] [-0.01875 .30902 -24.5625 -23.5313 ] [-0.01875 .30902 -12 23.5313 ] [ 0 .61803 .125 0 ] [ 1 0 .125 0 ] [ 0 0 0 0 ] [ 1 .61803 0 0 ] ] MathScale % Start of Graphics 1 setlinecap 1 setlinejoin newpath 0 g .25 Mabswid [ ] 0 setdash .1189 0 m .1189 .00625 L s [(-0.04)] .1189 -0.0125 0 1 Mshowa .30945 0 m .30945 .00625 L s [(-0.02)] .30945 -0.0125 0 1 Mshowa .5 0 m .5 .00625 L s [(0)] .5 -0.0125 0 1 Mshowa .69055 0 m .69055 .00625 L s [(0.02)] .69055 -0.0125 0 1 Mshowa .8811 0 m .8811 .00625 L s [(0.04)] .8811 -0.0125 0 1 Mshowa .125 Mabswid .16654 0 m .16654 .00375 L s .21417 0 m .21417 .00375 L s .26181 0 m .26181 .00375 L s .35709 0 m .35709 .00375 L s .40472 0 m .40472 .00375 L s .45236 0 m .45236 .00375 L s .54764 0 m .54764 .00375 L s .59528 0 m .59528 .00375 L s .64291 0 m .64291 .00375 L s .73819 0 m .73819 .00375 L s .78583 0 m .78583 .00375 L s .83346 0 m .83346 .00375 L s .07126 0 m .07126 .00375 L s .02362 0 m .02362 .00375 L s .92874 0 m .92874 .00375 L s .97638 0 m .97638 .00375 L s .25 Mabswid 0 0 m 1 0 L s gsave .5 -0.0125 -87 -25.5625 Mabsadd m 1 1 Mabs scale currentpoint translate 0 20.5625 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (V) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 75.000 12.813 moveto (H) show 81.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (volt) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 105.000 12.813 moveto (L) show 111.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier /Courier findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore 0 .00373 m .00625 .00373 L s [(-1)] -0.0125 .00373 1 0 Mshowa 0 .08488 m .00625 .08488 L s [(0)] -0.0125 .08488 1 0 Mshowa 0 .16602 m .00625 .16602 L s [(1)] -0.0125 .16602 1 0 Mshowa 0 .24717 m .00625 .24717 L s [(2)] -0.0125 .24717 1 0 Mshowa 0 .32831 m .00625 .32831 L s [(3)] -0.0125 .32831 1 0 Mshowa 0 .40946 m .00625 .40946 L s [(4)] -0.0125 .40946 1 0 Mshowa 0 .4906 m .00625 .4906 L s [(5)] -0.0125 .4906 1 0 Mshowa 0 .57175 m .00625 .57175 L s [(6)] -0.0125 .57175 1 0 Mshowa .125 Mabswid 0 .01996 m .00375 .01996 L s 0 .03619 m .00375 .03619 L s 0 .05242 m .00375 .05242 L s 0 .06865 m .00375 .06865 L s 0 .10111 m .00375 .10111 L s 0 .11734 m .00375 .11734 L s 0 .13357 m .00375 .13357 L s 0 .14979 m .00375 .14979 L s 0 .18225 m .00375 .18225 L s 0 .19848 m .00375 .19848 L s 0 .21471 m .00375 .21471 L s 0 .23094 m .00375 .23094 L s 0 .2634 m .00375 .2634 L s 0 .27963 m .00375 .27963 L s 0 .29586 m .00375 .29586 L s 0 .31208 m .00375 .31208 L s 0 .34454 m .00375 .34454 L s 0 .36077 m .00375 .36077 L s 0 .377 m .00375 .377 L s 0 .39323 m .00375 .39323 L s 0 .42569 m .00375 .42569 L s 0 .44192 m .00375 .44192 L s 0 .45815 m .00375 .45815 L s 0 .47437 m .00375 .47437 L s 0 .50683 m .00375 .50683 L s 0 .52306 m .00375 .52306 L s 0 .53929 m .00375 .53929 L s 0 .55552 m .00375 .55552 L s 0 .58798 m .00375 .58798 L s 0 .60421 m .00375 .60421 L s .25 Mabswid 0 0 m 0 .61803 L s gsave -0.01875 .30902 -102.813 -10.2813 Mabsadd m 1 1 Mabs scale currentpoint translate 84.5313 10.2813 translate 90 rotate -84.5313 -10.2813 translate 0 20.5625 translate 1 -1 scale /g { setgray} bind def /k { setcmykcolor} bind def /p { gsave} bind def /r { setrgbcolor} bind def /w { setlinewidth} bind def /C { curveto} bind def /F { fill} bind def /L { lineto} bind def /rL { rlineto} bind def /P { grestore} bind def /s { stroke} bind def /S { show} bind def /N {currentpoint 3 -1 roll show moveto} bind def /Msf { findfont exch scalefont [1 0 0 -1 0 0 ] makefont setfont} bind def /m { moveto} bind def /Mr { rmoveto} bind def /Mx {currentpoint exch pop moveto} bind def /My {currentpoint pop exch moveto} bind def /X {0 rmoveto} bind def /Y {0 exch rmoveto} bind def /MISOfy { /newfontname exch def /oldfontname exch def oldfontname findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall /Encoding WindowsANSIEncoding def currentdict end newfontname exch definefont pop } def 63.000 12.813 moveto %%IncludeResource: font Courier %%IncludeFont: Courier %%BeginResource: font Courier-MISO %%BeginFont: Courier-MISO /Courier /Courier-MISO MISOfy %%EndFont %%EndResource %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 63.000 12.813 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (I) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 75.000 12.813 moveto (H) show 81.000 12.813 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (i) show 87.000 14.313 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 7.125 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor (sat) show %%IncludeResource: font Mathematica2Mono %%IncludeFont: Mathematica2Mono /Mathematica2Mono findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 100.063 12.813 moveto (L) show 106.063 12.813 moveto %%IncludeResource: font Courier-MISO %%IncludeFont: Courier-MISO /Courier-MISO findfont 10.000 scalefont [1 0 0 -1 0 0 ] makefont setfont 0.000 0.000 0.000 setrgbcolor 0.000 0.000 rmoveto 1.000 setlinewidth grestore .1189 .61178 m .1189 .61803 L s .30945 .61178 m .30945 .61803 L s .5 .61178 m .5 .61803 L s .69055 .61178 m .69055 .61803 L s .8811 .61178 m .8811 .61803 L s .125 Mabswid .16654 .61428 m .16654 .61803 L s .21417 .61428 m .21417 .61803 L s .26181 .61428 m .26181 .61803 L s .35709 .61428 m .35709 .61803 L s .40472 .61428 m .40472 .61803 L s .45236 .61428 m .45236 .61803 L s .54764 .61428 m .54764 .61803 L s .59528 .61428 m .59528 .61803 L s .64291 .61428 m .64291 .61803 L s .73819 .61428 m .73819 .61803 L s .78583 .61428 m .78583 .61803 L s .83346 .61428 m .83346 .61803 L s .07126 .61428 m .07126 .61803 L s .02362 .61428 m .02362 .61803 L s .92874 .61428 m .92874 .61803 L s .97638 .61428 m .97638 .61803 L s .25 Mabswid 0 .61803 m 1 .61803 L s .99375 .00373 m 1 .00373 L s .99375 .08488 m 1 .08488 L s .99375 .16602 m 1 .16602 L s .99375 .24717 m 1 .24717 L s .99375 .32831 m 1 .32831 L s .99375 .40946 m 1 .40946 L s .99375 .4906 m 1 .4906 L s .99375 .57175 m 1 .57175 L s .125 Mabswid .99625 .01996 m 1 .01996 L s .99625 .03619 m 1 .03619 L s .99625 .05242 m 1 .05242 L s .99625 .06865 m 1 .06865 L s .99625 .10111 m 1 .10111 L s .99625 .11734 m 1 .11734 L s .99625 .13357 m 1 .13357 L s .99625 .14979 m 1 .14979 L s .99625 .18225 m 1 .18225 L s .99625 .19848 m 1 .19848 L s .99625 .21471 m 1 .21471 L s .99625 .23094 m 1 .23094 L s .99625 .2634 m 1 .2634 L s .99625 .27963 m 1 .27963 L s .99625 .29586 m 1 .29586 L s .99625 .31208 m 1 .31208 L s .99625 .34454 m 1 .34454 L s .99625 .36077 m 1 .36077 L s .99625 .377 m 1 .377 L s .99625 .39323 m 1 .39323 L s .99625 .42569 m 1 .42569 L s .99625 .44192 m 1 .44192 L s .99625 .45815 m 1 .45815 L s .99625 .47437 m 1 .47437 L s .99625 .50683 m 1 .50683 L s .99625 .52306 m 1 .52306 L s .99625 .53929 m 1 .53929 L s .99625 .55552 m 1 .55552 L s .99625 .58798 m 1 .58798 L s .99625 .60421 m 1 .60421 L s .25 Mabswid 1 0 m 1 .61803 L s 0 0 m 1 0 L 1 .61803 L 0 .61803 L closepath clip newpath .5 Mabswid .02381 .01472 m .06244 .01665 L .10458 .01915 L .14415 .02194 L .18221 .02509 L .22272 .02905 L .26171 .03356 L .30316 .03923 L .34309 .04571 L .3815 .05306 L .42237 .0623 L .46172 .07283 L .49955 .08473 L .53984 .09966 L .57861 .11662 L .61984 .13796 L .65954 .16232 L .69774 .18992 L .73838 .22457 L .77751 .26402 L .81909 .31369 L .85916 .3705 L .89771 .43496 L .93871 .516 L .97619 .60332 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{404, 249.563}, ImageMargins->{{43, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztnH+IVUUUx5/71tVcWy2zstV2s9S20l1L3czStFots7Kf9stazFoNrcwg EBGiAv+oCJMIicIUQZAiKAShsohCSEyiSIoQRKLoJ2EZ1rZ33uvcd+9+5s6c 2bu7FT1k3t0z8/3OmXPm1z0zzwXtqzuWrmhfvWxJe+PcVe0Pdixb8nBj2wOr ukTFAYXCgOcKhcLRxkL03Nn1WE46u/51boySSMLPH5uvYqEEMDmFU0G2tVR8 H2SdBrItpeLvRV9VUcYQKFSU3Gp5MrJiUjYQsK+UKnjXfFUnsro+x2XWVmRQ EUBVXLQ6F40s5BaxXb2kLNRaSfHftqqCp2ouP9Bhmd2eDRgEsjpPLFW/paL6 VEuoVw7NzN2aPZzmQZdOdWTD15xZzrja2HeayKZ7Ilo8NRhfUngud4nBLKa+ NVHFQE6bxkVbe0zc0uPGjQuxUpWMhkkqHI3wqXnYhoibA5tU7jezpcNZpqtM N3UTNwXS0XifkofJiFjnTUtDJoT0qLQDo0+AA7uLc+leFm6dgtTEsq3iSXWI PA2UpxbIjSe8VnmanllucmYdZUV8NlQ+z/Uymoz0kZJ0DHQ5o4IxxvIoqXGU LIraHusnyYb1AJu37L+sS7xel106UgQ085BLJ4Bsjqdstme5s0FW7eiDKZlJ 77XzjJZBRvs+F3qcTYtBMrpu06HN9m+YoOc70EZz04Y6wcyIkmKFc6mepiSm Wadla1LLRh26LUprBT1Sh16YtC917wz0oiSanN7NvndHT4Ojp2M+pr1PqvhV p9tKAf6oA5oZvCaSfKMDrolSM+wP64DrotQsIQd9LPiEFD/gY8H1UvwznVpP C3C/DrhBDLFXB3xegHt0wE1iiA98LPiS1LPbx4KbpdA7OrW2So1v6YDbpMZd dmD2bLtdKHbaKerLf1RmiS2SiB1S25thfAbwqjy9Jj6oUevyepKlx217Q/h2 hJp7p1Bs17l6lwC3+XTdt6V43Cszum4cKNmsUyuO9r2sA74var2oA34oNW7S AfcI8AUfC34kTxt9LLg3WdxfrX0C3KAD7hfgszrgJwJ8Rgf8VIBP+Vjwc3la 72PBA8ni/mp9AbIndRRfSt1K4FcCfFwHPCjAx3xseQgKrfWx6iGhWKdT8LAA 1+qAXwtwjR0Yvw7TCwTtqB61k/m+l3wrmoWQGdF3kLsqSiuXKF99vgfZ6p43 8wdpZgZZ9jL1E8ge0nWDn6UCJfAXkK30GSNHoND9PmPkiFCs0Kn6G8iW6yiO gmyZjuJ3kHX4GOwYFFrqYzACKt/Y/7DV7U/xJ8ju0VF0ii3CgN0z2n0Mb8QU 9FnsY30r+q6ANtAEsjiAh/bLdwbw0Gx0RwDPYMi43ds3dAy4yNs3hL41oA21 Ni2UPEMh4xY7T32pfxX4Jcikx0PGzQ7GVJY19FcnrshgHA1Z8euj+Xs4FLku 1TRdSPMEyLje1WqvN0uTnggZCx0myI6ijrCZgBlpzNAcR8FDk54EGdc66jMh tFNsjFTVNTm1IB7uVP186U2u4U7oq+06WnnoDo4rFt2bPKMg46oAHrosdKWD J/YNjfQ2b9/QzDMvoA2kxdwAHppv2uw8ZiWpzhwhp0PGFXZG+6WkpIyGskkb IONye300ImnvMiLp9UYoMsfb64S+LMBbZ9i0UPKMhQw6j6v0eveFw9oFlPRp l0SfolQQ++AsoJiZ9gHtBKzrAzHOCrAnZczsfZ50W6NPfHXMugqPh4xLHLWY nFruB9YNBB0PX2yviA64acsZRz/M33RAfGGUVu6riJu2oTQVWGuZ0RtGa4KM i3wq8vD8OZAxXecQ2sKZ9FybG/z6bmfWOFVyDxXvp/ZVEwEzVQxomUGEhzQj xmk5WXSSTVvlrJIXD90PmGLnUa20VF8LZFxgr0+1k4j7xPlQpCXdJzz2PZMh g7hdViYMcbt4yFJkURcPeVh5UySYJ/YSjanz0l6y1k29nUaFqw2kBc0AfcXT arOKkofmUppz2Te0gjR5+4bQtE652qDkGSMKWsMrtOrS6lxmpBcf63aCtg4Z N91Sx1Px5od4jIkCryiYlPZotJezxL7y5B4jXc3KSFtX2uK6OlBePLRhp8I8 mC6FkmO9B9MsyKCXHFcbSIsz+5GH3h7pLdPFQy/L9FLNvqFX9gZv3xC6MaAN efFQkKShH3koSGSfU9O+oaDVaG/fEJpCY6425MVDoTwK+fUVD4UoKZTJvqHg 6ihv3xCaQriuNuTFQyFnCk37H4soGbXLOcXaKSbv2sfEuw5ijH89UOPdcDqV oBcs1yFbXtwV/REYF0DGyQEdKIQnHkx0fjXCezDRWZXy7r1VCwrR9xUPnSJS YKE3eGLf0OHrcG/f0NkqncG62kBa0FFxX/HcYLNKH/DEvrkRStZ5+4bQFMxz tSEvnptsrfkX8cS+ocsftd6+oWsZFF52tYG0sJ8R5MZTLw21rpN0yYZORgI3 CDnSx3sEIjUh4W6Riey200UlutAUskcI4c7eI9Av/Sgw7epD/ckTj0u66Ba7 2TUu6Xqb/VDAzkNauH6z15s8dI2QOkRv8MS+8boYa1LlTdh+/lEvqUQh2v9/ wv3P0sXVc80aUfk/CBQG/AUHH4nA\ \>"], ImageRangeCache->{{{0, 403}, {248.563, 0}} -> {-0.0632925, -1.9382, \ 0.000291544, 0.0342312}}] }, Open ]] }, Open ]] }, WindowToolbars->"RulerBar", WindowSize->{717, 632}, WindowMargins->{{Automatic, 141}, {Automatic, 9}}, 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, 302, 6, 191, "Title"], Cell[895, 31, 348, 8, 161, "Subtitle"], Cell[CellGroupData[{ Cell[1268, 43, 2727, 91, 219, "Input"], Cell[CellGroupData[{ Cell[4020, 138, 3063, 121, 259, 1428, 91, "GraphicsData", "PostScript", \ "Graphics"], Cell[7086, 261, 3230, 124, 259, 1430, 91, "GraphicsData", "PostScript", \ "Graphics"], Cell[10319, 387, 2912, 112, 259, 1290, 82, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]], Cell[13258, 503, 612, 19, 124, "Input"], Cell[CellGroupData[{ Cell[13895, 526, 530, 16, 52, "Input"], Cell[14428, 544, 13427, 708, 258, 10526, 657, "GraphicsData", "PostScript", \ "Graphics"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)