ChargeFiniteLifetime.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     47671,        908]
NotebookOptionsPosition[     45726,        843]
NotebookOutlinePosition[     46302,        864]
CellTagsIndexPosition[     46259,        861]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Program that solves Poisson\[CloseCurlyQuote]s \
equation in case of constant electric field, saturated drift velocity, and \
finite carrier\[CloseCurlyQuote]s lifetime",
 FontColor->RGBColor[1, 0, 0]]], "Section",
 CellChangeTimes->{{3.673884589811236*^9, 3.673884651722571*^9}, {
   3.673884688090955*^9, 3.673884725880426*^9}, 3.673885653102028*^9, {
   3.673886497276622*^9, 3.67388651540409*^9}, {3.673886776358576*^9, 
   3.673886801382003*^9}, 3.698143292925025*^9}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Global", " ", "variables"}], "Subsubsection",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.673885440695163*^9, 3.673885445044085*^9}, 
   3.673886762835046*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"w", "=", "120"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Bulk", " ", 
    RowBox[{"width", " ", "[", "um", "]"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"qw", "=", "70"}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "Number", " ", "of", " ", "generated", " ", "carriers", " ", "per", " ", 
    RowBox[{"micron", " ", "[", 
     RowBox[{"#", " ", "/", " ", "um"}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", "0.12", " ", 
  RowBox[{"(*", 
   RowBox[{"Irradiation", " ", 
    RowBox[{"fluence", " ", "[", 
     RowBox[{
      RowBox[{"10", "^", "16"}], " ", "1", " ", "MeV", " ", 
      RowBox[{
       RowBox[{"eq", ".", " ", "n"}], " ", "/", " ", 
       RowBox[{"cm", "^", "2"}]}]}], "]"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.6738855334984417`*^9, 3.673885539668343*^9}, {
   3.673886223032639*^9, 3.673886275796218*^9}, {3.6738863072761106`*^9, 
   3.673886311834971*^9}, {3.673886382195197*^9, 3.673886387296959*^9}, {
   3.673886424705771*^9, 3.673886440783299*^9}, 3.674302141398247*^9, {
   3.674302397198946*^9, 3.6743023975561132`*^9}, {3.6755754920278263`*^9, 
   3.675575492078553*^9}, {3.675577538701137*^9, 3.675577538876976*^9}, 
   3.675579757323834*^9, {3.67558099338348*^9, 3.6755809939746733`*^9}, {
   3.67558150565097*^9, 3.675581516552122*^9}, {3.676790088385572*^9, 
   3.676790093779812*^9}, {3.676790152031399*^9, 3.676790152105056*^9}, {
   3.676801827889926*^9, 3.676801865499596*^9}, {3.6768036003691473`*^9, 
   3.6768036154900503`*^9}, {3.676806088312738*^9, 3.676806109456661*^9}, {
   3.676863316244216*^9, 3.676863316379848*^9}, 3.676863789173234*^9, {
   3.676866073419701*^9, 3.6768660748529997`*^9}, {3.676867813829455*^9, 
   3.676867846638914*^9}, {3.67801322290333*^9, 3.678013249472431*^9}, {
   3.6780134423976316`*^9, 3.678013442968251*^9}, {3.678016326304418*^9, 
   3.67801632658636*^9}, {3.6780167026136007`*^9, 3.678016703372815*^9}, {
   3.678017418625546*^9, 3.678017419060791*^9}, 3.67801834965954*^9, {
   3.678018636811133*^9, 3.678018642060502*^9}, 3.67801872512859*^9, 
   3.678019053791277*^9, {3.678019375350316*^9, 3.678019385741975*^9}, {
   3.678021617751039*^9, 3.6780216179710484`*^9}, {3.678022394541411*^9, 
   3.678022395288611*^9}, 3.678023017535763*^9, {3.678023426332378*^9, 
   3.678023426403534*^9}, {3.678181559778697*^9, 3.678181562346918*^9}, {
   3.678254279422254*^9, 3.678254279490313*^9}, {3.69512325659127*^9, 
   3.695123258293535*^9}, 3.695123379355276*^9, {3.698142292246974*^9, 
   3.698142295537006*^9}, {3.703519210092969*^9, 3.703519212730298*^9}, {
   3.703519450206059*^9, 3.7035194503609943`*^9}, {3.70352714174825*^9, 
   3.703527141989249*^9}, {3.7035272497275457`*^9, 3.703527276369543*^9}, {
   3.70352732664999*^9, 3.703527328962522*^9}, {3.703568553322104*^9, 
   3.703568554720093*^9}, 3.703570922543145*^9, {3.703577653972169*^9, 
   3.7035776581816597`*^9}, {3.703597485209095*^9, 3.7035974882001467`*^9}, {
   3.703597518819179*^9, 3.7035975444465647`*^9}, {3.703602996169186*^9, 
   3.7036030834776077`*^9}, {3.703603171980763*^9, 3.703603286711976*^9}, {
   3.703603344280189*^9, 3.703603352558564*^9}, {3.703603419957884*^9, 
   3.7036034263724117`*^9}, {3.70360374471942*^9, 3.7036037685147467`*^9}, {
   3.703603899322451*^9, 3.703603899615307*^9}, {3.7036039526808653`*^9, 
   3.703603956541787*^9}, {3.703604015106488*^9, 3.703604033843905*^9}, {
   3.703604329918541*^9, 3.703604342836235*^9}, {3.703605000369182*^9, 
   3.7036050033112373`*^9}, {3.703605718640089*^9, 3.703605718686393*^9}, {
   3.7036757073420677`*^9, 3.703675708667219*^9}, 3.703675784140843*^9, {
   3.7036758536683826`*^9, 3.703675854756567*^9}, {3.703676163005159*^9, 
   3.7036761648209963`*^9}}],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{
  3.703675862897739*^9, 3.703675925702386*^9, {3.703675969512641*^9, 
   3.703676018754053*^9}, 3.703676095512504*^9, 3.7036762403488283`*^9, 
   3.703786794813396*^9, 3.7037869639412518`*^9, 3.703842753961815*^9, 
   3.7038529466674337`*^9}],

Cell[BoxData["70"], "Output",
 CellChangeTimes->{
  3.703675862897739*^9, 3.703675925702386*^9, {3.703675969512641*^9, 
   3.703676018754053*^9}, 3.703676095512504*^9, 3.7036762403488283`*^9, 
   3.703786794813396*^9, 3.7037869639412518`*^9, 3.703842753961815*^9, 
   3.703852946673071*^9}],

Cell[BoxData["0.12`"], "Output",
 CellChangeTimes->{
  3.703675862897739*^9, 3.703675925702386*^9, {3.703675969512641*^9, 
   3.703676018754053*^9}, 3.703676095512504*^9, 3.7036762403488283`*^9, 
   3.703786794813396*^9, 3.7037869639412518`*^9, 3.703842753961815*^9, 
   3.7038529466763697`*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{"Lifetime", " ", "vs", " ", "fluence", " ", "parametrization"}], 
  "Subsection",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.703675805958509*^9, 3.703675822401929*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"1", "/", "tau"}], " ", "=", " ", 
     RowBox[{"c", "*", 
      RowBox[{"f", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c", "*", 
          RowBox[{"f", "/", "t"}]}]}], ")"}]}]}]}], ",", " ", 
    RowBox[{"extracted", " ", "from", " ", "fit", " ", "to", " ", 
     RowBox[{"data", " ", "[", 
      RowBox[{"ns", "^", 
       RowBox[{"-", "1"}]}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ce", " ", "=", " ", "5.36"}], "\[IndentingNewLine]", 
   RowBox[{"te", " ", "=", " ", "0.8295"}], "\[IndentingNewLine]", 
   RowBox[{"ch", " ", "=", " ", "3.361"}], "\[IndentingNewLine]", 
   RowBox[{"th", " ", "=", " ", "107.6"}]}]}]], "Input",
 CellChangeTimes->{{3.70367584438474*^9, 3.7036758443994713`*^9}, {
  3.7036762212067823`*^9, 3.70367622935533*^9}, {3.703786314625399*^9, 
  3.703786316509057*^9}, {3.7037864169920588`*^9, 3.703786480293146*^9}, {
  3.7037869514100637`*^9, 3.7037869519256773`*^9}}],

Cell[BoxData["5.36`"], "Output",
 CellChangeTimes->{
  3.7036758630470257`*^9, 3.703675925855941*^9, {3.703675969728739*^9, 
   3.703676018948337*^9}, 3.703676095674774*^9, 3.703676240482868*^9, 
   3.70378679491112*^9, 3.7037869640511513`*^9, 3.703842754080615*^9, 
   3.7038529467849703`*^9}],

Cell[BoxData["0.8295`"], "Output",
 CellChangeTimes->{
  3.7036758630470257`*^9, 3.703675925855941*^9, {3.703675969728739*^9, 
   3.703676018948337*^9}, 3.703676095674774*^9, 3.703676240482868*^9, 
   3.70378679491112*^9, 3.7037869640511513`*^9, 3.703842754080615*^9, 
   3.7038529467906933`*^9}],

Cell[BoxData["3.361`"], "Output",
 CellChangeTimes->{
  3.7036758630470257`*^9, 3.703675925855941*^9, {3.703675969728739*^9, 
   3.703676018948337*^9}, 3.703676095674774*^9, 3.703676240482868*^9, 
   3.70378679491112*^9, 3.7037869640511513`*^9, 3.703842754080615*^9, 
   3.703852946794846*^9}],

Cell[BoxData["107.6`"], "Output",
 CellChangeTimes->{
  3.7036758630470257`*^9, 3.703675925855941*^9, {3.703675969728739*^9, 
   3.703676018948337*^9}, 3.703676095674774*^9, 3.703676240482868*^9, 
   3.70378679491112*^9, 3.7037869640511513`*^9, 3.703842754080615*^9, 
   3.703852946799078*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{"Induced", " ", "charge", " ", "from", " ", "electrons"}], 
  "Subsubsection",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.676866184845016*^9, 3.676866201253093*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"qe", "=", 
    RowBox[{"qw", "*", 
     RowBox[{"w", "/", "2"}]}]}], " ", 
   RowBox[{"(*", 
    RowBox[{"Total", " ", "number", " ", "of", " ", 
     RowBox[{"carriers", " ", "[", "#", "]"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ve", "=", "110"}], " ", 
   RowBox[{"(*", 
    RowBox[{"Carriers", " ", "saturation", " ", 
     RowBox[{"velocity", " ", "[", 
      RowBox[{"um", " ", "/", " ", "ns"}], "]"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"taue", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"ce", "*", 
        RowBox[{"f", "/", "te"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"ce", "*", "f"}], ")"}]}]}], " ", 
   RowBox[{"(*", 
    RowBox[{"Carriers", " ", 
     RowBox[{"lifetime", " ", "[", "ns", "]"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"xe", " ", "=", " ", 
    RowBox[{"ve", "*", "taue"}]}], " ", 
   RowBox[{"(*", 
    RowBox[{"Carriers", " ", "mean", " ", "free", " ", 
     RowBox[{"path", " ", "[", "um", "]"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"2", "*", "qe", "*", "taue", "*", 
     RowBox[{"ve", "/", 
      RowBox[{"w", "^", "2"}]}], "*", 
     RowBox[{"(", 
      RowBox[{"w", "-", 
       RowBox[{"taue", "*", "ve", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"E", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "w"}], "/", 
             RowBox[{"(", 
              RowBox[{"taue", "*", "ve"}], ")"}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdx1sog3EYgPG1LUl2MKPRLjahVloupAjzobU2tSyUcbUsdmWi1shZjJyS
TOSQshBXK2ERuzNpF5srh2bF2JcpVp8l4/++F0+/Hrmpy2Bms1gsKQnUmtoD
QjNNaW/0QVD29Vlf3UFTXGMcbdGLGkE2X4wqLo6z6oj26zf0wFrxh9/aiW4M
ltmPiIPuctTxdDUJvi7H0dF3TcBDXPBJgqCLuovtzNJUX62XAZUWdRKU5mhQ
XnCI6yK+MIeorOY7NeKkqW1nEi3eug1FiTHtI9r7HYqDr4thdN+qy/gjlnY3
oKIIIwFjugRq/bXNc1ZoavV8HJ1QXC6BP2Ifelrgr+QRVU39KrAv/yEuIMqN
/AS4NpeWLiRmzoQF4MDZiAS835tGZSlJLfhb5a0Hw9klzWBu1NYKmtp6hi3E
B//zGKhk1A6w0KBDdzlTJ6D0YxNd9+Qx48Souwj9B55G7Gw=
  "]],

Cell[BoxData["4200"], "Output",
 CellChangeTimes->{
  3.6768662238785963`*^9, {3.6768678210291977`*^9, 3.6768678521592073`*^9}, 
   3.6780120231440983`*^9, 3.678012071400132*^9, {3.678013229239847*^9, 
   3.678013254026013*^9}, 3.678013447284268*^9, 3.678016331276841*^9, 
   3.678016708267728*^9, 3.678017448034237*^9, 3.6780174809933023`*^9, 
   3.678018354782179*^9, {3.678018712351287*^9, 3.6780187302078342`*^9}, 
   3.6780190595609303`*^9, {3.678019380620216*^9, 3.6780193894277897`*^9}, 
   3.678019781044785*^9, 3.678021635069427*^9, 3.678022399900319*^9, 
   3.6780230222555857`*^9, 3.678023432078453*^9, 3.678181568101885*^9, 
   3.6782540345002604`*^9, 3.6782541464494247`*^9, 3.678254284790605*^9, 
   3.678254336130077*^9, {3.695123240767158*^9, 3.695123263969432*^9}, 
   3.695123383266307*^9, 3.695123709944944*^9, 3.698142337379306*^9, {
   3.698143157991488*^9, 3.69814318094528*^9}, 3.698143280725746*^9, 
   3.703519217434519*^9, {3.703519443972844*^9, 3.703519455310817*^9}, 
   3.703527192743587*^9, 3.703527307309936*^9, 3.7035273411314087`*^9, 
   3.7035685383811083`*^9, 3.70356858972158*^9, 3.703570925297908*^9, 
   3.7035776630809793`*^9, 3.7035777344374104`*^9, 3.703577769249476*^9, 
   3.703597579274825*^9, 3.703597657521639*^9, 3.703597699237627*^9, 
   3.703597978765511*^9, 3.7036037783773603`*^9, 3.703603827116457*^9, 
   3.7036039026563797`*^9, 3.703603960474606*^9, {3.7036039921843033`*^9, 
   3.703604019208457*^9}, 3.7036052402932777`*^9, 3.703605721888381*^9, 
   3.703675863214517*^9, 3.7036759260399027`*^9, {3.703675969846034*^9, 
   3.703676019057493*^9}, 3.703676095800624*^9, 3.703676240599208*^9, 
   3.7037867949942408`*^9, 3.703786964127784*^9, 3.7038427541318827`*^9, 
   3.7038529468394003`*^9}],

Cell[BoxData["110"], "Output",
 CellChangeTimes->{
  3.6768662238785963`*^9, {3.6768678210291977`*^9, 3.6768678521592073`*^9}, 
   3.6780120231440983`*^9, 3.678012071400132*^9, {3.678013229239847*^9, 
   3.678013254026013*^9}, 3.678013447284268*^9, 3.678016331276841*^9, 
   3.678016708267728*^9, 3.678017448034237*^9, 3.6780174809933023`*^9, 
   3.678018354782179*^9, {3.678018712351287*^9, 3.6780187302078342`*^9}, 
   3.6780190595609303`*^9, {3.678019380620216*^9, 3.6780193894277897`*^9}, 
   3.678019781044785*^9, 3.678021635069427*^9, 3.678022399900319*^9, 
   3.6780230222555857`*^9, 3.678023432078453*^9, 3.678181568101885*^9, 
   3.6782540345002604`*^9, 3.6782541464494247`*^9, 3.678254284790605*^9, 
   3.678254336130077*^9, {3.695123240767158*^9, 3.695123263969432*^9}, 
   3.695123383266307*^9, 3.695123709944944*^9, 3.698142337379306*^9, {
   3.698143157991488*^9, 3.69814318094528*^9}, 3.698143280725746*^9, 
   3.703519217434519*^9, {3.703519443972844*^9, 3.703519455310817*^9}, 
   3.703527192743587*^9, 3.703527307309936*^9, 3.7035273411314087`*^9, 
   3.7035685383811083`*^9, 3.70356858972158*^9, 3.703570925297908*^9, 
   3.7035776630809793`*^9, 3.7035777344374104`*^9, 3.703577769249476*^9, 
   3.703597579274825*^9, 3.703597657521639*^9, 3.703597699237627*^9, 
   3.703597978765511*^9, 3.7036037783773603`*^9, 3.703603827116457*^9, 
   3.7036039026563797`*^9, 3.703603960474606*^9, {3.7036039921843033`*^9, 
   3.703604019208457*^9}, 3.7036052402932777`*^9, 3.703605721888381*^9, 
   3.703675863214517*^9, 3.7036759260399027`*^9, {3.703675969846034*^9, 
   3.703676019057493*^9}, 3.703676095800624*^9, 3.703676240599208*^9, 
   3.7037867949942408`*^9, 3.703786964127784*^9, 3.7038427541318827`*^9, 
   3.703852946845462*^9}],

Cell[BoxData["2.7602718775021815`"], "Output",
 CellChangeTimes->{
  3.6768662238785963`*^9, {3.6768678210291977`*^9, 3.6768678521592073`*^9}, 
   3.6780120231440983`*^9, 3.678012071400132*^9, {3.678013229239847*^9, 
   3.678013254026013*^9}, 3.678013447284268*^9, 3.678016331276841*^9, 
   3.678016708267728*^9, 3.678017448034237*^9, 3.6780174809933023`*^9, 
   3.678018354782179*^9, {3.678018712351287*^9, 3.6780187302078342`*^9}, 
   3.6780190595609303`*^9, {3.678019380620216*^9, 3.6780193894277897`*^9}, 
   3.678019781044785*^9, 3.678021635069427*^9, 3.678022399900319*^9, 
   3.6780230222555857`*^9, 3.678023432078453*^9, 3.678181568101885*^9, 
   3.6782540345002604`*^9, 3.6782541464494247`*^9, 3.678254284790605*^9, 
   3.678254336130077*^9, {3.695123240767158*^9, 3.695123263969432*^9}, 
   3.695123383266307*^9, 3.695123709944944*^9, 3.698142337379306*^9, {
   3.698143157991488*^9, 3.69814318094528*^9}, 3.698143280725746*^9, 
   3.703519217434519*^9, {3.703519443972844*^9, 3.703519455310817*^9}, 
   3.703527192743587*^9, 3.703527307309936*^9, 3.7035273411314087`*^9, 
   3.7035685383811083`*^9, 3.70356858972158*^9, 3.703570925297908*^9, 
   3.7035776630809793`*^9, 3.7035777344374104`*^9, 3.703577769249476*^9, 
   3.703597579274825*^9, 3.703597657521639*^9, 3.703597699237627*^9, 
   3.703597978765511*^9, 3.7036037783773603`*^9, 3.703603827116457*^9, 
   3.7036039026563797`*^9, 3.703603960474606*^9, {3.7036039921843033`*^9, 
   3.703604019208457*^9}, 3.7036052402932777`*^9, 3.703605721888381*^9, 
   3.703675863214517*^9, 3.7036759260399027`*^9, {3.703675969846034*^9, 
   3.703676019057493*^9}, 3.703676095800624*^9, 3.703676240599208*^9, 
   3.7037867949942408`*^9, 3.703786964127784*^9, 3.7038427541318827`*^9, 
   3.703852946849633*^9}],

Cell[BoxData["303.62990652523996`"], "Output",
 CellChangeTimes->{
  3.6768662238785963`*^9, {3.6768678210291977`*^9, 3.6768678521592073`*^9}, 
   3.6780120231440983`*^9, 3.678012071400132*^9, {3.678013229239847*^9, 
   3.678013254026013*^9}, 3.678013447284268*^9, 3.678016331276841*^9, 
   3.678016708267728*^9, 3.678017448034237*^9, 3.6780174809933023`*^9, 
   3.678018354782179*^9, {3.678018712351287*^9, 3.6780187302078342`*^9}, 
   3.6780190595609303`*^9, {3.678019380620216*^9, 3.6780193894277897`*^9}, 
   3.678019781044785*^9, 3.678021635069427*^9, 3.678022399900319*^9, 
   3.6780230222555857`*^9, 3.678023432078453*^9, 3.678181568101885*^9, 
   3.6782540345002604`*^9, 3.6782541464494247`*^9, 3.678254284790605*^9, 
   3.678254336130077*^9, {3.695123240767158*^9, 3.695123263969432*^9}, 
   3.695123383266307*^9, 3.695123709944944*^9, 3.698142337379306*^9, {
   3.698143157991488*^9, 3.69814318094528*^9}, 3.698143280725746*^9, 
   3.703519217434519*^9, {3.703519443972844*^9, 3.703519455310817*^9}, 
   3.703527192743587*^9, 3.703527307309936*^9, 3.7035273411314087`*^9, 
   3.7035685383811083`*^9, 3.70356858972158*^9, 3.703570925297908*^9, 
   3.7035776630809793`*^9, 3.7035777344374104`*^9, 3.703577769249476*^9, 
   3.703597579274825*^9, 3.703597657521639*^9, 3.703597699237627*^9, 
   3.703597978765511*^9, 3.7036037783773603`*^9, 3.703603827116457*^9, 
   3.7036039026563797`*^9, 3.703603960474606*^9, {3.7036039921843033`*^9, 
   3.703604019208457*^9}, 3.7036052402932777`*^9, 3.703605721888381*^9, 
   3.703675863214517*^9, 3.7036759260399027`*^9, {3.703675969846034*^9, 
   3.703676019057493*^9}, 3.703676095800624*^9, 3.703676240599208*^9, 
   3.7037867949942408`*^9, 3.703786964127784*^9, 3.7038427541318827`*^9, 
   3.703852946854003*^9}],

Cell[BoxData["3697.3119506096455`"], "Output",
 CellChangeTimes->{
  3.6768662238785963`*^9, {3.6768678210291977`*^9, 3.6768678521592073`*^9}, 
   3.6780120231440983`*^9, 3.678012071400132*^9, {3.678013229239847*^9, 
   3.678013254026013*^9}, 3.678013447284268*^9, 3.678016331276841*^9, 
   3.678016708267728*^9, 3.678017448034237*^9, 3.6780174809933023`*^9, 
   3.678018354782179*^9, {3.678018712351287*^9, 3.6780187302078342`*^9}, 
   3.6780190595609303`*^9, {3.678019380620216*^9, 3.6780193894277897`*^9}, 
   3.678019781044785*^9, 3.678021635069427*^9, 3.678022399900319*^9, 
   3.6780230222555857`*^9, 3.678023432078453*^9, 3.678181568101885*^9, 
   3.6782540345002604`*^9, 3.6782541464494247`*^9, 3.678254284790605*^9, 
   3.678254336130077*^9, {3.695123240767158*^9, 3.695123263969432*^9}, 
   3.695123383266307*^9, 3.695123709944944*^9, 3.698142337379306*^9, {
   3.698143157991488*^9, 3.69814318094528*^9}, 3.698143280725746*^9, 
   3.703519217434519*^9, {3.703519443972844*^9, 3.703519455310817*^9}, 
   3.703527192743587*^9, 3.703527307309936*^9, 3.7035273411314087`*^9, 
   3.7035685383811083`*^9, 3.70356858972158*^9, 3.703570925297908*^9, 
   3.7035776630809793`*^9, 3.7035777344374104`*^9, 3.703577769249476*^9, 
   3.703597579274825*^9, 3.703597657521639*^9, 3.703597699237627*^9, 
   3.703597978765511*^9, 3.7036037783773603`*^9, 3.703603827116457*^9, 
   3.7036039026563797`*^9, 3.703603960474606*^9, {3.7036039921843033`*^9, 
   3.703604019208457*^9}, 3.7036052402932777`*^9, 3.703605721888381*^9, 
   3.703675863214517*^9, 3.7036759260399027`*^9, {3.703675969846034*^9, 
   3.703676019057493*^9}, 3.703676095800624*^9, 3.703676240599208*^9, 
   3.7037867949942408`*^9, 3.703786964127784*^9, 3.7038427541318827`*^9, 
   3.703852946858241*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{"Induced", " ", "charge", " ", "from", " ", "holes"}], 
  "Subsubsection",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.67388512087719*^9, 3.6738851456530657`*^9}, {
   3.673885261571809*^9, 3.6738852673731422`*^9}, 3.673885505238488*^9, {
   3.676866158873917*^9, 3.676866187918193*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"qh", "=", 
   RowBox[{"qw", "*", 
    RowBox[{"w", "/", "2"}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"Total", " ", "number", " ", "of", " ", 
    RowBox[{"carriers", " ", "[", "#", "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vh", "=", "95"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Carriers", " ", "saturation", " ", 
    RowBox[{"velocity", " ", "[", 
     RowBox[{"um", " ", "/", " ", "ns"}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tauh", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"ch", "*", 
       RowBox[{"f", "/", "th"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"ch", "*", "f"}], ")"}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"Carriers", " ", 
    RowBox[{"lifetime", " ", "[", "ns", "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xh", " ", "=", " ", 
   RowBox[{"vh", "*", "tauh"}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"Carriers", " ", "mean", " ", "free", " ", 
    RowBox[{"path", " ", "[", "um", "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Evaluate", "[", 
  RowBox[{"2", "*", "qh", "*", "tauh", "*", 
   RowBox[{"vh", "/", 
    RowBox[{"w", "^", "2"}]}], "*", 
   RowBox[{"(", 
    RowBox[{"w", "-", 
     RowBox[{"tauh", "*", "vh", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "w"}], "/", 
           RowBox[{"(", 
            RowBox[{"tauh", "*", "vh"}], ")"}]}], ")"}]}]}], ")"}]}]}], 
    ")"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6733724420944843`*^9, 3.6733725038637857`*^9}, {
   3.67337270980396*^9, 3.6733727154728813`*^9}, {3.673374255594015*^9, 
   3.673374264793268*^9}, {3.6733755433240547`*^9, 3.67337554715565*^9}, {
   3.673375906904275*^9, 3.673375911798822*^9}, {3.6733759577122087`*^9, 
   3.673375985971789*^9}, {3.673376032362949*^9, 3.673376034618334*^9}, {
   3.6733760958421926`*^9, 3.673376104554438*^9}, {3.673376266163067*^9, 
   3.673376286403288*^9}, {3.6733763174925547`*^9, 3.673376417021441*^9}, {
   3.673376497148243*^9, 3.673376514882154*^9}, {3.673376971819583*^9, 
   3.6733770075124187`*^9}, {3.673450852923435*^9, 3.673450853823243*^9}, {
   3.673451060177122*^9, 3.673451068165764*^9}, {3.673451428034691*^9, 
   3.6734514678475933`*^9}, {3.6734515901321507`*^9, 
   3.6734517034073877`*^9}, {3.673451734936009*^9, 3.6734517379997873`*^9}, {
   3.673452046252369*^9, 3.6734521870209713`*^9}, {3.6734522355813303`*^9, 
   3.6734522359391813`*^9}, {3.673452594312113*^9, 3.673452596999371*^9}, {
   3.6734526475021887`*^9, 3.673452647589723*^9}, {3.6734527507637043`*^9, 
   3.673452774059466*^9}, 3.673545440236135*^9, 3.673545585272931*^9, {
   3.673545719115337*^9, 3.673545723768075*^9}, {3.673546695072216*^9, 
   3.673546698326593*^9}, {3.673546738973184*^9, 3.673546743900056*^9}, {
   3.673546891523859*^9, 3.673546918634686*^9}, 3.673596628203764*^9, {
   3.67359702633735*^9, 3.673597041687551*^9}, {3.673597143941174*^9, 
   3.67359715722871*^9}, {3.673597777998597*^9, 3.673597779358016*^9}, {
   3.6735989184895678`*^9, 3.673598924495875*^9}, {3.67362884923888*^9, 
   3.67362889122678*^9}, {3.673630512916926*^9, 3.673630602319826*^9}, {
   3.6736306842307673`*^9, 3.673630722028797*^9}, {3.6738000510255337`*^9, 
   3.673800052287697*^9}, {3.673800216859111*^9, 3.673800217081882*^9}, {
   3.673801939477*^9, 3.673801952494915*^9}, {3.673801983072945*^9, 
   3.67380201307824*^9}, {3.6738021116445723`*^9, 3.6738021135954638`*^9}, {
   3.673802303380323*^9, 3.6738023406695538`*^9}, {3.673802382839732*^9, 
   3.6738024474525337`*^9}, {3.673802547902865*^9, 3.6738025626284237`*^9}, 
   3.6738026842002897`*^9, {3.673802856982317*^9, 3.673802866465887*^9}, {
   3.673802934921185*^9, 3.67380293504653*^9}, {3.673803172195321*^9, 
   3.673803172328651*^9}, {3.6738032650495253`*^9, 3.6738032846725388`*^9}, {
   3.6738045334242783`*^9, 3.673804543137333*^9}, {3.673804840804555*^9, 
   3.6738048455388308`*^9}, {3.673804904842486*^9, 3.6738049570550213`*^9}, {
   3.673847086884656*^9, 3.6738471117196693`*^9}, {3.6738471544721117`*^9, 
   3.673847265871271*^9}, {3.673847332366081*^9, 3.673847333851749*^9}, {
   3.6738473905212*^9, 3.6738473924609327`*^9}, {3.67384747277731*^9, 
   3.673847477169327*^9}, {3.6738476249767427`*^9, 3.673847625287814*^9}, {
   3.673848025623189*^9, 3.6738480256863623`*^9}, {3.673884738435233*^9, 
   3.673884768944037*^9}, {3.6738848331427393`*^9, 3.673884866229526*^9}, {
   3.6738849458518553`*^9, 3.6738849476354218`*^9}, {3.673884979390889*^9, 
   3.673884991425712*^9}, {3.6738851502008247`*^9, 3.673885151597777*^9}, 
   3.673885543423311*^9, {3.673886475753591*^9, 3.6738864883820353`*^9}, {
   3.6738865262629557`*^9, 3.6738866300018682`*^9}, {3.673886683986917*^9, 
   3.673886692320139*^9}, {3.673886939708974*^9, 3.673886941172022*^9}, {
   3.675575729206964*^9, 3.675575730749011*^9}, {3.675576328005385*^9, 
   3.67557632956489*^9}, {3.675576987598765*^9, 3.675576994365078*^9}, {
   3.675577175967195*^9, 3.6755772066978893`*^9}, {3.675577286354125*^9, 
   3.675577339235588*^9}, {3.675577369310664*^9, 3.675577372302062*^9}, {
   3.6755774499960623`*^9, 3.67557745707589*^9}, {3.675578379307637*^9, 
   3.675578389613065*^9}, {3.6755789575756807`*^9, 3.675578970518178*^9}, {
   3.675579277062771*^9, 3.675579327212327*^9}, {3.675580981760881*^9, 
   3.675580981842753*^9}, {3.675581029026764*^9, 3.675581029992882*^9}, {
   3.675581238889817*^9, 3.675581240224452*^9}, {3.675581342060174*^9, 
   3.675581343556229*^9}, {3.675581385603208*^9, 3.675581385666581*^9}, {
   3.675589290063281*^9, 3.675589373244492*^9}, {3.675589403627955*^9, 
   3.6755894197250347`*^9}, {3.6755896399611683`*^9, 3.675589642716075*^9}, {
   3.676803596981866*^9, 3.676803598203438*^9}, {3.678012010268194*^9, 
   3.678012012595983*^9}, 3.678012068363364*^9, {3.678019740603141*^9, 
   3.678019749642248*^9}, {3.678021630448441*^9, 3.678021630508994*^9}, {
   3.678254027818515*^9, 3.6782540279143667`*^9}, {3.6782541241662073`*^9, 
   3.678254124396776*^9}, {3.67826498354556*^9, 3.678264995174666*^9}, {
   3.6981428821649218`*^9, 3.698142882311199*^9}, {3.698143148200407*^9, 
   3.698143174894534*^9}, {3.698143222461535*^9, 3.698143222500985*^9}, {
   3.698143271384736*^9, 3.698143272418367*^9}, {3.703519306148369*^9, 
   3.7035193064677343`*^9}, {3.703527177530777*^9, 3.703527177777547*^9}, {
   3.70352733733225*^9, 3.7035273373798037`*^9}, {3.703568525840962*^9, 
   3.703568525896945*^9}, {3.703568586283195*^9, 3.703568586351165*^9}, {
   3.703577726356255*^9, 3.703577727252038*^9}, {3.703577762928379*^9, 
   3.703577763209667*^9}, 3.703597570297806*^9, {3.703597695660529*^9, 
   3.703597695722987*^9}, 3.703603155801794*^9, {3.703603364568924*^9, 
   3.703603408955531*^9}, {3.703603819644663*^9, 3.7036038228144836`*^9}, {
   3.7036038945359783`*^9, 3.703603896199656*^9}, {3.703603939800699*^9, 
   3.703603944990224*^9}, {3.7037865475895243`*^9, 3.703786559825643*^9}, {
   3.703786959942317*^9, 3.703786960749785*^9}, {3.703842749791857*^9, 
   3.703842751021084*^9}}],

Cell[BoxData["4200"], "Output",
 CellChangeTimes->{
  3.675577288288459*^9, {3.675577354740527*^9, 3.675577374055928*^9}, 
   3.675577459174779*^9, 3.6755775448490353`*^9, {3.675578374842043*^9, 
   3.67557840881192*^9}, 3.675578972770808*^9, 3.67557929228541*^9, 
   3.6755793282938833`*^9, 3.6755797637482147`*^9, {3.675580988705661*^9, 
   3.675581038598078*^9}, 3.67558125031936*^9, {3.6755813597625523`*^9, 
   3.675581386713043*^9}, {3.675581534167506*^9, 3.675581562909433*^9}, 
   3.675589375825734*^9, {3.675589415062894*^9, 3.675589420528366*^9}, 
   3.675589643735448*^9, 3.676790102381608*^9, 3.676790159659844*^9, {
   3.6767904929639273`*^9, 3.6767904968092127`*^9}, 3.676794918016572*^9, {
   3.6768018389177113`*^9, 3.676801871760051*^9}, {3.6768036060115843`*^9, 
   3.67680362094118*^9}, 3.6768037187171803`*^9, {3.676806094387822*^9, 
   3.676806114671301*^9}, 3.676863323482252*^9, 3.6768637943235683`*^9, 
   3.67686608303762*^9, 3.6768662258179092`*^9, 3.67686782256157*^9, 
   3.67686786182734*^9, 3.678012025829235*^9, 3.67801207335247*^9, {
   3.678013230936034*^9, 3.678013255994244*^9}, 3.678013314040584*^9, 
   3.6780134489504957`*^9, 3.6780163329116488`*^9, 3.678016709399769*^9, 
   3.678017449384375*^9, 3.6780174825215473`*^9, 3.678018356621402*^9, {
   3.678018714329693*^9, 3.678018731862611*^9}, 3.6780190611624813`*^9, 
   3.678019101894549*^9, {3.678019382221249*^9, 3.678019391011684*^9}, 
   3.678019783530121*^9, 3.67802163655995*^9, {3.678021670880825*^9, 
   3.678021676068253*^9}, 3.6780224014089193`*^9, 3.678023023814002*^9, 
   3.678023433779274*^9, 3.67818157020369*^9, 3.678254036964519*^9, 
   3.678254149116194*^9, 3.678254287091967*^9, 3.67825433757703*^9, {
   3.695123240884159*^9, 3.695123264086605*^9}, 3.6951233833827143`*^9, 
   3.695123710061057*^9, 3.6981423374955482`*^9, {3.698143158109889*^9, 
   3.6981431810665417`*^9}, 3.698143280842608*^9, 3.703519217578088*^9, {
   3.7035194441105213`*^9, 3.7035194554843693`*^9}, 3.703527192894472*^9, 
   3.7035273074763927`*^9, 3.703527341297559*^9, 3.703568538498378*^9, 
   3.70356858984343*^9, 3.703570925414509*^9, 3.703577663214005*^9, 
   3.7035777345550623`*^9, 3.703577769365827*^9, 3.703597579399428*^9, 
   3.703597657651835*^9, 3.70359769937115*^9, 3.703597978896747*^9, 
   3.703603778511643*^9, 3.70360382724506*^9, 3.703603902777193*^9, 
   3.703603960609166*^9, {3.70360399230153*^9, 3.7036040193398848`*^9}, 
   3.7036052404138737`*^9, 3.7036057220023518`*^9, 3.703675863380876*^9, 
   3.703675926205455*^9, {3.703675969945245*^9, 3.703676019168803*^9}, 
   3.703676095895483*^9, 3.7036762406961327`*^9, 3.70378679508384*^9, 
   3.703786964201034*^9, 3.703842754196641*^9, 3.703852946901637*^9}],

Cell[BoxData["95"], "Output",
 CellChangeTimes->{
  3.675577288288459*^9, {3.675577354740527*^9, 3.675577374055928*^9}, 
   3.675577459174779*^9, 3.6755775448490353`*^9, {3.675578374842043*^9, 
   3.67557840881192*^9}, 3.675578972770808*^9, 3.67557929228541*^9, 
   3.6755793282938833`*^9, 3.6755797637482147`*^9, {3.675580988705661*^9, 
   3.675581038598078*^9}, 3.67558125031936*^9, {3.6755813597625523`*^9, 
   3.675581386713043*^9}, {3.675581534167506*^9, 3.675581562909433*^9}, 
   3.675589375825734*^9, {3.675589415062894*^9, 3.675589420528366*^9}, 
   3.675589643735448*^9, 3.676790102381608*^9, 3.676790159659844*^9, {
   3.6767904929639273`*^9, 3.6767904968092127`*^9}, 3.676794918016572*^9, {
   3.6768018389177113`*^9, 3.676801871760051*^9}, {3.6768036060115843`*^9, 
   3.67680362094118*^9}, 3.6768037187171803`*^9, {3.676806094387822*^9, 
   3.676806114671301*^9}, 3.676863323482252*^9, 3.6768637943235683`*^9, 
   3.67686608303762*^9, 3.6768662258179092`*^9, 3.67686782256157*^9, 
   3.67686786182734*^9, 3.678012025829235*^9, 3.67801207335247*^9, {
   3.678013230936034*^9, 3.678013255994244*^9}, 3.678013314040584*^9, 
   3.6780134489504957`*^9, 3.6780163329116488`*^9, 3.678016709399769*^9, 
   3.678017449384375*^9, 3.6780174825215473`*^9, 3.678018356621402*^9, {
   3.678018714329693*^9, 3.678018731862611*^9}, 3.6780190611624813`*^9, 
   3.678019101894549*^9, {3.678019382221249*^9, 3.678019391011684*^9}, 
   3.678019783530121*^9, 3.67802163655995*^9, {3.678021670880825*^9, 
   3.678021676068253*^9}, 3.6780224014089193`*^9, 3.678023023814002*^9, 
   3.678023433779274*^9, 3.67818157020369*^9, 3.678254036964519*^9, 
   3.678254149116194*^9, 3.678254287091967*^9, 3.67825433757703*^9, {
   3.695123240884159*^9, 3.695123264086605*^9}, 3.6951233833827143`*^9, 
   3.695123710061057*^9, 3.6981423374955482`*^9, {3.698143158109889*^9, 
   3.6981431810665417`*^9}, 3.698143280842608*^9, 3.703519217578088*^9, {
   3.7035194441105213`*^9, 3.7035194554843693`*^9}, 3.703527192894472*^9, 
   3.7035273074763927`*^9, 3.703527341297559*^9, 3.703568538498378*^9, 
   3.70356858984343*^9, 3.703570925414509*^9, 3.703577663214005*^9, 
   3.7035777345550623`*^9, 3.703577769365827*^9, 3.703597579399428*^9, 
   3.703597657651835*^9, 3.70359769937115*^9, 3.703597978896747*^9, 
   3.703603778511643*^9, 3.70360382724506*^9, 3.703603902777193*^9, 
   3.703603960609166*^9, {3.70360399230153*^9, 3.7036040193398848`*^9}, 
   3.7036052404138737`*^9, 3.7036057220023518`*^9, 3.703675863380876*^9, 
   3.703675926205455*^9, {3.703675969945245*^9, 3.703676019168803*^9}, 
   3.703676095895483*^9, 3.7036762406961327`*^9, 3.70378679508384*^9, 
   3.703786964201034*^9, 3.703842754196641*^9, 3.70385294690653*^9}],

Cell[BoxData["2.4887144875968126`"], "Output",
 CellChangeTimes->{
  3.675577288288459*^9, {3.675577354740527*^9, 3.675577374055928*^9}, 
   3.675577459174779*^9, 3.6755775448490353`*^9, {3.675578374842043*^9, 
   3.67557840881192*^9}, 3.675578972770808*^9, 3.67557929228541*^9, 
   3.6755793282938833`*^9, 3.6755797637482147`*^9, {3.675580988705661*^9, 
   3.675581038598078*^9}, 3.67558125031936*^9, {3.6755813597625523`*^9, 
   3.675581386713043*^9}, {3.675581534167506*^9, 3.675581562909433*^9}, 
   3.675589375825734*^9, {3.675589415062894*^9, 3.675589420528366*^9}, 
   3.675589643735448*^9, 3.676790102381608*^9, 3.676790159659844*^9, {
   3.6767904929639273`*^9, 3.6767904968092127`*^9}, 3.676794918016572*^9, {
   3.6768018389177113`*^9, 3.676801871760051*^9}, {3.6768036060115843`*^9, 
   3.67680362094118*^9}, 3.6768037187171803`*^9, {3.676806094387822*^9, 
   3.676806114671301*^9}, 3.676863323482252*^9, 3.6768637943235683`*^9, 
   3.67686608303762*^9, 3.6768662258179092`*^9, 3.67686782256157*^9, 
   3.67686786182734*^9, 3.678012025829235*^9, 3.67801207335247*^9, {
   3.678013230936034*^9, 3.678013255994244*^9}, 3.678013314040584*^9, 
   3.6780134489504957`*^9, 3.6780163329116488`*^9, 3.678016709399769*^9, 
   3.678017449384375*^9, 3.6780174825215473`*^9, 3.678018356621402*^9, {
   3.678018714329693*^9, 3.678018731862611*^9}, 3.6780190611624813`*^9, 
   3.678019101894549*^9, {3.678019382221249*^9, 3.678019391011684*^9}, 
   3.678019783530121*^9, 3.67802163655995*^9, {3.678021670880825*^9, 
   3.678021676068253*^9}, 3.6780224014089193`*^9, 3.678023023814002*^9, 
   3.678023433779274*^9, 3.67818157020369*^9, 3.678254036964519*^9, 
   3.678254149116194*^9, 3.678254287091967*^9, 3.67825433757703*^9, {
   3.695123240884159*^9, 3.695123264086605*^9}, 3.6951233833827143`*^9, 
   3.695123710061057*^9, 3.6981423374955482`*^9, {3.698143158109889*^9, 
   3.6981431810665417`*^9}, 3.698143280842608*^9, 3.703519217578088*^9, {
   3.7035194441105213`*^9, 3.7035194554843693`*^9}, 3.703527192894472*^9, 
   3.7035273074763927`*^9, 3.703527341297559*^9, 3.703568538498378*^9, 
   3.70356858984343*^9, 3.703570925414509*^9, 3.703577663214005*^9, 
   3.7035777345550623`*^9, 3.703577769365827*^9, 3.703597579399428*^9, 
   3.703597657651835*^9, 3.70359769937115*^9, 3.703597978896747*^9, 
   3.703603778511643*^9, 3.70360382724506*^9, 3.703603902777193*^9, 
   3.703603960609166*^9, {3.70360399230153*^9, 3.7036040193398848`*^9}, 
   3.7036052404138737`*^9, 3.7036057220023518`*^9, 3.703675863380876*^9, 
   3.703675926205455*^9, {3.703675969945245*^9, 3.703676019168803*^9}, 
   3.703676095895483*^9, 3.7036762406961327`*^9, 3.70378679508384*^9, 
   3.703786964201034*^9, 3.703842754196641*^9, 3.703852946910056*^9}],

Cell[BoxData["236.4278763216972`"], "Output",
 CellChangeTimes->{
  3.675577288288459*^9, {3.675577354740527*^9, 3.675577374055928*^9}, 
   3.675577459174779*^9, 3.6755775448490353`*^9, {3.675578374842043*^9, 
   3.67557840881192*^9}, 3.675578972770808*^9, 3.67557929228541*^9, 
   3.6755793282938833`*^9, 3.6755797637482147`*^9, {3.675580988705661*^9, 
   3.675581038598078*^9}, 3.67558125031936*^9, {3.6755813597625523`*^9, 
   3.675581386713043*^9}, {3.675581534167506*^9, 3.675581562909433*^9}, 
   3.675589375825734*^9, {3.675589415062894*^9, 3.675589420528366*^9}, 
   3.675589643735448*^9, 3.676790102381608*^9, 3.676790159659844*^9, {
   3.6767904929639273`*^9, 3.6767904968092127`*^9}, 3.676794918016572*^9, {
   3.6768018389177113`*^9, 3.676801871760051*^9}, {3.6768036060115843`*^9, 
   3.67680362094118*^9}, 3.6768037187171803`*^9, {3.676806094387822*^9, 
   3.676806114671301*^9}, 3.676863323482252*^9, 3.6768637943235683`*^9, 
   3.67686608303762*^9, 3.6768662258179092`*^9, 3.67686782256157*^9, 
   3.67686786182734*^9, 3.678012025829235*^9, 3.67801207335247*^9, {
   3.678013230936034*^9, 3.678013255994244*^9}, 3.678013314040584*^9, 
   3.6780134489504957`*^9, 3.6780163329116488`*^9, 3.678016709399769*^9, 
   3.678017449384375*^9, 3.6780174825215473`*^9, 3.678018356621402*^9, {
   3.678018714329693*^9, 3.678018731862611*^9}, 3.6780190611624813`*^9, 
   3.678019101894549*^9, {3.678019382221249*^9, 3.678019391011684*^9}, 
   3.678019783530121*^9, 3.67802163655995*^9, {3.678021670880825*^9, 
   3.678021676068253*^9}, 3.6780224014089193`*^9, 3.678023023814002*^9, 
   3.678023433779274*^9, 3.67818157020369*^9, 3.678254036964519*^9, 
   3.678254149116194*^9, 3.678254287091967*^9, 3.67825433757703*^9, {
   3.695123240884159*^9, 3.695123264086605*^9}, 3.6951233833827143`*^9, 
   3.695123710061057*^9, 3.6981423374955482`*^9, {3.698143158109889*^9, 
   3.6981431810665417`*^9}, 3.698143280842608*^9, 3.703519217578088*^9, {
   3.7035194441105213`*^9, 3.7035194554843693`*^9}, 3.703527192894472*^9, 
   3.7035273074763927`*^9, 3.703527341297559*^9, 3.703568538498378*^9, 
   3.70356858984343*^9, 3.703570925414509*^9, 3.703577663214005*^9, 
   3.7035777345550623`*^9, 3.703577769365827*^9, 3.703597579399428*^9, 
   3.703597657651835*^9, 3.70359769937115*^9, 3.703597978896747*^9, 
   3.703603778511643*^9, 3.70360382724506*^9, 3.703603902777193*^9, 
   3.703603960609166*^9, {3.70360399230153*^9, 3.7036040193398848`*^9}, 
   3.7036052404138737`*^9, 3.7036057220023518`*^9, 3.703675863380876*^9, 
   3.703675926205455*^9, {3.703675969945245*^9, 3.703676019168803*^9}, 
   3.703676095895483*^9, 3.7036762406961327`*^9, 3.70378679508384*^9, 
   3.703786964201034*^9, 3.703842754196641*^9, 3.703852946913125*^9}],

Cell[BoxData["3571.1567416568905`"], "Output",
 CellChangeTimes->{
  3.675577288288459*^9, {3.675577354740527*^9, 3.675577374055928*^9}, 
   3.675577459174779*^9, 3.6755775448490353`*^9, {3.675578374842043*^9, 
   3.67557840881192*^9}, 3.675578972770808*^9, 3.67557929228541*^9, 
   3.6755793282938833`*^9, 3.6755797637482147`*^9, {3.675580988705661*^9, 
   3.675581038598078*^9}, 3.67558125031936*^9, {3.6755813597625523`*^9, 
   3.675581386713043*^9}, {3.675581534167506*^9, 3.675581562909433*^9}, 
   3.675589375825734*^9, {3.675589415062894*^9, 3.675589420528366*^9}, 
   3.675589643735448*^9, 3.676790102381608*^9, 3.676790159659844*^9, {
   3.6767904929639273`*^9, 3.6767904968092127`*^9}, 3.676794918016572*^9, {
   3.6768018389177113`*^9, 3.676801871760051*^9}, {3.6768036060115843`*^9, 
   3.67680362094118*^9}, 3.6768037187171803`*^9, {3.676806094387822*^9, 
   3.676806114671301*^9}, 3.676863323482252*^9, 3.6768637943235683`*^9, 
   3.67686608303762*^9, 3.6768662258179092`*^9, 3.67686782256157*^9, 
   3.67686786182734*^9, 3.678012025829235*^9, 3.67801207335247*^9, {
   3.678013230936034*^9, 3.678013255994244*^9}, 3.678013314040584*^9, 
   3.6780134489504957`*^9, 3.6780163329116488`*^9, 3.678016709399769*^9, 
   3.678017449384375*^9, 3.6780174825215473`*^9, 3.678018356621402*^9, {
   3.678018714329693*^9, 3.678018731862611*^9}, 3.6780190611624813`*^9, 
   3.678019101894549*^9, {3.678019382221249*^9, 3.678019391011684*^9}, 
   3.678019783530121*^9, 3.67802163655995*^9, {3.678021670880825*^9, 
   3.678021676068253*^9}, 3.6780224014089193`*^9, 3.678023023814002*^9, 
   3.678023433779274*^9, 3.67818157020369*^9, 3.678254036964519*^9, 
   3.678254149116194*^9, 3.678254287091967*^9, 3.67825433757703*^9, {
   3.695123240884159*^9, 3.695123264086605*^9}, 3.6951233833827143`*^9, 
   3.695123710061057*^9, 3.6981423374955482`*^9, {3.698143158109889*^9, 
   3.6981431810665417`*^9}, 3.698143280842608*^9, 3.703519217578088*^9, {
   3.7035194441105213`*^9, 3.7035194554843693`*^9}, 3.703527192894472*^9, 
   3.7035273074763927`*^9, 3.703527341297559*^9, 3.703568538498378*^9, 
   3.70356858984343*^9, 3.703570925414509*^9, 3.703577663214005*^9, 
   3.7035777345550623`*^9, 3.703577769365827*^9, 3.703597579399428*^9, 
   3.703597657651835*^9, 3.70359769937115*^9, 3.703597978896747*^9, 
   3.703603778511643*^9, 3.70360382724506*^9, 3.703603902777193*^9, 
   3.703603960609166*^9, {3.70360399230153*^9, 3.7036040193398848`*^9}, 
   3.7036052404138737`*^9, 3.7036057220023518`*^9, 3.703675863380876*^9, 
   3.703675926205455*^9, {3.703675969945245*^9, 3.703676019168803*^9}, 
   3.703676095895483*^9, 3.7036762406961327`*^9, 3.70378679508384*^9, 
   3.703786964201034*^9, 3.703842754196641*^9, 3.7038529469160547`*^9}]
}, Open  ]],

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"Full", " ", "induced", " ", "charge"}], ",", " ", 
   RowBox[{
    RowBox[{"i", ".", "e", ".", " ", "from"}], " ", "electrons", " ", "and", 
    " ", "holes"}]}], "Subsubsection",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 Evaluatable->False,
 CellChangeTimes->{{3.673886749174638*^9, 3.673886757795732*^9}},
 EmphasizeSyntaxErrors->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Evaluate", "[", 
   RowBox[{
    RowBox[{"2", "*", "qe", "*", "taue", "*", 
     RowBox[{"ve", "/", 
      RowBox[{"w", "^", "2"}]}], "*", 
     RowBox[{"(", 
      RowBox[{"w", "-", 
       RowBox[{"taue", "*", "ve", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"E", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "w"}], "/", 
             RowBox[{"(", 
              RowBox[{"taue", "*", "ve"}], ")"}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], " ", "+", " ", 
    RowBox[{"2", "*", "qh", "*", "tauh", "*", 
     RowBox[{"vh", "/", 
      RowBox[{"w", "^", "2"}]}], "*", 
     RowBox[{"(", 
      RowBox[{"w", "-", 
       RowBox[{"tauh", "*", "vh", "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"E", "^", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "w"}], "/", 
             RowBox[{"(", 
              RowBox[{"tauh", "*", "vh"}], ")"}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.673847425399831*^9, 3.6738474564421043`*^9}, {
   3.673847487791391*^9, 3.673847533458894*^9}, {3.673847569780231*^9, 
   3.673847616001213*^9}, {3.673847964849091*^9, 3.673848008598484*^9}, 
   3.673885704010261*^9, {3.675577470867957*^9, 3.675577501369359*^9}, {
   3.675579110525217*^9, 3.675579116628673*^9}, {3.675581045949438*^9, 
   3.675581047915771*^9}, {3.67558944794158*^9, 3.675589459563397*^9}, {
   3.67558974468438*^9, 3.675589758771397*^9}, {3.703603973119198*^9, 
   3.703603986783223*^9}}],

Cell[BoxData["7268.468692266536`"], "Output",
 CellChangeTimes->{
  3.673847505631339*^9, {3.67384757228344*^9, 3.673847618524472*^9}, {
   3.673847968971624*^9, 3.673848011350665*^9}, 3.673885229148252*^9, 
   3.673885275847405*^9, 3.6738857161255617`*^9, 3.673885777558393*^9, 
   3.673885965722603*^9, 3.673886732699903*^9, 3.673886882830061*^9, 
   3.673886959849101*^9, 3.6743022932774687`*^9, 3.6755755298060627`*^9, 
   3.6755757639290733`*^9, 3.675576367472724*^9, {3.675577483930359*^9, 
   3.6755775030626183`*^9}, 3.675579120323752*^9, 3.6755810509342413`*^9, 
   3.675581256923359*^9, {3.675581366264637*^9, 3.675581393669839*^9}, {
   3.675581540791272*^9, 3.675581557865906*^9}, 3.675589461676162*^9, {
   3.675589746643347*^9, 3.6755897595146008`*^9}, 3.676790133539585*^9, 
   3.676790240890953*^9, 3.676794924772093*^9, 3.676803722287442*^9, {
   3.676806098107469*^9, 3.676806117605332*^9}, 3.676863329191552*^9, 
   3.676863799638114*^9, 3.676866086334332*^9, 3.6768662387523317`*^9, 
   3.676867824083007*^9, 3.6780120286810427`*^9, 3.678013232375588*^9, 
   3.678013341645721*^9, 3.6780134565247717`*^9, 3.67801633437922*^9, 
   3.678016710830564*^9, 3.6780174507094917`*^9, 3.678017485086672*^9, 
   3.678018358486805*^9, {3.67801871616406*^9, 3.678018733507736*^9}, 
   3.678019062897305*^9, 3.678019393030566*^9, 3.678019785359631*^9, 
   3.67802163797161*^9, 3.678023026181736*^9, 3.678023435214737*^9, 
   3.678181571711478*^9, 3.678254041814128*^9, 3.678254153419179*^9, 
   3.678254290810004*^9, 3.678254340414123*^9, {3.6951232410362864`*^9, 
   3.695123264184951*^9}, 3.6951233834784107`*^9, 3.6951237101775837`*^9, 
   3.698142337636847*^9, {3.6981431581926727`*^9, 3.6981431811775227`*^9}, 
   3.698143280927657*^9, 3.703519217780394*^9, {3.703519444260581*^9, 
   3.703519455611033*^9}, 3.7035271930893297`*^9, 3.703527307622531*^9, 
   3.703527341442354*^9, 3.7035685386652317`*^9, 3.703568589955037*^9, 
   3.703570925514838*^9, 3.7035776633134537`*^9, 3.703577734669324*^9, 
   3.703577769465831*^9, 3.703597579550559*^9, 3.7035976577465553`*^9, 
   3.703597699480996*^9, 3.703597978990612*^9, 3.703603778637496*^9, 
   3.7036038273615313`*^9, 3.703603902888485*^9, 3.70360396073698*^9, {
   3.70360399241258*^9, 3.703604019469788*^9}, 3.703605240526908*^9, 
   3.703605722118225*^9, 3.703675863567786*^9, 3.7036759263601723`*^9, {
   3.703675970042492*^9, 3.703676019268671*^9}, 3.7036760960089808`*^9, 
   3.7036762407963877`*^9, 3.7037867951616783`*^9, 3.703786964284993*^9, 
   3.703842754262426*^9, 3.703852946955146*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.6735977138480997`*^9, 3.673597714063992*^9}}]
}, Open  ]]
},
WindowSize->{803, 808},
WindowMargins->{{12, Automatic}, {Automatic, 0}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, 
  FrontEndVersion -> 
  "10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, 2014)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 497, 7, 99, "Section"],
Cell[1080, 31, 237, 6, 37, "Input",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[1342, 41, 3748, 63, 63, "Input"],
Cell[5093, 106, 293, 5, 28, "Output"],
Cell[5389, 113, 290, 5, 28, "Output"],
Cell[5682, 120, 295, 5, 28, "Output"]
}, Open  ]],
Cell[5992, 128, 246, 6, 40, "Input",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[6263, 138, 1034, 24, 97, "Input"],
Cell[7300, 164, 294, 5, 28, "Output"],
Cell[7597, 171, 296, 5, 28, "Output"],
Cell[7896, 178, 293, 5, 28, "Output"],
Cell[8192, 185, 293, 5, 28, "Output"]
}, Open  ]],
Cell[8500, 193, 243, 6, 40, "Input",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[8768, 203, 2171, 58, 114, "Input"],
Cell[10942, 263, 1748, 25, 28, "Output"],
Cell[12693, 290, 1745, 25, 28, "Output"],
Cell[14441, 317, 1761, 25, 28, "Output"],
Cell[16205, 344, 1761, 25, 28, "Output"],
Cell[17969, 371, 1761, 25, 28, "Output"]
}, Open  ]],
Cell[19745, 399, 364, 8, 40, "Input",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[20134, 411, 7146, 127, 97, "Input"],
Cell[27283, 540, 2716, 38, 28, "Output"],
Cell[30002, 580, 2713, 38, 28, "Output"],
Cell[32718, 620, 2731, 38, 28, "Output"],
Cell[35452, 660, 2730, 38, 28, "Output"],
Cell[38185, 700, 2733, 38, 28, "Output"]
}, Open  ]],
Cell[40933, 741, 387, 10, 40, "Input",
 Evaluatable->False],
Cell[CellGroupData[{
Cell[41345, 755, 1605, 41, 63, "Input"],
Cell[42953, 798, 2562, 36, 28, "Output"]
}, Open  ]],
Cell[45530, 837, 180, 3, 46, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)