EO_Rezaei_parameters.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     31385,        733]
NotebookOptionsPosition[     27462,        660]
NotebookOutlinePosition[     27864,        676]
CellTagsIndexPosition[     27821,        673]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.17792"}], "/", "10000"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.43671"}], "/", "10000"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.0485"}], "/", "10000"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\[Sigma]s", "=", 
      RowBox[{
       RowBox[{"-", "0.08087"}], "/", "10000"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\[Sigma]s", "=", 
      RowBox[{
       RowBox[{"-", "0.8"}], "/", "10000"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"L", "=", 
     RowBox[{"5.5", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"W", "=", 
     RowBox[{"4.5", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"H", "=", 
     RowBox[{"6", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qs", "=", 
     RowBox[{"2", "*", "L", "*", "W", "*", "\[Sigma]s"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e", "=", 
     RowBox[{"1.6", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nNa", "=", 
     RowBox[{
      RowBox[{"-", "qs"}], "/", "e"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nn", "=", "315"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"nCl", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"nn", "-", "nNa"}], ")"}], "/", "2"}]}], "\[IndentingNewLine]", 
   
   RowBox[{"nNa", " ", "=", " ", 
    RowBox[{"nNa", "+", "nCl"}]}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.840215896265048*^9, 3.840216023801341*^9}, {
   3.840216106865663*^9, 3.8402161325793333`*^9}, {3.840216174834097*^9, 
   3.840216189049349*^9}, {3.8402162473973417`*^9, 3.840216251013822*^9}, {
   3.840216326178473*^9, 3.8402163830001497`*^9}, {3.8402164179750233`*^9, 
   3.84021643448831*^9}, {3.84022603472965*^9, 3.840226065614512*^9}, {
   3.840226113557036*^9, 3.840226124276071*^9}, {3.840227123750409*^9, 
   3.84022720760879*^9}, {3.841087962969677*^9, 3.841087963952941*^9}, {
   3.841088190687735*^9, 3.841088257250922*^9}, {3.842728315230114*^9, 
   3.842728328708753*^9}, {3.842729647956333*^9, 3.8427296514529247`*^9}, 
   3.8428840323935213`*^9, 3.8428841756581793`*^9, {3.8431441532485743`*^9, 
   3.843144157681774*^9}, {3.843919470020048*^9, 3.843919477115477*^9}, {
   3.844963286439426*^9, 3.844963294185217*^9}, {3.8449633502694407`*^9, 
   3.844963354671402*^9}, {3.844972450975058*^9, 3.844972473009101*^9}, {
   3.845486699794544*^9, 3.8454867167964783`*^9}, {3.845492143649704*^9, 
   3.8454921472959223`*^9}, {3.84566722563348*^9, 3.845667238528377*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"c198f6d4-4437-4524-a668-33c1f6f3f4ab"],

Cell[BoxData["149.99765625`"], "Output",
 CellChangeTimes->{
  3.840215992133399*^9, 3.8402160243982143`*^9, 3.840216133032029*^9, {
   3.840216179350814*^9, 3.840216190248706*^9}, 3.840216252100916*^9, {
   3.84021633051094*^9, 3.840216384835779*^9}, {3.840216418858062*^9, 
   3.840216435140994*^9}, 3.8402260658838043`*^9, 3.840226124830463*^9, {
   3.840226442736137*^9, 3.840226464204092*^9}, {3.8402271258628407`*^9, 
   3.840227159790222*^9}, {3.840227203754961*^9, 3.840227208363885*^9}, 
   3.8403070754550743`*^9, 3.841088164468899*^9, 3.8410882049080973`*^9, 
   3.841088260469754*^9, 3.841088506867606*^9, {3.8410885559048433`*^9, 
   3.841088576557391*^9}, 3.8410905212430153`*^9, 3.842726212878543*^9, 
   3.842726617179185*^9, 3.84272667886992*^9, 3.842726851942047*^9, 
   3.842727013060701*^9, 3.842728338216964*^9, 3.8427284221230383`*^9, 
   3.842728505100038*^9, {3.842729634769771*^9, 3.842729652900249*^9}, 
   3.842884177972137*^9, {3.8431441387606573`*^9, 3.8431441587007027`*^9}, 
   3.84315289810678*^9, 3.843919478454246*^9, 3.844963359529825*^9, 
   3.8449726062136097`*^9, 3.845071309716793*^9, 3.845486719602154*^9, 
   3.845492148559874*^9, 3.845667244665214*^9, 3.845667392090584*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"070bfb6b-4f5f-48db-8e97-4a33b6735eed"],

Cell[BoxData["165.00234375`"], "Output",
 CellChangeTimes->{
  3.840215992133399*^9, 3.8402160243982143`*^9, 3.840216133032029*^9, {
   3.840216179350814*^9, 3.840216190248706*^9}, 3.840216252100916*^9, {
   3.84021633051094*^9, 3.840216384835779*^9}, {3.840216418858062*^9, 
   3.840216435140994*^9}, 3.8402260658838043`*^9, 3.840226124830463*^9, {
   3.840226442736137*^9, 3.840226464204092*^9}, {3.8402271258628407`*^9, 
   3.840227159790222*^9}, {3.840227203754961*^9, 3.840227208363885*^9}, 
   3.8403070754550743`*^9, 3.841088164468899*^9, 3.8410882049080973`*^9, 
   3.841088260469754*^9, 3.841088506867606*^9, {3.8410885559048433`*^9, 
   3.841088576557391*^9}, 3.8410905212430153`*^9, 3.842726212878543*^9, 
   3.842726617179185*^9, 3.84272667886992*^9, 3.842726851942047*^9, 
   3.842727013060701*^9, 3.842728338216964*^9, 3.8427284221230383`*^9, 
   3.842728505100038*^9, {3.842729634769771*^9, 3.842729652900249*^9}, 
   3.842884177972137*^9, {3.8431441387606573`*^9, 3.8431441587007027`*^9}, 
   3.84315289810678*^9, 3.843919478454246*^9, 3.844963359529825*^9, 
   3.8449726062136097`*^9, 3.845071309716793*^9, 3.845486719602154*^9, 
   3.845492148559874*^9, 3.845667244665214*^9, 3.8456673920926323`*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"8b548f38-870d-42e4-abfb-2475712e1a7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.840216267429961*^9, 
  3.840216324755685*^9}},ExpressionUUID->"6a86cb2d-1b92-4985-a2b2-\
d669ea63f7e6"],

Cell[BoxData["144.990421875`"], "Output",
 CellChangeTimes->{{3.840216297342856*^9, 3.8402163111856213`*^9}},
 CellLabel->"Out[36]=",ExpressionUUID->"96a11adb-b3ac-428c-a2ee-f2d6fdc8bfe7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "=", 
   RowBox[{"5.5", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"W", "=", 
   RowBox[{"4.5", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"V", "=", 
    RowBox[{"L", " ", "W", " ", "H"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"L2", "=", 
     RowBox[{"12.776", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"W2", "=", 
     RowBox[{"12.776", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"H2", "=", 
     RowBox[{"6.388", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"L2", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"W2", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"H2", "=", 
   RowBox[{"6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "7"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"V2", "=", 
    RowBox[{"L2", " ", "W2", " ", "H2"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"rat", "=", 
  RowBox[{"V2", "/", "V"}]}]}], "Input",
 CellChangeTimes->{{3.840226023278823*^9, 3.840226028960362*^9}, {
   3.8402260697901783`*^9, 3.840226108180461*^9}, {3.8402261456376657`*^9, 
   3.8402261736417418`*^9}, {3.8402263673228073`*^9, 3.840226398905748*^9}, 
   3.840226458700038*^9, 3.840307081246354*^9, {3.841088287978613*^9, 
   3.841088361544601*^9}, {3.842726592360977*^9, 3.842726614133445*^9}, {
   3.842726838479127*^9, 3.842726847044786*^9}, {3.842727001466654*^9, 
   3.8427270064047403`*^9}, {3.842728291106408*^9, 3.842728296032395*^9}, 
   3.842729631623069*^9, {3.8427296767991*^9, 3.842729678348497*^9}, {
   3.842884190066422*^9, 3.84288419557791*^9}, {3.84315289308628*^9, 
   3.843152894136566*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"0e451e10-ea8d-4995-8e71-4a1df5621887"],

Cell[BoxData["1.4545454545454546`"], "Output",
 CellChangeTimes->{
  3.8403070816058807`*^9, {3.8410883364912567`*^9, 3.841088362076488*^9}, 
   3.84108851504889*^9, {3.841088557323567*^9, 3.8410885872997437`*^9}, 
   3.841090525248505*^9, 3.842726214397889*^9, 3.842726618365773*^9, 
   3.8427266822687883`*^9, {3.842726848298921*^9, 3.842726853769517*^9}, 
   3.842727018211781*^9, 3.842728430933154*^9, 3.842728506461075*^9, 
   3.842729636688188*^9, 3.8427296795078363`*^9, {3.8428841810983973`*^9, 
   3.8428841983128967`*^9}, {3.843144140457242*^9, 3.84314416044718*^9}, 
   3.84315289972386*^9, 3.843919481051819*^9, 3.8449633655377693`*^9, 
   3.8449726095294847`*^9, 3.8450713125921803`*^9, 3.845486728150456*^9, 
   3.845492151726419*^9, 3.845667393335032*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"7c053138-af92-496a-a2e9-54690ee980d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.177777778"}], "/", "10000"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.435555555"}], "/", "10000"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.048888889"}], "/", "10000"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\[Sigma]s", "=", 
      RowBox[{
       RowBox[{"-", "0.080"}], "/", "10000"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\[Sigma]s", "=", 
      RowBox[{
       RowBox[{"-", "0.8"}], "/", "10000"}]}], ";"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"qs", "=", 
     RowBox[{"2", "*", "L2", "*", "W2", "*", "\[Sigma]s"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"e", "=", 
     RowBox[{"1.6", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nNa", "=", 
     RowBox[{
      RowBox[{"-", "qs"}], "/", "e"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nn", "=", 
     RowBox[{"315", "*", "rat"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"nCl", "=", 
    RowBox[{"Floor", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"nn", "-", "nNa"}], ")"}], "/", "2"}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"nNa", " ", "=", " ", 
    RowBox[{"nNa", "+", "nCl"}]}]}]}]], "Input",
 CellChangeTimes->{{3.840226023278823*^9, 3.840226028960362*^9}, {
   3.8402260697901783`*^9, 3.840226108180461*^9}, {3.8402261456376657`*^9, 
   3.8402261736417418`*^9}, {3.8402263673228073`*^9, 3.840226398905748*^9}, 
   3.840226458700038*^9, 3.840227120165086*^9, {3.840227453025834*^9, 
   3.8402274531657887`*^9}, {3.8410882943848343`*^9, 3.841088325584023*^9}, {
   3.841088379580112*^9, 3.841088380156982*^9}, {3.8410884176314907`*^9, 
   3.841088432217757*^9}, {3.841088476905058*^9, 3.841088477620682*^9}, 
   3.841088553616652*^9, {3.841088596282392*^9, 3.841088683869514*^9}, 
   3.841088720174571*^9, {3.841090544686049*^9, 3.841090616197667*^9}, {
   3.841091084507062*^9, 3.8410910889299192`*^9}, 3.841093507893442*^9, {
   3.842727059969047*^9, 3.842727169925232*^9}, {3.842727266010603*^9, 
   3.8427272892380743`*^9}, {3.842727324526409*^9, 3.84272740697735*^9}, {
   3.8427285148361797`*^9, 3.842728527650351*^9}, {3.84272857224438*^9, 
   3.8427285730248413`*^9}, {3.842728605656787*^9, 3.84272868032491*^9}, 
   3.84272964200401*^9, {3.842729684236478*^9, 3.842729685284472*^9}, {
   3.842729749635694*^9, 3.842729750984857*^9}, {3.842729805777697*^9, 
   3.842729821600101*^9}, {3.842884202552589*^9, 3.8428842481031103`*^9}, {
   3.842884321350382*^9, 3.842884402224187*^9}, {3.843144163959857*^9, 
   3.843144337548416*^9}, {3.843144644196679*^9, 3.8431446706816483`*^9}, {
   3.8431529121777143`*^9, 3.843153062007696*^9}, {3.843919486995194*^9, 
   3.8439194903310757`*^9}, {3.8439195450585537`*^9, 3.843919678761744*^9}, {
   3.844963374392318*^9, 3.84496337970992*^9}, {3.844963412106037*^9, 
   3.844963520950737*^9}, {3.844972617623351*^9, 3.844972656925193*^9}, {
   3.845486732791931*^9, 3.845486747844335*^9}, {3.845492156623227*^9, 
   3.845492162087668*^9}, {3.845492522389298*^9, 3.845492529309637*^9}, {
   3.845667401664097*^9, 3.845667404071602*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"466d784d-ac12-476f-9815-e28aa9822337"],

Cell[BoxData["218"], "Output",
 CellChangeTimes->{{3.840226087603647*^9, 3.840226103169774*^9}, 
   3.840226180739007*^9, {3.840226368665711*^9, 3.8402263992706127`*^9}, {
   3.84022644770612*^9, 3.8402264738552513`*^9}, 3.840227453700467*^9, 
   3.840306964860804*^9, 3.840307084680956*^9, 3.841088381368499*^9, 
   3.841088436592004*^9, {3.841088519384272*^9, 3.841088648440978*^9}, 
   3.841088695451172*^9, {3.841090530157093*^9, 3.841090616823626*^9}, 
   3.8410910895798798`*^9, 3.841093140079775*^9, 3.841093509783633*^9, 
   3.842726216497106*^9, 3.8427266214525747`*^9, 3.8427266895138702`*^9, 
   3.842726855982006*^9, {3.8427270842024317`*^9, 3.842727113914988*^9}, {
   3.8427271645900097`*^9, 3.842727170352303*^9}, 3.842727291886938*^9, {
   3.84272732665694*^9, 3.842727407878292*^9}, {3.84272852256328*^9, 
   3.8427285307030907`*^9}, 3.842728573568283*^9, {3.842728605990199*^9, 
   3.842728680670313*^9}, 3.842728738748365*^9, 3.842729686114263*^9, 
   3.842729760066392*^9, {3.8427298070545473`*^9, 3.842729822462289*^9}, {
   3.8428842072300653`*^9, 3.84288424887306*^9}, {3.8428843228943453`*^9, 
   3.8428844026693172`*^9}, {3.8431441481033993`*^9, 3.843144338425397*^9}, {
   3.843144645580151*^9, 3.8431446716401873`*^9}, 3.843149673337916*^9, {
   3.843152901934374*^9, 3.8431530623904057`*^9}, 3.843919491797998*^9, {
   3.843919546208864*^9, 3.843919568215955*^9}, {3.843919602084855*^9, 
   3.843919679353404*^9}, {3.844963384559175*^9, 3.844963521952261*^9}, {
   3.8449726245934277`*^9, 3.844972658222026*^9}, 3.845071321005197*^9, 
   3.845486750811207*^9, 3.8454921671979856`*^9, 3.84549253024632*^9, 
   3.845667406731237*^9},
 CellLabel->
  "Out[127]=",ExpressionUUID->"988f2358-680a-4057-8d85-08af729bd934"],

Cell[BoxData["240.00000004999998`"], "Output",
 CellChangeTimes->{{3.840226087603647*^9, 3.840226103169774*^9}, 
   3.840226180739007*^9, {3.840226368665711*^9, 3.8402263992706127`*^9}, {
   3.84022644770612*^9, 3.8402264738552513`*^9}, 3.840227453700467*^9, 
   3.840306964860804*^9, 3.840307084680956*^9, 3.841088381368499*^9, 
   3.841088436592004*^9, {3.841088519384272*^9, 3.841088648440978*^9}, 
   3.841088695451172*^9, {3.841090530157093*^9, 3.841090616823626*^9}, 
   3.8410910895798798`*^9, 3.841093140079775*^9, 3.841093509783633*^9, 
   3.842726216497106*^9, 3.8427266214525747`*^9, 3.8427266895138702`*^9, 
   3.842726855982006*^9, {3.8427270842024317`*^9, 3.842727113914988*^9}, {
   3.8427271645900097`*^9, 3.842727170352303*^9}, 3.842727291886938*^9, {
   3.84272732665694*^9, 3.842727407878292*^9}, {3.84272852256328*^9, 
   3.8427285307030907`*^9}, 3.842728573568283*^9, {3.842728605990199*^9, 
   3.842728680670313*^9}, 3.842728738748365*^9, 3.842729686114263*^9, 
   3.842729760066392*^9, {3.8427298070545473`*^9, 3.842729822462289*^9}, {
   3.8428842072300653`*^9, 3.84288424887306*^9}, {3.8428843228943453`*^9, 
   3.8428844026693172`*^9}, {3.8431441481033993`*^9, 3.843144338425397*^9}, {
   3.843144645580151*^9, 3.8431446716401873`*^9}, 3.843149673337916*^9, {
   3.843152901934374*^9, 3.8431530623904057`*^9}, 3.843919491797998*^9, {
   3.843919546208864*^9, 3.843919568215955*^9}, {3.843919602084855*^9, 
   3.843919679353404*^9}, {3.844963384559175*^9, 3.844963521952261*^9}, {
   3.8449726245934277`*^9, 3.844972658222026*^9}, 3.845071321005197*^9, 
   3.845486750811207*^9, 3.8454921671979856`*^9, 3.84549253024632*^9, 
   3.845667406734005*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"490695c5-ef36-4eaa-9b8c-c8ad98834080"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"nNa", "-", "nCl"}], ")"}], "*", 
    RowBox[{"e", "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "L2", "*", "W2"}], ")"}]}]}], ")"}], "/", 
  "\[Sigma]s"}], "\[IndentingNewLine]", 
 RowBox[{"nNa", "+", "nCl"}], "\[IndentingNewLine]", "nn"}], "Input",
 CellChangeTimes->{{3.841091121342881*^9, 3.841091184829*^9}, {
  3.8410916208324413`*^9, 3.841091646958452*^9}, {3.84314450033185*^9, 
  3.8431445449662952`*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"0f5715f3-c8ac-4969-ad4c-88a60b250ff9"],

Cell[BoxData[
 RowBox[{"-", "0.9999999999999993`"}]], "Output",
 CellChangeTimes->{
  3.841091185568143*^9, 3.841091647770628*^9, 3.842726221840185*^9, 
   3.842726788128298*^9, 3.8427275071481543`*^9, 3.8427286843260927`*^9, 
   3.8427296895573473`*^9, 3.842729769567153*^9, 3.842729810009945*^9, 
   3.843144348459992*^9, {3.843144505898025*^9, 3.843144546099691*^9}, {
   3.843144655118348*^9, 3.8431446802375*^9}, 3.843149734747004*^9, {
   3.843153056293782*^9, 3.8431530664023533`*^9}, 3.843919520499075*^9, 
   3.8439196860379267`*^9, 3.8449636019665537`*^9, 3.844972666782811*^9, 
   3.844972706798005*^9, 3.845486945437834*^9, 3.845492174387945*^9, 
   3.8456674099937696`*^9},
 CellLabel->
  "Out[129]=",ExpressionUUID->"ade56f50-8a28-4a46-b7b6-cf58400d7a1f"],

Cell[BoxData["458.00000005`"], "Output",
 CellChangeTimes->{
  3.841091185568143*^9, 3.841091647770628*^9, 3.842726221840185*^9, 
   3.842726788128298*^9, 3.8427275071481543`*^9, 3.8427286843260927`*^9, 
   3.8427296895573473`*^9, 3.842729769567153*^9, 3.842729810009945*^9, 
   3.843144348459992*^9, {3.843144505898025*^9, 3.843144546099691*^9}, {
   3.843144655118348*^9, 3.8431446802375*^9}, 3.843149734747004*^9, {
   3.843153056293782*^9, 3.8431530664023533`*^9}, 3.843919520499075*^9, 
   3.8439196860379267`*^9, 3.8449636019665537`*^9, 3.844972666782811*^9, 
   3.844972706798005*^9, 3.845486945437834*^9, 3.845492174387945*^9, 
   3.8456674099971237`*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"7b3a383f-8d2e-4f30-bb75-7ea96e754061"],

Cell[BoxData["458.1818181818182`"], "Output",
 CellChangeTimes->{
  3.841091185568143*^9, 3.841091647770628*^9, 3.842726221840185*^9, 
   3.842726788128298*^9, 3.8427275071481543`*^9, 3.8427286843260927`*^9, 
   3.8427296895573473`*^9, 3.842729769567153*^9, 3.842729810009945*^9, 
   3.843144348459992*^9, {3.843144505898025*^9, 3.843144546099691*^9}, {
   3.843144655118348*^9, 3.8431446802375*^9}, 3.843149734747004*^9, {
   3.843153056293782*^9, 3.8431530664023533`*^9}, 3.843919520499075*^9, 
   3.8439196860379267`*^9, 3.8449636019665537`*^9, 3.844972666782811*^9, 
   3.844972706798005*^9, 3.845486945437834*^9, 3.845492174387945*^9, 
   3.845667410000189*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"0169a92a-7b9c-4e53-b99a-0e938d4ab8a9"]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{
  3.841092328960493*^9},ExpressionUUID->"4ac78120-d534-4bba-9a1e-\
d93e640919d7"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Epsilon]", "=", 
    RowBox[{"586.66", "*", 
     SuperscriptBox["10", 
      RowBox[{"-", "21"}]]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Epsilon]", "=", 
     RowBox[{"708.01", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "21"}]]}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"\[Sigma]s", "/", "\[Epsilon]"}]}], "Input",
 CellChangeTimes->{{3.840302296120363*^9, 3.8403023400086603`*^9}, 
   3.840307457975893*^9, {3.842726230440969*^9, 3.8427262342895517`*^9}, 
   3.842726276277631*^9, 3.842727625174316*^9, {3.842885437996688*^9, 
   3.842885441110298*^9}, {3.8431443637388763`*^9, 3.843144365726243*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"2a3bba1c-6ff8-4f4f-9362-b2aea4658a3a"],

Cell[BoxData[
 RowBox[{"-", "8.333428050318755`*^12"}]], "Output",
 CellChangeTimes->{3.8403023413082113`*^9, 3.8403074593268013`*^9, 
  3.841093141671564*^9, 3.842726278880967*^9, 3.842727519434794*^9, 
  3.842727628435412*^9, 3.8427287398595943`*^9, 3.842729691353582*^9, 
  3.842729782467003*^9, 3.842884419155787*^9, 3.842885445724708*^9, 
  3.8431443759213257`*^9, 3.843144589896728*^9, 3.843149676968895*^9, 
  3.843153078617065*^9, 3.843919862883258*^9, 3.844963619384342*^9, 
  3.844972713254613*^9, 3.845071549176907*^9, 3.845487014594007*^9, 
  3.845667415865067*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"ecdcfbfc-c6ce-445b-8907-dd5b41467c0e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"-", 
  "8.333428050318755`*^12"}], "\[IndentingNewLine]", "458.00000005`"}], \
"Input",
 CellChangeTimes->{
  3.842727528643157*^9, 3.8427277015701113`*^9, 3.842729049850157*^9, 
   3.842884431703301*^9, 3.842885451278872*^9, 3.843144383160309*^9, 
   3.84314459533099*^9, 3.843149685274732*^9, 3.843153085543613*^9, 
   3.843919867697661*^9, 3.8449636356042137`*^9, 3.844972757526412*^9, 
   3.845487023870599*^9, {3.8456674257655287`*^9, 
   3.845667455844864*^9}},ExpressionUUID->"45b24c69-1f75-49c5-b46e-\
ab71a7616212"],

Cell[BoxData["1308.9969999999998`"], "Input",ExpressionUUID->"a68168eb-fc17-4b72-bd69-451de8922987"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NotebookDirectory", "[", "]"}]], "Input",
 CellChangeTimes->{{3.84496325665458*^9, 3.844963273141625*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"b01554fc-bb54-447c-8e20-b70abdd3ac9e"],

Cell[BoxData["\<\"/home/drladiges/gigan/projects/FHDeX/tools/notebooks/\"\>"],\
 "Output",
 CellChangeTimes->{3.844963274265171*^9},
 CellLabel->"Out[1]=",ExpressionUUID->"62808b77-5a21-4dea-b877-45bd45de8d7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1000", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"nn", "/", 
     RowBox[{"(", 
      RowBox[{"6.02", " ", 
       SuperscriptBox["10", "23"]}], ")"}]}], ")"}], "/", "V2"}]}]], "Input",
 CellChangeTimes->{{3.8450713311227837`*^9, 3.84507136050849*^9}, {
  3.8450714165469027`*^9, 3.845071439122662*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"31dad881-93a4-4c6b-9103-d13e008c244f"],

Cell[BoxData["3.5236081747709656`"], "Output",
 CellChangeTimes->{
  3.8450713389914083`*^9, 3.8450713743119*^9, {3.84507142190174*^9, 
   3.845071442294894*^9}},
 CellLabel->"Out[30]=",ExpressionUUID->"4aa09d8c-15b2-469c-bb88-7e4a24146c8c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", "=", "300"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"kb", "=", 
   RowBox[{"1.38064852", " ", 
    SuperscriptBox["10", 
     RowBox[{"-", "16"}]]}]}], ";"}], "\[IndentingNewLine]", 
 SuperscriptBox[
  RowBox[{"(", 
   FractionBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["e", "2"], "2", 
      RowBox[{"nCl", "/", "V2"}]}], ")"}], 
    RowBox[{"\[Epsilon]", " ", "kb", " ", "T"}]], ")"}], 
  RowBox[{
   RowBox[{"-", "1"}], "/", "2"}]]}], "Input",
 CellChangeTimes->{{3.845071506687023*^9, 3.845071600440495*^9}, {
   3.8450716338265133`*^9, 3.8450716888691053`*^9}, {3.845492307017804*^9, 
   3.845492307776019*^9}, {3.845492368864006*^9, 3.845492369189002*^9}, 
   3.845492425723031*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"f42a69c9-3f23-46b2-a76d-985dfff7276b"],

Cell[BoxData["2.7973813775723615`*^-8"], "Output",
 CellChangeTimes->{3.8450716615265827`*^9, 3.845071691659644*^9, 
  3.845492205718215*^9, 3.845492309349835*^9, 3.845492371396084*^9, 
  3.8454924311474743`*^9, 3.8454925375776777`*^9},
 CellLabel->"Out[84]=",ExpressionUUID->"f9d26904-79de-4785-a3b6-37a273621949"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.177777778"}], "/", "10000"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.435555555"}], "/", "10000"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"\[Sigma]s", "=", 
     RowBox[{
      RowBox[{"-", "0.048888889"}], "/", "10000"}]}], ";"}], 
   "\[IndentingNewLine]", 
   FractionBox[
    RowBox[{"2", " ", "kb", " ", "T", " ", "\[Epsilon]"}], 
    RowBox[{"e", " ", "\[Sigma]s"}]]}]}]], "Input",
 CellChangeTimes->{{3.845072081414516*^9, 3.845072118884441*^9}, {
  3.845072173758458*^9, 3.8450722252644157`*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"c1ccaea8-3758-4219-a7e3-88581f44de31"],

Cell[BoxData[
 RowBox[{"-", "6.212847724535118`*^-8"}]], "Output",
 CellChangeTimes->{
  3.845072122296193*^9, {3.8450722011839237`*^9, 3.8450722286755857`*^9}},
 CellLabel->"Out[45]=",ExpressionUUID->"63d36147-5d8e-4d4c-b608-df0398e1e518"]
}, Open  ]],

Cell[BoxData["408.99999999999994`"], "Input",ExpressionUUID->"883c7529-817d-4a96-b9bd-59039694ad97"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"15", "*", "6.02", " ", 
  SuperscriptBox["10", "23"], "*", "1.6", " ", 
  RowBox[{
   SuperscriptBox["10", 
    RowBox[{"-", "19"}]], "/", "1000"}]}]], "Input",
 CellChangeTimes->{{3.845498444780591*^9, 3.8454985274948053`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"51ed015f-ff71-427c-8813-5c82ead2a148"],

Cell[BoxData["1444.8`"], "Output",
 CellChangeTimes->{{3.8454984853419237`*^9, 3.8454985289763737`*^9}},
 CellLabel->"Out[87]=",ExpressionUUID->"e92862df-0a9e-4841-85df-80d1ca78b616"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"1444.8", "/", "15"}]], "Input",
 CellChangeTimes->{{3.845516920643424*^9, 3.845516924534862*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"da7f2060-44f8-411a-bc37-a30bd8e2ce6d"],

Cell[BoxData["96.32`"], "Output",
 CellChangeTimes->{3.845516925633848*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"03d569ac-241b-4f9c-bd0f-5fd0e7e01908"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", 
   RowBox[{"nCl", "/", "V2"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.84565374276403*^9, 3.845653763489604*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"eaa3d87d-daea-4302-8c82-b39a737a6391"],

Cell[BoxData["1.212962962962963`*^21"], "Output",
 CellChangeTimes->{{3.8456537382284403`*^9, 3.845653763948059*^9}, 
   3.845654725899034*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"97785237-8a2f-4a97-9cdc-a8822f008566"]
}, Open  ]]
},
WindowSize->{606., 683.25},
WindowMargins->{{Automatic, -3482.25}, {163.5, Automatic}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"9a4edf30-51a9-42e7-8c35-2f9c22cc5ac1"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 3211, 84, 319, "Input",ExpressionUUID->"c198f6d4-4437-4524-a668-33c1f6f3f4ab"],
Cell[3794, 108, 1299, 19, 33, "Output",ExpressionUUID->"070bfb6b-4f5f-48db-8e97-4a33b6735eed"],
Cell[5096, 129, 1301, 19, 33, "Output",ExpressionUUID->"8b548f38-870d-42e4-abfb-2475712e1a7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6434, 153, 152, 3, 29, "Input",ExpressionUUID->"6a86cb2d-1b92-4985-a2b2-d669ea63f7e6"],
Cell[6589, 158, 188, 2, 33, "Output",ExpressionUUID->"96a11adb-b3ac-428c-a2ee-f2d6fdc8bfe7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6814, 165, 2441, 68, 298, "Input",ExpressionUUID->"0e451e10-ea8d-4995-8e71-4a1df5621887"],
Cell[9258, 235, 853, 13, 33, "Output",ExpressionUUID->"7c053138-af92-496a-a2e9-54690ee980d8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10148, 253, 3624, 83, 257, "Input",ExpressionUUID->"466d784d-ac12-476f-9815-e28aa9822337"],
Cell[13775, 338, 1742, 25, 33, "Output",ExpressionUUID->"988f2358-680a-4057-8d85-08af729bd934"],
Cell[15520, 365, 1758, 25, 33, "Output",ExpressionUUID->"490695c5-ef36-4eaa-9b8c-c8ad98834080"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17315, 395, 584, 15, 71, "Input",ExpressionUUID->"0f5715f3-c8ac-4969-ad4c-88a60b250ff9"],
Cell[17902, 412, 769, 13, 33, "Output",ExpressionUUID->"ade56f50-8a28-4a46-b7b6-cf58400d7a1f"],
Cell[18674, 427, 746, 12, 33, "Output",ExpressionUUID->"7b3a383f-8d2e-4f30-bb75-7ea96e754061"],
Cell[19423, 441, 749, 12, 33, "Output",ExpressionUUID->"0169a92a-7b9c-4e53-b99a-0e938d4ab8a9"]
}, Open  ]],
Cell[20187, 456, 129, 3, 29, "Input",ExpressionUUID->"4ac78120-d534-4bba-9a1e-d93e640919d7"],
Cell[CellGroupData[{
Cell[20341, 463, 801, 19, 71, "Input",ExpressionUUID->"2a3bba1c-6ff8-4f4f-9362-b2aea4658a3a"],
Cell[21145, 484, 660, 11, 33, "Output",ExpressionUUID->"ecdcfbfc-c6ce-445b-8907-dd5b41467c0e"]
}, Open  ]],
Cell[21820, 498, 549, 11, 51, "Input",ExpressionUUID->"45b24c69-1f75-49c5-b46e-ab71a7616212"],
Cell[22372, 511, 100, 0, 29, "Input",ExpressionUUID->"a68168eb-fc17-4b72-bd69-451de8922987"],
Cell[CellGroupData[{
Cell[22497, 515, 208, 3, 29, "Input",ExpressionUUID->"b01554fc-bb54-447c-8e20-b70abdd3ac9e"],
Cell[22708, 520, 210, 3, 33, "Output",ExpressionUUID->"62808b77-5a21-4dea-b877-45bd45de8d7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22955, 528, 405, 10, 32, "Input",ExpressionUUID->"31dad881-93a4-4c6b-9103-d13e008c244f"],
Cell[23363, 540, 241, 4, 33, "Output",ExpressionUUID->"4aa09d8c-15b2-469c-bb88-7e4a24146c8c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23641, 549, 835, 22, 97, "Input",ExpressionUUID->"f42a69c9-3f23-46b2-a76d-985dfff7276b"],
Cell[24479, 573, 315, 4, 33, "Output",ExpressionUUID->"f9d26904-79de-4785-a3b6-37a273621949"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24831, 582, 820, 24, 108, "Input",ExpressionUUID->"c1ccaea8-3758-4219-a7e3-88581f44de31"],
Cell[25654, 608, 240, 4, 33, "Output",ExpressionUUID->"63d36147-5d8e-4d4c-b608-df0398e1e518"]
}, Open  ]],
Cell[25909, 615, 100, 0, 29, "Input",ExpressionUUID->"883c7529-817d-4a96-b9bd-59039694ad97"],
Cell[CellGroupData[{
Cell[26034, 619, 331, 7, 31, "Input",ExpressionUUID->"51ed015f-ff71-427c-8813-5c82ead2a148"],
Cell[26368, 628, 183, 2, 33, "Output",ExpressionUUID->"e92862df-0a9e-4841-85df-80d1ca78b616"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26588, 635, 200, 3, 29, "Input",ExpressionUUID->"da7f2060-44f8-411a-bc37-a30bd8e2ce6d"],
Cell[26791, 640, 154, 2, 33, "Output",ExpressionUUID->"03d569ac-241b-4f9c-bd0f-5fd0e7e01908"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26982, 647, 239, 5, 29, "Input",ExpressionUUID->"eaa3d87d-daea-4302-8c82-b39a737a6391"],
Cell[27224, 654, 222, 3, 33, "Output",ExpressionUUID->"97785237-8a2f-4a97-9cdc-a8822f008566"]
}, Open  ]]
}
]
*)