Fermi_function.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    235766,       4644]
NotebookOptionsPosition[    232388,       4580]
NotebookOutlinePosition[    232729,       4595]
CellTagsIndexPosition[    232686,       4592]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9447239532270017`*^9, 3.944724007398573*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f942ba23-69b3-4490-968d-fbd01311253d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt13kw1f33AHCE6143d/lEuERUpGxpeaQ67x5EpR4lSrKGSiQUekiUbpZS
CNmyhFCyVJaQdwk9FCJSbogsJfdDJWv63t/M74/3nHnNnJkzZ86ZM/Ne7uS5
30VESEioSfD+L54f3vP9zx8Cp+Jd7LX/kTAUIDPZPU/gUao+CAu8l9k7VTZD
4AEP/q7OlyQo65/+7fmDwDH1pgsXBH4eESPRN0RgBxvyzZsGEiS03i3Drwm8
zclJxrOehJtnHHYHJxN4gdF5+HotCfeEfbKENhE4X6W4waGahL8s8sUT9Qhs
PDp3Wl3g+qxPx3V1CKzTKT5KVpHQZ2Ku6bSawC4Kz8yDBJaJ0iyt5RDYtjew
51YlCRflRxq4QgR+PWXZ96KChEN6tqP0RjYOKFVznHpMgpiLyTo5WzbOGudS
qgtIaLPTPThqzcZfaHIbAgW+fYgTWG3FxnH6CjoGAm80I+sczdl4YEf3tfL7
JLjqJVjnG7KxsMz8QNE9El4KDwcbaLDxdIFbV0IeCVdvc1tsp1i4zEjxv63Z
JBBdde6Z0SxstOpjel8yCXhNRlhoFAtfePrVJ1Zg9wuBWa6RLNxM0afvELh+
lR5P4zIL07Z/icxPIuHfs+m7H/qzsEfmq+enE0noZwdovLBnYbHzvOGJeBJK
9uiMDGqy8OTs7ba6aBL21yYdXd3IxMMVzbw8Lgkr3n7uaahnYlllvzwjgX99
1jrsWsvEdy4tqPReJiFRvNb8ThUT+/hlcAiB+3aOblUsZGIOJjl+l0jwaDWQ
Zd1kYr/kl4rawSSEfeS9mrZl4u+0cSPbcyQEkFvdbwwwsHb3hpOZbiSkOG4a
QR8ZmIHtYrQErmrXcZ7oZOD4GhvHJydIWChTPbK/kYELBlomW48L5hVMNVtS
zMCySmETM64kRLA61twKYmC9tM+zm4+SkKTnPpomx8BixndD/GxIKPdLciv8
RwqryolrNe0iQcXZK7vLVAqvsZ44oyfwNXPTPuG/pbBWbhkk7yTBafUvywPr
pfC5HfvtT5iSINm9b/uMrBROvC5f9ceYBLttVFnD/sX4ncVE3JLtJCwS86/r
PLMYt4X503kbBfseY6m8kEjHhvJja5uUBfNYx9hpEkvHBhPr85cInNP20uvG
VTpelXM23lZJ0B97S63KBTountF+MqZIQkGsiquJMx2X6KWqUDgk0OPIeze0
6FjEhrN0mTQJjQnhm1RrJXGJ0bqg9xIkmKRW7zX9RsOz5sc73Pl8GL/Gmxcd
ouHxQYPQ1DE+JAXN5T/rpeF2Ebfk19/48M1en2LQTsPP6QbCa0f5EKPyuEbz
CQ2L+B9P+zTMh56793WIMBou5fxq1P7EB9+SZHaPKg1XTxvPHWjnQ07DuU4f
Gyqu7j42lP+YD4nrfA3zDlBx+pUs+9RHfLia6l3Us4eKV1KMxK8/5IO3z8mI
nYiKL+VYvvcs5sNWJdttSiupWLbwEFetgA9vfVFOI18Cb6QF+Z3K4oPIKorv
8osSOFI756JVDB/sQm9Kt+RS8KSWdrz7ST40wy+KfyYFn4PvtgZufIC5g7PK
KRRc7fzvbuoJPih7c3q9r1OwhVFJXKYrH/rtM3NlfCl436PUd42OfHA1KDKw
M6Rgg7bIhImDfDj1vclx7KM4rhT5vfamIR+CHBY9kCTE8dxGHY6ULB+ENJVq
DC+L4thPCbu/lY7Bh8jEK/c6RDDciLgYoz8GCrTjeT//FsZtEVEZOoXf4OQG
DbFuhT81z65P5dUvjMLRTT25tbVzNcca73l90xsFDf/Nf05lTdc0j6T2Llh/
hYyPFi/ObZ+suX+ObXXJ7AsMh0hvMZH9XqNwYoxnoDsCT+LUjUesxmrub1dr
deANgc6X9z+1U4dqTHjlvmMeg2D0pJv626qvRr7n266kPwNwOq9wmkW011ws
Casdtu0HK1fVjLbAiho34/chlU190PDqfYSeRTl82SZSsDSgBzZrPisxT2iH
2YrTsz2q3SDiK81zlusDzoEFyRLFLqDQzUOc+EPQvyRTzlSoAy71dRp63xkD
eHqrla3eBkXJXPOg7xOQ5PPN9Kd3C3hmOjM/W02CuW9zUnpxI9i5JSleCZkG
R/+AveW4HsL3+errpcxBnqzR2oZDtSC6JG7owuwClBv6bJBWxfCu6fJ4KEMY
RZ2tONSvXAmWAU4bk2pF0KTiX4cdHUvBXXJUpfmwKMoNVXe5cqcERs89EZV0
FEWWwlVG7PgScBsJHzI5JoqyU7hyOWElcKxOPf+ZjyhaZLHz+ohHCThdcNV9
fFUU6ZifU+36qwSsf3yClKeiqOFndbFtazHs6O464qYiht7ZdlT2iRWD0r36
ePGvYuhB66a4f4lCOJBWXtE4LoaiJF0z22cfQERsPi9qSgzJNPjMb+t/AD8D
olSWiomj00JvjpsVP4BGM6sHasriSHn6Rw8yfwC+/ME6UytxdL29VZcbXQCv
dcUmI56LI4dLebx1y+9DQLmhBSOZgrgFIXtzvPNg3ZHWcfsMCjpWeHl7vH0e
fP1zJKroLgVZt9GfxprlwWET3//2PaIgM4kc3bJVebC5Mxduvqag+QGedFp3
Lkz/WLxWTkgCXew0ODtqkgu+2l2iqi4SKOpW4IktGnfhdI576UZtKlomumnb
LJENPS2cOKmNVKSr/Wp3mUg27Jlp9BnaQkUe828+hUxkgYbZat34XVSk5F0a
DC1Z8Hli8N6kCxX9q1B+3iYyCw5utc94lEJFOlPuK6TEs2Db231X19FoiPT4
/UhB7A7QRTY5aQ3S0Dw90euzWgZU+C2yGBqlofW/V3N+y2WA61iL4e3vNBR0
9le2Mj0DcNfxlVJCkshbrwrCxtPBpzBpZExeEjXJWud2VaTDhyMLpwrMJZFP
mGqw3950yC2rC1hbJYke3HqVTi7cBmOPA3EasXQkQVU69up3MpyJqRTyTKQj
4/QxoeCRZMgqU3F/mEZHDpGXbQzbk0FEZOLvLffpiO+0VW0mNxlw/LXxPXV0
tN7Va1jJMhk24/rdXlN0lMbjxpkXJYEWoS9SbrMY3XzzYd9Pr0SQrVD0NF4h
hcRatQIpygmwcPQuh7VG4NVKDB49AT5L6b7k6Uoh7vuH6ngmHoqcjZafASnE
g/Ga0vZ4MGGebM88LIVSlkTqHgmLB99j5ZuEoqUQw/x52/mfcdAhbSFU+VsK
PaSFo6Z3NyHGOyxa5x0DDdza85fKyxiYfXW/POwjA41HFRWEVcSAk9qb3r4B
BmJn+OyYzY8BPZ6cVvQ4Aw05eD1buBYDXzMtB6dFmWikrm8m8kAMXKUPh1gv
YyI7K/bJooFoaO6lVsrvY6K86jyFr9Ro2M/9RzO1lInWHRTJGx+Jghzr8Z0V
FUyUdcswcO+bKJhZG+3aUcVEEZPT8k8roiC9vS1tca0gf2MvV3AjYUzZih3U
wkQxRo6FzZpREFZ5ZMpuhImiq1bKUP2uwdPxE8+U5VlIb2VSvJbMVdCwCbXM
Os9Cb2eMXySFhoO1VylbNISFfEu4pKNnOIRdGWk5GspC9yStwzYfDofBh2a7
VCNZaEfmZKOSTjik06Uh8xYLCcfpMCt4YSD9NFs9/SEL2cbNpcrrh4HQ8oa5
5C8stH3YYd5ggQudQ9TMWEs2mp86LaVRFgr1B8JTKg6xkSNy9qTfDYXS5xIJ
vTZslB24S38uPhTib1OurnFio0zfK/2/fUPB0krMt/YUG6kvcuLGbwqFt3VC
u35cYaPZJj/xxZWXoC1ramL/EzbKoG3oamm8CM1Og9vZSgRaerZD7T/JEPgk
enc6ToVAHGOu1eR8MPzMOV4ot4pA+Tzff7T4wSA3OqqwXFOQv/TpmfrWYHD2
+T6lbUCgs0uO2kfFB8PspT8Few4SSNe/0sVnRTCsypaTD79OILM+mlBsTBDo
m3S30mMJ9Dena+OkXxCYfUm5ciOeQFQNF49TtkHgpak8mZBKoFePQyOz1YOg
6vGq1px7BHo42nByBT4P++v1uC8aCLRHX3bc4kcguByf3GLaRKArO1bIKX4I
BH9a2Y+mZgIREVuY8zgQUvdudmzvINAzf9Nlc1GBMNKJtvQPEOj2XbXHc2sC
YdZf5IfLMIG8313c6UUEwmLOi7wvXwl0c/Cz7PxsAKyzN1k6MUGgA42Hlfc1
BoCxMLX5zKSgfqHTek5JABy60xg6PU0gGX9rg9nEAHAzvmoQOE+gbZ52qvyQ
APj//wlSKEn78OtEAPwP5jMQiA==
       "]]},
     Annotation[#, "Charting`Private`Tag$1148#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-5, 5}, {0., 0.9933071477189689}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9447240129805665`*^9, 3.9447271318871803`*^9, 3.944733499966631*^9, 
   3.944737622835558*^9, 3.9447377761907177`*^9, 3.944738010721312*^9, 
   3.9447381809805713`*^9, {3.944739770417478*^9, 3.944739789958375*^9}, 
   3.9447438176746297`*^9, 3.9447440325625353`*^9, 3.944777656664384*^9, 
   3.9448048683650723`*^9, 3.944807037555208*^9, 3.944821500137311*^9, 
   3.949968973502612*^9, 3.9499693182186303`*^9, 3.9499693489728336`*^9, 
   3.949969460199355*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"db3da5bb-6292-40da-8baa-b0cb83e77546"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"x", "/", "2"}], "]"}], "+", "1"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<(E - \[Chi])/(k_B T)\>\"", ",", "\"\<f(E)\>\""}], "}"}]}], 
   ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Fermi-Dirac Distribution\>\""}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], "]"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "+", "1"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<(E - \[Chi])/(k_B T)\>\"", ",", "\"\<f(E)\>\""}], "}"}]}], 
   ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Fermi-Dirac Distribution\>\""}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"x", "/", "2"}], "]"}], "+", "1"}], ")"}]}], ")"}], "-", 
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "+", "1"}], ")"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<(E - \[Chi])/(k_B T)\>\"", ",", "\"\<f1(E)-f2(E)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<f1-f2\>\""}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.9447240540711236`*^9, 3.9447240540721245`*^9}, {
   3.944724617460454*^9, 3.9447247578518405`*^9}, {3.944725929823407*^9, 
   3.944725938571557*^9}, 3.944726027882264*^9, 3.944726065289093*^9, {
   3.944775449237561*^9, 3.944775460781012*^9}, {3.944776031494525*^9, 
   3.944776042498122*^9}, {3.9447761537194033`*^9, 3.9447761871623974`*^9}, {
   3.9499692413867006`*^9, 3.9499692590867558`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"4c871ba2-d24c-4603-bf6a-bf404be95c46"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt13kw1f33AHCUZHla7HfhLp+KlL14pDrvHkSlHmUpCRGSSCj0kChdawoh
W5aQJSmVJdS7hKIQkXJDZCm5HyrZ9b2/md8f7znzmjkzZ86cM2fmzXL0POAs
JCAg0MR//xfPD+/98ecPgdPxbsmNr0gYCpCd7J4n8KioHgjyvW9V71T5DIEH
PHi7O1+SwNQ7veD5k8Bx9SaLF/h+Hhm3vG+IwEdtyLdvG0hYrvZeEb8h8HZH
R1nPehKunzm6JziVwIsrOw9frSWhSNAnR0CXwIXs+w1Ha0j427xwWbI2gY1G
504r812f89lVU4PAGp3LRslqEvqMzVQd1xPYmf7MLIhv2RjVsloagW17A3tu
VJFwkTrSwBEg8Jspy74XlSQc0rYdlWhk44AyJYepRyQIOxtrUWzZOGecI1JT
TEKbnebBUWs2/ipG2RzI981DtMAaKzZO0KNr6POtY0rWOZix8cDO7isVd0hw
0U6yLjRgY0HZ+YF7RSS8FBwO1ldh4+lit66kAhKib3JabKdYuNxQ4dW2XBKk
uurcs2NZ2HDdp8y+VBLwhqzw0BgWvvDkm0883+4XAnNcoli4WURPYiff9eu0
uSqXWVhsx9eowhQS/jubueeBPwt7ZL9+fjqZhH7JAJUX9iwsfJ47PJFIQule
jZFBVRaenL3ZVhdLwoHalGPrG5l4uLKZW8AhYc27Lz0N9Uwsz/QrMOT79xe1
wy61THzr0iK79zIJyctqzW5VM7GPXxZNiu++XaPbFEqYmIZJmt8lEjxa9eVX
X2div9SXCurBJIR/4r6etmXiH2LjhrbnSAggt7lfG2Bg9e7NJ7PdSEhz0B1B
nxh4JbaLU+O7ul3DaaKTgROf2jg8PkHCYjlx5EAjAxcPtEy2uvLnFSxqKn2f
geUZ4RMzLiREru7YcCOIgbUzvsxuOUZCirb7aAaFgYWNbof42ZBQ4ZfiVvKv
IiYoy9SadpPAdvLK7TJRxBusJ85o833FzKRP8B9FrJZfDqm7SHBc/9vSYpMi
PrfzgP0JExLEu/fvmJFXxMlXqdV/jEiw2y4qb9CvgN+bTyRI7yBhibB/XecZ
BdwW7i/B1eHve5wlczGZjg2oYxubmPx5aK3cZRxPx/oTmwql+c5re+l1LZqO
1+WdTbRl8PuT3FrLvkDH92fUH48pkFAcz3YxdqLjUu10tgiNBIkEsuiaGh0L
2dDkFGVIaEyK0CVqabjUUCvow3ISjNNr9pl8p+JZM9cOdx4Pxq9w55cOUfH4
oH5o+hgPUoLmCp/1UnG7kFvqm+88+G6vJ6LfTsXPJfQFN47yII796KnqYyoW
8nfN+DzMg57bdzSkwqm4jPa7Uf0zD3xLUyV7CCqumTaas2jnQV7DuU4fGwqu
6T4+VPiIB8lavgYFFhScGZZjn/6QB9Hp3vd69lLwWhHDZVcf8MDb52TkLkTB
l/IsP3je58E2hu12xloKli85xFEq5sE7X5TXyJPHOmJBfqdyeCC0TsSXdVEe
R6nnXbSK44Fd6HWZlnw5PKmmnuh+kgfN8FvEP1sOn4MftvpuPIC5g7PMNDlc
4/TfHtETPGB603q9r8phc8PShGwXHvTbZ+fL+srh/Q/T3zc68MBF/56+nYEc
1m+LSpo4yINTP5ocxj7J4iqhhY3XDXgQdHTJXXEpWTyno0FbIc8DAVXGU4PL
0jj+c9Ke72Vj8DEqOayoQxLDtciLcXpjQBdzLfj1z2rcFhmTpVHyHU5uVhHu
pq/Ez65OFdQvjsIx3Z782lpxfLyxyOu79iio+G/5cypnOW4eSe9dtP4GWZ/M
X5zbIYzvnJO0umT6FYZDZLYaywth+okxrr7mCDxOUDYasVp4emeHUutR7hBo
fP3wSz3991NjboXvmMcgGD7uFl2wGn9K7fm+O+XPAJwuKJleLTXw9GJpeO2w
bT9YuRBZbYGvnroZfQipauqDhtcfIrXNX8LX7ULFcgE9sEX1WalZ0gDMVp6e
7SG6QchXhutEGQeaxaJ4qUIXiEiYhTjyfkO/dDbFRKADLvV1GnjfWgB4cqNV
UrkN7qVyzIJ+CKIUn+8mv7xbwDPbadUXK2Fk5tucknm/EezcUhTCQpYjB/+A
fRW4HiL2++ppp4mjAnnDjQ2HamGpdMLQhdkVqMLAZ7MMgeF90+Xx0JWrUczZ
ykP9zCqwDHDUSamVRJMKfx92cCgDd/FRdvNhaZQfquwcdqsURs89XiruII0s
BasNJRNLwW0kYsj4uDTKTeNQ8sJL4XidcuEzH2m0xHzX1RGPUnC84KL5KFoa
aZidI7r+LgXrn58h7Yk0avhVc9+29T7s7O464saWQe9tO6r6hO8Do6g+cdk3
GXS3VTfhP6kSsMioqGwcl0Ex4i7Z7bN3ITK+kBszJYNkG3zmt/ffhV8BMWw5
YVl0WuCtq+n9u9BoanVXiSmLmNM/e5DZXfDlDdaZWMmiq+2tmpzYYnijKTwZ
+VwWHb1UwNVi3YGACgPzlalyiFMcsi/PuwC0jrSO22fJoeMll3ck2hfAtz9H
Yu7dlkPWbRJP4k0L4LCx76v9D+WQ6fI8zfJ1BbClMx+uv5FD8wNcmYzufJj+
+ddGioA8utipf3bUOB981buWEs7yKOZG4ImtKrfhdJ57mY46BSku1d0+K5UL
PS20hBU6FKSp/npPuVAu7J1p9BnaSkEe828/h0zkgIrpes3E3RTE8C4LhpYc
+DIxWDTpTEH/0SvO20TlwMFt9lkP0yhIY8p9zYplObD93f5oLTEqIj0WHtKF
b4GEkK6j2iAVzUske31RyoJKvyXmQ6NUtGlhPW2BkgUuYy0GN39QUdDZ37lM
iSzAXa5rVwjQkLd2NYSPZ4JPScrIGJWGmuSt87sqM+HjkcVTxWY05BNOBPvt
y4T88rqAjdU0dPfG60xy8SYYeVgkqMTT0XJRxvHXC6lwJq5KwDOZjowyxwSC
R1Ihp5zt/iCDjo5GXbYxaE8FIaGJf7beoSOe4zalmfxUwIlXxvfW0dEmF69h
hmUqbMH1e7ym6CiDy0kwu5cCalJ6QhU2Cuj624/7f3klg3ylgqfRGkUk3KoW
KMJMgsVjt2mrN/C9nrGSK5EEX1ZovuRqKiLOhwfKeCYR7jkZss6AIuLC+NOy
9kQwXnWyPfuwIkqTjtI8Ep4IvscrdAViFdFKs+dt538lQIeMuUDVgiJ6IBaB
mt5fhzjv8FiN9ww0cGPv3+yXcTD7+k5F+CcGGo+5VxxeGQeOSm97+wYYSDLL
Z+dsYRxocylqseMMNHTU69nilTj4lm05OL2UiUbq+maiLOIgWmI4xFqRieys
JE/eG4iF5l7RKup+JiqoKaB/E42FA5x/VdPLmEjroFDB+EgM5FmP76qsZKKc
GwaB+97GwMzGWJeOaiaKnJymPqmMgcz2toy/avn5Or0c/o2EMaaVZFALE8UZ
OpQ0q8ZAeNWRKbsRJoqtXisr6ncFnoyfeMakspD22pRENdloULEJtcw5z0Lv
ZoxepIRGgLVXmeTSEBbyLeWQDp4REB420nIslIWKxK3DtxyOgMEHpruJKBba
mT3ZyNCIgEwJGci+wUKCCRqrKrnhIPMkVznzAQvZJsylU/XCQYDVMJf6lYV2
DB+d11/kQOeQaHa8JRvNT51eoVIeCvUWEWmVh9jIATl5StwOhbLny5N6bdgo
N3C33lxiKCTeFIne4MhG2b5h/Qu+oWBpJexbe4qNlJc4chJ1Q+FdncDun2Fs
NNvkt+yvqkvQljM1ceAxG2WJbe5qabwIzY6DOyQZBJI726H0SjwEPi+9PZ3A
JhDNiGM1OR8Mv/JcSyjrCFTI9f1XjRcMlNFROkuVny/35Ex9azA4+fyYUtcn
0FnpY/YxicEwe+lP8d6DBNL0r3L2WRMM63Ip1IirBDLtExOIjwsCPePuVol4
Av1D69KZ9AsC069pYdcSCSSq4uxxyjYIvFSZk0npBHr9KDQqVzkIqh+ta80r
ItCD0YaTa/B5OFCvzXnRQKC9evLj5j8Dwdl1cqtJE4HCdq6hKHwMBH+x8p9N
zQSSity6ah4HQvq+LQ7tHQR65m+iOBcTCCOdaGv/AIFu3lZ6NLchEGb9hX46
DxPI+/3FXV5SgfAX7UXB128Euj74RX5+NgC07I3lJiYIZNF4mLm/MQCMBEWb
z0zy65c4bqKVBsChW42h09MEkvW31p9NDgA3o2j9wHkCbfe0I3ghAfD//xNE
L834+PtEAPwPrsITQg==
       "]]},
     Annotation[#, "Charting`Private`Tag$1264#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"(E - \[Chi])/(k_B T)\"", TraditionalForm], 
    FormBox["\"f(E)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{Automatic, Automatic},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"Fermi-Dirac Distribution\"", TraditionalForm],
  PlotRange->{{-10, 10}, {0., 0.9933071477189689}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.94472405562927*^9, {3.9447246312219667`*^9, 3.9447246649883146`*^9}, {
   3.944724721546542*^9, 3.944724760631304*^9}, 3.9447259398194523`*^9, 
   3.9447260693593545`*^9, 3.9447271319969625`*^9, 3.944733500225456*^9, 
   3.9447376268672647`*^9, 3.9447377772514257`*^9, 3.944738010904949*^9, 
   3.9447381812846785`*^9, {3.9447397729359784`*^9, 3.944739790117302*^9}, 
   3.9447438179995785`*^9, 3.944744033720421*^9, 3.944775464188115*^9, 
   3.9447760465260305`*^9, 3.944776190137094*^9, 3.94477765781089*^9, 
   3.9448048685312138`*^9, 3.9448070377159243`*^9, 3.944821500310062*^9, 
   3.949968973661766*^9, 3.949969264994415*^9, 3.9499693183396564`*^9, 
   3.9499693490938315`*^9, 3.949969460308855*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"96e0a4d0-ef6b-4530-bc98-d0bf88582e20"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwt2nc8Vf//AHCb7D2udUeyyYgKvd4NpBRJRqEIWQmV0VD5ICEyiyipEEpR
SOq+ZbSRImVm72tv+Z3v4/H7597H83HueZ/3eZ3XOH9cissZKzcWJiYmReLj
f9+XBw9Mr6/TcEav1pesdQYMXBSfa1ulYc97Rlv+54OCXQtlSzT8Vs3x3n3C
5G1+a2dmaHhs6vvpe4TfRydydQ/QsFuXB3MGYS6NX3L4Gw3fS19eSiWcfO7E
/qt3aThxY5ZCLOE1LuWDDndoWPqw4pkYwu6ZU5ZbU2j4qXx8WTRh/bowm8k4
Gp64vLTnBuE/Eo+dT4TRcJscp1Xk/67/ZjgIedLwKRFvnauEC5jPPmLSp+EC
1l72s4S3Hs7nSNOhYUqEtFgA4bpHfz20NtNwzvdyqj/hblNLdRdlGj5bL77t
DGHxOPXSamkaLnIWtvImHEYa+hDJRMNfz0dpnyRsp+M4yvuZivO4Tt859L/4
hCcfeFxHxYla8b6WhM+2fCkyqqZimYKXuywIx4VsP+dbScUrCyt95oSr6RJr
Dc+oWDhaWmgvYQ3zJv6kJCrmjrvOtoMwu5uptpQjFSvKiu1QItzkpGU7ak/F
NnYSA5sI37OTvvTWhorjtOZiFAjrmTNqnS2p+IKg3nfq/+Knc9s+fzcVv43z
3ilL+CPz4FUDFSqmPIt5JUQ49l5kg+MCBe9ryGpa/Efczx2/Wc1ZCjbh5tFc
ILwx8agUyxQF3/VojZoj/DZC42TOCAU3dcfoThOe8GmZn+igYLvwLu9RwpYG
m+Su1lBw7Sl/mw7CIq21PtkJFLx2J3rlHWGs+iAqPI6CrQ78YH9L2OfKpUfu
MRT8a52H7w3huk067SoRFDyju124jPCF81n7S4Ip2E+IZeEZ4R7hiyo1xyn4
1L9BhXuEiw9sHupXp+C9Ks9mQwgff8DD9lGFguscSUlBhHnnBuTzFYn1hOvV
zxN2z8i09aVQsEHFrK0fYdIo94d5UQqeYEsPdSccFtX/mHOVjGWM/wlYEbaq
Tj+p/JmMW/+si2/6Xzx+9nV+qCNjEd5TM1TC830aR92rybhn+OJnecJpHNWW
DyvJmD862kOKcLfZqJFsERnLSxqc5CV8utFAUiiZjHPqSvZNrTEgqqP966Ij
Ge9/tZJRSvjoxKa9t4+S8WNbz8piwmrrftVbbMlYMmhP8zPCDWT2igBLMsa3
xGdyCIu7queO7SLj4qrxjlTCD0cuX+tWJGNPOWP384QvMox8bvXK44C9DmNq
hDOc9YdQhzyefBt8Tolw5Y/NrlMt8rh7e/gcjfC/MpqD1Wd5HBpn0EMiHHZ1
g7noC3mclzThykU4WqhZ9U6oPN4RtIu9Z5UB6To+o/el5HGvSb5DPOE3j91O
WYrI46CC+6M3CLdLHO9l4pPHFM9l/3DCcquH2pyZ5DHrxSeuIYSza/S/0Abl
sKCgT7cL4SdHWAtyX8rhohuqCrqEy4PSvYos5PBjNaVLDSsMoLr6P27dK4f9
quHAR8I3Lfd2M++Sw4ncXMJVhF2U549Y68rhvu02gcWEedoO7VySlMO/1BNz
kwk77dggubtHFhdssU2zIczKHlzbck4Wv2J6KNm4zADfqYNMTL6y2G9BXvcD
4dYOBQPlU7J47skJ9I5wYemP5xftZXFaQ41KIWEbD80M8g5ZzK+hs+c64bwv
AwFenLLY5+GI/3bCBxOPkP+lyWBehuBU0hKRz9oCZqZJMrjvRDT1BuGcpo/+
t2Jl8IJa685Qwv+EDaupV2RweGagmQfhp0lUd1NXGRyh6BBiQJg3hVFwS0MG
16xyos5FBny+fUOfVi2NcyHriijhef3dJ3wqpXHallA1TsLU1tWoV6+kscfX
+fdLC8T1Jf3+mOZJ4we2lMJOwsppNpd9bkrjF2c2e+cSjkqnVb+ylcasDpwX
dAmbZr49uHeMhMNO2L0xmGfA5M32VbYBEo76tNdTjXB66Ep+VRcJ79uzdV2G
8NjxbZwGP0i4khbaszbHgETqK7p6BQk3P7wU9o5wZ27hZpEoEv4ktY3DgHBg
8V3hThoJr0ykrMvPEv37YQVOlyVhng7SCT7Cn5J++9pKkHCoRuDD5RkGyJyX
+NLITcJbkpe+/yT8Xj/pv+opKXyRW/HTdcL8b6Nn8+hSOKf1y/zgNBHfDyEt
Z49JYb4ps7n4KaI+tQN3P7GWwtvKHT2CCMdmBjzvPCCFq/xqXzgRDjjrHW2G
pHCwdWCdGmEjeccd8gpSWEAzhlE3yYCfgSjn84Qk/nvVgWmGwQCWTZyBlDBJ
bK/1H7PSBAPmbrH22lyUxLp2tKcbCA+trFvEnpPEjw4dVhgdZ0D990XlBXdJ
/LiW48JTwmmXRzq+7pfENvMSBZqENzd/Mw4Wk8SRn9valceIfA1PFmvIk8Cv
/zUMTA8T58M8Z3C2BPb62MBoIAwrtsvkDAn8+UxEVSFhcoB0V0C8BH7JUfrW
jXDP8ew88UAJfNMpSqB5iOh/Bs8NnHZL4BFtns95g0S+T39xHu8QxzvNfrFT
+4nn81TdOvWXOKYfPB2w0McAC894E/gujh1xzd2vhDd3W6km1IjjgweEaIGE
p7/9ntUtII4P+y7W9hLP88ng9UvB4jhELNLJrocBoSdYn/GIiOOA153ze7oY
8LzBNO4nrzhusFdSEibcsyPWN5NDHJtV9nN3dTLARFZMU3NZDIdZ/e4JIsz/
Z9Nzq79iOOj+vobHHcS8O7yvOK1IDK8FqahPtzGAbpJQqmguhtuk2X3MWon9
vGpOnTQWwxJW0j95CG9UIAW9BjFMzOSOb7+I/GZ9qL9fRwxXZ9IbLAlb4pfl
viQx7JsmqWjVQvTrba0Vr4ZEsYptPmnXTwYwqcvTd0eI4j75jZ+aGhhwSXyn
U0SoKBZnhg/XCC+su6zVBYli3y+zRpsJTzTlGOzzEsWx118kxNQzoC1Yo9zS
QhS/cX342uAbA0prjF44Solik3hzdO0zMQ8cHB4GPRXB3PJ219JriHwxDt31
OkcET4XsqtUj7KqZ9Xf5vgi2MZp2aaom5gNLn3xoogj+W+uQy0l4b553RniQ
CO7oltLzqiLud/ZCSsJOEdxV6HyW/x3xfhSTdr2gWRgzGUhafillwI9acuGJ
BmGsqqHeYkf463puo9gnYVzG9je//xUD3p0tlbpaKYxfTIwZrL0k+vOxHwXW
D4Uxn8jLTloJA7xU+RrX/ITxn7WP2geLGLDy+aqkJa8wfiIhICeQy4BZNi4j
dg5h3DXldzA8h4jHjnjninUhnK2bmrf4mIhvcWb+xhkh3P9CprnzEQNq0isM
l34LYcYXi9GsbKIevWZPZOcK4YiWicHlTKLeuT2ezO4SwitBs+mrSUQ9vPsa
SzUUwsoSObtMCD8I0PKz3CKEr+s8q4hLZMCmtmW9QkUhvDFHUFQmgQGahTdr
TvIKYd+DD7YoxTFg18GSrqZmQXzF3SiQLYoBnon/xF54COLjj0hO7y4Q/d3k
5FKnsyCW2OIv2xlC7H/5QzvvMUE8aV7muRpM9IeTCQ89DgjiDuGv93WDiHzQ
3ahF1hbETPWnUdJZYr49TbojtyCAPUabtnP6MMB7iwp7m4wA/m0jnFh+jDif
/XVuoIAAvtvcZpB/lOjHzab7hFkE8OkIJu10e2K+nneLNxvkx6anfy+es2VA
/qssqfIX/Lih8nSO2GEGDG+R0Egx4ccmoyJU5n0MOKXHZmvhx4e9jY3afPSI
euZIWhpx4cPRRm7F1C1EPbZQMiKP8OHQu2kXWnQYEBkIf99u58MFDS+/62sR
/bH0grcaOx/mlyrY9VeVAf16U1c2pPPiIK67zl/JDDip35lXXc2Dldce7xnj
IvpHnr6NSRkPrs0YkzjPSeSDVALrp3wePGPuX73CzgC/ld1O9Qk8WHbJ8TYL
KxEf+hOR38d5cKGAQtfc6gQkm54PnVjhxvHSSiZ+kxNQZ8trLaXLjWtUnEPu
NU/Ap49uzBmK3PjOdjbb9h8T8HUb/ZmcNDe2HYnLlWiagCbpgA0bWbixzpXq
pMj6Cejq+vVOo3ED1iqv2Gr8YQIWTz1U3uOzAYtZpD/ZVT4BKsHb130fceGB
GEUBhTsTgDsOqvSmcuG5Vs437SkTYLP75BHbG1wYrW/vvJU0AWH8sQXgy4X1
VKYCJ+Im4PejDlvBrVw4nXXYPTRiAqK+X33+4gsn1h2Vahvzn4ABlQ/Os9Mc
+LRld0+X6QRcutUW69HPgV+wkVJljCdAeJ5R1v6LA59sZyUd2TUBO6ok+Wsr
OXBvadPl14YTkGLrVZESyYF/i36QstCagD3hfCL6JA7MnRpWlic1AQ86DteE
7GTHEd6de8cHxkG7T3v5py47tq56tPy9dxxqRoQ2b1Zix23cB92Lu8dhYKHh
7gA/O37Knm3r/mccVITNzx5uZ8Os/VTJ9G/jUGyyh6oexIY9M6JK1UqI84t0
r3YXsuJK3gpS24VxOFIqUmqQxYplnYKs1YOI9SqnR1OTWLGe3N6cC2fHgevz
c9sDF1hxn7vbZQ6fcTjQp6ZZYcqKX5/f4NHjMA4tkgqdST0s2OBIzr0co3EY
vCZmaCrJgutyCzoNVsaA+3IRI4mbBbvouPJFz4+BRrDZw+5VZrx5TuTl96kx
CPS9zH3hLzN2EL5z8MDQGHAc628tzGfGRkOSa7M/x2Cj7qvzwkbM2OkfrzfT
0zFwGbAu6nBmwpqpdXt/245B5N8JFxVrJsx17MM9M6sxyG+PEg8yYcLb3pxM
LzYfg+mmysuCqkz47xyLp+/OMWC5YnYncmidLvmXqSRWZQxAa/j7Ib51eu6Y
X4TTyihUpCgZD9ms0d8qDv5Wuz0KXMcGTzIbrtE7VSrCa26Ngg05J4xEWaOr
8eo5W0ePwnQ+DZuPrtLr4p+kO1weBWUsZ/DiyipdtlkrjP/kKNwZEdW6kLdC
38xc3DajNgrngVmWd3mJPvNwvfVRxQi8Z8MGCl1L9Nj30RnbSkZA8HPo0R01
S/QY21bWuoIRKLReve0Xt0S/mxJbVJsxAn2eC8LN1CW6W3Wi9InQEbBKHue6
t3+Rnsl3JPQfjMDm4d+zmpnzdF31w7/rK4fh3KS6skT4PH2ubfy/vpfDUL5w
zfGf1zy9n/N19nThMOzkUKn7unWeLtfPsm0xYxisaBdue/6co/PLcbzIuzQM
5x1J2x/yzNE1h2rN720fhorvR6+IX5ihiz5Z7Gh7PgR7Kto2rNlM0nuYgm93
Rg7Cs/zH2z4YTNKD6bBt16VBkLx7xjOBPEmvuRPinuk/CC0LHIn7fzLo45rv
g7c7DILCRRvBzOUJ+mcVW5Kg1iC8vzbHi0zH6bvPOhRq/B6A1TgdjsjuYbpI
3/QXL9oA+D0pWhQS6aXnkt/caH/QBzbutAdNlz7RA8vbUs6n/oUPX39H6xz+
CEXzGnKMhXbYrl5VbHm7F3oK6gZbrrTAlp8tqe8+9UJRl/yRTo8W2Hxx7ILa
ai/Y4/1pk4daYNMnid1czn1wlL9lccvGFhBx8/1BV+mHxorIAyafmmEsQ3pW
490AsOSWBcWJNcN93sAtfP3DsHc+Ss2w7AewBIq1u0pNAoMlrcmV+h2Onshv
KtedhKDqK4rrvN+heB984rWchKGc/VH5C43gIu9Z+jJyEkK3/ryt+60R3n+s
vMU2OwnKAoOcEiGN8J+0q/Gj+ik4a3nZcHteA7BVFT/r/W8GrtsdlazS+AYO
BaaP9e/PQGw+t4Qd1zd4mdJ+N6ZiBiKuinUI93wFVy+OGzpTM5DMhZpnUr5C
rcjRk/85zYJxhtLCyfUvEOnOLEnbNgffnD5lrrd+Bk5ey2suE/OguE0ojJb7
EewUj2K9DQtw9VGK+c+Ij5C/y3Wde+MCGNaSQnJdP8LBkODLJfYL0Nf6rv0l
9SOkDmSFsNUugH5SzapX1gfYVDXln3N3EbrmHwgYZdeBcWCSy8jeZbBZ+flT
jV4DqQmZD96dXAa9CPsF8ewaGCrM7U4MXQYxZmMRakQNxPa+cTJ4uQydb3mW
0vfXwE/LvqOx8ivQXK9SKfanGlxVtxzWmF+BbXjSl7z2Hv7rbtkd8HANfrJp
DXIfq4LO1/tPB1eugXA8OfrB7irYnoRTQ5vXYC2t54+VWhVMGucPR3P+g6dN
7DvZ/2FwKrgc/9D7HzRqOmzNzcawPXBj20+ddZjbZZSc9ZcOS+zbXku7MCEm
+YtffNBbyAmY+XbPlwkh94/R6xJvwbrraQ/lInGcr5F4XauE5+VUXqVkJpT8
KPde2/1KcPfmPa5bx4Q+b4meOchSCT8bu9gOqDCjhO+ZKdKNFfD8bqRl6DQz
ur0hSVk3rhy+iEQOCjCxoDhLSkGORzkMxESEPuBjQbl7nFLMd5eDzKXwwhol
FiRrO/JDa6kMohzCuHiOs6Bl3+d7HU6VwQnZUHz7CwtS2zoTxXqgFATvn9/8
4hEr+iqx2q9p+BJUJc5/2FXMipwrGv/ky7wEk/hzTj/prCiod+Sd1VoJXLpy
NnbhDyvi2n0zSoleAkPH/YeMhNiQc8GXuIE9JYDJp7M+X2ZDngbDQlftiuFM
tqtgnw07ojw6MvH53nOIC0nLiDvJjj45pZegyOfwzLJeaZsfO7oiy7q19fRz
mPinvzPuBjs64s/V4230HHyO8QRsrWRHpSGic7sqi8BLtPhHLIUD8fEFiO3d
/wzcI9dTt4xxoKSymvurtwsg0lGX1r3IgZQeXDev8S2AHF3Pomh2TsTBJCpW
Z1wA/T1NH7rkONHU9TNtgbP54Ao5izcOcSIXU4GgCOt8cFk0P9pZyokMaNZB
UvJPwMkrXfb6NS6k/EeDatSeAyu/N9RP3eRCtr8eOJ+pyIE7ZiGhDulcyDBn
/8Hvd3Lgu5Jdl1YJF8qVqjWi2eTAnkGxB+19XMhoTntwsekxKLsmbNTeuwHd
CMsr1G9+BLOOUaod/NxIUe1pr99yNtz6ttBmKs2NOPyV1hQ7s0Hd6FRssSI3
8qx69ZDzfTa4y5iMX0fc6KJZ3XuIzobff1iLtAO40d2DBldvymTDO9sr2lHN
3Mjn6z5v/70P4MahwG06GTzI9shqx0zQfUj8quJT+IQHWS3oF77dcx8yTLvu
KZTxoOh4Zr1Wofvw3Ggvm2QTD1J0zHiwVngPWpVJDaucvMiL//G/1YFMUGJ5
51p3lhexo5k2D88MqCtmv2W/nw+Z2P8ZHnmUBo3qFe+b7PiQ7p63Y5MX0uBP
nu/cfnc+1NsQNLjtUBpM3Pt1dMc1PrSt5PjmpH93QDzmiQKtjA9dPVZEtnO4
A24nD7wZo/IjfdpCcTPtNrCJpgxcWeZHTfXfenm6k0F4IpRfmFMAFQbe/8aM
k4Hy0UPvkYgAUr1v8FcxKxl2XDKM/KgmgMoNZ/1YnZMhpK9XQei4ANL9MV8y
2ZcEEy+13bKrBZByxMZFj7lEGFMZ8ncxEUTz1Vve8egnwKxER0SBuSBqulVs
dF0mAVbYmtJmrQSRSoZjvwpLAnB3vamKPC6Imk9+ej/87RYoJsULFQQLolRT
Lic4dQtcVvRezOQLIt4DqoWbd8XDry8Rk+ECQqglI7eA/UQsJO/IND4iLoRy
ltTvhm2OBasXL9MVZIWQfqT/vwPMsVCf2runTkUIySddUa5/GAN1zjvTOE2E
UFW/4iX3sWgoXVjdGX1JCLVd2/kxNuYGpNLOJcUPC6E/X7XCwv5FgnVqzNDx
SSH0ab6qf/BXJAhveGi0eUEIXUj463TzRSTETXwfbGQTRtzHH0ynukVC5GtN
Q2GyMPLcUO+R1hgBgRajfck2wshNm6mVtTgcjlx00UuvFkbDPyXJjffDIDVT
lGPhkzDyllyQiQ0LgxZ6XfPhRmGUUd1WcN4tDGzYVM/zdQijp0fCPBtVw8Du
5kzJ1XlhVCUm1JVRcQ2O3g/XOqUsggoklJpsuq/CieocNd14EWQ6MuckkRIK
Wf12q7dSRNDhEoHOWddQ+MvJ83X8rgiapAzFy24JBRfzM965eSIoz+TJ24Mt
l+Fks34+6b0Iclh8X02TuQzugx8VmedE0JlMk1K9VxfBh2eUWn9UFMmwW4SJ
kEJgNKSCjcdZFKlmG+eYzQSD19CNAdNTosjNocnhzddgOFWrlF91VhTRsysk
La8Gg8sVd61XsaIoM1qTe8tIENjP/IWMd6JIyd7nbNbHQDBpa3XwooohPS5V
9PLpOag1y9uRqySGvj3dYl928xzsKQ8i92mIoeBG42ejp8/BzhTxPkcDMTSQ
+6t7QOMcGFpYex+yFkPjb98flC85C9rVDSFbI8VQYmLEmF1NAMgX1KVyjIih
CfL1hg1c/mB9v/z150kx9C7luoX/qB9EJ+W3xy0Qvw/5d5+rwQ9mL8ZRJdjF
kcr3/PO1qX7w2dzmmSJZHF17n3rqjJIfBE701+61EUejfQXwX54vfNNin4t+
L4447esoNbe9gWXTgoTFJ3H07K7eG3dPb9hKGt4u0iiORN9FL9sYeEM2y7er
dzvEkeotjlNy3V4Q/COZt3BRHOWXBXEbqHvBxvMbN37TkEAehrIVO5o94GL5
7sMCdyVQmaCnv7a9O2g7NE4efyCBwk88CJDTc4eRdYe457kSKDCy1mGniDsc
NQ38dOilBJLe6pyqUu8G21vyIPmbBNry97zbNRM3WJzhU5NikkT22gvmi8gV
AjVb2WhukshiZ+/53qMuoPHDNfustyQymb57RXCHCwwETkGNvyTaCaYlXhQX
OPKO+6JbqCRa/yhy5fGQM+geMJrKvS2JxmMi+dVDnGHGK7tD7bMkYskJTtub
fQL8cnxK9TSlkPXwk+hmBSfobJBO4deTQqwzjzoiph3hwNLnswOGUqiy5J3D
TbojqJgra6Xuk0L4EE/i/aOO0DfVXzDnJoUuyUpM42QHsDU6/uBlhhSypWl4
XJQ8Bjt+HorV5iYhO+nR17JH7aBwjcmbW4iEwp8mp+ZutgNpxedmPRIkNCSk
PxnEaQeLIfyciQoklP4DjEZe2UKx/JdrU4iEanrFnLjEbUHBe0/Q8yASwrLW
BnU9R4CXRd9Fo5+ENAWSmPYXHIbXQayHB0ZJ6NfMfstT0YfBfbxh971pEjrW
oxpX4XkYcKuHAj+TNArP6XJnUz4MZ4vSh8ZJ0qheO+aZdL4V/HH45/vUUhoZ
6dnH85Qegryy2otqldJI/1HR1L5+CziinujT914adZoXn5wusgCWh06OGZ+k
kfnxq4vTFyzAIW5hB+8vaeQX/2frmpAFCLgps4xNSSOdPaX8m/YchEDhm1EF
ijIowWrL3P5yczA+bZ2ikiSDSBE5RprtZnAu8Q3TmTQZFG6j6d1UYgaPyqg+
JfdlUIFGfszLGDNgYZnaZVgog+7wLMrqGpoBTr05eaBWBnX/ujMrlrUXtuO6
/f4LMqjkcccrobOmoCGyjaX8mCxK6hXc6r/bGBy3Zp1edZZFA04Pu4FqDLGO
nL+RhyxqjUWHdjEbw2huc9Gnc7LI+fTJvX/peyDPMMCx7aYsshrh+hMKe4Dm
XlD+jy6LRPY3h8ya7gbJ17JnjDfKoT+lXWZVF3fCv5O50kKqcigmyO2eitNO
6OPX+tiuJYeU15zWa4ksfe66h3IO5FBZyXxyAgeRtYLeP7KPyiEvr7KpgGQE
gafK9ZkS5NDWDPRAIwCgWeww05s1Yn3evx0JpoZQgdsLI9nk0bf3f6NeShhC
lre7vRWPPDLz9tFQGjIAn6qQ4mFJeZRRcdGEKdoA2E5nuUrqyiOtyO0jrt+3
g27N+MfzXvIo95VlV6zvNkgMiErY/EsepU+TXo906sHy18LyqA559LXP3rCm
Qg9cFL93dffKoyfOEZ0tqXqg0y6lkTApj1yyPSVyLPRgJPtI/yIbGR33+JjV
U70FYnkHr9nLkdHrxiLWqFJdqO/a8IZ0iIx6sizmd7zXBha+jHoTazKa6v/V
e/uRNuht1+gJsCWjms0BT+Wva8O9ZKsNXxzJKPa86dMKc204Y3bX9qIXGfFc
qjop/kcLBEvUZtv+IyPapZLdm9Y2g1WkhXpmKRktWZhsSK3VgBz7SbPXr8lI
2PctqT9FA5bUEtybK8loID5dKNRdA7J+NN3nqyajf/t9B2K4NGCcbCMc2kBG
rC2WP7gt1SHqjcOC0xAZNXnpKG4ZU4V3k55VZBIFnZJbNrK3UQbhGu5OQ1kK
uhngKSqqqQxutwuW7cgUVPF8ay0PlzLw7hjXSdhEQUuPLxk9r1AC+xi/HGYd
CorvWnGopirBrEJQTM9+CroY/ujb+7VNoHIs/MijyxSEWNp31LVvBHv/UmG2
axQ0nllztuT1Roi6PtRwMpyCpHN2ZralboT+EvN9tBgKqvphv6vt0EbI4hWD
7DsUxGvdqHjzMw3E3j1WyiqhILseuw0edVRgonxYuTtMQbkKVw9f6SeDpv5S
+coYsX4Es7rEJzI4HVANPDZJQWYxpA+dhWR4ExI/SVqgoKD9d1ZXzpEhsMm2
P42NivzyiurcOMkw+t9Q/W15KmoR4s1395SDloEN2UlHqKjfQnGrh5M01Fnf
yHhtR0WXsujd53WkofQ91+2uY1Tkv/PVaB2XNKTe44xVdaEirvyYMK2XJDhi
wx5Y7UtFbjyvzGX5SfCzlmnfzHUqsrC8qTr/TRKaHi1MWVVQkVB73jvWi+Lw
XjhoLPgtFZnXZw9U2opD8dX5gXuYiqLfVng81RWHRIe5tpE6KjK8fZaswxCD
Q6IztWE/qEhMdWL9g7sYNP43kVY8RuxHrmRn/XFRqHfp3yksT0Neb4qlZYOE
4S9b7mIKlYaYL3S5frARhtkcjyKpTTQUk7XLPF9PGKRGR2Uo6jREevHHU3JB
CFzPTi9oGtDQY0UznZgLQrD83/rTA7Y0xGPDgYNiBGHTYynSjXga2mNMbRt8
zAfbTNsaeZNoKPHd7p5Vfz4wH864fiuVhqQdfJp8dvCBvzp57nYmDb0sN5g+
2soLla82NeYU0JDCsa08xwV5wapOJ7LmAw1x3to8f/UWN7h5zBnu/UJDT91j
jVeduSGYu2zmSz0NPWClb/ikww2ZB7c7/2imoVrfTWXWrRtgqAUZ9vTSEBvH
UzMFhQ2wHMwy4zZIQ0+aw9pllriAT7rmyfAIDR3IUYx2/sYF2sdNJaamaAj/
94HUGMgFxswb6s/N0VCKa/j04n4usHv4OXxxkYYsSm/V+1C4wMs41uDSKg39
OpGkqrrACf///xL0w0Dqus43Tvg/+kybHw==
       "]]},
     Annotation[#, "Charting`Private`Tag$1315#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"(E - \[Chi])/(k_B T)\"", TraditionalForm], 
    FormBox["\"f(E)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{Automatic, Automatic},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"Fermi-Dirac Distribution\"", TraditionalForm],
  PlotRange->{{-9.999999591836735, 9.999999591836735}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.94472405562927*^9, {3.9447246312219667`*^9, 3.9447246649883146`*^9}, {
   3.944724721546542*^9, 3.944724760631304*^9}, 3.9447259398194523`*^9, 
   3.9447260693593545`*^9, 3.9447271319969625`*^9, 3.944733500225456*^9, 
   3.9447376268672647`*^9, 3.9447377772514257`*^9, 3.944738010904949*^9, 
   3.9447381812846785`*^9, {3.9447397729359784`*^9, 3.944739790117302*^9}, 
   3.9447438179995785`*^9, 3.944744033720421*^9, 3.944775464188115*^9, 
   3.9447760465260305`*^9, 3.944776190137094*^9, 3.94477765781089*^9, 
   3.9448048685312138`*^9, 3.9448070377159243`*^9, 3.944821500310062*^9, 
   3.949968973661766*^9, 3.949969264994415*^9, 3.9499693183396564`*^9, 
   3.9499693490938315`*^9, 3.94996946037085*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"4c416bbc-c1d2-4b98-a560-9c7d22dc1c8d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwtmXk4Vd/79885hsxEkvlwKiEyNRhqraIMqSiZQ0WfkiRNMs8hyTwrRUIS
pQzJWmcfQ2iQJKEQSUSmzMNvf6/n+Wtfr+u91r3vdU9772vLnbp41IVGoVC+
UCmU/139fh2aXF1l4MCAuMv2Oj5o0Gf9v64lBqYAE5rPER90WKhntnye5AuO
5QXOPoiu7bF8cYrkJ0m1O+/4ICIqnqt3kNxPI6rFfvogLtUvMvgdqatJvZ1I
8EWJV5wOBmaQbMLj4rLihx5TL+dSdjIwhF7Rd0ID0a5jhZxpmqR+fXDNufhA
VJ/bd1ZdjbT3zf/PoexA1GtopnJKkeQQN1Gd6kC0PkblJUuS5ESnn5nTgShY
YqghnMLAOOBedOJ/Qcha88QIX5M8hrcsPt62DEYcLoYa4ifkMabfynlnG4pa
HdStRmxI3S4BFLmGorvWkr6vLUle2T2T7B2Kdpj+rTtpRq53edYemx6Kzmim
2BTqy2PKtu92Yl2h6A31V6CuErmeBxpddwhD0XfDP5yYlcM494cT4R6ORDrq
3B7EyWFYbP84uTwCYeX7EaExpF7G8HZuikBuAb65Z26ROq1GC36LQPWbNbuV
wkhe0EuUY4tE3lezDz73ItdjO/7bRyLRD2EfpVpHORxo3RssOBKJnh1SG/qp
QuptzSFcKrfQUVb6acUmOoZ6RtECPbfRxraB7w31dIxXFnziZ2+jmQFV2zMs
ku/Y9CgKxaA0TpZZTjXJeQY6CXtjUK/xyG7pp3RMoba3mj+MQRdadDesTST1
5iadWx53UMS37rdzJ+iYfvAqVflWLPL5u9sttl8WO+W/22hmHo8yT+4cgt9k
Mb0a6Os5xqPqT2rOE+2yGJ4TDNO4EI9Wyhn2R5tI3fbq7d2R8Sg4kNt0Xaks
psS/d3vPjEdRaz8rp/qT9qivDvZpJaB0TbeRe+KyGOs6OS3KJ6KK6+muT4/I
YOixrzaSnozknS897DCSwdlG77gzNJLRbTOjXuo+GRxoymdSZZCMTinOHLfQ
ksFOt/175c8lI94u873zG2Qwbphyz3qWjBz2cG/Q/yGNA3Wq3aBRCmLj8Kpr
vyKNnZYOhwX5p6LD8cfpK2lSmJ7mHbpBPAN5awgaGyaQ/O8Jzx3VDJTX+uZS
bDTJnWZuogYZaEVYjyUfIIWdvNuGzC9moCcJ8mcMnf/H379E1WcgvqS/j2NV
pTDclSjN4ZWJmlIidzJYkjjbAak4/cpChlmvDxv9kcCBcxTHMd9slNdwo/2y
nTimHJcbM6vJQQ6hiaIf8sUwXOLjcRl6hPyd2Ip5RdZjD4WhqguXixBFRRbp
h63DEZMn/2g2lKDOW2k3H38WxlyWF9zqfz9HUjxnC6b3rcVG57Y1O24uR+e3
K3F0SQlivKsd3vlVhU7v/J7PYvFioeSPKSuPatCZ/J2WB8p58S7q3gjWixrk
Kh7H1ljIi/NdvBTDWDXIY1Hf4X0cLy45wK668r0G+aICka+OvLgjdoGzThSh
RMOr/mOLPBhvlmhKCEao3orPQlyLB9dWvn55eCtGjW9cqJkKPFho25P0XxoY
vdVGxTKSpE78veanjVGrpCf3RhoP5hLjHrp3AKOeni81qi3c+Kwnh2WNE0Zz
/+UoGrhx42nj7VcsEzFS8tJZdc/lwk7Rm2tS5zDC3w4r9Sdz4YG4Ygu9VYws
9U8ft4rkwpSYZtdODiYKFoh+DNy5sNm9hrccIkz0NfebldAuLuwb43NaTIWJ
Ij4GlpQ2ryHrJ/msqBMTDSo1nJye5MT5fxS2TmMm8o3tij77kxNPD3JFEfVM
JDzzt7z7CyfewkGMR7xloj3MDQJ11Zy4gh4WsvyFiZKsXKuSwjlxGX+sc8gY
ExmE8ovslODE1o8458fECXT/27HaG3s5sHPDtuZH5wikMaCx0KbFgQfsxF2X
LxCodnitmtoWDrzE53/f2JNAg7MfMgYFOHDZOLxV500gJWHTy8e62THl2qyc
8S0CPTtgIK9ynR13OGwbuFBIIP1DDOsIV1Lvb69gFBOo7Rgtpv8EOw40Uv/5
vpRAM054Ps2AHbfUv5tkrySQro/eR05hdrzrqdm90Xry/k+1AnuL2HDJp9DV
u70EOv5S5KVuNhuOvswfn91P+lM9OZKcwIa1NiarJA8SiKupxOqQNxv2ED6i
dOIPgQ4NbN1WZciG25YifljNEuj7MK+LqC4bjtW47TI7TyCPieF0D1U2XKva
sD9qiUDxK/mcCqJsOHdJsyGSykLtGzZ9T/hBw0Jq+y+M8rDQf7Ls6/5+puGS
0/E3NvGz0NymfmOTRhoej/msZSbIQhKa919QSmi4Lc7byU+EhR5rB47Y5dCw
0dFfuQGiLKQHHeXKk2kYWjjBK2Is5HBI+vYFPxpOtdHbqCXJQn+PLRFvPEj7
gx5wVYqFAm275hjONPzG8LhdtQwLPfgvzbnThIbdPkdp8cmz0K8gUT3DDTSc
vzDHSdnCQjx+T/8m8JD3c095f0WRhVS9jHN6l6jYnpVl3qHEQtfc/Xi8+6iY
onR0w3kVFko/J1ZT/4mKzQaUGemqLFTjXHpJpJ6Ko5/UXS/fxkKcdj87igqp
+Erc6ehqdRZSsgyIns+kYlh5RSRXg4UOm4vDA3eouHbcyfOGJgt5mj6fig+i
YkzkR+tpsVCS4aFHPZepOF+xef8oyRX7ftluPUPFS2sOBN3azkLdu4MEbliT
++8ny4vtYCGKtiRRZ0LFJWI6/LEkb9R6cVV4NxUH9j/ZOEOy0bYjio7bqLjs
uIep8U4WclP63f1YjorZRalnI0mO3RQSOydCxR13+2xfklxGlzbYz0nFRo1J
XC0kd0iWz8bNUXDtgVyLdpKX1ps//j5MwQNKKfKNJNOFRxyUv1FwrsfS8XyS
9fnDhL0+UPDW4DOtl0k+wyVbX8uk4HGmm48yyVFslTfWllGwnmiR1gfSv+KV
oyoOeRTyedHQ50By6/yf3sJUCj57+uyZTvK8M9PhibNRFLylEOTtJVlinG5k
4EfBbq84whLJ+OwZqVqMvUjB07Y+g61kPE8NWjz9dpKC87e6Fi+R8Q7vGzul
ZEHB64wf4rUkF3ZHrL9+gIINPnFThcn8vP8i38TaReqxAceWyfxNtlb7CSlT
MD1gPuMTmd/17y3VT0hTcPWVazWJZP51GscHCgQpuOQF9R7cykK0AOPU8KFV
9If/mZI1WT8mV/1WZd+toiI39bssBRaKO196prJ0FWUPXnES30zGy1p8+x/v
VRRxLedUCFmPZw8fygxzXEX2Vi7nU+gsVGIQxCZrsIostqdbJJH1C9R/fzTn
X0Vvs97ZHpYgz6MgrT0ysYKu7NLay72B9F/aPDu0fQVVGPakPyH7xYGn0r38
3grKtnmu+0yIhfIoo5/NQlcQhTFiKizAQqMz9N3DZ1eQm1m4ix0vC/n2R/BK
a5D2pNn25XOwUO3Xas+X61fQklVJy2MaC/G1jH89sriM2lJtllJWCZRRbZ0f
XLuMQg2PMxXJeVCVtGX/kOUyMkhd3aw2Qs4Tu1+nqXrLyDr1mc3NXwSypOcF
S8gto+nPT7UbyPkzWcjApiNLaNcD1/uUbgIpYhnd0oAlVN02dtWqmUDXwr7Z
NDkvobkcTa+J/80zk0yvfuMllAnfuV4mCOT0Wfyl6LolxDXNX6dKzr/U4XXq
3vmLqM3+aGvgQ3K+Pf10JOH2IlJ7/rnTKptAWlfj3Ys8F1FtQIHs+gwCfVgV
LPqut4iqLbXXGMUSiFOUV0H/4wKa5to643+DQFcBVZpvYR7lG+QrKRgSiGDH
upt65pGTjLP8WUggoSZ/2z218yjWV0PwjjaBiiyWUjxi5lGquZhfjDKBBs7N
Cn+Wn0cbD+YUmAsQ6GjiKNfdg3OIfukftfM9k8xLkUK52hzylZBeuEQ+j8Zk
zh9oEZ1DUuna7WOvmSiqYCiE1juLiq4WrCQXMRGzpn/lzJVZ5MXT6ncvgonU
fn+d3pY1g8r0z0WF6TLRlXEVRbHQGTQ+Y85Yp8FEFbNBJ1ZcZ1C1+o1LUVuY
aC+nUv3bXTOI3rjKqyrKREcZ3inn2v6hotmP9majGF09IaGTw/sPZTd8s1hM
xajK2d09anIaVb943U6NwWjlPPHg0tdpJDTzIvdvMEbh3q688NE0csurEwly
wyg1paq7e980Mjj88LP3HnL/R9uA9d5TqCNDSebOK4RWOoqfLztNoYp3nG+C
HyC0r5c2NGA4hbzinAmDSISaxwrNnotOISyp/1jTEqFu3kU5s9JJFKinEfx6
tAat7s+ojRyaQEPw6kyoSA0yqOriXrYcR3C9jbO8TjUqLnyo3aA7joQy1C+a
bKhGGzIunoujj6PAcbm72jOvUPssZ/zBtr8owmDwy4XSV2iTj6VQ1sIYUiui
rapteoWIoH980HAUBV7P9gK0KrQUo8kZ3vsbQe/SmMyEcuRR8HRurUg/2nIp
QT1P9hlSE3AP2df7A/UG6u3ZOl2KJjy3Clx+8gMN3afcvf2mFHnqFTDaDH+g
8YaCwH6PUnT1w4PDyb59iOu9vswAKkFTw8rG29/2IKc1kiULxcWIM2Qu+4Dn
V1SifPdI8fd8ZHmGcb/VtxEFnjwcuM8qDTW8/RqleewNyA7RGo3QSAVnvTob
7JQbgYfyZRvVNWmAa2MXeyhbE1C7wduV1JUGTHy6/dueNwO4ekkoJyQDvFXs
8by67gNQ8/ym599yF5zV93zSNdwKjEq5Y2uePABu2deTpIu+gpaL+Q1p6wqA
3szsc/UNnWA8kt9q640CwGfq1bo/tBOYEey5Qd8KwJNZL0F3+y7gsRmuejws
BGOHvSNr+L6Bkoqnb0w0ikCFf03N0x29IH9tBI8aeAp0VJjPzFL6gdOufBN6
7DOwva09uaaxH/j2rp5jVj0Daj5/vLcu9QODF5Fyu38+A5sbxfS5Tg6ALU7c
hizt50DExf0TUvoJBvZsWMfW9xz8yZScVq0ZBF4/meYbtrwA9/iubef/+RtE
9E96LiWXg/Tnt8R9xIYBX2Tu+RvV5SDZ9v7ykPEwqFbNftfYVw6i89/W1RYP
AzhiJz6gXAG8DBiWvl4jgHL8EP/C6wpw1Lfl2gjvKDBL9mq8+bUS0K6JdjuL
j4MSg6SfWqOvgK1TYWuF1jiYPvXa0VuwGjwzAY18ZuPAmugMD1evBqdkz70s
Cx8HW443XZy8Ug2IN9Wx7NPj4A82GxOdrwYhks77c99PAB3BmC6vmdegm2Ne
d+73BDCVKvSREa0BWuO3NUw5JkFq1IGISM0aMFBbLjutOwleOsyWP71YAwzc
eRf0CyZBaOImO92fNYCd+ay4P2QKzJzinjSuQ8D+seHDnfemgBOzpWxfLwJl
Sd0Zt6qmQLFy/h3KIgLOrpyRmhNTYIODTfNPMQzqRGxPhzhMgzVFlkVHDmIQ
foa6gaH9D/j89+3H/SIMvpslC1y3+Aeyy21djCow2KGrzNF88R/4nvym7CML
g0HB45Oeef9AVYJCR3QnBgcq898SIjOANSQjmsfJBGv4zIJOjc2ArHGNUjcb
JrBWsMU7uGdB2S2G7/rTTFC4z3mVZ+Ms0Nv29VWuGxMcvuHl99xmFsRU7m5y
D2CC5MHsG+x1s8DP4tHNqhwm2MycuJSXMQd+77+XoPeLCby6F0u8X86BZpd/
k5p/maBplmP88Mc5ENOfUyA0ywTuqhLus5zzwJenysGbkwAvM/a5GnnOAxDR
h4U2EmD/tYRTw0YLgNYS+8falgDJcVn3a04vgOldT0afOBFgqOhRb7z/ApBM
ofz3+wwBovtfOeiWLYCYpo9r110mQJvZgG207CIQW38wQCeKAJvdxtKcdBYB
h+3I9bo7BPC6OdehdXwRgLC06J1JBJCq4bP6FrUINli4OH68RwBn5e3HVGcW
AQt85vr+nPTvAIinrV0CHcaNe3IrCMB1yvhju/ISELwWBo6+JkBR6okjASeX
gPW6zEWXegJMc4QfbHm7BGrYRb+7fyHAAbnYqNxfS2BPiNDvq10ESNVLb/Si
LYOJ7plrLj0E0LtcbCi3axkcbhXyXhkkQEhvu75nzjIovE6pkvhHgO+VBy94
VS8D/5KLRmpzBNBJwMn+n5fB9jInfo1FAozvL/wdtWYF/FNwjFqgsICprKxI
HH0FCOSfdWWyscCjuQS9FO0VwLZ5pOUKJws4PPa7k3N+BdDbZYLv87JAVehk
RUHoCvDsOPFPQoAFRB3++/E0awU0xanBICEWeCtkvr36wwowueRcvE6UBXSu
bexq01wFJTYaKjbSLJB8JI29y3QVbH9al6krywITWwRU+1xWQeuoeCSvHAvk
d80GjqasArVtOcpXNrIA+wu3wqmSVbBXop6XfzMLOMb0fZpvXAXBw6HVCQos
sH5v82bOpVVQu0Z9wFWJBXbx07eE81DgZMiZsFfKLDB4o1OPW4wC711tOLiw
lQUSBxPNoxkUyByLNVVQZYF9x46cEVSjQDcj7qx921hgHHH7xOtR4NOagKOm
aixwd2vtHVFjCpTmNw02UGeBeQ7tSslTFKhndiGPoskCeZ5T7+66U6BAQ2pd
LckWPU9+yPlQ4FGb+rLrWixAMz07m3uTAqOjPCPFt7PIOSvPtyWRAusl6DaF
JDts+kZ/nE2BS/lW2ko7WIA3PmW76hMKhJaPQBrJFSvmJqWVFPjx3IOgWZLP
nOdz1KqnwJ//etft38kC6zrqL5e3UqCt36pAMMmEQVCETg/pX/rdsGKSPUp1
s16PUCDPw1MxTSRLy8yUwjkKHLWf2kN+D4CmqJJ6FjsVpscuFn0k2WvWtevA
Wirc8WbLWDXJm503jTdKU+HQX6UNqSS3tfSwH1Kiwn1sZfA0ycG708VbdlBh
YuV1PxmS1QotVI/pU+G8hvJAI+nv9/WC+u1HqHBPXmiUC8m3QhqtbOyp8IGg
bvgEef5d4yFu3Wep0LKXY/QCyYP2e4Icr1Jhd3FmWycZv8TGuaQfQVSoN/Ty
6C6S9+14XugSQ4XjQbx+4WS8xx9cQEPpVFhTZHauToPMl+CWtvOPqNAoQlfl
3//yNZS5fAlT4Z8XH+IVyHzmHbcS/veWCkMPdTkqkfm2INYqeH2lwuLbZnYy
ZD2UZISb+U9S4fsxea1Osn6aRcJ/CVJoMLpSROcmWV+Dt8L87/PTYIzHXR2G
IgtI+YYW1W6hQSfV2rQtZH3unA7Rt9xBg69CPbfFk/V71C2k85c+DXpk9aqM
yLNAhH0wF68jDRZ3dreeJ+s/py3oXqYbDSrGGpckkP1RYxq0Q9WbBv+6ajg/
lmSBab1AZ/MkGnxzsKe6UIwFnKT9cUozDe4cuKnyh+w/nyQ/K8WvpD3tsaok
PrK/+P3GqgZpMLu/eG4bD9mPyz5S36lsMJLffWIHBxnv7ze8Nu5ig3tb8pvi
FgggdO+qWmkuGxQQtY6M/0EAZbGrDfuescHQiKSSY+S8OXDnikMbYoOTQ9s0
13QTwDfgcvRsJxvcxjR9vv8zOV8dLw3tXssOQy1O3WA0EADTL2Q3+bHD92WU
Cq98AnSluu20v8UODZTtX53PJcCMkNv70VR26MZZ8eJoNgG2Us8vCZWxw4jQ
/qmlFHLe9Z21thpmh0Nqf83qwglw8YGz0IAlB4S5OQzdUwSIuZGWGXOaAyZX
VEU2nSBAsdn7LdoeHDCG0ddgZkOAsZWde2MiOaCG+l/xfWYEcLPj9dxVTbLp
dbWq3QRwXffsU7QcJ3SmazULiRHgTPhq8vY/nHCmb9XkK4sJHFzTpW8GccEv
zL8cBdxMsPiV+/3EbS6okZhumcHGBKnGN/zt07ngf32fliOWMfi4xbpH/TkX
JIb+3LScwMDgl+j97gEu2GbYKFDdgYGic9xGDSNu+OhI6/vqPAymT0QofxPg
gXH8qm/HAQaR5te0NTN54ZIk98m4T+T7wLqkwYAFAVgtMnVJQeAV+NIcNh4q
uBZOBRnk9CWWg+M+p3aks4ShNdt2y//4y4Ab74j8e9t10DKRTWVwbSmQfVyf
zDksCmP/HLC7MVkEfCr0jwlmiEEfqfMKIvz5wCPP7eWObeLwU1lfXLN8Lvj+
QTJJYIc4TFvTI8UQyQWH5psuD+qJww+cf66FseUCJVNF9WQTcRgntjnUdSAH
DEz8fPzPRRzGnFa49iIvB1jtdrxflikORcOVjU1UcsCeNvNoDR4JuE5UteHg
vgeAj7bzlOpPCRhyJVE8KiobVF5nOzY4IgGTsh71FvhlgzOjH/TvTkrA8+vD
PrZ6ZAPccXaTAEUS7tkRJgWtssHlp+lDoxKScDsaaLq5MRt02q+4PzGThMF+
5oYxQfdAfnmdz9ZqSRgtCYzrVrPA/gsWSUoJUrCnTX10WDUDXIl/RbmYJgXj
NiVe6JPIALnl8m7P70nBEe0t5T85MwCNNrFPr4jUHxwKF+tJBzj59vihOil4
9d7bnbKx6UAH1x+8NCsFL/39sqZiOg2oimjTKuyk4XUTiTcdDalgQ6X0xf0b
ZeDh1p5LionJYOX0I8m1yjLQeFm5ajgoGQwIqL/pVpeBWX0Vc5UXk0GJs4Hc
FSAD90QZaQYfTAaGQuc/PbAl19ssp1WwJYNr/1XspMTJwLuHdm94cS0JfBY9
Rnm1LAMDw9fOF51JBPGeEXFqX2ShuMq523lu8WDhbVFFxDdZeEIBZWY5xINT
Ch97evtl4a1b88N3zeKBZre4aty4LLSvElHEWvFg+MHxn3PsdGiYe+Ki73Ic
iOb7FWQjQ4eSKWwH22PjwPse7lcS5nS4KaCF3lcTC46GH1HJekmHk7u/mXVe
iAF5NuPGlZV0+OdBx68ZyxgwvzXuzOdqOjS59Ux+I4wB2Z9a7/Gz6JDmt9+q
RDgGjNIthf0/0KEOdV1oTMVtEPHKftZhiA4HxyL2Wq+5DWrGzzHpEnKwUu+B
+ueSW0DJLvR4rp8cbI40eaygHglsLr0UZg+Sgyv3yuV8pCJBxM2hD6dD5aAI
x4B4z5pI8PO5qQnjlhyc1flzouN7BMjmEwUPUuVg6bG4rpjbEUC05uGW7Ody
sE29fZkydhNQ5BoWM37LwcJB4dWHVeGgfZD7QcJxeWhfQNlzITAU1FtEZlZa
y0M680HIQ49Q8JLgSumxk4fywpcf/3YKBcl310Qrn5KHhx2DA5L2hoLjlhzX
WO7ycG3am4PebKGgrY5iMnVTHtqU0iUuRYaA1tzZiaNV8vB3RXnL16xg8P7U
z73CsgyYLXh3tHMwEPSxP5pLkmdAhfDqBsOOQDCdd/ap+GYGPGf1fQE3BgLx
kREpORUGfHFyWL+jKBA4X56c3abLgJuDl4zSLgeChZDVJ4esGDDsvO41e7ZA
sPmhuETkHQZkZlioGVr5A23Drha+BAasSxDZvXa3PzD9nXkzNpkBzc1xwoS8
P7ikQv+XksWAdnuyP0+P+YHqF5tb8h4z4LJ36RO2CD9wtF4zvLaBAVU6lMc0
anyBy9l/ekbNDFilkka3eegLvHjKp5rfMyAfn6J/YrQvyDqsc/LTZwbsV+68
YmLnC4baod6PfgaMP5ToWjrvAxa8aFMuvxiw4WOjYECfD+CXrC34PcyAhskt
x082+gANR0OxiQkGNNXdFHg6zQfsp3K/v/KPAUPz/PaFBPkA65ym0Lk5Biyw
rD5Zfs4HuO6P1vVdYkBfozXvVs19wP//vwpz/9//VfB/zrKEXg==
       "]]},
     Annotation[#, "Charting`Private`Tag$1365#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"(E - \[Chi])/(k_B T)\"", TraditionalForm], 
    FormBox["\"f1(E)-f2(E)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{Automatic, Automatic},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotLabel->FormBox["\"f1-f2\"", TraditionalForm],
  PlotRange->{{-10, 10}, {-0.15014151699920408`, 0.15014150689851338`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.94472405562927*^9, {3.9447246312219667`*^9, 3.9447246649883146`*^9}, {
   3.944724721546542*^9, 3.944724760631304*^9}, 3.9447259398194523`*^9, 
   3.9447260693593545`*^9, 3.9447271319969625`*^9, 3.944733500225456*^9, 
   3.9447376268672647`*^9, 3.9447377772514257`*^9, 3.944738010904949*^9, 
   3.9447381812846785`*^9, {3.9447397729359784`*^9, 3.944739790117302*^9}, 
   3.9447438179995785`*^9, 3.944744033720421*^9, 3.944775464188115*^9, 
   3.9447760465260305`*^9, 3.944776190137094*^9, 3.94477765781089*^9, 
   3.9448048685312138`*^9, 3.9448070377159243`*^9, 3.944821500310062*^9, 
   3.949968973661766*^9, 3.949969264994415*^9, 3.9499693183396564`*^9, 
   3.9499693490938315`*^9, 3.949969460448851*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"2b0cc8e5-fd8f-4569-8de8-73d678defb77"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"x", "/", "2"}], "]"}], "+", "1"}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"AxesOrigin", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5"}], "}"}]}], ","}], "*)"}], 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", 
          RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "HoldForm", "[", 
           "\"\<\!\(\*SubscriptBox[\(f\), \(1\)]\)(E;\[Chi],T)\>\"", "]"}], 
          ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
          "HoldForm", "[", 
           "\"\<\!\(\*FractionBox[\(E - \[Chi]\), \(\*SubscriptBox[\(k\), \(B\
\)] T\)]\)\>\"", "]"}], ",", 
          RowBox[{
          "HoldForm", "[", 
           "\"\<Hot(T = \!\(\*SubscriptBox[\(T\), \(1\)]\))\>\"", "]"}]}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"14", ",", 
        RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "20"}], "]"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], "}"}],
           ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", 
            RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
          "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Orange", ",", 
        RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<hot_f-22.png\>\"", ",", "p1", ",", 
     RowBox[{"ImageResolution", "\[Rule]", "500"}]}], "]"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<hot_f-22.pdf\>\"", ",", "p1"}], "]"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.944776710117541*^9, 3.944776825585245*^9}, {
   3.9447768703618703`*^9, 3.944776877468919*^9}, {3.9447769088329983`*^9, 
   3.944776923340309*^9}, {3.944777595398059*^9, 3.9447776210770383`*^9}, 
   3.9448044920573244`*^9, {3.944804625903742*^9, 3.9448046340660048`*^9}, {
   3.944806967640973*^9, 3.94480697053526*^9}, {3.9448189956144104`*^9, 
   3.9448190013199673`*^9}, {3.9448190434748898`*^9, 
   3.9448190439662957`*^9}, {3.9448192984231215`*^9, 3.944819299980446*^9}, {
   3.9448210764704204`*^9, 3.9448210934263887`*^9}, {3.9448211264228334`*^9, 
   3.9448211398506947`*^9}, {3.944821186655458*^9, 3.9448211916358557`*^9}, {
   3.9448212249622936`*^9, 3.9448212264184065`*^9}, {3.944821258806926*^9, 
   3.9448212663809695`*^9}, {3.944821459739336*^9, 3.944821479730932*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"e67e059b-0d85-49c8-a9af-b2e347f59415"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[1.], CapForm["Butt"], 
      LineBox[CompressedData["
1:eJwt13kw1f33AHCUZHla7HfhLp+KlL14pDrvHkSlHmUpCRGSSCj0kChdawoh
W5aQJSmVJdS7hKIQkXJDZCm5HyrZ9b2/md8f7znzmjkzZ86cM2fmzXL0POAs
JCAg0MR//xfPD+/98ecPgdPxbsmNr0gYCpCd7J4n8KioHgjyvW9V71T5DIEH
PHi7O1+SwNQ7veD5k8Bx9SaLF/h+Hhm3vG+IwEdtyLdvG0hYrvZeEb8h8HZH
R1nPehKunzm6JziVwIsrOw9frSWhSNAnR0CXwIXs+w1Ha0j427xwWbI2gY1G
504r812f89lVU4PAGp3LRslqEvqMzVQd1xPYmf7MLIhv2RjVsloagW17A3tu
VJFwkTrSwBEg8Jspy74XlSQc0rYdlWhk44AyJYepRyQIOxtrUWzZOGecI1JT
TEKbnebBUWs2/ipG2RzI981DtMAaKzZO0KNr6POtY0rWOZix8cDO7isVd0hw
0U6yLjRgY0HZ+YF7RSS8FBwO1ldh4+lit66kAhKib3JabKdYuNxQ4dW2XBKk
uurcs2NZ2HDdp8y+VBLwhqzw0BgWvvDkm0883+4XAnNcoli4WURPYiff9eu0
uSqXWVhsx9eowhQS/jubueeBPwt7ZL9+fjqZhH7JAJUX9iwsfJ47PJFIQule
jZFBVRaenL3ZVhdLwoHalGPrG5l4uLKZW8AhYc27Lz0N9Uwsz/QrMOT79xe1
wy61THzr0iK79zIJyctqzW5VM7GPXxZNiu++XaPbFEqYmIZJmt8lEjxa9eVX
X2div9SXCurBJIR/4r6etmXiH2LjhrbnSAggt7lfG2Bg9e7NJ7PdSEhz0B1B
nxh4JbaLU+O7ul3DaaKTgROf2jg8PkHCYjlx5EAjAxcPtEy2uvLnFSxqKn2f
geUZ4RMzLiREru7YcCOIgbUzvsxuOUZCirb7aAaFgYWNbof42ZBQ4ZfiVvKv
IiYoy9SadpPAdvLK7TJRxBusJ85o833FzKRP8B9FrJZfDqm7SHBc/9vSYpMi
PrfzgP0JExLEu/fvmJFXxMlXqdV/jEiw2y4qb9CvgN+bTyRI7yBhibB/XecZ
BdwW7i/B1eHve5wlczGZjg2oYxubmPx5aK3cZRxPx/oTmwql+c5re+l1LZqO
1+WdTbRl8PuT3FrLvkDH92fUH48pkFAcz3YxdqLjUu10tgiNBIkEsuiaGh0L
2dDkFGVIaEyK0CVqabjUUCvow3ISjNNr9pl8p+JZM9cOdx4Pxq9w55cOUfH4
oH5o+hgPUoLmCp/1UnG7kFvqm+88+G6vJ6LfTsXPJfQFN47yII796KnqYyoW
8nfN+DzMg57bdzSkwqm4jPa7Uf0zD3xLUyV7CCqumTaas2jnQV7DuU4fGwqu
6T4+VPiIB8lavgYFFhScGZZjn/6QB9Hp3vd69lLwWhHDZVcf8MDb52TkLkTB
l/IsP3je58E2hu12xloKli85xFEq5sE7X5TXyJPHOmJBfqdyeCC0TsSXdVEe
R6nnXbSK44Fd6HWZlnw5PKmmnuh+kgfN8FvEP1sOn4MftvpuPIC5g7PMNDlc
4/TfHtETPGB603q9r8phc8PShGwXHvTbZ+fL+srh/Q/T3zc68MBF/56+nYEc
1m+LSpo4yINTP5ocxj7J4iqhhY3XDXgQdHTJXXEpWTyno0FbIc8DAVXGU4PL
0jj+c9Ke72Vj8DEqOayoQxLDtciLcXpjQBdzLfj1z2rcFhmTpVHyHU5uVhHu
pq/Ez65OFdQvjsIx3Z782lpxfLyxyOu79iio+G/5cypnOW4eSe9dtP4GWZ/M
X5zbIYzvnJO0umT6FYZDZLYaywth+okxrr7mCDxOUDYasVp4emeHUutR7hBo
fP3wSz3991NjboXvmMcgGD7uFl2wGn9K7fm+O+XPAJwuKJleLTXw9GJpeO2w
bT9YuRBZbYGvnroZfQipauqDhtcfIrXNX8LX7ULFcgE9sEX1WalZ0gDMVp6e
7SG6QchXhutEGQeaxaJ4qUIXiEiYhTjyfkO/dDbFRKADLvV1GnjfWgB4cqNV
UrkN7qVyzIJ+CKIUn+8mv7xbwDPbadUXK2Fk5tucknm/EezcUhTCQpYjB/+A
fRW4HiL2++ppp4mjAnnDjQ2HamGpdMLQhdkVqMLAZ7MMgeF90+Xx0JWrUczZ
ykP9zCqwDHDUSamVRJMKfx92cCgDd/FRdvNhaZQfquwcdqsURs89XiruII0s
BasNJRNLwW0kYsj4uDTKTeNQ8sJL4XidcuEzH2m0xHzX1RGPUnC84KL5KFoa
aZidI7r+LgXrn58h7Yk0avhVc9+29T7s7O464saWQe9tO6r6hO8Do6g+cdk3
GXS3VTfhP6kSsMioqGwcl0Ex4i7Z7bN3ITK+kBszJYNkG3zmt/ffhV8BMWw5
YVl0WuCtq+n9u9BoanVXiSmLmNM/e5DZXfDlDdaZWMmiq+2tmpzYYnijKTwZ
+VwWHb1UwNVi3YGACgPzlalyiFMcsi/PuwC0jrSO22fJoeMll3ck2hfAtz9H
Yu7dlkPWbRJP4k0L4LCx76v9D+WQ6fI8zfJ1BbClMx+uv5FD8wNcmYzufJj+
+ddGioA8utipf3bUOB981buWEs7yKOZG4ImtKrfhdJ57mY46BSku1d0+K5UL
PS20hBU6FKSp/npPuVAu7J1p9BnaSkEe828/h0zkgIrpes3E3RTE8C4LhpYc
+DIxWDTpTEH/0SvO20TlwMFt9lkP0yhIY8p9zYplObD93f5oLTEqIj0WHtKF
b4GEkK6j2iAVzUske31RyoJKvyXmQ6NUtGlhPW2BkgUuYy0GN39QUdDZ37lM
iSzAXa5rVwjQkLd2NYSPZ4JPScrIGJWGmuSt87sqM+HjkcVTxWY05BNOBPvt
y4T88rqAjdU0dPfG60xy8SYYeVgkqMTT0XJRxvHXC6lwJq5KwDOZjowyxwSC
R1Ihp5zt/iCDjo5GXbYxaE8FIaGJf7beoSOe4zalmfxUwIlXxvfW0dEmF69h
hmUqbMH1e7ym6CiDy0kwu5cCalJ6QhU2Cuj624/7f3klg3ylgqfRGkUk3KoW
KMJMgsVjt2mrN/C9nrGSK5EEX1ZovuRqKiLOhwfKeCYR7jkZss6AIuLC+NOy
9kQwXnWyPfuwIkqTjtI8Ep4IvscrdAViFdFKs+dt538lQIeMuUDVgiJ6IBaB
mt5fhzjv8FiN9ww0cGPv3+yXcTD7+k5F+CcGGo+5VxxeGQeOSm97+wYYSDLL
Z+dsYRxocylqseMMNHTU69nilTj4lm05OL2UiUbq+maiLOIgWmI4xFqRieys
JE/eG4iF5l7RKup+JiqoKaB/E42FA5x/VdPLmEjroFDB+EgM5FmP76qsZKKc
GwaB+97GwMzGWJeOaiaKnJymPqmMgcz2toy/avn5Or0c/o2EMaaVZFALE8UZ
OpQ0q8ZAeNWRKbsRJoqtXisr6ncFnoyfeMakspD22pRENdloULEJtcw5z0Lv
ZoxepIRGgLVXmeTSEBbyLeWQDp4REB420nIslIWKxK3DtxyOgMEHpruJKBba
mT3ZyNCIgEwJGci+wUKCCRqrKrnhIPMkVznzAQvZJsylU/XCQYDVMJf6lYV2
DB+d11/kQOeQaHa8JRvNT51eoVIeCvUWEWmVh9jIATl5StwOhbLny5N6bdgo
N3C33lxiKCTeFIne4MhG2b5h/Qu+oWBpJexbe4qNlJc4chJ1Q+FdncDun2Fs
NNvkt+yvqkvQljM1ceAxG2WJbe5qabwIzY6DOyQZBJI726H0SjwEPi+9PZ3A
JhDNiGM1OR8Mv/JcSyjrCFTI9f1XjRcMlNFROkuVny/35Ex9azA4+fyYUtcn
0FnpY/YxicEwe+lP8d6DBNL0r3L2WRMM63Ip1IirBDLtExOIjwsCPePuVol4
Av1D69KZ9AsC069pYdcSCSSq4uxxyjYIvFSZk0npBHr9KDQqVzkIqh+ta80r
ItCD0YaTa/B5OFCvzXnRQKC9evLj5j8Dwdl1cqtJE4HCdq6hKHwMBH+x8p9N
zQSSity6ah4HQvq+LQ7tHQR65m+iOBcTCCOdaGv/AIFu3lZ6NLchEGb9hX46
DxPI+/3FXV5SgfAX7UXB128Euj74RX5+NgC07I3lJiYIZNF4mLm/MQCMBEWb
z0zy65c4bqKVBsChW42h09MEkvW31p9NDgA3o2j9wHkCbfe0I3ghAfD//xNE
L834+PtEAPwPrsITQg==
       "]]},
     Annotation[#, "Charting`Private`Tag$1415#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(E;\[Chi],T)\"", HoldForm],
       TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"\\!\\(\\*FractionBox[\\(E - \[Chi]\\), \\(\\*SubscriptBox[\\(k\\), \
\\(B\\)] T\\)]\\)\"", HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
      "\"Hot(T = \\!\\(\\*SubscriptBox[\\(T\\), \\(1\\)]\\))\"", HoldForm], 
      TraditionalForm]}},
  FrameStyle->Directive[
    GrayLevel[0], 20],
  FrameTicks->{{{{0., 
       FormBox["0.`", TraditionalForm]}, {0.25, 
       FormBox["0.25`", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {0.75, 
       FormBox["0.75`", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}, {}}, {{{-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}}, {}}},
  GridLines->{{-10, -5, 0, 5, 10}, {0., 0.25, 0.5, 0.75, 1.}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{14, 
    GrayLevel[0], Bold},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-10, 10}, {0., 0.9933071477189689}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.944776887231886*^9, 3.9447769242938457`*^9}, {
   3.944777592373478*^9, 3.9447776069747057`*^9}, 3.944777659545665*^9, 
   3.944804642272274*^9, 3.944804868739377*^9, 3.9448069714072685`*^9, 
   3.9448070379497695`*^9, 3.9448190036118965`*^9, 3.944819046557575*^9, 
   3.9448193028742094`*^9, 3.9448193444133863`*^9, 3.944819716528822*^9, 
   3.944821094338521*^9, 3.944821142845022*^9, 3.9448211967094717`*^9, 
   3.9448212275245895`*^9, 3.944821500538025*^9, 3.94996897381171*^9, 
   3.949969318487799*^9, 3.9499693492402034`*^9, 3.9499694605338964`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"e9b2f56f-e842-4de1-b3f5-dce25903ac49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "+", "1"}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0.5"}], "}"}]}], ","}], "*)"}], 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", 
        RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*SubscriptBox[\(f\), \(2\)]\)(E;\[Chi],T)\>\"", "]"}], ",",
         "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*FractionBox[\(E - \[Chi]\), \(\*SubscriptBox[\(k\), \
\(B\)] T\)]\)\>\"", "]"}], ",", 
        RowBox[{
        "HoldForm", "[", 
         "\"\<Cold(T = \!\(\*SubscriptBox[\(T\), \(2\)]\))\>\"", "]"}]}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"14", ",", 
      RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "20"}], "]"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], 
         "}"}], ",", "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", 
          RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
        "None"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Orange", ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9447770911083317`*^9, 3.944777113698162*^9}, 
   3.9447776336461153`*^9, {3.944804648408703*^9, 3.9448046540963297`*^9}, {
   3.944806981630934*^9, 3.944806982390588*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"bb9ef185-396c-4bd2-bdf7-e2c49f045679"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[1.], CapForm["Butt"], 
      LineBox[CompressedData["
1:eJwt2nc8Vf//AHCb7D2udUeyyYgKvd4NpBRJRqEIWQmV0VD5ICEyiyipEEpR
SOq+ZbSRImVm72tv+Z3v4/H7597H83HueZ/3eZ3XOH9cissZKzcWJiYmReLj
f9+XBw9Mr6/TcEav1pesdQYMXBSfa1ulYc97Rlv+54OCXQtlSzT8Vs3x3n3C
5G1+a2dmaHhs6vvpe4TfRydydQ/QsFuXB3MGYS6NX3L4Gw3fS19eSiWcfO7E
/qt3aThxY5ZCLOE1LuWDDndoWPqw4pkYwu6ZU5ZbU2j4qXx8WTRh/bowm8k4
Gp64vLTnBuE/Eo+dT4TRcJscp1Xk/67/ZjgIedLwKRFvnauEC5jPPmLSp+EC
1l72s4S3Hs7nSNOhYUqEtFgA4bpHfz20NtNwzvdyqj/hblNLdRdlGj5bL77t
DGHxOPXSamkaLnIWtvImHEYa+hDJRMNfz0dpnyRsp+M4yvuZivO4Tt859L/4
hCcfeFxHxYla8b6WhM+2fCkyqqZimYKXuywIx4VsP+dbScUrCyt95oSr6RJr
Dc+oWDhaWmgvYQ3zJv6kJCrmjrvOtoMwu5uptpQjFSvKiu1QItzkpGU7ak/F
NnYSA5sI37OTvvTWhorjtOZiFAjrmTNqnS2p+IKg3nfq/+Knc9s+fzcVv43z
3ilL+CPz4FUDFSqmPIt5JUQ49l5kg+MCBe9ryGpa/Efczx2/Wc1ZCjbh5tFc
ILwx8agUyxQF3/VojZoj/DZC42TOCAU3dcfoThOe8GmZn+igYLvwLu9RwpYG
m+Su1lBw7Sl/mw7CIq21PtkJFLx2J3rlHWGs+iAqPI6CrQ78YH9L2OfKpUfu
MRT8a52H7w3huk067SoRFDyju124jPCF81n7S4Ip2E+IZeEZ4R7hiyo1xyn4
1L9BhXuEiw9sHupXp+C9Ks9mQwgff8DD9lGFguscSUlBhHnnBuTzFYn1hOvV
zxN2z8i09aVQsEHFrK0fYdIo94d5UQqeYEsPdSccFtX/mHOVjGWM/wlYEbaq
Tj+p/JmMW/+si2/6Xzx+9nV+qCNjEd5TM1TC830aR92rybhn+OJnecJpHNWW
DyvJmD862kOKcLfZqJFsERnLSxqc5CV8utFAUiiZjHPqSvZNrTEgqqP966Ij
Ge9/tZJRSvjoxKa9t4+S8WNbz8piwmrrftVbbMlYMmhP8zPCDWT2igBLMsa3
xGdyCIu7queO7SLj4qrxjlTCD0cuX+tWJGNPOWP384QvMox8bvXK44C9DmNq
hDOc9YdQhzyefBt8Tolw5Y/NrlMt8rh7e/gcjfC/MpqD1Wd5HBpn0EMiHHZ1
g7noC3mclzThykU4WqhZ9U6oPN4RtIu9Z5UB6To+o/el5HGvSb5DPOE3j91O
WYrI46CC+6M3CLdLHO9l4pPHFM9l/3DCcquH2pyZ5DHrxSeuIYSza/S/0Abl
sKCgT7cL4SdHWAtyX8rhohuqCrqEy4PSvYos5PBjNaVLDSsMoLr6P27dK4f9
quHAR8I3Lfd2M++Sw4ncXMJVhF2U549Y68rhvu02gcWEedoO7VySlMO/1BNz
kwk77dggubtHFhdssU2zIczKHlzbck4Wv2J6KNm4zADfqYNMTL6y2G9BXvcD
4dYOBQPlU7J47skJ9I5wYemP5xftZXFaQ41KIWEbD80M8g5ZzK+hs+c64bwv
AwFenLLY5+GI/3bCBxOPkP+lyWBehuBU0hKRz9oCZqZJMrjvRDT1BuGcpo/+
t2Jl8IJa685Qwv+EDaupV2RweGagmQfhp0lUd1NXGRyh6BBiQJg3hVFwS0MG
16xyos5FBny+fUOfVi2NcyHriijhef3dJ3wqpXHallA1TsLU1tWoV6+kscfX
+fdLC8T1Jf3+mOZJ4we2lMJOwsppNpd9bkrjF2c2e+cSjkqnVb+ylcasDpwX
dAmbZr49uHeMhMNO2L0xmGfA5M32VbYBEo76tNdTjXB66Ep+VRcJ79uzdV2G
8NjxbZwGP0i4khbaszbHgETqK7p6BQk3P7wU9o5wZ27hZpEoEv4ktY3DgHBg
8V3hThoJr0ykrMvPEv37YQVOlyVhng7SCT7Cn5J++9pKkHCoRuDD5RkGyJyX
+NLITcJbkpe+/yT8Xj/pv+opKXyRW/HTdcL8b6Nn8+hSOKf1y/zgNBHfDyEt
Z49JYb4ps7n4KaI+tQN3P7GWwtvKHT2CCMdmBjzvPCCFq/xqXzgRDjjrHW2G
pHCwdWCdGmEjeccd8gpSWEAzhlE3yYCfgSjn84Qk/nvVgWmGwQCWTZyBlDBJ
bK/1H7PSBAPmbrH22lyUxLp2tKcbCA+trFvEnpPEjw4dVhgdZ0D990XlBXdJ
/LiW48JTwmmXRzq+7pfENvMSBZqENzd/Mw4Wk8SRn9valceIfA1PFmvIk8Cv
/zUMTA8T58M8Z3C2BPb62MBoIAwrtsvkDAn8+UxEVSFhcoB0V0C8BH7JUfrW
jXDP8ew88UAJfNMpSqB5iOh/Bs8NnHZL4BFtns95g0S+T39xHu8QxzvNfrFT
+4nn81TdOvWXOKYfPB2w0McAC894E/gujh1xzd2vhDd3W6km1IjjgweEaIGE
p7/9ntUtII4P+y7W9hLP88ng9UvB4jhELNLJrocBoSdYn/GIiOOA153ze7oY
8LzBNO4nrzhusFdSEibcsyPWN5NDHJtV9nN3dTLARFZMU3NZDIdZ/e4JIsz/
Z9Nzq79iOOj+vobHHcS8O7yvOK1IDK8FqahPtzGAbpJQqmguhtuk2X3MWon9
vGpOnTQWwxJW0j95CG9UIAW9BjFMzOSOb7+I/GZ9qL9fRwxXZ9IbLAlb4pfl
viQx7JsmqWjVQvTrba0Vr4ZEsYptPmnXTwYwqcvTd0eI4j75jZ+aGhhwSXyn
U0SoKBZnhg/XCC+su6zVBYli3y+zRpsJTzTlGOzzEsWx118kxNQzoC1Yo9zS
QhS/cX342uAbA0prjF44Solik3hzdO0zMQ8cHB4GPRXB3PJ219JriHwxDt31
OkcET4XsqtUj7KqZ9Xf5vgi2MZp2aaom5gNLn3xoogj+W+uQy0l4b553RniQ
CO7oltLzqiLud/ZCSsJOEdxV6HyW/x3xfhSTdr2gWRgzGUhafillwI9acuGJ
BmGsqqHeYkf463puo9gnYVzG9je//xUD3p0tlbpaKYxfTIwZrL0k+vOxHwXW
D4Uxn8jLTloJA7xU+RrX/ITxn7WP2geLGLDy+aqkJa8wfiIhICeQy4BZNi4j
dg5h3DXldzA8h4jHjnjninUhnK2bmrf4mIhvcWb+xhkh3P9CprnzEQNq0isM
l34LYcYXi9GsbKIevWZPZOcK4YiWicHlTKLeuT2ezO4SwitBs+mrSUQ9vPsa
SzUUwsoSObtMCD8I0PKz3CKEr+s8q4hLZMCmtmW9QkUhvDFHUFQmgQGahTdr
TvIKYd+DD7YoxTFg18GSrqZmQXzF3SiQLYoBnon/xF54COLjj0hO7y4Q/d3k
5FKnsyCW2OIv2xlC7H/5QzvvMUE8aV7muRpM9IeTCQ89DgjiDuGv93WDiHzQ
3ahF1hbETPWnUdJZYr49TbojtyCAPUabtnP6MMB7iwp7m4wA/m0jnFh+jDif
/XVuoIAAvtvcZpB/lOjHzab7hFkE8OkIJu10e2K+nneLNxvkx6anfy+es2VA
/qssqfIX/Lih8nSO2GEGDG+R0Egx4ccmoyJU5n0MOKXHZmvhx4e9jY3afPSI
euZIWhpx4cPRRm7F1C1EPbZQMiKP8OHQu2kXWnQYEBkIf99u58MFDS+/62sR
/bH0grcaOx/mlyrY9VeVAf16U1c2pPPiIK67zl/JDDip35lXXc2Dldce7xnj
IvpHnr6NSRkPrs0YkzjPSeSDVALrp3wePGPuX73CzgC/ld1O9Qk8WHbJ8TYL
KxEf+hOR38d5cKGAQtfc6gQkm54PnVjhxvHSSiZ+kxNQZ8trLaXLjWtUnEPu
NU/Ap49uzBmK3PjOdjbb9h8T8HUb/ZmcNDe2HYnLlWiagCbpgA0bWbixzpXq
pMj6Cejq+vVOo3ED1iqv2Gr8YQIWTz1U3uOzAYtZpD/ZVT4BKsHb130fceGB
GEUBhTsTgDsOqvSmcuG5Vs437SkTYLP75BHbG1wYrW/vvJU0AWH8sQXgy4X1
VKYCJ+Im4PejDlvBrVw4nXXYPTRiAqK+X33+4gsn1h2Vahvzn4ABlQ/Os9Mc
+LRld0+X6QRcutUW69HPgV+wkVJljCdAeJ5R1v6LA59sZyUd2TUBO6ok+Wsr
OXBvadPl14YTkGLrVZESyYF/i36QstCagD3hfCL6JA7MnRpWlic1AQ86DteE
7GTHEd6de8cHxkG7T3v5py47tq56tPy9dxxqRoQ2b1Zix23cB92Lu8dhYKHh
7gA/O37Knm3r/mccVITNzx5uZ8Os/VTJ9G/jUGyyh6oexIY9M6JK1UqI84t0
r3YXsuJK3gpS24VxOFIqUmqQxYplnYKs1YOI9SqnR1OTWLGe3N6cC2fHgevz
c9sDF1hxn7vbZQ6fcTjQp6ZZYcqKX5/f4NHjMA4tkgqdST0s2OBIzr0co3EY
vCZmaCrJgutyCzoNVsaA+3IRI4mbBbvouPJFz4+BRrDZw+5VZrx5TuTl96kx
CPS9zH3hLzN2EL5z8MDQGHAc628tzGfGRkOSa7M/x2Cj7qvzwkbM2OkfrzfT
0zFwGbAu6nBmwpqpdXt/245B5N8JFxVrJsx17MM9M6sxyG+PEg8yYcLb3pxM
LzYfg+mmysuCqkz47xyLp+/OMWC5YnYncmidLvmXqSRWZQxAa/j7Ib51eu6Y
X4TTyihUpCgZD9ms0d8qDv5Wuz0KXMcGTzIbrtE7VSrCa26Ngg05J4xEWaOr
8eo5W0ePwnQ+DZuPrtLr4p+kO1weBWUsZ/DiyipdtlkrjP/kKNwZEdW6kLdC
38xc3DajNgrngVmWd3mJPvNwvfVRxQi8Z8MGCl1L9Nj30RnbSkZA8HPo0R01
S/QY21bWuoIRKLReve0Xt0S/mxJbVJsxAn2eC8LN1CW6W3Wi9InQEbBKHue6
t3+Rnsl3JPQfjMDm4d+zmpnzdF31w7/rK4fh3KS6skT4PH2ubfy/vpfDUL5w
zfGf1zy9n/N19nThMOzkUKn7unWeLtfPsm0xYxisaBdue/6co/PLcbzIuzQM
5x1J2x/yzNE1h2rN720fhorvR6+IX5ihiz5Z7Gh7PgR7Kto2rNlM0nuYgm93
Rg7Cs/zH2z4YTNKD6bBt16VBkLx7xjOBPEmvuRPinuk/CC0LHIn7fzLo45rv
g7c7DILCRRvBzOUJ+mcVW5Kg1iC8vzbHi0zH6bvPOhRq/B6A1TgdjsjuYbpI
3/QXL9oA+D0pWhQS6aXnkt/caH/QBzbutAdNlz7RA8vbUs6n/oUPX39H6xz+
CEXzGnKMhXbYrl5VbHm7F3oK6gZbrrTAlp8tqe8+9UJRl/yRTo8W2Hxx7ILa
ai/Y4/1pk4daYNMnid1czn1wlL9lccvGFhBx8/1BV+mHxorIAyafmmEsQ3pW
490AsOSWBcWJNcN93sAtfP3DsHc+Ss2w7AewBIq1u0pNAoMlrcmV+h2Onshv
KtedhKDqK4rrvN+heB984rWchKGc/VH5C43gIu9Z+jJyEkK3/ryt+60R3n+s
vMU2OwnKAoOcEiGN8J+0q/Gj+ik4a3nZcHteA7BVFT/r/W8GrtsdlazS+AYO
BaaP9e/PQGw+t4Qd1zd4mdJ+N6ZiBiKuinUI93wFVy+OGzpTM5DMhZpnUr5C
rcjRk/85zYJxhtLCyfUvEOnOLEnbNgffnD5lrrd+Bk5ey2suE/OguE0ojJb7
EewUj2K9DQtw9VGK+c+Ij5C/y3Wde+MCGNaSQnJdP8LBkODLJfYL0Nf6rv0l
9SOkDmSFsNUugH5SzapX1gfYVDXln3N3EbrmHwgYZdeBcWCSy8jeZbBZ+flT
jV4DqQmZD96dXAa9CPsF8ewaGCrM7U4MXQYxZmMRakQNxPa+cTJ4uQydb3mW
0vfXwE/LvqOx8ivQXK9SKfanGlxVtxzWmF+BbXjSl7z2Hv7rbtkd8HANfrJp
DXIfq4LO1/tPB1eugXA8OfrB7irYnoRTQ5vXYC2t54+VWhVMGucPR3P+g6dN
7DvZ/2FwKrgc/9D7HzRqOmzNzcawPXBj20+ddZjbZZSc9ZcOS+zbXku7MCEm
+YtffNBbyAmY+XbPlwkh94/R6xJvwbrraQ/lInGcr5F4XauE5+VUXqVkJpT8
KPde2/1KcPfmPa5bx4Q+b4meOchSCT8bu9gOqDCjhO+ZKdKNFfD8bqRl6DQz
ur0hSVk3rhy+iEQOCjCxoDhLSkGORzkMxESEPuBjQbl7nFLMd5eDzKXwwhol
FiRrO/JDa6kMohzCuHiOs6Bl3+d7HU6VwQnZUHz7CwtS2zoTxXqgFATvn9/8
4hEr+iqx2q9p+BJUJc5/2FXMipwrGv/ky7wEk/hzTj/prCiod+Sd1VoJXLpy
NnbhDyvi2n0zSoleAkPH/YeMhNiQc8GXuIE9JYDJp7M+X2ZDngbDQlftiuFM
tqtgnw07ojw6MvH53nOIC0nLiDvJjj45pZegyOfwzLJeaZsfO7oiy7q19fRz
mPinvzPuBjs64s/V4230HHyO8QRsrWRHpSGic7sqi8BLtPhHLIUD8fEFiO3d
/wzcI9dTt4xxoKSymvurtwsg0lGX1r3IgZQeXDev8S2AHF3Pomh2TsTBJCpW
Z1wA/T1NH7rkONHU9TNtgbP54Ao5izcOcSIXU4GgCOt8cFk0P9pZyokMaNZB
UvJPwMkrXfb6NS6k/EeDatSeAyu/N9RP3eRCtr8eOJ+pyIE7ZiGhDulcyDBn
/8Hvd3Lgu5Jdl1YJF8qVqjWi2eTAnkGxB+19XMhoTntwsekxKLsmbNTeuwHd
CMsr1G9+BLOOUaod/NxIUe1pr99yNtz6ttBmKs2NOPyV1hQ7s0Hd6FRssSI3
8qx69ZDzfTa4y5iMX0fc6KJZ3XuIzobff1iLtAO40d2DBldvymTDO9sr2lHN
3Mjn6z5v/70P4MahwG06GTzI9shqx0zQfUj8quJT+IQHWS3oF77dcx8yTLvu
KZTxoOh4Zr1Wofvw3Ggvm2QTD1J0zHiwVngPWpVJDaucvMiL//G/1YFMUGJ5
51p3lhexo5k2D88MqCtmv2W/nw+Z2P8ZHnmUBo3qFe+b7PiQ7p63Y5MX0uBP
nu/cfnc+1NsQNLjtUBpM3Pt1dMc1PrSt5PjmpH93QDzmiQKtjA9dPVZEtnO4
A24nD7wZo/IjfdpCcTPtNrCJpgxcWeZHTfXfenm6k0F4IpRfmFMAFQbe/8aM
k4Hy0UPvkYgAUr1v8FcxKxl2XDKM/KgmgMoNZ/1YnZMhpK9XQei4ANL9MV8y
2ZcEEy+13bKrBZByxMZFj7lEGFMZ8ncxEUTz1Vve8egnwKxER0SBuSBqulVs
dF0mAVbYmtJmrQSRSoZjvwpLAnB3vamKPC6Imk9+ej/87RYoJsULFQQLolRT
Lic4dQtcVvRezOQLIt4DqoWbd8XDry8Rk+ECQqglI7eA/UQsJO/IND4iLoRy
ltTvhm2OBasXL9MVZIWQfqT/vwPMsVCf2runTkUIySddUa5/GAN1zjvTOE2E
UFW/4iX3sWgoXVjdGX1JCLVd2/kxNuYGpNLOJcUPC6E/X7XCwv5FgnVqzNDx
SSH0ab6qf/BXJAhveGi0eUEIXUj463TzRSTETXwfbGQTRtzHH0ynukVC5GtN
Q2GyMPLcUO+R1hgBgRajfck2wshNm6mVtTgcjlx00UuvFkbDPyXJjffDIDVT
lGPhkzDyllyQiQ0LgxZ6XfPhRmGUUd1WcN4tDGzYVM/zdQijp0fCPBtVw8Du
5kzJ1XlhVCUm1JVRcQ2O3g/XOqUsggoklJpsuq/CieocNd14EWQ6MuckkRIK
Wf12q7dSRNDhEoHOWddQ+MvJ83X8rgiapAzFy24JBRfzM965eSIoz+TJ24Mt
l+Fks34+6b0Iclh8X02TuQzugx8VmedE0JlMk1K9VxfBh2eUWn9UFMmwW4SJ
kEJgNKSCjcdZFKlmG+eYzQSD19CNAdNTosjNocnhzddgOFWrlF91VhTRsysk
La8Gg8sVd61XsaIoM1qTe8tIENjP/IWMd6JIyd7nbNbHQDBpa3XwooohPS5V
9PLpOag1y9uRqySGvj3dYl928xzsKQ8i92mIoeBG42ejp8/BzhTxPkcDMTSQ
+6t7QOMcGFpYex+yFkPjb98flC85C9rVDSFbI8VQYmLEmF1NAMgX1KVyjIih
CfL1hg1c/mB9v/z150kx9C7luoX/qB9EJ+W3xy0Qvw/5d5+rwQ9mL8ZRJdjF
kcr3/PO1qX7w2dzmmSJZHF17n3rqjJIfBE701+61EUejfQXwX54vfNNin4t+
L4447esoNbe9gWXTgoTFJ3H07K7eG3dPb9hKGt4u0iiORN9FL9sYeEM2y7er
dzvEkeotjlNy3V4Q/COZt3BRHOWXBXEbqHvBxvMbN37TkEAehrIVO5o94GL5
7sMCdyVQmaCnv7a9O2g7NE4efyCBwk88CJDTc4eRdYe457kSKDCy1mGniDsc
NQ38dOilBJLe6pyqUu8G21vyIPmbBNry97zbNRM3WJzhU5NikkT22gvmi8gV
AjVb2WhukshiZ+/53qMuoPHDNfustyQymb57RXCHCwwETkGNvyTaCaYlXhQX
OPKO+6JbqCRa/yhy5fGQM+geMJrKvS2JxmMi+dVDnGHGK7tD7bMkYskJTtub
fQL8cnxK9TSlkPXwk+hmBSfobJBO4deTQqwzjzoiph3hwNLnswOGUqiy5J3D
TbojqJgra6Xuk0L4EE/i/aOO0DfVXzDnJoUuyUpM42QHsDU6/uBlhhSypWl4
XJQ8Bjt+HorV5iYhO+nR17JH7aBwjcmbW4iEwp8mp+ZutgNpxedmPRIkNCSk
PxnEaQeLIfyciQoklP4DjEZe2UKx/JdrU4iEanrFnLjEbUHBe0/Q8yASwrLW
BnU9R4CXRd9Fo5+ENAWSmPYXHIbXQayHB0ZJ6NfMfstT0YfBfbxh971pEjrW
oxpX4XkYcKuHAj+TNArP6XJnUz4MZ4vSh8ZJ0qheO+aZdL4V/HH45/vUUhoZ
6dnH85Qegryy2otqldJI/1HR1L5+CziinujT914adZoXn5wusgCWh06OGZ+k
kfnxq4vTFyzAIW5hB+8vaeQX/2frmpAFCLgps4xNSSOdPaX8m/YchEDhm1EF
ijIowWrL3P5yczA+bZ2ikiSDSBE5RprtZnAu8Q3TmTQZFG6j6d1UYgaPyqg+
JfdlUIFGfszLGDNgYZnaZVgog+7wLMrqGpoBTr05eaBWBnX/ujMrlrUXtuO6
/f4LMqjkcccrobOmoCGyjaX8mCxK6hXc6r/bGBy3Zp1edZZFA04Pu4FqDLGO
nL+RhyxqjUWHdjEbw2huc9Gnc7LI+fTJvX/peyDPMMCx7aYsshrh+hMKe4Dm
XlD+jy6LRPY3h8ya7gbJ17JnjDfKoT+lXWZVF3fCv5O50kKqcigmyO2eitNO
6OPX+tiuJYeU15zWa4ksfe66h3IO5FBZyXxyAgeRtYLeP7KPyiEvr7KpgGQE
gafK9ZkS5NDWDPRAIwCgWeww05s1Yn3evx0JpoZQgdsLI9nk0bf3f6NeShhC
lre7vRWPPDLz9tFQGjIAn6qQ4mFJeZRRcdGEKdoA2E5nuUrqyiOtyO0jrt+3
g27N+MfzXvIo95VlV6zvNkgMiErY/EsepU+TXo906sHy18LyqA559LXP3rCm
Qg9cFL93dffKoyfOEZ0tqXqg0y6lkTApj1yyPSVyLPRgJPtI/yIbGR33+JjV
U70FYnkHr9nLkdHrxiLWqFJdqO/a8IZ0iIx6sizmd7zXBha+jHoTazKa6v/V
e/uRNuht1+gJsCWjms0BT+Wva8O9ZKsNXxzJKPa86dMKc204Y3bX9qIXGfFc
qjop/kcLBEvUZtv+IyPapZLdm9Y2g1WkhXpmKRktWZhsSK3VgBz7SbPXr8lI
2PctqT9FA5bUEtybK8loID5dKNRdA7J+NN3nqyajf/t9B2K4NGCcbCMc2kBG
rC2WP7gt1SHqjcOC0xAZNXnpKG4ZU4V3k55VZBIFnZJbNrK3UQbhGu5OQ1kK
uhngKSqqqQxutwuW7cgUVPF8ay0PlzLw7hjXSdhEQUuPLxk9r1AC+xi/HGYd
CorvWnGopirBrEJQTM9+CroY/ujb+7VNoHIs/MijyxSEWNp31LVvBHv/UmG2
axQ0nllztuT1Roi6PtRwMpyCpHN2ZralboT+EvN9tBgKqvphv6vt0EbI4hWD
7DsUxGvdqHjzMw3E3j1WyiqhILseuw0edVRgonxYuTtMQbkKVw9f6SeDpv5S
+coYsX4Es7rEJzI4HVANPDZJQWYxpA+dhWR4ExI/SVqgoKD9d1ZXzpEhsMm2
P42NivzyiurcOMkw+t9Q/W15KmoR4s1395SDloEN2UlHqKjfQnGrh5M01Fnf
yHhtR0WXsujd53WkofQ91+2uY1Tkv/PVaB2XNKTe44xVdaEirvyYMK2XJDhi
wx5Y7UtFbjyvzGX5SfCzlmnfzHUqsrC8qTr/TRKaHi1MWVVQkVB73jvWi+Lw
XjhoLPgtFZnXZw9U2opD8dX5gXuYiqLfVng81RWHRIe5tpE6KjK8fZaswxCD
Q6IztWE/qEhMdWL9g7sYNP43kVY8RuxHrmRn/XFRqHfp3yksT0Neb4qlZYOE
4S9b7mIKlYaYL3S5frARhtkcjyKpTTQUk7XLPF9PGKRGR2Uo6jREevHHU3JB
CFzPTi9oGtDQY0UznZgLQrD83/rTA7Y0xGPDgYNiBGHTYynSjXga2mNMbRt8
zAfbTNsaeZNoKPHd7p5Vfz4wH864fiuVhqQdfJp8dvCBvzp57nYmDb0sN5g+
2soLla82NeYU0JDCsa08xwV5wapOJ7LmAw1x3to8f/UWN7h5zBnu/UJDT91j
jVeduSGYu2zmSz0NPWClb/ikww2ZB7c7/2imoVrfTWXWrRtgqAUZ9vTSEBvH
UzMFhQ2wHMwy4zZIQ0+aw9pllriAT7rmyfAIDR3IUYx2/sYF2sdNJaamaAj/
94HUGMgFxswb6s/N0VCKa/j04n4usHv4OXxxkYYsSm/V+1C4wMs41uDSKg39
OpGkqrrACf///xL0w0Dqus43Tvg/+kybHw==
       "]]},
     Annotation[#, "Charting`Private`Tag$1496#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(2\\)]\\)(E;\[Chi],T)\"", HoldForm],
       TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"\\!\\(\\*FractionBox[\\(E - \[Chi]\\), \\(\\*SubscriptBox[\\(k\\), \
\\(B\\)] T\\)]\\)\"", HoldForm], TraditionalForm], 
     FormBox[
      TagBox[
      "\"Cold(T = \\!\\(\\*SubscriptBox[\\(T\\), \\(2\\)]\\))\"", HoldForm], 
      TraditionalForm]}},
  FrameStyle->Directive[
    GrayLevel[0], 20],
  FrameTicks->{{{{0., 
       FormBox["0.`", TraditionalForm]}, {0.25, 
       FormBox["0.25`", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {0.75, 
       FormBox["0.75`", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}, {}}, {{{-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}}, {}}},
  GridLines->{{-10, -5, 0, 5, 10}, {0., 0.25, 0.5, 0.75, 1.}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{14, 
    GrayLevel[0], Bold},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-10, 10}, {0., 0.9999546021127688}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9447771165102463`*^9, {3.9447776369540243`*^9, 3.944777659647666*^9}, 
   3.944804658601681*^9, 3.9448048687936044`*^9, 3.944806984044871*^9, 
   3.9448070381226215`*^9, 3.9448215007295856`*^9, 3.9499689738685246`*^9, 
   3.9499693185485253`*^9, 3.949969349298201*^9, 3.9499694606228495`*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"ef7aef8f-ea49-47a8-8f48-b284b03a28cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{"x", "/", "2"}], "]"}], "+", "1"}], ")"}]}], ")"}], "-", 
    RowBox[{"(", 
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Exp", "[", "x", "]"}], "+", "1"}], ")"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", 
        RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.1"}], ",", "0.0", ",", "0.1"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*SubscriptBox[\(f\), \(1\)]\)(E;\[Chi],T) - \
\!\(\*SubscriptBox[\(f\), \(2\)]\)(E;\[Chi],T)\>\"", "]"}], ",", "None"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*FractionBox[\(E - \[Chi]\), \(\*SubscriptBox[\(k\), \
\(B\)] T\)]\)\>\"", "]"}], ",", 
        RowBox[{"HoldForm", "[", "\"\<Hot-Cold\>\"", "]"}]}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"14", ",", 
      RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "20"}], "]"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "0.0", ",", "0.1"}], "}"}], ",", 
        "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", 
          RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
        "None"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Orange", ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.944777133759898*^9, 3.944777191762211*^9}, {
  3.9447772392209983`*^9, 3.944777276357915*^9}, {3.9447799980129213`*^9, 
  3.9447799988644423`*^9}, {3.9448047058939433`*^9, 3.9448047207215347`*^9}, {
  3.9448069906826944`*^9, 3.944806991613683*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"c54ee960-f92b-4936-8d0c-3580bcf29d6d"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[1.], CapForm["Butt"], 
      LineBox[CompressedData["
1:eJwtmXk4Vd/79885hsxEkvlwKiEyNRhqraIMqSiZQ0WfkiRNMs8hyTwrRUIS
pQzJWmcfQ2iQJKEQSUSmzMNvf6/n+Wtfr+u91r3vdU9772vLnbp41IVGoVC+
UCmU/139fh2aXF1l4MCAuMv2Oj5o0Gf9v64lBqYAE5rPER90WKhntnye5AuO
5QXOPoiu7bF8cYrkJ0m1O+/4ICIqnqt3kNxPI6rFfvogLtUvMvgdqatJvZ1I
8EWJV5wOBmaQbMLj4rLihx5TL+dSdjIwhF7Rd0ID0a5jhZxpmqR+fXDNufhA
VJ/bd1ZdjbT3zf/PoexA1GtopnJKkeQQN1Gd6kC0PkblJUuS5ESnn5nTgShY
YqghnMLAOOBedOJ/Qcha88QIX5M8hrcsPt62DEYcLoYa4ifkMabfynlnG4pa
HdStRmxI3S4BFLmGorvWkr6vLUle2T2T7B2Kdpj+rTtpRq53edYemx6Kzmim
2BTqy2PKtu92Yl2h6A31V6CuErmeBxpddwhD0XfDP5yYlcM494cT4R6ORDrq
3B7EyWFYbP84uTwCYeX7EaExpF7G8HZuikBuAb65Z26ROq1GC36LQPWbNbuV
wkhe0EuUY4tE3lezDz73ItdjO/7bRyLRD2EfpVpHORxo3RssOBKJnh1SG/qp
QuptzSFcKrfQUVb6acUmOoZ6RtECPbfRxraB7w31dIxXFnziZ2+jmQFV2zMs
ku/Y9CgKxaA0TpZZTjXJeQY6CXtjUK/xyG7pp3RMoba3mj+MQRdadDesTST1
5iadWx53UMS37rdzJ+iYfvAqVflWLPL5u9sttl8WO+W/22hmHo8yT+4cgt9k
Mb0a6Os5xqPqT2rOE+2yGJ4TDNO4EI9Wyhn2R5tI3fbq7d2R8Sg4kNt0Xaks
psS/d3vPjEdRaz8rp/qT9qivDvZpJaB0TbeRe+KyGOs6OS3KJ6KK6+muT4/I
YOixrzaSnozknS897DCSwdlG77gzNJLRbTOjXuo+GRxoymdSZZCMTinOHLfQ
ksFOt/175c8lI94u873zG2Qwbphyz3qWjBz2cG/Q/yGNA3Wq3aBRCmLj8Kpr
vyKNnZYOhwX5p6LD8cfpK2lSmJ7mHbpBPAN5awgaGyaQ/O8Jzx3VDJTX+uZS
bDTJnWZuogYZaEVYjyUfIIWdvNuGzC9moCcJ8mcMnf/H379E1WcgvqS/j2NV
pTDclSjN4ZWJmlIidzJYkjjbAak4/cpChlmvDxv9kcCBcxTHMd9slNdwo/2y
nTimHJcbM6vJQQ6hiaIf8sUwXOLjcRl6hPyd2Ip5RdZjD4WhqguXixBFRRbp
h63DEZMn/2g2lKDOW2k3H38WxlyWF9zqfz9HUjxnC6b3rcVG57Y1O24uR+e3
K3F0SQlivKsd3vlVhU7v/J7PYvFioeSPKSuPatCZ/J2WB8p58S7q3gjWixrk
Kh7H1ljIi/NdvBTDWDXIY1Hf4X0cLy45wK668r0G+aICka+OvLgjdoGzThSh
RMOr/mOLPBhvlmhKCEao3orPQlyLB9dWvn55eCtGjW9cqJkKPFho25P0XxoY
vdVGxTKSpE78veanjVGrpCf3RhoP5hLjHrp3AKOeni81qi3c+Kwnh2WNE0Zz
/+UoGrhx42nj7VcsEzFS8tJZdc/lwk7Rm2tS5zDC3w4r9Sdz4YG4Ygu9VYws
9U8ft4rkwpSYZtdODiYKFoh+DNy5sNm9hrccIkz0NfebldAuLuwb43NaTIWJ
Ij4GlpQ2ryHrJ/msqBMTDSo1nJye5MT5fxS2TmMm8o3tij77kxNPD3JFEfVM
JDzzt7z7CyfewkGMR7xloj3MDQJ11Zy4gh4WsvyFiZKsXKuSwjlxGX+sc8gY
ExmE8ovslODE1o8458fECXT/27HaG3s5sHPDtuZH5wikMaCx0KbFgQfsxF2X
LxCodnitmtoWDrzE53/f2JNAg7MfMgYFOHDZOLxV500gJWHTy8e62THl2qyc
8S0CPTtgIK9ynR13OGwbuFBIIP1DDOsIV1Lvb69gFBOo7Rgtpv8EOw40Uv/5
vpRAM054Ps2AHbfUv5tkrySQro/eR05hdrzrqdm90Xry/k+1AnuL2HDJp9DV
u70EOv5S5KVuNhuOvswfn91P+lM9OZKcwIa1NiarJA8SiKupxOqQNxv2ED6i
dOIPgQ4NbN1WZciG25YifljNEuj7MK+LqC4bjtW47TI7TyCPieF0D1U2XKva
sD9qiUDxK/mcCqJsOHdJsyGSykLtGzZ9T/hBw0Jq+y+M8rDQf7Ls6/5+puGS
0/E3NvGz0NymfmOTRhoej/msZSbIQhKa919QSmi4Lc7byU+EhR5rB47Y5dCw
0dFfuQGiLKQHHeXKk2kYWjjBK2Is5HBI+vYFPxpOtdHbqCXJQn+PLRFvPEj7
gx5wVYqFAm275hjONPzG8LhdtQwLPfgvzbnThIbdPkdp8cmz0K8gUT3DDTSc
vzDHSdnCQjx+T/8m8JD3c095f0WRhVS9jHN6l6jYnpVl3qHEQtfc/Xi8+6iY
onR0w3kVFko/J1ZT/4mKzQaUGemqLFTjXHpJpJ6Ko5/UXS/fxkKcdj87igqp
+Erc6ehqdRZSsgyIns+kYlh5RSRXg4UOm4vDA3eouHbcyfOGJgt5mj6fig+i
YkzkR+tpsVCS4aFHPZepOF+xef8oyRX7ftluPUPFS2sOBN3azkLdu4MEbliT
++8ny4vtYCGKtiRRZ0LFJWI6/LEkb9R6cVV4NxUH9j/ZOEOy0bYjio7bqLjs
uIep8U4WclP63f1YjorZRalnI0mO3RQSOydCxR13+2xfklxGlzbYz0nFRo1J
XC0kd0iWz8bNUXDtgVyLdpKX1ps//j5MwQNKKfKNJNOFRxyUv1FwrsfS8XyS
9fnDhL0+UPDW4DOtl0k+wyVbX8uk4HGmm48yyVFslTfWllGwnmiR1gfSv+KV
oyoOeRTyedHQ50By6/yf3sJUCj57+uyZTvK8M9PhibNRFLylEOTtJVlinG5k
4EfBbq84whLJ+OwZqVqMvUjB07Y+g61kPE8NWjz9dpKC87e6Fi+R8Q7vGzul
ZEHB64wf4rUkF3ZHrL9+gIINPnFThcn8vP8i38TaReqxAceWyfxNtlb7CSlT
MD1gPuMTmd/17y3VT0hTcPWVazWJZP51GscHCgQpuOQF9R7cykK0AOPU8KFV
9If/mZI1WT8mV/1WZd+toiI39bssBRaKO196prJ0FWUPXnES30zGy1p8+x/v
VRRxLedUCFmPZw8fygxzXEX2Vi7nU+gsVGIQxCZrsIostqdbJJH1C9R/fzTn
X0Vvs97ZHpYgz6MgrT0ysYKu7NLay72B9F/aPDu0fQVVGPakPyH7xYGn0r38
3grKtnmu+0yIhfIoo5/NQlcQhTFiKizAQqMz9N3DZ1eQm1m4ix0vC/n2R/BK
a5D2pNn25XOwUO3Xas+X61fQklVJy2MaC/G1jH89sriM2lJtllJWCZRRbZ0f
XLuMQg2PMxXJeVCVtGX/kOUyMkhd3aw2Qs4Tu1+nqXrLyDr1mc3NXwSypOcF
S8gto+nPT7UbyPkzWcjApiNLaNcD1/uUbgIpYhnd0oAlVN02dtWqmUDXwr7Z
NDkvobkcTa+J/80zk0yvfuMllAnfuV4mCOT0Wfyl6LolxDXNX6dKzr/U4XXq
3vmLqM3+aGvgQ3K+Pf10JOH2IlJ7/rnTKptAWlfj3Ys8F1FtQIHs+gwCfVgV
LPqut4iqLbXXGMUSiFOUV0H/4wKa5to643+DQFcBVZpvYR7lG+QrKRgSiGDH
upt65pGTjLP8WUggoSZ/2z218yjWV0PwjjaBiiyWUjxi5lGquZhfjDKBBs7N
Cn+Wn0cbD+YUmAsQ6GjiKNfdg3OIfukftfM9k8xLkUK52hzylZBeuEQ+j8Zk
zh9oEZ1DUuna7WOvmSiqYCiE1juLiq4WrCQXMRGzpn/lzJVZ5MXT6ncvgonU
fn+d3pY1g8r0z0WF6TLRlXEVRbHQGTQ+Y85Yp8FEFbNBJ1ZcZ1C1+o1LUVuY
aC+nUv3bXTOI3rjKqyrKREcZ3inn2v6hotmP9majGF09IaGTw/sPZTd8s1hM
xajK2d09anIaVb943U6NwWjlPPHg0tdpJDTzIvdvMEbh3q688NE0csurEwly
wyg1paq7e980Mjj88LP3HnL/R9uA9d5TqCNDSebOK4RWOoqfLztNoYp3nG+C
HyC0r5c2NGA4hbzinAmDSISaxwrNnotOISyp/1jTEqFu3kU5s9JJFKinEfx6
tAat7s+ojRyaQEPw6kyoSA0yqOriXrYcR3C9jbO8TjUqLnyo3aA7joQy1C+a
bKhGGzIunoujj6PAcbm72jOvUPssZ/zBtr8owmDwy4XSV2iTj6VQ1sIYUiui
rapteoWIoH980HAUBV7P9gK0KrQUo8kZ3vsbQe/SmMyEcuRR8HRurUg/2nIp
QT1P9hlSE3AP2df7A/UG6u3ZOl2KJjy3Clx+8gMN3afcvf2mFHnqFTDaDH+g
8YaCwH6PUnT1w4PDyb59iOu9vswAKkFTw8rG29/2IKc1kiULxcWIM2Qu+4Dn
V1SifPdI8fd8ZHmGcb/VtxEFnjwcuM8qDTW8/RqleewNyA7RGo3QSAVnvTob
7JQbgYfyZRvVNWmAa2MXeyhbE1C7wduV1JUGTHy6/dueNwO4ekkoJyQDvFXs
8by67gNQ8/ym599yF5zV93zSNdwKjEq5Y2uePABu2deTpIu+gpaL+Q1p6wqA
3szsc/UNnWA8kt9q640CwGfq1bo/tBOYEey5Qd8KwJNZL0F3+y7gsRmuejws
BGOHvSNr+L6Bkoqnb0w0ikCFf03N0x29IH9tBI8aeAp0VJjPzFL6gdOufBN6
7DOwva09uaaxH/j2rp5jVj0Daj5/vLcu9QODF5Fyu38+A5sbxfS5Tg6ALU7c
hizt50DExf0TUvoJBvZsWMfW9xz8yZScVq0ZBF4/meYbtrwA9/iubef/+RtE
9E96LiWXg/Tnt8R9xIYBX2Tu+RvV5SDZ9v7ykPEwqFbNftfYVw6i89/W1RYP
AzhiJz6gXAG8DBiWvl4jgHL8EP/C6wpw1Lfl2gjvKDBL9mq8+bUS0K6JdjuL
j4MSg6SfWqOvgK1TYWuF1jiYPvXa0VuwGjwzAY18ZuPAmugMD1evBqdkz70s
Cx8HW443XZy8Ug2IN9Wx7NPj4A82GxOdrwYhks77c99PAB3BmC6vmdegm2Ne
d+73BDCVKvSREa0BWuO3NUw5JkFq1IGISM0aMFBbLjutOwleOsyWP71YAwzc
eRf0CyZBaOImO92fNYCd+ay4P2QKzJzinjSuQ8D+seHDnfemgBOzpWxfLwJl
Sd0Zt6qmQLFy/h3KIgLOrpyRmhNTYIODTfNPMQzqRGxPhzhMgzVFlkVHDmIQ
foa6gaH9D/j89+3H/SIMvpslC1y3+Aeyy21djCow2KGrzNF88R/4nvym7CML
g0HB45Oeef9AVYJCR3QnBgcq898SIjOANSQjmsfJBGv4zIJOjc2ArHGNUjcb
JrBWsMU7uGdB2S2G7/rTTFC4z3mVZ+Ms0Nv29VWuGxMcvuHl99xmFsRU7m5y
D2CC5MHsG+x1s8DP4tHNqhwm2MycuJSXMQd+77+XoPeLCby6F0u8X86BZpd/
k5p/maBplmP88Mc5ENOfUyA0ywTuqhLus5zzwJenysGbkwAvM/a5GnnOAxDR
h4U2EmD/tYRTw0YLgNYS+8falgDJcVn3a04vgOldT0afOBFgqOhRb7z/ApBM
ofz3+wwBovtfOeiWLYCYpo9r110mQJvZgG207CIQW38wQCeKAJvdxtKcdBYB
h+3I9bo7BPC6OdehdXwRgLC06J1JBJCq4bP6FrUINli4OH68RwBn5e3HVGcW
AQt85vr+nPTvAIinrV0CHcaNe3IrCMB1yvhju/ISELwWBo6+JkBR6okjASeX
gPW6zEWXegJMc4QfbHm7BGrYRb+7fyHAAbnYqNxfS2BPiNDvq10ESNVLb/Si
LYOJ7plrLj0E0LtcbCi3axkcbhXyXhkkQEhvu75nzjIovE6pkvhHgO+VBy94
VS8D/5KLRmpzBNBJwMn+n5fB9jInfo1FAozvL/wdtWYF/FNwjFqgsICprKxI
HH0FCOSfdWWyscCjuQS9FO0VwLZ5pOUKJws4PPa7k3N+BdDbZYLv87JAVehk
RUHoCvDsOPFPQoAFRB3++/E0awU0xanBICEWeCtkvr36wwowueRcvE6UBXSu
bexq01wFJTYaKjbSLJB8JI29y3QVbH9al6krywITWwRU+1xWQeuoeCSvHAvk
d80GjqasArVtOcpXNrIA+wu3wqmSVbBXop6XfzMLOMb0fZpvXAXBw6HVCQos
sH5v82bOpVVQu0Z9wFWJBXbx07eE81DgZMiZsFfKLDB4o1OPW4wC711tOLiw
lQUSBxPNoxkUyByLNVVQZYF9x46cEVSjQDcj7qx921hgHHH7xOtR4NOagKOm
aixwd2vtHVFjCpTmNw02UGeBeQ7tSslTFKhndiGPoskCeZ5T7+66U6BAQ2pd
LckWPU9+yPlQ4FGb+rLrWixAMz07m3uTAqOjPCPFt7PIOSvPtyWRAusl6DaF
JDts+kZ/nE2BS/lW2ko7WIA3PmW76hMKhJaPQBrJFSvmJqWVFPjx3IOgWZLP
nOdz1KqnwJ//etft38kC6zrqL5e3UqCt36pAMMmEQVCETg/pX/rdsGKSPUp1
s16PUCDPw1MxTSRLy8yUwjkKHLWf2kN+D4CmqJJ6FjsVpscuFn0k2WvWtevA
Wirc8WbLWDXJm503jTdKU+HQX6UNqSS3tfSwH1Kiwn1sZfA0ycG708VbdlBh
YuV1PxmS1QotVI/pU+G8hvJAI+nv9/WC+u1HqHBPXmiUC8m3QhqtbOyp8IGg
bvgEef5d4yFu3Wep0LKXY/QCyYP2e4Icr1Jhd3FmWycZv8TGuaQfQVSoN/Ty
6C6S9+14XugSQ4XjQbx+4WS8xx9cQEPpVFhTZHauToPMl+CWtvOPqNAoQlfl
3//yNZS5fAlT4Z8XH+IVyHzmHbcS/veWCkMPdTkqkfm2INYqeH2lwuLbZnYy
ZD2UZISb+U9S4fsxea1Osn6aRcJ/CVJoMLpSROcmWV+Dt8L87/PTYIzHXR2G
IgtI+YYW1W6hQSfV2rQtZH3unA7Rt9xBg69CPbfFk/V71C2k85c+DXpk9aqM
yLNAhH0wF68jDRZ3dreeJ+s/py3oXqYbDSrGGpckkP1RYxq0Q9WbBv+6ajg/
lmSBab1AZ/MkGnxzsKe6UIwFnKT9cUozDe4cuKnyh+w/nyQ/K8WvpD3tsaok
PrK/+P3GqgZpMLu/eG4bD9mPyz5S36lsMJLffWIHBxnv7ze8Nu5ig3tb8pvi
FgggdO+qWmkuGxQQtY6M/0EAZbGrDfuescHQiKSSY+S8OXDnikMbYoOTQ9s0
13QTwDfgcvRsJxvcxjR9vv8zOV8dLw3tXssOQy1O3WA0EADTL2Q3+bHD92WU
Cq98AnSluu20v8UODZTtX53PJcCMkNv70VR26MZZ8eJoNgG2Us8vCZWxw4jQ
/qmlFHLe9Z21thpmh0Nqf83qwglw8YGz0IAlB4S5OQzdUwSIuZGWGXOaAyZX
VEU2nSBAsdn7LdoeHDCG0ddgZkOAsZWde2MiOaCG+l/xfWYEcLPj9dxVTbLp
dbWq3QRwXffsU7QcJ3SmazULiRHgTPhq8vY/nHCmb9XkK4sJHFzTpW8GccEv
zL8cBdxMsPiV+/3EbS6okZhumcHGBKnGN/zt07ngf32fliOWMfi4xbpH/TkX
JIb+3LScwMDgl+j97gEu2GbYKFDdgYGic9xGDSNu+OhI6/vqPAymT0QofxPg
gXH8qm/HAQaR5te0NTN54ZIk98m4T+T7wLqkwYAFAVgtMnVJQeAV+NIcNh4q
uBZOBRnk9CWWg+M+p3aks4ShNdt2y//4y4Ab74j8e9t10DKRTWVwbSmQfVyf
zDksCmP/HLC7MVkEfCr0jwlmiEEfqfMKIvz5wCPP7eWObeLwU1lfXLN8Lvj+
QTJJYIc4TFvTI8UQyQWH5psuD+qJww+cf66FseUCJVNF9WQTcRgntjnUdSAH
DEz8fPzPRRzGnFa49iIvB1jtdrxflikORcOVjU1UcsCeNvNoDR4JuE5UteHg
vgeAj7bzlOpPCRhyJVE8KiobVF5nOzY4IgGTsh71FvhlgzOjH/TvTkrA8+vD
PrZ6ZAPccXaTAEUS7tkRJgWtssHlp+lDoxKScDsaaLq5MRt02q+4PzGThMF+
5oYxQfdAfnmdz9ZqSRgtCYzrVrPA/gsWSUoJUrCnTX10WDUDXIl/RbmYJgXj
NiVe6JPIALnl8m7P70nBEe0t5T85MwCNNrFPr4jUHxwKF+tJBzj59vihOil4
9d7bnbKx6UAH1x+8NCsFL/39sqZiOg2oimjTKuyk4XUTiTcdDalgQ6X0xf0b
ZeDh1p5LionJYOX0I8m1yjLQeFm5ajgoGQwIqL/pVpeBWX0Vc5UXk0GJs4Hc
FSAD90QZaQYfTAaGQuc/PbAl19ssp1WwJYNr/1XspMTJwLuHdm94cS0JfBY9
Rnm1LAMDw9fOF51JBPGeEXFqX2ShuMq523lu8WDhbVFFxDdZeEIBZWY5xINT
Ch97evtl4a1b88N3zeKBZre4aty4LLSvElHEWvFg+MHxn3PsdGiYe+Ki73Ic
iOb7FWQjQ4eSKWwH22PjwPse7lcS5nS4KaCF3lcTC46GH1HJekmHk7u/mXVe
iAF5NuPGlZV0+OdBx68ZyxgwvzXuzOdqOjS59Ux+I4wB2Z9a7/Gz6JDmt9+q
RDgGjNIthf0/0KEOdV1oTMVtEPHKftZhiA4HxyL2Wq+5DWrGzzHpEnKwUu+B
+ueSW0DJLvR4rp8cbI40eaygHglsLr0UZg+Sgyv3yuV8pCJBxM2hD6dD5aAI
x4B4z5pI8PO5qQnjlhyc1flzouN7BMjmEwUPUuVg6bG4rpjbEUC05uGW7Ody
sE29fZkydhNQ5BoWM37LwcJB4dWHVeGgfZD7QcJxeWhfQNlzITAU1FtEZlZa
y0M680HIQ49Q8JLgSumxk4fywpcf/3YKBcl310Qrn5KHhx2DA5L2hoLjlhzX
WO7ycG3am4PebKGgrY5iMnVTHtqU0iUuRYaA1tzZiaNV8vB3RXnL16xg8P7U
z73CsgyYLXh3tHMwEPSxP5pLkmdAhfDqBsOOQDCdd/ap+GYGPGf1fQE3BgLx
kREpORUGfHFyWL+jKBA4X56c3abLgJuDl4zSLgeChZDVJ4esGDDsvO41e7ZA
sPmhuETkHQZkZlioGVr5A23Drha+BAasSxDZvXa3PzD9nXkzNpkBzc1xwoS8
P7ikQv+XksWAdnuyP0+P+YHqF5tb8h4z4LJ36RO2CD9wtF4zvLaBAVU6lMc0
anyBy9l/ekbNDFilkka3eegLvHjKp5rfMyAfn6J/YrQvyDqsc/LTZwbsV+68
YmLnC4baod6PfgaMP5ToWjrvAxa8aFMuvxiw4WOjYECfD+CXrC34PcyAhskt
x082+gANR0OxiQkGNNXdFHg6zQfsp3K/v/KPAUPz/PaFBPkA65ym0Lk5Biyw
rD5Zfs4HuO6P1vVdYkBfozXvVs19wP//vwpz/9//VfB/zrKEXg==
       "]]},
     Annotation[#, "Charting`Private`Tag$2317#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(E;\[Chi],T) - \
\\!\\(\\*SubscriptBox[\\(f\\), \\(2\\)]\\)(E;\[Chi],T)\"", HoldForm], 
      TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"\\!\\(\\*FractionBox[\\(E - \[Chi]\\), \\(\\*SubscriptBox[\\(k\\), \
\\(B\\)] T\\)]\\)\"", HoldForm], TraditionalForm], 
     FormBox[
      TagBox["\"Hot-Cold\"", HoldForm], TraditionalForm]}},
  FrameStyle->Directive[
    GrayLevel[0], 20],
  FrameTicks->{{{{-0.1, 
       FormBox[
        RowBox[{"-", "0.1`"}], TraditionalForm]}, {0., 
       FormBox["0.`", TraditionalForm]}, {0.1, 
       FormBox["0.1`", TraditionalForm]}}, {}}, {{{-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}}, {}}},
  GridLines->{{-10, -5, 0, 5, 10}, {-0.1, 0., 0.1}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{14, 
    GrayLevel[0], Bold},
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-10, 10}, {-0.15014151699920408`, 0.15014150689851338`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.944777277481438*^9, 3.944777659731646*^9, 
  3.944780003492707*^9, 3.944804721994254*^9, 3.9448048688481054`*^9, 
  3.944806992247635*^9, 3.9448070382055535`*^9, 3.9448215008204603`*^9, 
  3.9499689739211664`*^9, 3.9499693185989656`*^9, 3.949969349352202*^9, 
  3.9499694615113497`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"b3e52e83-1c4a-43b3-8bcd-3f138746a17c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Exp", "[", 
         RowBox[{"x", "/", "2"}], "]"}]}], ")"}]}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f1(E)\>\"", ",", "\"\<(E-\[Chi])/(kB T)\>\""}], "}"}]}], 
   ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Hot\>\""}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f2(E)\>\"", ",", "\"\<(E-\[Chi])/(kB T)\>\""}], "}"}]}], 
   ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<Cold\>\""}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"x", "/", "2"}], "]"}]}], ")"}]}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}], ")"}]}], ",", "x"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<f1(E)-f2(E)\>\"", ",", "\"\<(E-\[Chi])/(kB T)\>\""}], 
     "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", "Automatic"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.944724334740368*^9, 3.9447243347416763`*^9}, {
  3.9447260944404173`*^9, 3.944726131686121*^9}, {3.9447262165438237`*^9, 
  3.944726226275237*^9}, {3.9447262756607313`*^9, 3.94472634878749*^9}, {
  3.944726382727612*^9, 3.944726447906295*^9}, {3.944727156968617*^9, 
  3.94472716418616*^9}, {3.944727240530184*^9, 3.9447272895154705`*^9}, {
  3.9447291604191875`*^9, 3.9447292267624073`*^9}, {3.9447376628815765`*^9, 
  3.9447376889775677`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"9790d29c-9aeb-41ef-9b80-86ac2f06fa95"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw113k01dsXAHB5RNFkvrfLHb4qRSE9eT9e+4iQVMIjUzKnMqRBnrkMV083
U8JNmctUUZKoThGiIiFFyFTC/SJkCL/7e2v9zlpnnfX56+y99l57ncN08jZz
FRQQEGjg7/+dvVrCkiqvSBD4dynijxKTsIxvj8Q6wc5fBB4Syd/XVkdCs1Kc
8KNZAsuECy+F8J11iCXm84PACq53mt/VkmCQpS/TM0jgYspGWe8aEmIMolXw
GwLD31m2V6pIkL0sYR3KJXCQc0Ld0SckbKNuKBHYSeCOoa5TSnxXnrCTStEg
sGLC92GykoS9TxLOqasReNgq91Aw3y5HBbWdNhP4HN21O7mChJTc7qqq9QTe
5KD/pbqcBCGN1NZIAQIf+MZy+llKQse+NbPi9Sz8sTpN9EkRCeygWaDYs3Dy
IzXNQL4t/Ppchq1Z2P35DnVtvhmn3kQ/sWTh4fApzqNCEspdMt47mrKwRR1l
4F4BCd/37XXP12PhmmNXPl7LI8GEmsLR3sLCAQmm9X/mkLCmTOuz/U8mPv9S
NbOHS0LSmN/fmXFM7O+w62wC33r65knhHCY2Kbi8yoDvsWvbStz+YeKWYbic
n0qCMQwMbYlg4naXTdU+KSQsXjazvn+eid0TYGg8iQQ35a1a1Q5M/OygZMvL
OBI03XqnBrYy8bjQsa68SBJaO0xOba5nYNuKdQX6fOeOJI3U1jDwZp9Uxe4I
Es4v9Li7VTHwrRVIXpJvGv3skaxKBrbOT5D3u0iCk1PaPvm7DKzq4UdXDeXH
9210w7pEBm7wLTWw9ydBbJrzacaegaMnlD0zj5MQxsiMiu2j4/i/LBO38Z0Z
z/1N9zMd27ZYOD/2IOGF0NWQ8TY63jXX8LPpGL8+Q1F+ZvV0HGJw6cesG78e
xZ7uUsV0/FH+x6//OJMQu/sPw+RgOn68v/Giny0J6S5Ny9MpdOzX6KLWYEzC
09uLEXcPKuCfS4f8NPhWutqK240U8BSi7ubuJSEhrHB+2W4F/KL2kaOHEQnH
bGxOWexQwJqT7KdLe0hYJ/7QblZOAZu/8k6W0uX3k7enhl6vPLYzlVvTqUnC
Cs3OnrYz8lgrokW1gcHvj6py7cUUGp7LVyiS4jvU+bSLYQINn7jnmGJPJ6Hw
t62XY2NoWD2f8WRUnp+ffnoXK4SG2XuubRBZT8L96sgwQxcaXhuuRFWQJkGi
xrw2dhsNK0+7hX0UJaGpbtSMqFqPP1SMt5/k8WD/W+ZxoxEq3vS1NiptlAfT
T5Gc8CAVb7g+c+PNCA/S7zrUPO+m4tiOt0IqwzyYiE1jab+n4vma5VlfvvIg
2ZzSsfUxFafivLeqX3jQ377WRJJNxRW5G5Ys3vMgsG9paxdBxeeNcr7nl/Kg
cObz+GlbCs7VH3BOe8CDm86fjuRZUHCTDHvllfs8iH/b1tC1n4IvOaV/9i7m
wfnsxpy9iIKNe+5d2lTEAz3T59b0DRQclzwe4JXNg0+3sp/X8+RwrIlZlGU8
D0StTsQxL8jh18ssuCdP8MCldEat8bYsXnhGddY+zoMWHxvifKYs3nU113SF
Bw/2qFRKM6/L4uaOgdRMNx5szAqZ870iiz/93tNZ78iDb7HLq2XOyeL55JHr
41Y8OHlSyuqInix2o1/fnqjHgzOEWtDoZxms62zOXC3Hg/A491dikjI4Y22n
2cjDUVh+5OInvQgpnLZW65/4P0ahp3Ihs6BVAucUVBSo3R0Blvbr6snd63Ba
9HRpzeIw+F2b0O6grcHCBpkhIxrD4P3vwBHDkwuXyEXr76D5SVDTO1sUH1XS
PHbRZAiKgDbvryuMmbrEuLb6N/jR99nXUE4Ql1IuDB7tHIRm6/KSb5YLz5qS
pzijngNgVHTcSS1t+tlaguuSutQHdsEn/RYsx555+Zp3fbXvhXT1d+8lJPue
7ZNXSato6AGZqLxVbYGvnlkIF/TJBnSBSKG5gpp5HWRkTal2Ex2wMufmh4PX
+oA4eRpK5Nvhe3G4lwtlDA7eGN9rJNAKpOEzSSfeNFD8GAsSSs1wgmbQdipr
ARoDNqRO+jZC9h9PKcETy5Dec8W+9OJ6cEbXP/ZZCqOJ+mjOI1wDZqLNg5Fh
oiivN9il9nAVBJFFghrXxZBYbKWrNH/MzxS/vhsytxrV2VQX9DIq4F0qszV8
zTq0X2ZjuqPjQzhovEhNrZJAlKMW6VFZJeD2KVLkrY0UUg7EIRJJJTBgZDm0
0lEK6b52tshll4BL2YYGQ3cppKfS/uqbZwk4JlZznp+WQpcCT9q3a5WA3QFB
mdIYKeT4Iui7fVMxmL8IUrz+VAoZau6a6BEuBpR/Rvc4SxrJ+W+e/VvyLlD+
dgpY/l0a4chVy1vm7sABL4sb9WPSaKX+OwfovQPhTgbPOT+lUcwqboNJ8R3g
GW8RkRWWQUaWKUjX9A5Ur5+I38SQQfejfo+LjCsCnydh+UaWMshz592dGsxC
qBXI+HjphQz6UXggI9c3D85Gde9cw5VFp/tlE5Mc8kBF+WSrQ4YsGnF0WZto
kgf9b2d8792SRR4V7ItlG/PAQkbizqEHssgq6YPbzY7bsCNHXzHxjSwStvGs
Hja8DRMv8tZSBOTQ78mapTpbboHP4ukhlqsccnjvcXFOMgeOnxXlaqpSkCSu
iy0TzIH2G2X+qzUpKOxs8sYL49lgWOd2eFCHgsa2rXsJjdmguP6ldJIxBX1V
/vO57T/Z0IXDYqdcKUi0Zr/b6uXZcEh8PuLBdQqyiS/+QRPOAq2sUZ/tK6mo
uuhIfv+mDFj+rtlg2wAVhW2vMl+gZMB9g5s7B4epKMTBuYshngFHK08o3Zig
ItrXJj/2WDo8viW0crXAevS462l3e3k6eAZrvhmlrkdL9uoP/Q6kQ4tyqnmR
6Xpk0vxQZGzxBmRGOh5VqVyPDgVbVb9e4ALojPlvSaAhCcUv9qHfuODlaDXg
lUJDBft3PNJ7z4UbkU9N79+koUJ154uzt7nwqylmk04hDSWyo3Yz/uLCY9fN
rftf0tDv5yN5pvdSYccVJ7VTP2ko40tj7uSpFFDqbRkss5VHczXxr0QY10CC
XW6+R1EBCZ/Wt+sUvwYz2/UE1ikroJ7c1LN4Ngm6Pr8u7FRXQLbZNuJl75Mg
X6NH+AwooAsDi4F27CTQ7V7+KNNGAfm3HqIFT14FH00LmkCcAroS4RvZ8CER
Gvt5/Y8XFJCgmZcfqy4eYnQVz6l9oKMKesYIuzweJrlGaezPdNShsiNiLj8e
7KZPVvf00ZGeSfPS4uV42FpQKhE3RkeaUuE7Yyziwf1S1ocZIQbSHEC37vXF
gejkjjPWCgxULyNq+X1FHBjXWhVRDzFQW9mudePfONDomUZPe8hAdsHq/Qfe
cYClu0unvJyBQlKSLzwt58A5qe7DrZUM1LKsb7T5EgdoFYz4VVUMFCuiJt24
lQPHRbOFghsZaNdoov8Kv8sgnJU/dOQbA2Uqnp7aJhMD2u1l9xlUJlLy4FC5
4dFwa3ezYXYQEy0ZsPc4eUdD22EhYaEwJmIsSnb9xyYahLw1XziHM1H/LMFg
qEWDEzdVh/iHiaasjFzKO9lAm3RSz0xmoqLLYyT1DzbE5/ygpt9nottZWsY6
i5EQJCrN4w4x0cBIrsWWsnAwf2uVmPAXC7UpupSK3wqH3TofOOWHWcjVXypk
PikctudbRnfbslCT/OCmxXPhIBH5V7CyEwvZ9Q3XJ+0Mh+Y/zY9VebHQ7asO
e1dVXIRDRQd0fkSx0MKTKdmm+gtwMGZPv9ljFlq0fej4SiwM9hlr7JCgEyi+
1p0z9SsUWEFOw1dZBFLVtYvYxguFmbtxmZSNBHouWJpb0xQKudJja5lbCbQn
LyuakxQKgl8KR1W1CbR9/8aw04qh8Mhv4639VgQy6VkpkBAfDBtzKNToKwSa
r+RqTPkFw8IHo3fiCQT/kTDh5mUfDC0rz7NjkwjUVvQgOEcpGMJ82qavpRFo
2bJQM0UcBJ3aCe9zCwg0uPTlqfmPQEhoFr9cXUugiR6RAdqnQDgurKNv1EAg
KyZ8nMeBgLROzDe8JZDY8eQvc5xA4KW98njfSqBG6YOe88qBYOwRadDbRyD2
7ZFFH8lAYF4vXXD9SiDK6qSG+bkAmHnb/2DoO4GiXPPemNYHQM4OPWJ8nEAz
h0W6qSUBEOju++nMFIHUxaz7ZlMCwCw1I25mhn8/flI3GhYAm980GQX+IhDn
inPQtEfA//8n6L/blRgJ
       "]]},
     Annotation[#, "Charting`Private`Tag$2386#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f1(E)\"", TraditionalForm], 
    FormBox["\"(E-\[Chi])/(kB T)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->Automatic,
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{286.66666666663883`, Automatic},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotLabel->FormBox["\"Hot\"", TraditionalForm],
  PlotRange->{{0., 0.9933071490757153}, {-10., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.944726096736454*^9, 3.9447261327792253`*^9}, 
   3.944726228469714*^9, 3.9447262858241487`*^9, 3.9447263505998015`*^9, 
   3.944726392439502*^9, 3.9447264503183265`*^9, 3.9447271321422157`*^9, 
   3.944727165871296*^9, 3.944727228650723*^9, {3.944727259547988*^9, 
   3.944727291599734*^9}, {3.9447291921691575`*^9, 3.9447292283915205`*^9}, 
   3.944729725124753*^9, 3.9447335004062777`*^9, 3.9447376272093554`*^9, {
   3.9447376670061026`*^9, 3.944737692477145*^9}, 3.9447377789143734`*^9, 
   3.94473801123389*^9, 3.9447381815036*^9, {3.944739773242612*^9, 
   3.944739790336426*^9}, 3.944743818274161*^9, 3.9447440353720884`*^9, 
   3.9447776598074875`*^9, 3.9448048689845686`*^9, 3.944807038304536*^9, 
   3.9448215008772726`*^9, 3.949968973975144*^9, 3.949969318643048*^9, 
   3.949969349394204*^9, 3.949969461712352*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"415f5631-839f-49b2-84ff-39830df43739"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw12nk0ld/3OHDJlHkerukOlAop0kDtYwgVEUJIyBQNpDJUUm8JIVOhUBkL
lURKuEdkCkmGkiljxmseMvR7Pt+1fvePe9drrfucdfY+Z5+z/3gojhdNnZmZ
mJi2EF//+w29qPbl6T8GMP3fRw5bK6Pd//PZuBrmzlUafo9Ppzwh3KwQzfp+
mYa5I1vOpxBOO07l8pylYalwjw1JhPXSdEV7h2j489m15YeEw/VCFXEDDfcc
SJMPJywWIXgy8DENH/badvEe4UDKLxvbBBqu1I4pCiP8pzDNbu8DGp7MXtUN
JVzcreY0FUnDPPacpsGEbVUsL9rfpuGbARdUAwmnfn98B52l4fWaIVZvwsok
+XymPTQ8ZCIrcolwiYetcKIqDfenlVC9CB8ujb26U4WG616S9l0k7GTPrOG4
lYbLbERNPQgnZvZUVEjS8LWs8F1nCLOoPmoNZqLhjnyvhOOEfx3lW+auo+LS
/tgLJoTdkvVsMqqo+IjzB21jwguTN0oPVFCx3SemQUPC/DHjty6UUPGtK2QB
g//l50ctZ9MrKj5UFs5ykHC+U5BUbCwV+/WRDioQDrmxDBKnqPjXZumhzYTN
ffqdxk5SsfmmlXvyhMleDaGlFlQ881fjG5XwB6dn3x1MqFj/iZeWNOHRo4dd
s3WouJgnplCAsCEpMVJjGxVr/8xqXlpnAF/R3q5TixTsIyu4Y5FwZx6VWWWO
gkVDe0LmCT/P5t7CPE3B4uKxajOEUUqvZ+YoBfOPDnmMEfa8E8LC6KLgP0p+
Fl2Em81+bA+spGCGcuxKGeGHUz7+qdEU/GrqF2spYR1ds4dBkRSclyfM85Hw
VLxyvss9CubeoCNYRPgIDI5su0PBbCJci68Ir0eYnnzrS8EyV6blUwi7bFfa
W3magnHC+zk/wuouffODShQc1ikX60O4/0OpQM02CpZK/aF0hXAUT6JS9hYK
vuH+z9KT8GiBsfMFCgU/XkoPcCGcsrG0ZUGYgjMqN/GbEmZ7Fv+WfZWM7e9y
i20m3PrL0GtrHRmLNXrPUglnjj8cr64i4+DykDpZwr5rva4uFWTsFBHvJkFY
SvaKXVoJGUdfNjjDTdjRMfmo9GsyjuosPzK9RsT7Z0JeII6MG225kt8R5lqI
7Fg6Rcb5En4l+YQ72X6eiLcm419m5q2vCL8So33bbUnGvmmbZzMJm+4rqr5k
QsbXtNe7HhJOuN5TMK5NxgeCLFyuEN68UeV+7xYyRikXxxUJ3yKn3o3ql8Vm
u8IvKxBOjXm8UatLFrM1xs/TCH9ieXBzuk0W49PGfSTCLCN3fUzrZPH5fmZn
DsIhb867Cr+RxYkNlqx9q0Q+tffpJwTI4pbmctv7hJ86NbE9lZDFqbZFY6GE
y9tqb5sIyeIKELwURLjPoGKdiUcWayeXO/kRllN6t+DAJItP1wf1OhJ+Pv94
iDYsgwvvHJJXI/w62LUqq0AGG/3Uvf51hQFlz9fvvDaWwQee2RrVEFZ40Ip/
GMjgFgl5wXLCsbdyVzZoy2CRV95X8wm7WVt7mavJ4KlzeVlxhAW439kuixPP
S/skWhB2unheVadPGu8PrBJv+suATeqdvW2XpXHNWx21asKXqW8lmS5I46C0
IFRGuJs3zGKrqzRu1x3Zlks4f3hP/bWT0jjriZXuXcK2ibFF5IPS2IYqeGk/
4VerRyLd2aWxX6/mdOwyUa8VHzTWE6WwWtI7aijhwDPeTvqxUjgzn0U7gHDu
RqWIqHAp7PYh7bAbYRbdp93Um1K45kqYnwbht5XBt/SdpLB5zV7UvcQAwSqz
6ihlKXzgQttNYcJNNROmtApJjOgFiuyEV92yrp0rkcQf3ihVLC8S+drkkF5Y
KIlFFqxyuwkHHm6Z138uiSvunvXIIryjrjjhXIQkvntHx1+NcOSXu92FlpL4
ntLjjxoLDDBqpLgbjJPw3n/3zioSXihD4qxDJGzQf+2fFOGnr09XlfeQsE78
p761eQbMRCVTNb4Trvl0u4xwgpnEL6ViEjbCt9k0CA/84DcUCiFhLerwP9k5
Blzv/6fUTSNhv/vn7HkIb26R6XwkTcId9jVpf2cZ8LXyQJilGAnX1Bg2txCm
Zl4bauIk4XXD67V3Cde4LaZUTEtgRTv5xeEZBghPTvK9oEtg69Tc+fvTRH6X
uqa9bSQwr0C5mw/hJ2c67F6YS+A9l7bm2xGOaWz70m0kgUOzf1UpEvZN/5px
GEngaY1ZRtUUcV6ZlJ+UlZfAwap1TLMMBnRkpZfXTYpjaZm1DQqTDOCw9Iim
3BbHWCjl5SbCK+Wu6xbXxLFlV6P82AQDJhWdPMIvi+PP8//5vyTcwnzq0KKL
OOYLTMjZQfjJq2PL9UfFcaLhma6t48R5xrbLwVdEHLvFuwzPjBD7tXBJ5etz
Maxp7Dr1lXCLpzXNN1UM7xmS/pRL+JBiiQglSQxX2puUORPenHbz76X7Yvh7
9Gb+1j/E/RnFVil6VQz7O76pez7MgHPnhC3tdMSwaHYkG3WQ2O80lRsTXaJY
/Zu89+IAsT7d0RcftotiTZeApHrCJx7NOsA3UWwHDbSrhNUFivSiK0VxdOiO
5c/9DFhaP8C/O4ewh8lpqz5iPTuOpl33FcWBC6WLuj0MCIp2reUSEsUbpji2
ChJ+x5T7ooVbFL98Wc3V003M7+JUaDKbKA5nKuv3IWx4zO/Ijr8ieGuvWlNG
F7GeXPe+mP4WwTv1yMozvxiQHvSqIfG1CPYvFTp/+AcDPvvMf9tiKIIdH2xv
5SK8NLQvf+qQCJZ+pdbd0M6AbRYBMR9ABMu0tjSZEI5UYzc7qkr4vpqCaRsD
LKbFWy6QRDBNv0VSu4UBQ+6abYV/hLGM2Lm65q/EfWD3X4fOHWF8TSq05hbh
2/oZfncChPE9Xi1QIbymUi1e7SOMa+WYY+81MmBuI5flEXdhnP57tVijgQG/
X8R8NzEWxjYB77Vu1RH9x/yz+lMSwnjoz9jtR5UM8I7AZT4vhXDrwI8qdcKT
V/tOfcgUwnFG95yaKxjgbs+y9veJEO5WWnnOTthe1UAjIEYIn1Sq2ONezoBj
P78WBfkI4RtJlCu8ZUS88j150VpC+CLPJtMv7xjQW7KWmtMqiP2ZKT+sCP9c
CKq2/yqIr/S05w4WEve1Cve4SK0gJg+MHFgrYEBlOml3YIkgHrtS2kt7S5zP
4XuqzdME8SfKuNqx18R9b+s1tuYpiKNCzpL5shiwYXVA1YRbEKeyfDUJymTA
393nrFjZBPH7ycXspQwiHxdnrxf/E8C7v9xp704n8tu/oUpuVgA3DFVPPE1l
QN0XGavlnwKYlSN49G8yUY+Pra6nZgnggtONyauxRL1r1FfOaQvgoLKgQ3qE
nRgqz6maxHip0aWRMQzISntwz2S3AC4qXhOVimaAIvdp09wtAliYJ3WvQiQD
dndN95zhFsDMay5+LCEMMLgpttLcyo+3H09yKPNnwMUKx51v3Pix2+slcrcf
cb77VAv3OPBjnhTd86u+xPy3Ky5x2/DjB0rOaWo+xPkQN1/mZsSPIyZkdGO9
if3gHGJI3sWPTw8XHmQ/R+Sfz/arzCIfjimxf/jehgE+8TMav6T4MJ/iTpRt
zYAA11vdV/n4sHm7rfqjkwwI3sN/S5CZDzu36axdtiT6pXalqsPDvNi+fS5b
xIyoF7GzJu/f8GLa7bbNG44wYD6+x+mBHi++8vxm7zl1Yv8k1EcYe/LgNta8
IupuBvi72aiMOfLgj63jN9tUifntHW0OPsGDJYQl2vfsJPL7g128bD8PnuLe
ZfB7OxGvuE6qIisPvtt21rWezIDphA/vNj3ixmiY9+g4B5Gf/2uAuXDUnJ3M
FXYGXOJkitAr4sJnZCdqV1gZcPXayf212Vz49/B4MvNGov5PcT9ojObCcy0d
g/OrkxBCuXTk52kufFlQ2chzahKevjhQOLnCiUOZBW+ltE5C84eWMAk1TvxI
A9t1fp+E1m3Ke5O2cGJvmsVrseZJ+PH47qCMJCc2P/HscXDjJHTf2I/kmDmx
440qdKh6Esa0ns4rN23C+i0s+drvJ4GlzsNe99wmXHPXRlw+YRLUO5jVL6Zz
4BiRI5WdDyahHsQc+h9yYPeoe8NRsZPgmLE93DKUAx94ahc4GTkJkZ7mfXCB
AyepRXsG3JmEQbbMSP69HPirm8bguNckxKkeHn7zhR2rGLJM9uhPwkz4/YS5
GTb86/exZ1KHiHhn0ircBtnw3jeH5U9oT4KM1fvJznY2rFS2P/SD5iQcof3W
/VzChm/evyxvvHMSnn3YNf0gmA3TtOgVzyUmwWSo9fAeEhv+LXbUYmJoAl6C
1IqfFivOGKZxNPdPwEG9FZVWNVbsiHu883snoMmww0VFgRXHSZx0dumYgJmT
Cc1DvKy47J385kcNE6B+WTjbrJMF/17c/Fnx7QTRT3GfVPJhwevLT7b98iee
F1h715u7ETffuuSk5DMBDuKd4xpPCUdavfP3JsaT+UiNj92IKwqeRrCdmwBh
Rb9II/+NOD78sW+f7QSc1Jt3LtbfiIM0R19nHpiAPv8J4bg+ZvwSOU1rrIzD
bH/XJX1xZlzeqU4OWxgH0R6fzXGczLi6lqn62/Q47O8Q6Ohd3YATIz44GP0Z
h9tNh7T8f2/A2tPp/PMt4yBY+pLvZfYGrED2vsn0chxUHt7IFTywAXM/mbP7
aTkOFwykh7ocmDC1TLDwsOk4xOgUJW4zZ8KcMfV5+Ybj8O7gcSMfPSZ8gCnr
5gWtcVhXu1PAv50Jvw2UqgvfNg4knQ7Wu3/+0VVtApPtVsbAct4PTHn+0WU3
TM0qxo9B88kP+X8s1ugRlX0plVFjQJb1/bZBc40ufy3gmnnYGFwYUJ8iUdbo
mcM7C21vjAHnxQIlo7FVes7s/mTeM2OgFfT6+Zubq3Rva7w4qzgGea8yUvyf
r9Ctv8ovphePQsTGmDDuv8t069nm4n1vR6GjxuSFfM8y3T5Jm1qVMwoKkXw1
ByuX6aeVNBo/J41CpXgEq1fkMt0mo26/fcAorCqFBLZSl+laP5+lrMMouFsF
XE05ukSvFvm20lgyAgYv3R1VkhfozAXhmQMFIxBeUPZQLGiB/vO77+eZ3BFo
+ij4Zd19gc6bwWK7lDQCJ+uKVRv2LtD9Ju+1PL8+Au7DnKzuLfP0nL3mXin7
RyCCkpOVxjVPxxDP0pn3B5ofjI2L+s/SBSvJn7qDh8E24JzPmsUUnZTI6aR9
fRiqLqhnVWtM0RO8XaKTvYZB5TRTezR5im72ZSZtv+0wsAUqnDdsYdD9d/Lq
8e8chhMbfceS/07Snf6T/Kn8cwhmNon9QfoT9BfiOX/daUOgKHbid3DvCH3r
6tjHzmcD8HTnt++CQv30a0yk+isPf4Po3Rc8bddr6UlMlWGMxU5gzzWTUTGr
gXucr4+232wDzown7cbx/bDN9Of7brc2YDUs/Fha2w87x1tXp463AdNs3ZPt
q/3w5imTrbpcGyygBVd2hwHI+TfxWq+2Ffo7DZfKtg1CS1LIj0iRVigR/iuu
XDYECUZzoZpF3+FikLk19+AIlD4NUnCmfoPRN0EXnCSm4JfMlhv/uL+BdpKE
83u1KaDHverKXmyCR8GvbLhNpmC94eW4WkMTHLH5YVAQPAXyUrk2Yn5NkM2i
SGOZm4Lv5s979j//Ch6W39vTGqeh1fBZfrlyA4yvUrT6/5sFk72f8qw4GkB3
+N2ePU9mwSzqwFWhvnpI+nZU+V7xLDh1GZyfe1APhplXJFWnZ8FLZSbc6d8X
eGlcO3/bbg7O1AnuYPpZBxdSPbOp++ZBYutpTrmsGmDo04UcJxdAQdqypeVO
DaAztabqmxYh4bcx03OnGogJ+B7NKbcIAzG/HAupNaBeOMz39uQiPGDND/R4
Wg0BVH5uls+L4Dqw5/6B1CrgXbNnyXy8BLL8vUeV6JWglM88P2LwF2y+dZ0X
S62EgAZutbIzf8GvQjuUeqcSmv6IescE/AUhpbXzj49WwmXZ7dP7C/5C+Ru2
HaIdFVASbjZxT3YFvF+/6iKvfQJD1/RBpYUVaBwYN+KyKQcPKb02r7Q1+OHn
OvVMpxyq5ov/+ZSsQXxHATJTLAfq1x1bA1rXoPIZI4N1HcOPWxLXw9jXYfNb
38dZqRj0hscpaR7r8O6Ondmz33Sg5seeb1H9Bzy6w9fPo1KYSPO8LenIhGwa
7DSYxEvhEf/2+JQLTIjbIbqoglECBjcGcyjXmFB9CzbsfFIC6RbWrVvimFDc
LpsUY+YSsN6kq6BWxYRMWf/tk2oqhpoLYo2G2zagf+MJ5WqR7yF9X5lEwMwG
lKNhqZ3l9h7ob0rz+JiYkcWmz9uNdN5Dx9ZS/Wc8zKhVt9Bt13IR8JNKrlQq
MKPEu0Ydtq5FcP3vh2+cp5nRp022wixG78D8Y2Fo/BdmRDqa6KyiWQAsB14u
56VvRMWk9ydzpApAtjA3Sjt/I7IB6QNma29hv1Lulhb6RnSeyYp1K/0teErn
nFjs2IhQQxPHsO5b6Fx7/uaAAAtCTqHBgVb5UFCWfrbuBgu6s/OT1ZeUPDiD
kn72W7AivdTL0lrBeXBb7Jtz5BlWZISPPvtxPg9SJ1ln9nqyou/1O46cO5AH
fUkXOSNDWZF2wwTWKXkN9svaGntLWJFrVcoPg6OvwC5/JCmcwoYqasJM1+Jz
wFpuj/3uccIVx9crL+SA/4rHeM8SGyK793+uOpQDj5qf+oaxsqOzskZhPnPZ
8DOQM7pHhh19ixejBptng1VXV3nocXa0dGuURJJ9ARYPg2jd79jRCC4pOtCZ
CaYczUPBtzgQW4/twsXiTGD4aMVPR3Cg2Z9qfd8SMiF8OE/f9hEHav3E00Sz
yITPVfef73zLgd72611dbs6AvXeM3DsHOFBM2H+797amgzRz7cROg02I++s3
e6+/qfBnhT7XycuJ7hck+il0p0KQx44MfUlOdDf6sizHp1Sg/Eo5kb+FE72b
oR5AYalgXXzj3V3EiUYiuxcjpFKhwVfDd9clTmS/mNHlZfAM8uffrdxt5URP
pzpezfk8gRuMl8yqSVzIyq7hWpnuEwh2d9yd+4ILhWQas/wUeAJRg6Ju8kVc
yMbH4fx6bgqk/7rZINbMhZivXfi8NpQM9dXHE1bZuZHDdanEs2eTQOrpvFKV
NzeS4uV/MJaeCMUmB06ePMqDxHp/P5z2T4TKL9P3mq14kBIjPGr/8URo1Mss
O+rCg75mWLfHridAnyaf3MFbPMhhLKTCyjYBOLf+nqQW8aCl2XajNlo8nNxw
J2icyot4V9oucvfGwdKb+tc3//KiS1varJhxHLCFv2sXYOdD+hufeSg8jQMR
l6f/0oT4ED2ieHmjQxzsIl02rlHkQ6bj4fumB2Lh/G1JBv9pPhTxMMrn7HwM
9Jm6K6dW8KGfStK7uPdEw9DyfxaOevzIw380765UNEwO+brnGPKjSdZhy+3M
0TD//XzAnCk/6q5dUh1tiAKWV5aZwaf5kafn/XpwjQKK4/aFbF9+NPByLmCn
9n2wrWt+MJvNjx4cP+TBZh8O3x5RWoP4BBC/yf2T/6mEQyTPvm0nRAVQqV/C
x2MbwsEw0OSmvLQA0s7aM9CYdg9qnG9urdomgHhvS+xyHQ8DrNJ1g11PAKWV
M12JuBcKeVUJm8OuC6BymX7p/9aDIWqGz/f+iACq+uEZ+Kc9GI45b2k4PSWA
8jPvL0W8CQbuHwepKosCSKDYNCzeORhCSs/XN7EIoogtiauJTXcgMOQLWZAs
iOhRh51Y8oPAU+ZubZyFIPLf5pfS9OQ2GB9ZJz2qEETiz2Mehd++DVHn8kYX
agWRTPFbhavOt6Ep0rHYrEkQURLbBpq23waT71UneboEkS/2sEwuvgWmtvcT
AhcEUYXxZ13L3kAwv0AWdd0qhFTYmpXFHwSAdYy2gNp9IdQmnpU77xQAjwrm
eqMeCKEXlZqnZHYHwK+2zLyJx0JobVdAiHHbDbCV5DLJei6E1J1eh8pJ3YBT
6d8jSZ+E0KD2x0t7Cq+B/Tsn7g3zQmij9GYlYZIfuHQEszdaC6Nf1qImR2Z9
YdDAYoTTQRh16KSwltT7glOR/Bd9V2F0JeQW3STQFxziKiPLvYXRwbz13N2j
PmB7jFm0MFwYcZNieZ/VXAWzTzfkksqEkft13oaCl5cBZV/WcqeKoK1H0GBR
xGWgi+vSshREkG2P777x85fh4F0h1gFlEXTQ+7T7sPJl0HDKrzmlIYKitm1s
lX3rDeoyU8bHzUXQIe1L505WXgLFGA+7vcEiqPdHjg4nhxdI+DteYxsl/i85
+slrzBOOXTBPqZsSQTp8TwU3ffWEIEe98shFEXROt3Ho80NPmDyyjV2MVRTF
vK5vvajgCZWSMzFbyKLIbHMLf9DzC+BZeivbwEIUkdZFuyvjPaCa6dnPsE+i
6E3f0auuZz1gdS5m9VitKEp+61JgqeEBu0aCZIWaRJHUyhUZ2V53op9wc37c
JYrWBDaXaii5w6VUlemcJVGkm595BlrdQEYXczQoi6G3PBycqidd4Mrdnj18
j8WQw9XjnLLqLqC4/Vzr6WdiiLo1ZFZLyAUGGpcu5WWJIS19o+3bG53BXFTw
1fECMTTW9nnhlp4zqGXoysU1iKEp/ePtS8gJZj694JdgEkcN7oaz/daO4Lnu
PUJ1FkfBj9Eq/0FHUEhluuvtIY6qHins8KA4Qu+hCLlKL3G0T+LScsYfBzCO
yDztHCCOeL+P31HycwBlqZ+tWfHiqDVQnutwqj1M7Dv4SbFOHEns/GjVJm8H
7lc4HqvvkECZ8lbZwTOn4EdKkR+vugT6ShFViKSfAv0aF6shTQk0KJ5v/dT6
FMhJfhZ5eEQC7S7wKSyPs4VufCtq3lkCjYd4UK6L28Bx7pU7BUmER87by1hb
wd60Cc9dnCTk77qq8VzFCjLrk4w5BUhIKP5OnC+7FYgsHFXuEyMh6dsOPaOF
ljBjkD0WLU9C53/OrnCIWkLupIvLNCIh9S//mqr6ToDs/l6bPB8SehJNuns0
xwzYvjXrKQ+SUFj1TKtrmBm81XuyZ2iMhF7emBX8eNYM7Es8FFJmSMh328QI
y1YzKM5i4eRlkkS52buVpbJN4XyAesMESRJ1iARycL87Di3bH5m9NJFEcj39
X44OGkNqsIO9YokkOsLw05x9bQzGq0rHBz5JooO1XV9n/Y1h1euvVlKtJKIn
uPOsCxiDxalYGne7JMqxr+7arHsMNql9HhqblkTP4wo+GL43BM/fCudztkih
vyUJkzs6DwNoTvlti5VC2xN4JL+/PQwXHCwHLyRKoaYtV/cX3jsMKcFlJm+f
SKHLl9Lr1DQPw2pT+BbNXCkk0yCRLPrUAIqdt7YafZZC90zMLQS99UHtvqOK
16IUkg2Pq/XSOQQKfS1DRTbSSItN1wtRD4Elu6bpqoM0yov716u94RAEK6aV
IjdplGV6pu03XRcGr3rF1V6WRsv4kdNN0IVULl7tXxHS6ANv3dqcvg5I79ZP
XqdLo+nUkPLya1ogGPLB7JCcDEpb1RHZbqcFS7t0mAS2yyBtr8tXqpAWdHfV
53bulEHN6zc2xbBpQbZqL+tlkEFOm3ad8Y5DoNXD9j7VWgYZRl733XEJwFPd
XIopWga5S3o/idHXhK8DkwPFa8T45oqHC8U0oeC+b3Qwiyyae+E1ofBHAx7t
Zz5oyiWLyOWrzBvCNMAlSiR+RFwWnfasf+b8bT+sa2geFleTRfoZLhERF/aB
cmzoyyvusuhMUPaJsW51CNeSu6rSLoscRGbaK4vVYe6xQXJIlyx6UbTFr/2h
OtgunKvs7ZdFXg1yeZnG6qCUUygYPSWLNshV7+6v2A2uYWntSyxktATXokPe
qQHHnNrlkzJktAIfr8KnXXCk2vIl6TgZacT5nklI3wUBcyNYz5yMKpQPK5Lv
7oJ8yvWWS5Zk9Kw+cttHw11Auv50pe4UGfnvXuoS7dgJYyojh6+5k1EwP/P7
zWsqEP7If+jXf2SkQp359fCzMnw9nyyb/I6Mkpup44MPlIGqdVDzwwcy2hP4
8XeAizJcFe6xai0hxlPjLgjnUAapj+QYngoyonX+e8xlogTuHOksAV/JiKXR
bmj3+HZgTcsesftDRjqc3mMnLbaCxo+it2QSBQVGtmLhHVshMseqSVOagviT
Ez25ObZCX8DyuBWZgqw464fyihUgRF5jc/RmCqo7osFcSVWAtktlCRtUKeji
Pl6PirXN4MXz+UbfUQqireQ3VHXKQZZ2s376DQqaup6zoeCDHLRZsbCy3KIg
vL5vW+dDOWC5qP7pTBAFWX/1a/h1XA4cHz/SpN2joHEu09cRdTSQmnPcmZpA
QalvBkPdqqgQkzFLevqWgrJfqFTfHCTDDQ6RyccjFKQcxXgiVkuGXBn9nJVx
Cspw1N/Xk0uGDjU/N5spCvodond+9TIZ9jp09ZEWKehJ5kU1F3YyzHzIaE9k
oaKNJH1/17My4OahXh4vS0XyYhGzbnaSYNZoGRd7gorGTv97dFVVErQ12yM/
WFHRwaqm9GoOSdiVbRHaY0NFnKJO+3YVkEAw+ETAdkcqundW6p80LwmaD5i5
VVygogW6U+tCgzgcf3lMc/YuFUlOPLRiuSYKxuGHBkyLqUjO6snNUktROPi3
stu3lIp4NKqZXqmJgrKb7s8UTEWRZ9LfqTJEgFdXp3G0ioroM74xNS4i0LiC
3t/+TkUldrsbGk8Lg5GHZnj+OBHPOvWRtI8gHD2iqiYoS0NC5Xe6qy0EgXrD
cewBlYZqlZTLs9UFYel1dKrEZhpanLvRKr4oAJkiU/wUJRqysOGOuOcvAMy/
cyd2aNAQ64mcJZ97/PDeZ3OWkSUN6R6i/hrO4IHNGRKk0Ps0RCpb+LXqxQNr
7QbfuGNpaNO5P5/PHeSBFk7fkKiHNFSudu+n9Q9uuOXZthCfTEM7spR+2fFz
Q6dG7PfMHBqysT7wODCKE2KbuSMqq2mIqhY7uOLACe6smroGX2io63Zzeo0q
J6C9HitfGmno/oMwA/Mfm2Ayufbs91Ya6lQJq5GT3wRHzgbr9fXT0GGJUQup
ZQ6gJBWuOQ/T0G+lbUwODRyw1DhQMDJKQ2o2qiFfr3JAhpoObXqahuzGS22W
jnLAdddLHZfnacjW8bnqOQoHmD56Fr20REPqvonh2xbZYWtDk8H1VRqy/yk9
sKuB/f+/X4L+H8YPqgg=
       "]]},
     Annotation[#, "Charting`Private`Tag$2419#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f2(E)\"", TraditionalForm], 
    FormBox["\"(E-\[Chi])/(kB T)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->Automatic,
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{286.66666666663883`, Automatic},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotLabel->FormBox["\"Cold\"", TraditionalForm],
  PlotRange->{{0., 0.9999546021312976}, {-10., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.944726096736454*^9, 3.9447261327792253`*^9}, 
   3.944726228469714*^9, 3.9447262858241487`*^9, 3.9447263505998015`*^9, 
   3.944726392439502*^9, 3.9447264503183265`*^9, 3.9447271321422157`*^9, 
   3.944727165871296*^9, 3.944727228650723*^9, {3.944727259547988*^9, 
   3.944727291599734*^9}, {3.9447291921691575`*^9, 3.9447292283915205`*^9}, 
   3.944729725124753*^9, 3.9447335004062777`*^9, 3.9447376272093554`*^9, {
   3.9447376670061026`*^9, 3.944737692477145*^9}, 3.9447377789143734`*^9, 
   3.94473801123389*^9, 3.9447381815036*^9, {3.944739773242612*^9, 
   3.944739790336426*^9}, 3.944743818274161*^9, 3.9447440353720884`*^9, 
   3.9447776598074875`*^9, 3.9448048689845686`*^9, 3.944807038304536*^9, 
   3.9448215008772726`*^9, 3.949968973975144*^9, 3.949969318643048*^9, 
   3.949969349394204*^9, 3.9499694617943635`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"c6fd5259-0e11-4860-a59f-0844546681ba"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJwtmXk0VV/4/++9LgnJmDHT9YlMCUlReyuZlShjg4qUMlQqc5SEzHOGEpJE
GTNmb/dQSEVRiDKEkCKETN/z/f5+55+7Xut51vs8+5n2uutIn3a3cKJRKJTP
VArlf38DLdOEju32RZT/e2RxIN6Q63PIF51PaKL1LjNwoHOv3RNHX/RBPpa1
cpGBKUvBzjujfVH2YRlOjxmSb8SfEBr2RfrZepv6R0jmyLswHe+HIvTDlPBb
ktsG1hxX/ZFQJJ9tYBoDQ4fuI9HBgUhF9L8Syk4GxkyRtnNxgaj2wjGBe+ok
bwsuM8sMREYv469tVyX5umDfrtpA5OhA0z69ldTjO1SQPhuI7uV+IwgxkgX5
LBKcgxBdPbUzhEJydkl8pNVN9MVk4yJXiwymnDM4+dYuGIX6LwKR4zIYx4gt
PXUJRkeuDzlO2MpguBRbnOQTjKQuvQ17aUXagzJiY1KDUZXjw4+nzEmunRMU
+hKMxk2MnPP3k3p7nlCun7iNTEXvRWkrkPZL7YJMtxC0sUKr7/i8NMbHe2yS
KkJR0tR1n6xYaQzNHOUcW0LRfj3LpOAoaUyxrR8AfaFoKlml5Oxdkg82QmmW
MGQMhscUbkvjQM6flRGHwtBqpIVtqRep5+qltHEiDJ1VVNZqOEnqQYut7Mp3
kebZwblhZdKeJrWV+1sk6vxiemlrixSmPA8WjpuPRLk/k36+fiWFoXWC71ae
KOS10u98liD5d39nnG4UEpe8eiK7lvSPUnM9/CgKnT6dYbL5OWnvSv8Q7hGN
pn5M/sebIIUd4MsWhbsxiPNvVM/CcSncf+3qj0OH41CQVNadmCFJLJVSw6Zz
Mg5lxaWx6PZJYocdJw3VXOMQk554Y/qTJIZFF833hMUh+tid6xYtkhhn8G97
Vx+HQotdnQWKJTFlIZFrQCMexezbZZASQPpnm0ssySSgTMc2tkwR0n831S9M
KgnV5a3efn5IAmP5I/WpaklIPrETdxlK4H4xe2q1XhKKDypYou6TwA4tx5Jl
ziehc3Z2l45oSGAo9Fs2oyQJ8XK9OLYoTLL/uBQ0TEaO7q7q+wc3Y7zUuCMo
IAWt1+zt/+S5GUud41QWFklDR4gq7dV74hjKrZZEqaShwDNXHA3ixbGDgYOA
oF4aKmBRjoyJEMf9I6diDrunIbpe5leZG+KYwn42IPxVGiptCAkycBTHgaHs
TLpXOuJ7Zfk6RoXUo/1+e3I0A7U1TVowCDEMxZIVfvllIrN30i6GP0Wx1P2r
ReZ12ahgoW/6ir0IxrZb6x1/PEaO5Quq7/OE8JT6k7OuVwpQcKxzMyf/JvxD
PbBW/XURYjtxq2f/bQEcM3JH89VYKeqvXcl62smHvTITY05uqUAy2q0Ns/t4
cV7yYZbo0Wp0PfmP9hfxjbhrvZP96uM65P5/A8WJz70dNCHK69BlDkqkfgUn
7hqQnwwm6tA1X9vdzfmcOE/x4/TK1zrkd5wr8V0sJ3bw4XjTIIhQqPRl4+6T
pL/Dy6j4mwhlPtlT/muJA/due33voBJGH6o6wkU0OLBwJ+E/qoZRp4KKVroc
B054y2/nvwujrrQ7wxJiHFj2ruGbB/oYffXfDWVpHFgLBuyqc8BoQjdzTqVt
PYYKijZWCRjRWy446F1cj83l9mWnLGCk2UPTdM9hx1MG/bt01jBqBUKnhpLY
cV4ev3kPaz06/UgxwjqMHeud2lPCyl+PojyODAI3diwuY24kpFyPhtlyo3i0
2LGs/M5Dgg71KEHdaLT4zTq8/CVdYBbXoz8R0Smzf9gwfTDjMvNVPQr9k02c
G2bDbaeud4e21iMJm8pfvZ/ZcNF+v4srn+uRMWNAr7GWDR/r4D5461c9elil
Np0YwobNnR4N/RJhIvORTqOdoqRenWXl4/NMVAjEl7x1WbHHqJP1iisT7dVf
Uu3UYMV6N2eijC4zUZtpz1lVeVb8XWu9d6MPE/2xTfkwwk3az5/nMbrLRJqe
AvmWvXRc+Zfe4ZrPJOeFy1b5Oh3n+fbkMZ4x0aHnE1GhLnTcuvtM57tiJuov
b2kYOk7HP68fH6JXMRGNCFVN1aNjU77MmMlXTGTQR2dfx0fHHRmOf+73k+/n
XXnRX8CCf4xI3c4cYqJTwr0/tTNZsHhGn1TSCBmPRI1McjwLlipY23z8JxMJ
KHlHmfmQ/uo8n63nmchWf86p2oAF+/0ztptfZKJx0440QW0WbDhcszt8mYn8
LEvbPVRYsF5+cm0YlUD3HS7tkRNkwb07756Z5CDQoM+kQMIgDZf94vX4bwOB
rgS1Gv/upGHh5ShF840Eooc+DTRupuH+/jxrf34CbUk8/5NSRMMaD83TbwgS
qCLNUOZYNg1H0Fi1PIUIZJglZ1ORRMN+wzbiGmIEcnk+TLj607D4dLPWmjiB
lsobFps8aDhHdcKyVoJAEbXZ22QdafhYWpoylwyBnjWfSusxpmHVVRYqRZ5A
M0N9lw2EafjigdEmz60E2vTt+pYEDhoO/aZm2qVAoN09vD39y1Q8K3uF/4Iy
gW62HdD1GaBiHe94iVQVAuW++Tb76iMVCx/0vFKxjUAtr7zz+F9Rccf9h6G1
2wnE97JwY2E+FbfJLW3MUSOQZqUBsZhOxcFqqu7e6gSyKx24ph9NxZlG9WE6
GgQKeOarEB9ExQXOyvsnSX74RPDrtyukvvufgLs7CNSQ8zxW6SwV03MipYQ0
CfTjgdEBbxsqFpDz44whmSttaKHRmIopl7UZf0lWTfIv4NtDxeadRiZGOwl0
JFbI4eQ2Kq6c3+IcRrJXRDF/gTQVe1kdsXtBcvodk9cL/FTc+vooexvJ+Oaw
zwE2Kl5eKT7yieTv/jdU4hYoOIZrRqaZZHZvkcGv4xTs9yvXKo9kJc/SRMU+
Cu7a4PDxCsmH3M2MvN5T8GxruZ8iyZddRpcb6ilYgPeA5nsyviSnoCLeMgo2
fVc0dILkagcxxxO5FPw9IetcD3ner/blQk9TKNhQ6k2eLsk060Nv5sMpWGp0
8E4CmZ8tFmMBev4kF+aPfSDzaWx2Sy3WndTf9LN4mcy3m+Hmkb5TpP5unwZe
kuP2V9xTOELBlTpqrHxkfV7sPWx2XZ9C7ocl6xWyfj27JigNWhScubUl8yNZ
31WN22U8ihRcNJpGJJD1l1GVPHd8MwU3OPjlQCUC6StWieVvJM9/vUvVhuwf
0f09rHd+rCHxY89yCDkCnd7F7Sr1dg21thg6i2wh0JNt+zqqiteQV/QWl1tk
P2qJ52f99CHtz+GVZCkCBfJ9XR9ycg0JaL87lkj2bxM73yVJvTUkq1925qAo
gaznvIHFhjUU2OlpvF6YnLeJwtyJ6VXEpe+TU0jOy8jAwIbbn1ZR3gm6fgkP
ga69M+qteLCKWluTrfm4CVTX4L//cPAqkueI9rDnJBBrTXH++LlV9F2z0SyP
lUAJj0W8N6utIk/8vvcpjUC9GWb9Lzatov6qT+wpa0wkmxBkYL60gloFot9t
JfdBaeCY4K2GFZSXUbFDdYKJPthWlfywWkHL55vP3RllIilJr3aqzgoS+PSf
0Wty/7h915wSlV5BPLKZxZReJuJwL1M2m1hGZV8f37F+w0S6wc/zim8so17/
g+HT5D6LMnJ73eK4jDwNjf2vMJmol1t5ZMhoGWW6m3epkPvP614+Y5MAaeeW
HQ18xERFzx7d98lbQjYCXFPWmUy0esXxZXzkEooZ09uxKY2JTHcxegsuk9zz
YLNhDBONEpki33SWEKVNifuGNxNJdKcl7G//h3rlJw/IGTBRJEtcONe/RUSZ
5Nt7DjJRT5P5k/++LaLQmyaK0buYSD5qY9PehkWU84Q1NUqRiRqEI1kvRS2i
yhrQdJibiZaVQwM7ZRaRAO8So+ddPXKxCbh232QB9dJjxS+T91Hl5j2JFaoL
yJNLfPHXy3rENrRU2ia4gEwLzsskF9SjLFfvaVr/PJL1M89+EFqPum96XnT2
nEe9M66lt7XrkWGhy2nVjL8o4SE2FVCrRxFldUlCwX+RxvLhtHD5etRWw/dm
1YVkUKipIliPbFuq1d9q/UXLVgph5pMYuYxysLp0zCF509jgpRSMIqWfPs7m
nEMF7H1stCjy/pdf+xL+ZxZRFHU7f9/EaJOqJc/l7lkU2il/IOgiRvf3LnnB
x7PIVL6K3XcvRkX2JsZ9+2ZRZbDw3egahD4kTvzc5DODzDPf7riVhdCmDCC9
6jCD2M3o2w+EIWSXE3902GAGTaUliGlYITRUol1XKjiD8hpH5l5O1qHZ93ej
zYv/oEDPCY/b/HVIiENJLfzHNOJhV/4ps7sWHQu4eH3FagqFvhifNxauRa/c
NB+/1p5CWk1IbvffGqR6kvI5VmoKtemYnnErrkFsgfKuph2/kZfQTOT2/2rQ
URaviYx/vxDmu8sNadXoz3qhH9BgEmXqrVfLiK9ASkJHB0L6x1CXWcPPXMkS
lLm9/SMf/xA6J8/1T2m2GDkkRZ/Y3z9IzqOrXVRTMZJeMhu7UjiIKCYH9373
KEZZDS2rHQaDqMnb4Ot3VIQeWTdsTfYbQFMqEruWnz1Dlktua5qt31DbO7cf
z7/mobPx2taGl7sR5Wxt3wHre2jTnScbPvk1o0ATj6jbailgXYGlhKplE1D9
9WhJYd09kGd9xN5GsRm0Oe0JiPtyDxiyHE0JZGkBuKS6/MGtNBBuZ8XXXvoG
BDaVjfi03Qdc623ZLgu8B0V/9o3XFmYBdvVt893jH0DXYbttKQJPAFeMxjex
gm4AeV4gBe8noHe4bGWbcA9o8ny8IbDvCSjQ3iGuF9wDKCUDLu6P8oHZ6A7b
i8e+gP7DXlpGagUgau/Oj7VcfcCrce8tFfAchP5NH3qm2Q9sHEVjJWNKAMej
B58PJQ8BCkWgGFeXAFbT8pqXzUPAcxae1xkuAZSZlgeKy0Ogy4ojhrmrFPyF
f53XnfoOeLZVn6QNlIKhXtOFOoVhkLezO0tIvhzUCvwTVqkbAR3nCt4vJVUA
9+AjdlzDYyD4gmSzV20FcFF02esjNA68NPoUmwcqwNkPN2R+GI2DBj9J7yHF
SnBM6uk48WwcBFZs8Vh8WQkMa6m+vl4TIOFRhtqd7iogM/ssbZxzEqQo19hr
TNaA8eJgN0eRKSD/o+mT98ZasC9dxKlSYwpAy9bV29trQWrIM3su8ynQph02
Nu1ZC4ztuwzLQqbAxa/PLggu1oJ8uhKDPjsFLJx2OXj9fQkuWH/8nP1uGuxT
g1QJwTrQoHvu3fzYNLCKe80dpl4HxJVWGkxY/wBa+0H43L0OtFLkSma0/4Bn
sYqju4frgFK+T8T+J38An7LHbaNGBH4uS+sO3ZoBOtUMo339COiNvti588EM
SDIdlaUsIZDebqJyt3oGfGcdThoWwsA096qY+vQMiOat9j5kgkHhoea5mydm
wdjmydKHBRi4ZXnky+yaA32R3zQNKzF4FcH68NqROaDrwQxpJzCQuJ6a3OI+
ByKEOJ9G9GDwzqQh+HLuHLi3tWPsEVs9UJkTOsnk/wtu8weHXbStB78NEP/p
X3/B7L7hI5vO1AN4ptlCc/084DDmTMy5WA/iAj7GcsjOgyN08xy3G/VAs3x0
Y6ntPBC7ef1MdXY9CJDh4aI3zgNlk/7LOqP1gHvFgZ6btgAGXbI/qP+uBw7C
F/b7vFgA/+XWhfHM14MS9as3D7YvAGX/QuDDxgRWLmGUebZFkCtwK5tHlgnu
fy5eNri8CMaeBH6wsWMC5RLa3JjhP/BfAGtHoQMTBLzl0qg78w+s/MVmY2eZ
oO3HpitxAf/AN5dTi/xXmMBTUnF6d9k/cPzg1XO7w5mgNsJy8q7kErh2xvdU
YzQTcOcdV3LYvQQs1kdf25nIBA6E8wWNo0uA+7WscfsDJqD/8x3rDV8C3o6y
c32lTGDqnDOs/HcJvPLyVcypJOO7+UyWxrsMfCxTlSxeMsFURuWZT4rLQGfX
1TGnV0yQ0NE6EHBqGYRbXH7r9pkJenXn+t63LoMbk2+7rn5hApXja+I5o8sg
iEXA2ekbEwR6rT/mRVsBlEM/XVZHmED2+eYeKa0V4Lj+SIHoHBNcENf/dCl7
BZzlEdVWXWCCV3PVa9drV4Dr3VMUtSUmkHm/bWtA5wroH+UM+EchQFeQiF/4
ulVQ3OVyop6FABr2UY9ipFbBNvd9jZ5sBIjWYHmftGsV5OhLXn/ISQD90Z/S
2RdWgaJ1ybgoNwGy8CmTJ8Gr4Fhj144gHgKs3Pvk+TxjFZyiluYICBKgzBS/
rnm/Cj6ebZa13UwAmZJ41w71NWC3UJigLUmAgLvsyT2mayBFyDKIU5oA3Y7+
uN9pDRiu85f1lCVAjJAz/2TyGkhHv+kbthDg59QXnZmiNfCHsloeL0cAgxbz
s4vNa4A+YfDVRYEAq367q1iXST3mmxs1igRQemo9fZuDAutKfPT/KRGgR4iP
bb0QBeq/jTWQUyFAaHCraASDAqUvWKfs20YAzemQbRtVKVC1SfSgqSoBvh/X
1YvTocCRB+oBetsJENeyZCNoRIE3e39mUdQJMJntcVPsNKlHnGE2kJzKo5h8
340Crzn3Fl/XIICh//BTaV8K9DP9GCKygwB/xx7gnDukv9obq3ySc6zsOuUS
KPBFhelOBU0CWBAC4/mZFNi0MrznHslr296vKhdSYK6JQuA8yQXpYfzFVRTo
UVrMf2AnAezW68lrvKLA2Qph7psks19b1an4QIEKM2vBz0h+MVh5ePc3Cgx+
yRnVQrLjoStnX05QoPCnob3k/wHAW6vsCxcoMIlTvbCd5Dr5H9EEnQp5RnJ/
1ZJ8MTErR5+XCnMP/xZOIVmUdryqeTMVDhnV6Z4huclN6J2pAhXyhrwOkCD5
2pf2wfeaVKi3BQ83k/HKGkbMW+ynQoNTJyKcSP5Qps/16RAVWqjbhk6T578h
TZW2PUaFCRvO/XYlWSmqZkfvOSpMCdn3uYfMX8+/q8Ynr1KhHWfmUS2SQ51V
Tw4GUeHp2J2BIWS+NTvGrzhFUeE1I3SxUY2sF3wU+iOVCqHlT9W5/61X4cmM
C49Jf8ySLEfWczKk49UlTIXG580dFch6p85EfZltpcKv9mwOEmQ/GDoYTV3v
pkJzVttdPWT/5OyqEwn4Q4VuOArcIfsLFb8s2kihQZ+F45CxlYxv60uDhxto
MMuFM1Oe7E8e0dqrDfI06De7vCOO7F/FuBouK00aLGsv1JiQIeeHoyZ7dD8N
upmo9Fwg+9/vX1U7x0kalPDurYgn5yP5ctW59Is0mHyc7eJTMQKUjFeuKfvQ
YAObRmO+EAF+9FQoH06kwdJ13Zo/yfk7UlMelvyGBuWd/BsSuQjgrl4utbWb
Bl898aWpchAg/GlZRfUIDdbWly1pshIAp5UO91FZYJrh187Yf0yg5FesK6vF
Am2HrJLiBsl9tqdwsSiHBYo+fPPSktw3kuUFMftKWGDvQDpc18sEu5UL5DoQ
C2Tu2VJ/oJMJPDY/PTrfwwKrJzaGMl6T+2slr3gPLx16c+xv8spjgrK6nPMt
/nS4yeT9mws5TPBeM4dy7C4dtoTbv7LIZILxZ9nJkyl0aJc1Ql9JZgKpB1mN
PGV0WPmm4HRjCBNE3MiUth6nw8A8QlP7NBOcgendQ1assCKQltFynAluCrU7
RZ1hhV725l/MbZkg6xfrHy0PVhhiVqC8z5wJBtPdOaLCWGG6aate9R5yfy/u
09aqZYVCSU/6eYSY4ETJWHqENBtsW+d7upuoB3ayOx12/GSDlampUk/W1wML
9g8jIUHsMGaz3aU0FvL+u66bPB3JDg37HguHrWAQMVpkcCyVHf7lGcuymsag
8VV03vZSdqj8i0+htgsDrdtmLr3f2aHam6fjtbkYbKY1T243XA8185d/TAEM
fiyh2V5uDqiw3iAj9mMd8P9dSFNP54QWp249l+OuAQvFrc9v/OOGiUX2XwcS
KkB7qnRn8EZeuDplFeG8oQwcMl4VTSX4oNFq0PER3mJwtidk3Ts7Abi8Ulrk
/acAiPic9mUbF4TCSs88+Dfkgat3vu3cmCYEPy1mt72RyQEuV9nTNLeJwJHV
q/YM/hzQdb/Cm1tTBF5psC6/zZIDDJrO2ozoiMCt97WZLt+zgaxYo2CSsQg8
4BZbWp6bDb7ioJg5JxFYf37fbWPlbHCYa+l2WboI5GQ8o5juywJa2ZMeahyi
cGf3fwfDwzMBW/sHfZVhUXggnV8w3z8TlOo/2DkyIQrjiDesHz0ygUPtBfn7
f0Rhk3+QObTOBNWP6RzcFDHotN1s9Y5sJnAN0Hw7KSoGM6t7nkYFPQAdiqmW
heZi0LLU+knjWgbICjnloFQrBs9XDupNqKQBoDPlrRAvDg9XsDcOiKYBt1PW
w273xOHFdAfuEbY0cD+kzrz0gTgU5ubuE/qWCpbbIuR0CsShYvX9SMmYVFDt
tLXTrFEcFnd+tK+cvQc0ok+rXpoXh3DPLeHu1ylAfrBjpMJ+MxwMCqnZmpAE
+EKrLA/ISkApy1SWiaAksKC2n8KrKAGtWH7rVrsnga99rQW92yWgYxm3302T
JJCv3s/qCSTgzqPDA5UsSUD3G1tllp0EhEPuJ8qvJQIPzSPilFgJKF01q114
NgG8//7re/WKBJx6LNSSezEOROjKXlP9LAmdrHW7M07Egdk0w4zQPkm4HHlI
7oF5HDj292JD/5Ak3FDF64Q14oDy03K+2ClJmDtfkO+3Egucw7M/L9CloObC
v+BPMbGAfVbD01ZCCrZsVbYZqIsBxq+tC0UPS0Gz3+/Ke1yjwHvXDMmMF1KQ
bybQdN4qCsjo7tWpqpKCAU9578jCKHBN4JtNZ60UpLXz1RTxRQHxGqm4DYQU
lGTHI1GVkcCFPYce8F4Ksl1eemizLhKwZuePnfghBb1tGiM7i+4C7a6KUilR
aaidYb0mtz0MPN73wSDHXxpy3gu66iseBj7Z0FnpQdLwv00XXL+tCwN0d03m
mWBp+JjvV1HX11BwOi1Vh3FXGjZuvKscHRkKxGdPb89KkYYjf5vMqL/ugLhH
M6KZpdKQOiBmklsdAvzZBX+ljUnDig/opmtgMLB8Z50Qf1QGbtqi0vTIIxjs
0/kcVWUjA7s/t/wecwgGavlWYd/sZWDO0StEom4w4As5GqB4WgaG5U9G+bAE
gw97LM8RbjJQvrXM/lLYLXC48KDOzB0ZyIjR29iTcRMcijjw3aJaBtI23dzy
ZSQQmBira/BJMiBPbf6qQVcgkPE/PZEow4Afv3dvq28OBAvPY7NEtjDgZzaO
q10FgSBXcIpHWpkBo2LCLt+7EghoAwWT27QZMPSvRuwxlkBQeX3LYzNrBqxP
O6JqYB0AtjwSEQ2LZsAb74d28e4JACufDdu54hkQapyNnJYJAB0cXqExSQx4
MZnaPPvLHwR5fPqbnMGApY+aE1hC/UGvdvzH3KcMuP3205dqdX4g/gNXZMNr
Bgyv1pm0eeQHXFh19AzfMOBhvzmDhAg/ALUuLL15x4D9R9btMrb3A78yms9/
7GRAV2odo3jRFxifD9EfHGLAox17XwUM+ALp9PIVp1EGfFmVuP5Usy9YePe9
bGycAdtXU1TO3PMFjzT2M6anGVCy79Cvm0G+wM/5co/nHBlv9TRHxXlfYJH6
MHZhgQGdI3OurB32BVvfthn6LTPgl//3fRX8/++r8H8ApkN9QQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$2955#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"f1(E)-f2(E)\"", TraditionalForm], 
    FormBox["\"(E-\[Chi])/(kB T)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->Automatic,
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->{286.66666666663883`, Automatic},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{-0.1501415170241528, 0.1501415068702705}, {-10., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.944726096736454*^9, 3.9447261327792253`*^9}, 
   3.944726228469714*^9, 3.9447262858241487`*^9, 3.9447263505998015`*^9, 
   3.944726392439502*^9, 3.9447264503183265`*^9, 3.9447271321422157`*^9, 
   3.944727165871296*^9, 3.944727228650723*^9, {3.944727259547988*^9, 
   3.944727291599734*^9}, {3.9447291921691575`*^9, 3.9447292283915205`*^9}, 
   3.944729725124753*^9, 3.9447335004062777`*^9, 3.9447376272093554`*^9, {
   3.9447376670061026`*^9, 3.944737692477145*^9}, 3.9447377789143734`*^9, 
   3.94473801123389*^9, 3.9447381815036*^9, {3.944739773242612*^9, 
   3.944739790336426*^9}, 3.944743818274161*^9, 3.9447440353720884`*^9, 
   3.9447776598074875`*^9, 3.9448048689845686`*^9, 3.944807038304536*^9, 
   3.9448215008772726`*^9, 3.949968973975144*^9, 3.949969318643048*^9, 
   3.949969349394204*^9, 3.949969463101036*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"c8a49221-1097-465c-a8e6-7bc48cee2b54"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"p1", "=", 
  RowBox[{"ParametricPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"Exp", "[", 
          RowBox[{"x", "/", "2"}], "]"}]}], ")"}]}], ",", "x"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
    RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"AxesOrigin", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0.5", ",", "0"}], "}"}]}], ","}], "*)"}], 
    RowBox[{"Axes", "\[Rule]", "True"}], ",", 
    RowBox[{"GridLines", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "10"}], ",", 
         RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "HoldForm", "[", 
          "\"\<\!\(\*FractionBox[\(E - \[Chi]\), \(\*SubscriptBox[\(k\), \
\(B\)] T\)]\)\>\"", "]"}], ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
         "HoldForm", "[", 
          "\"\<\!\(\*SubscriptBox[\(f\), \(1\)]\)(E;\[Chi],T)\>\"", "]"}], 
         ",", 
         RowBox[{
         "HoldForm", "[", 
          "\"\<Hot(T = \!\(\*SubscriptBox[\(T\), \(1\)]\))\>\"", "]"}]}], 
        "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"14", ",", 
       RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
    RowBox[{"FrameStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{"Black", ",", "20"}], "]"}]}], ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "10"}], ",", 
           RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
         "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}],
           "}"}], ",", "None"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", 
       RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.9447251407577896`*^9, 3.9447251470674176`*^9}, 
   3.944729741981206*^9, {3.944730290621894*^9, 3.944730308346714*^9}, {
   3.9447304392603784`*^9, 3.9447304448833427`*^9}, {3.9447305284014635`*^9, 
   3.9447305825480967`*^9}, {3.9447306796147394`*^9, 
   3.9447307114904304`*^9}, {3.9447308566121407`*^9, 3.944730865426332*^9}, {
   3.9447309587322206`*^9, 3.944730972242035*^9}, {3.9447310485201597`*^9, 
   3.9447311331275587`*^9}, {3.944731390395053*^9, 3.9447313920916953`*^9}, {
   3.944731467060852*^9, 3.9447314867952695`*^9}, {3.9447316694560843`*^9, 
   3.9447317179187937`*^9}, {3.944731759094715*^9, 3.9447317969055214`*^9}, {
   3.944731881802964*^9, 3.9447318996415725`*^9}, {3.944731960979262*^9, 
   3.944732134517093*^9}, {3.9447321717688627`*^9, 3.9447321832731714`*^9}, {
   3.9447323081310625`*^9, 3.944732310018256*^9}, {3.94473234567665*^9, 
   3.9447324179072948`*^9}, {3.944732509432809*^9, 3.9447325560477734`*^9}, {
   3.944732721892231*^9, 3.944732762643282*^9}, {3.944732851404483*^9, 
   3.9447328564457464`*^9}, {3.9447329153125105`*^9, 3.944732938417075*^9}, {
   3.9447331670428658`*^9, 3.9447331793235097`*^9}, {3.944737606232567*^9, 
   3.944737607805642*^9}, {3.9447377003360333`*^9, 3.944737707814047*^9}, {
   3.944737850801756*^9, 3.944737861213563*^9}, {3.9447381446544847`*^9, 
   3.9447381481490707`*^9}, {3.944739686944812*^9, 3.9447397064549503`*^9}, {
   3.9447773417464886`*^9, 3.9447773532828197`*^9}, {3.944777456616493*^9, 
   3.9447774617713585`*^9}, {3.944804781930406*^9, 3.9448047865123425`*^9}, {
   3.9448070080888357`*^9, 3.944807008815299*^9}, {3.9448186971050005`*^9, 
   3.9448187155518665`*^9}, {3.9448187736064577`*^9, 3.944818843207303*^9}, {
   3.9448189864489145`*^9, 3.9448189877331924`*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"67b2613b-467a-4958-9047-a75dd687549e"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[1.], FaceForm[Opacity[
      0.4]], LineBox[CompressedData["
1:eJw113k01dsXAHB5RNFkvrfLHb4qRSE9eT9e+4iQVMIjUzKnMqRBnrkMV083
U8JNmctUUZKoThGiIiFFyFTC/SJkCL/7e2v9zlpnnfX56+y99l57ncN08jZz
FRQQEGjg7/+dvVrCkiqvSBD4dynijxKTsIxvj8Q6wc5fBB4Syd/XVkdCs1Kc
8KNZAsuECy+F8J11iCXm84PACq53mt/VkmCQpS/TM0jgYspGWe8aEmIMolXw
GwLD31m2V6pIkL0sYR3KJXCQc0Ld0SckbKNuKBHYSeCOoa5TSnxXnrCTStEg
sGLC92GykoS9TxLOqasReNgq91Aw3y5HBbWdNhP4HN21O7mChJTc7qqq9QTe
5KD/pbqcBCGN1NZIAQIf+MZy+llKQse+NbPi9Sz8sTpN9EkRCeygWaDYs3Dy
IzXNQL4t/Ppchq1Z2P35DnVtvhmn3kQ/sWTh4fApzqNCEspdMt47mrKwRR1l
4F4BCd/37XXP12PhmmNXPl7LI8GEmsLR3sLCAQmm9X/mkLCmTOuz/U8mPv9S
NbOHS0LSmN/fmXFM7O+w62wC33r65knhHCY2Kbi8yoDvsWvbStz+YeKWYbic
n0qCMQwMbYlg4naXTdU+KSQsXjazvn+eid0TYGg8iQQ35a1a1Q5M/OygZMvL
OBI03XqnBrYy8bjQsa68SBJaO0xOba5nYNuKdQX6fOeOJI3U1jDwZp9Uxe4I
Es4v9Li7VTHwrRVIXpJvGv3skaxKBrbOT5D3u0iCk1PaPvm7DKzq4UdXDeXH
9210w7pEBm7wLTWw9ydBbJrzacaegaMnlD0zj5MQxsiMiu2j4/i/LBO38Z0Z
z/1N9zMd27ZYOD/2IOGF0NWQ8TY63jXX8LPpGL8+Q1F+ZvV0HGJw6cesG78e
xZ7uUsV0/FH+x6//OJMQu/sPw+RgOn68v/Giny0J6S5Ny9MpdOzX6KLWYEzC
09uLEXcPKuCfS4f8NPhWutqK240U8BSi7ubuJSEhrHB+2W4F/KL2kaOHEQnH
bGxOWexQwJqT7KdLe0hYJ/7QblZOAZu/8k6W0uX3k7enhl6vPLYzlVvTqUnC
Cs3OnrYz8lgrokW1gcHvj6py7cUUGp7LVyiS4jvU+bSLYQINn7jnmGJPJ6Hw
t62XY2NoWD2f8WRUnp+ffnoXK4SG2XuubRBZT8L96sgwQxcaXhuuRFWQJkGi
xrw2dhsNK0+7hX0UJaGpbtSMqFqPP1SMt5/k8WD/W+ZxoxEq3vS1NiptlAfT
T5Gc8CAVb7g+c+PNCA/S7zrUPO+m4tiOt0IqwzyYiE1jab+n4vma5VlfvvIg
2ZzSsfUxFafivLeqX3jQ377WRJJNxRW5G5Ys3vMgsG9paxdBxeeNcr7nl/Kg
cObz+GlbCs7VH3BOe8CDm86fjuRZUHCTDHvllfs8iH/b1tC1n4IvOaV/9i7m
wfnsxpy9iIKNe+5d2lTEAz3T59b0DRQclzwe4JXNg0+3sp/X8+RwrIlZlGU8
D0StTsQxL8jh18ssuCdP8MCldEat8bYsXnhGddY+zoMWHxvifKYs3nU113SF
Bw/2qFRKM6/L4uaOgdRMNx5szAqZ870iiz/93tNZ78iDb7HLq2XOyeL55JHr
41Y8OHlSyuqInix2o1/fnqjHgzOEWtDoZxms62zOXC3Hg/A491dikjI4Y22n
2cjDUVh+5OInvQgpnLZW65/4P0ahp3Ihs6BVAucUVBSo3R0Blvbr6snd63Ba
9HRpzeIw+F2b0O6grcHCBpkhIxrD4P3vwBHDkwuXyEXr76D5SVDTO1sUH1XS
PHbRZAiKgDbvryuMmbrEuLb6N/jR99nXUE4Ql1IuDB7tHIRm6/KSb5YLz5qS
pzijngNgVHTcSS1t+tlaguuSutQHdsEn/RYsx555+Zp3fbXvhXT1d+8lJPue
7ZNXSato6AGZqLxVbYGvnlkIF/TJBnSBSKG5gpp5HWRkTal2Ex2wMufmh4PX
+oA4eRpK5Nvhe3G4lwtlDA7eGN9rJNAKpOEzSSfeNFD8GAsSSs1wgmbQdipr
ARoDNqRO+jZC9h9PKcETy5Dec8W+9OJ6cEbXP/ZZCqOJ+mjOI1wDZqLNg5Fh
oiivN9il9nAVBJFFghrXxZBYbKWrNH/MzxS/vhsytxrV2VQX9DIq4F0qszV8
zTq0X2ZjuqPjQzhovEhNrZJAlKMW6VFZJeD2KVLkrY0UUg7EIRJJJTBgZDm0
0lEK6b52tshll4BL2YYGQ3cppKfS/uqbZwk4JlZznp+WQpcCT9q3a5WA3QFB
mdIYKeT4Iui7fVMxmL8IUrz+VAoZau6a6BEuBpR/Rvc4SxrJ+W+e/VvyLlD+
dgpY/l0a4chVy1vm7sABL4sb9WPSaKX+OwfovQPhTgbPOT+lUcwqboNJ8R3g
GW8RkRWWQUaWKUjX9A5Ur5+I38SQQfejfo+LjCsCnydh+UaWMshz592dGsxC
qBXI+HjphQz6UXggI9c3D85Gde9cw5VFp/tlE5Mc8kBF+WSrQ4YsGnF0WZto
kgf9b2d8792SRR4V7ItlG/PAQkbizqEHssgq6YPbzY7bsCNHXzHxjSwStvGs
Hja8DRMv8tZSBOTQ78mapTpbboHP4ukhlqsccnjvcXFOMgeOnxXlaqpSkCSu
iy0TzIH2G2X+qzUpKOxs8sYL49lgWOd2eFCHgsa2rXsJjdmguP6ldJIxBX1V
/vO57T/Z0IXDYqdcKUi0Zr/b6uXZcEh8PuLBdQqyiS/+QRPOAq2sUZ/tK6mo
uuhIfv+mDFj+rtlg2wAVhW2vMl+gZMB9g5s7B4epKMTBuYshngFHK08o3Zig
ItrXJj/2WDo8viW0crXAevS462l3e3k6eAZrvhmlrkdL9uoP/Q6kQ4tyqnmR
6Xpk0vxQZGzxBmRGOh5VqVyPDgVbVb9e4ALojPlvSaAhCcUv9qHfuODlaDXg
lUJDBft3PNJ7z4UbkU9N79+koUJ154uzt7nwqylmk04hDSWyo3Yz/uLCY9fN
rftf0tDv5yN5pvdSYccVJ7VTP2ko40tj7uSpFFDqbRkss5VHczXxr0QY10CC
XW6+R1EBCZ/Wt+sUvwYz2/UE1ikroJ7c1LN4Ngm6Pr8u7FRXQLbZNuJl75Mg
X6NH+AwooAsDi4F27CTQ7V7+KNNGAfm3HqIFT14FH00LmkCcAroS4RvZ8CER
Gvt5/Y8XFJCgmZcfqy4eYnQVz6l9oKMKesYIuzweJrlGaezPdNShsiNiLj8e
7KZPVvf00ZGeSfPS4uV42FpQKhE3RkeaUuE7Yyziwf1S1ocZIQbSHEC37vXF
gejkjjPWCgxULyNq+X1FHBjXWhVRDzFQW9mudePfONDomUZPe8hAdsHq/Qfe
cYClu0unvJyBQlKSLzwt58A5qe7DrZUM1LKsb7T5EgdoFYz4VVUMFCuiJt24
lQPHRbOFghsZaNdoov8Kv8sgnJU/dOQbA2Uqnp7aJhMD2u1l9xlUJlLy4FC5
4dFwa3ezYXYQEy0ZsPc4eUdD22EhYaEwJmIsSnb9xyYahLw1XziHM1H/LMFg
qEWDEzdVh/iHiaasjFzKO9lAm3RSz0xmoqLLYyT1DzbE5/ygpt9nottZWsY6
i5EQJCrN4w4x0cBIrsWWsnAwf2uVmPAXC7UpupSK3wqH3TofOOWHWcjVXypk
PikctudbRnfbslCT/OCmxXPhIBH5V7CyEwvZ9Q3XJ+0Mh+Y/zY9VebHQ7asO
e1dVXIRDRQd0fkSx0MKTKdmm+gtwMGZPv9ljFlq0fej4SiwM9hlr7JCgEyi+
1p0z9SsUWEFOw1dZBFLVtYvYxguFmbtxmZSNBHouWJpb0xQKudJja5lbCbQn
LyuakxQKgl8KR1W1CbR9/8aw04qh8Mhv4639VgQy6VkpkBAfDBtzKNToKwSa
r+RqTPkFw8IHo3fiCQT/kTDh5mUfDC0rz7NjkwjUVvQgOEcpGMJ82qavpRFo
2bJQM0UcBJ3aCe9zCwg0uPTlqfmPQEhoFr9cXUugiR6RAdqnQDgurKNv1EAg
KyZ8nMeBgLROzDe8JZDY8eQvc5xA4KW98njfSqBG6YOe88qBYOwRadDbRyD2
7ZFFH8lAYF4vXXD9SiDK6qSG+bkAmHnb/2DoO4GiXPPemNYHQM4OPWJ8nEAz
h0W6qSUBEOju++nMFIHUxaz7ZlMCwCw1I25mhn8/flI3GhYAm980GQX+IhDn
inPQtEfA//8n6L/blRgJ
       "]]},
     Annotation[#, "Charting`Private`Tag$2985#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
      "\"\\!\\(\\*FractionBox[\\(E - \[Chi]\\), \\(\\*SubscriptBox[\\(k\\), \
\\(B\\)] T\\)]\\)\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(E;\[Chi],T)\"", HoldForm],
       TraditionalForm], 
     FormBox[
      TagBox[
      "\"Hot(T = \\!\\(\\*SubscriptBox[\\(T\\), \\(1\\)]\\))\"", HoldForm], 
      TraditionalForm]}},
  FrameStyle->Directive[
    GrayLevel[0], 20],
  FrameTicks->{{{{-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}}, None}, {{{0., 
       FormBox["0.`", TraditionalForm]}, {0.25, 
       FormBox["0.25`", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {0.75, 
       FormBox["0.75`", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}, None}},
  GridLines->{{0., 0.25, 0.5, 0.75, 1.}, {-10, -5, 0, 5, 10}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{14, 
    GrayLevel[0], Bold},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{0., 0.9933071490757153}, {-10., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9447297428352966`*^9, 3.944730310995549*^9, {3.944730542811064*^9, 
   3.9447305838307276`*^9}, 3.944730682725486*^9, 3.944730714695348*^9, 
   3.9447309741296635`*^9, 3.944731080209713*^9, 3.9447311244562035`*^9, 
   3.944731399504337*^9, {3.9447314809808226`*^9, 3.9447314875857477`*^9}, 
   3.9447316730092287`*^9, {3.944731708538824*^9, 3.944731718687784*^9}, {
   3.9447317874591427`*^9, 3.9447317975496626`*^9}, {3.944731893100461*^9, 
   3.9447319006574144`*^9}, {3.94473197446482*^9, 3.9447320206187944`*^9}, {
   3.944732063659091*^9, 3.9447321070713897`*^9}, 3.944732186495548*^9, {
   3.944732402839855*^9, 3.944732420564096*^9}, {3.944732542581579*^9, 
   3.9447325582114997`*^9}, {3.944732729702482*^9, 3.9447327634968443`*^9}, 
   3.944732918938817*^9, 3.944732949852729*^9, 3.9447330759452243`*^9, 
   3.9447331823133307`*^9, 3.9447335005574627`*^9, {3.944737609665371*^9, 
   3.9447376274822617`*^9}, {3.94473770177514*^9, 3.944737708528947*^9}, 
   3.944737779209201*^9, 3.944737864929278*^9, 3.9447380114535217`*^9, 
   3.94473818172159*^9, {3.944739696258621*^9, 3.944739708807467*^9}, {
   3.9447397735469217`*^9, 3.944739790571851*^9}, 3.9447438185413804`*^9, 
   3.9447440356824713`*^9, 3.944777354642848*^9, 3.9447774642745724`*^9, 
   3.9447776601491637`*^9, 3.9448047878869495`*^9, 3.9448048691526904`*^9, 
   3.9448070385164385`*^9, 3.944818846467971*^9, 3.944818989875804*^9, 
   3.9448215010809298`*^9, 3.949968974153152*^9, 3.9499693188069925`*^9, 
   3.949969349551302*^9, 3.9499694632220373`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"06eb1767-fbf1-4da1-9864-28b01a60221f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "/", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.5", ",", "0"}], "}"}]}], ","}], "*)"}], 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", 
        RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*FractionBox[\(E - \[Chi]\), \(\*SubscriptBox[\(k\), \
\(B\)] T\)]\)\>\"", "]"}], ",", "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*SubscriptBox[\(f\), \(2\)]\)(E;\[Chi],T)\>\"", "]"}], ",", 
        RowBox[{
        "HoldForm", "[", 
         "\"\<Cold(T = \!\(\*SubscriptBox[\(T\), \(2\)]\))\>\"", "]"}]}], 
       "}"}]}], "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"14", ",", 
      RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "20"}], "]"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", 
          RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
        "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.00", ",", ".25", ",", "0.50", ",", "0.75", ",", "1.00"}], 
         "}"}], ",", "None"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Orange", ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9447329829152484`*^9, 3.9447330417128353`*^9}, {
   3.9447334570651393`*^9, 3.9447334630880833`*^9}, {3.944737597143488*^9, 
   3.9447375995252447`*^9}, 3.9447377140325885`*^9, 3.9447377470681686`*^9, {
   3.9447378845378647`*^9, 3.9447378904675646`*^9}, {3.9447381533779593`*^9, 
   3.944738154863657*^9}, {3.9447397249995966`*^9, 3.944739733284811*^9}, {
   3.9447439668179693`*^9, 3.9447439692556634`*^9}, {3.9447440116155396`*^9, 
   3.9447440135916367`*^9}, 3.9447773713500347`*^9, {3.944777442348308*^9, 
   3.944777448325979*^9}, {3.944804792968067*^9, 3.944804803559924*^9}, {
   3.9448070160092497`*^9, 3.944807016741143*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"3f755edb-f871-4f55-9f0b-6a724f00c224"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[1.], FaceForm[Opacity[
      0.4]], LineBox[CompressedData["
1:eJw12nk0ld/3OHDJlHkerukOlAop0kDtYwgVEUJIyBQNpDJUUm8JIVOhUBkL
lURKuEdkCkmGkiljxmseMvR7Pt+1fvePe9drrfucdfY+Z5+z/3gojhdNnZmZ
mJi2EF//+w29qPbl6T8GMP3fRw5bK6Pd//PZuBrmzlUafo9Ppzwh3KwQzfp+
mYa5I1vOpxBOO07l8pylYalwjw1JhPXSdEV7h2j489m15YeEw/VCFXEDDfcc
SJMPJywWIXgy8DENH/badvEe4UDKLxvbBBqu1I4pCiP8pzDNbu8DGp7MXtUN
JVzcreY0FUnDPPacpsGEbVUsL9rfpuGbARdUAwmnfn98B52l4fWaIVZvwsok
+XymPTQ8ZCIrcolwiYetcKIqDfenlVC9CB8ujb26U4WG616S9l0k7GTPrOG4
lYbLbERNPQgnZvZUVEjS8LWs8F1nCLOoPmoNZqLhjnyvhOOEfx3lW+auo+LS
/tgLJoTdkvVsMqqo+IjzB21jwguTN0oPVFCx3SemQUPC/DHjty6UUPGtK2QB
g//l50ctZ9MrKj5UFs5ykHC+U5BUbCwV+/WRDioQDrmxDBKnqPjXZumhzYTN
ffqdxk5SsfmmlXvyhMleDaGlFlQ881fjG5XwB6dn3x1MqFj/iZeWNOHRo4dd
s3WouJgnplCAsCEpMVJjGxVr/8xqXlpnAF/R3q5TixTsIyu4Y5FwZx6VWWWO
gkVDe0LmCT/P5t7CPE3B4uKxajOEUUqvZ+YoBfOPDnmMEfa8E8LC6KLgP0p+
Fl2Em81+bA+spGCGcuxKGeGHUz7+qdEU/GrqF2spYR1ds4dBkRSclyfM85Hw
VLxyvss9CubeoCNYRPgIDI5su0PBbCJci68Ir0eYnnzrS8EyV6blUwi7bFfa
W3magnHC+zk/wuouffODShQc1ikX60O4/0OpQM02CpZK/aF0hXAUT6JS9hYK
vuH+z9KT8GiBsfMFCgU/XkoPcCGcsrG0ZUGYgjMqN/GbEmZ7Fv+WfZWM7e9y
i20m3PrL0GtrHRmLNXrPUglnjj8cr64i4+DykDpZwr5rva4uFWTsFBHvJkFY
SvaKXVoJGUdfNjjDTdjRMfmo9GsyjuosPzK9RsT7Z0JeII6MG225kt8R5lqI
7Fg6Rcb5En4l+YQ72X6eiLcm419m5q2vCL8So33bbUnGvmmbZzMJm+4rqr5k
QsbXtNe7HhJOuN5TMK5NxgeCLFyuEN68UeV+7xYyRikXxxUJ3yKn3o3ql8Vm
u8IvKxBOjXm8UatLFrM1xs/TCH9ieXBzuk0W49PGfSTCLCN3fUzrZPH5fmZn
DsIhb867Cr+RxYkNlqx9q0Q+tffpJwTI4pbmctv7hJ86NbE9lZDFqbZFY6GE
y9tqb5sIyeIKELwURLjPoGKdiUcWayeXO/kRllN6t+DAJItP1wf1OhJ+Pv94
iDYsgwvvHJJXI/w62LUqq0AGG/3Uvf51hQFlz9fvvDaWwQee2RrVEFZ40Ip/
GMjgFgl5wXLCsbdyVzZoy2CRV95X8wm7WVt7mavJ4KlzeVlxhAW439kuixPP
S/skWhB2unheVadPGu8PrBJv+suATeqdvW2XpXHNWx21asKXqW8lmS5I46C0
IFRGuJs3zGKrqzRu1x3Zlks4f3hP/bWT0jjriZXuXcK2ibFF5IPS2IYqeGk/
4VerRyLd2aWxX6/mdOwyUa8VHzTWE6WwWtI7aijhwDPeTvqxUjgzn0U7gHDu
RqWIqHAp7PYh7bAbYRbdp93Um1K45kqYnwbht5XBt/SdpLB5zV7UvcQAwSqz
6ihlKXzgQttNYcJNNROmtApJjOgFiuyEV92yrp0rkcQf3ihVLC8S+drkkF5Y
KIlFFqxyuwkHHm6Z138uiSvunvXIIryjrjjhXIQkvntHx1+NcOSXu92FlpL4
ntLjjxoLDDBqpLgbjJPw3n/3zioSXihD4qxDJGzQf+2fFOGnr09XlfeQsE78
p761eQbMRCVTNb4Trvl0u4xwgpnEL6ViEjbCt9k0CA/84DcUCiFhLerwP9k5
Blzv/6fUTSNhv/vn7HkIb26R6XwkTcId9jVpf2cZ8LXyQJilGAnX1Bg2txCm
Zl4bauIk4XXD67V3Cde4LaZUTEtgRTv5xeEZBghPTvK9oEtg69Tc+fvTRH6X
uqa9bSQwr0C5mw/hJ2c67F6YS+A9l7bm2xGOaWz70m0kgUOzf1UpEvZN/5px
GEngaY1ZRtUUcV6ZlJ+UlZfAwap1TLMMBnRkpZfXTYpjaZm1DQqTDOCw9Iim
3BbHWCjl5SbCK+Wu6xbXxLFlV6P82AQDJhWdPMIvi+PP8//5vyTcwnzq0KKL
OOYLTMjZQfjJq2PL9UfFcaLhma6t48R5xrbLwVdEHLvFuwzPjBD7tXBJ5etz
Maxp7Dr1lXCLpzXNN1UM7xmS/pRL+JBiiQglSQxX2puUORPenHbz76X7Yvh7
9Gb+1j/E/RnFVil6VQz7O76pez7MgHPnhC3tdMSwaHYkG3WQ2O80lRsTXaJY
/Zu89+IAsT7d0RcftotiTZeApHrCJx7NOsA3UWwHDbSrhNUFivSiK0VxdOiO
5c/9DFhaP8C/O4ewh8lpqz5iPTuOpl33FcWBC6WLuj0MCIp2reUSEsUbpji2
ChJ+x5T7ooVbFL98Wc3V003M7+JUaDKbKA5nKuv3IWx4zO/Ijr8ieGuvWlNG
F7GeXPe+mP4WwTv1yMozvxiQHvSqIfG1CPYvFTp/+AcDPvvMf9tiKIIdH2xv
5SK8NLQvf+qQCJZ+pdbd0M6AbRYBMR9ABMu0tjSZEI5UYzc7qkr4vpqCaRsD
LKbFWy6QRDBNv0VSu4UBQ+6abYV/hLGM2Lm65q/EfWD3X4fOHWF8TSq05hbh
2/oZfncChPE9Xi1QIbymUi1e7SOMa+WYY+81MmBuI5flEXdhnP57tVijgQG/
X8R8NzEWxjYB77Vu1RH9x/yz+lMSwnjoz9jtR5UM8I7AZT4vhXDrwI8qdcKT
V/tOfcgUwnFG95yaKxjgbs+y9veJEO5WWnnOTthe1UAjIEYIn1Sq2ONezoBj
P78WBfkI4RtJlCu8ZUS88j150VpC+CLPJtMv7xjQW7KWmtMqiP2ZKT+sCP9c
CKq2/yqIr/S05w4WEve1Cve4SK0gJg+MHFgrYEBlOml3YIkgHrtS2kt7S5zP
4XuqzdME8SfKuNqx18R9b+s1tuYpiKNCzpL5shiwYXVA1YRbEKeyfDUJymTA
393nrFjZBPH7ycXspQwiHxdnrxf/E8C7v9xp704n8tu/oUpuVgA3DFVPPE1l
QN0XGavlnwKYlSN49G8yUY+Pra6nZgnggtONyauxRL1r1FfOaQvgoLKgQ3qE
nRgqz6maxHip0aWRMQzISntwz2S3AC4qXhOVimaAIvdp09wtAliYJ3WvQiQD
dndN95zhFsDMay5+LCEMMLgpttLcyo+3H09yKPNnwMUKx51v3Pix2+slcrcf
cb77VAv3OPBjnhTd86u+xPy3Ky5x2/DjB0rOaWo+xPkQN1/mZsSPIyZkdGO9
if3gHGJI3sWPTw8XHmQ/R+Sfz/arzCIfjimxf/jehgE+8TMav6T4MJ/iTpRt
zYAA11vdV/n4sHm7rfqjkwwI3sN/S5CZDzu36axdtiT6pXalqsPDvNi+fS5b
xIyoF7GzJu/f8GLa7bbNG44wYD6+x+mBHi++8vxm7zl1Yv8k1EcYe/LgNta8
IupuBvi72aiMOfLgj63jN9tUifntHW0OPsGDJYQl2vfsJPL7g128bD8PnuLe
ZfB7OxGvuE6qIisPvtt21rWezIDphA/vNj3ixmiY9+g4B5Gf/2uAuXDUnJ3M
FXYGXOJkitAr4sJnZCdqV1gZcPXayf212Vz49/B4MvNGov5PcT9ojObCcy0d
g/OrkxBCuXTk52kufFlQ2chzahKevjhQOLnCiUOZBW+ltE5C84eWMAk1TvxI
A9t1fp+E1m3Ke5O2cGJvmsVrseZJ+PH47qCMJCc2P/HscXDjJHTf2I/kmDmx
440qdKh6Esa0ns4rN23C+i0s+drvJ4GlzsNe99wmXHPXRlw+YRLUO5jVL6Zz
4BiRI5WdDyahHsQc+h9yYPeoe8NRsZPgmLE93DKUAx94ahc4GTkJkZ7mfXCB
AyepRXsG3JmEQbbMSP69HPirm8bguNckxKkeHn7zhR2rGLJM9uhPwkz4/YS5
GTb86/exZ1KHiHhn0ircBtnw3jeH5U9oT4KM1fvJznY2rFS2P/SD5iQcof3W
/VzChm/evyxvvHMSnn3YNf0gmA3TtOgVzyUmwWSo9fAeEhv+LXbUYmJoAl6C
1IqfFivOGKZxNPdPwEG9FZVWNVbsiHu883snoMmww0VFgRXHSZx0dumYgJmT
Cc1DvKy47J385kcNE6B+WTjbrJMF/17c/Fnx7QTRT3GfVPJhwevLT7b98iee
F1h715u7ETffuuSk5DMBDuKd4xpPCUdavfP3JsaT+UiNj92IKwqeRrCdmwBh
Rb9II/+NOD78sW+f7QSc1Jt3LtbfiIM0R19nHpiAPv8J4bg+ZvwSOU1rrIzD
bH/XJX1xZlzeqU4OWxgH0R6fzXGczLi6lqn62/Q47O8Q6Ohd3YATIz44GP0Z
h9tNh7T8f2/A2tPp/PMt4yBY+pLvZfYGrED2vsn0chxUHt7IFTywAXM/mbP7
aTkOFwykh7ocmDC1TLDwsOk4xOgUJW4zZ8KcMfV5+Ybj8O7gcSMfPSZ8gCnr
5gWtcVhXu1PAv50Jvw2UqgvfNg4knQ7Wu3/+0VVtApPtVsbAct4PTHn+0WU3
TM0qxo9B88kP+X8s1ugRlX0plVFjQJb1/bZBc40ufy3gmnnYGFwYUJ8iUdbo
mcM7C21vjAHnxQIlo7FVes7s/mTeM2OgFfT6+Zubq3Rva7w4qzgGea8yUvyf
r9Ctv8ovphePQsTGmDDuv8t069nm4n1vR6GjxuSFfM8y3T5Jm1qVMwoKkXw1
ByuX6aeVNBo/J41CpXgEq1fkMt0mo26/fcAorCqFBLZSl+laP5+lrMMouFsF
XE05ukSvFvm20lgyAgYv3R1VkhfozAXhmQMFIxBeUPZQLGiB/vO77+eZ3BFo
+ij4Zd19gc6bwWK7lDQCJ+uKVRv2LtD9Ju+1PL8+Au7DnKzuLfP0nL3mXin7
RyCCkpOVxjVPxxDP0pn3B5ofjI2L+s/SBSvJn7qDh8E24JzPmsUUnZTI6aR9
fRiqLqhnVWtM0RO8XaKTvYZB5TRTezR5im72ZSZtv+0wsAUqnDdsYdD9d/Lq
8e8chhMbfceS/07Snf6T/Kn8cwhmNon9QfoT9BfiOX/daUOgKHbid3DvCH3r
6tjHzmcD8HTnt++CQv30a0yk+isPf4Po3Rc8bddr6UlMlWGMxU5gzzWTUTGr
gXucr4+232wDzown7cbx/bDN9Of7brc2YDUs/Fha2w87x1tXp463AdNs3ZPt
q/3w5imTrbpcGyygBVd2hwHI+TfxWq+2Ffo7DZfKtg1CS1LIj0iRVigR/iuu
XDYECUZzoZpF3+FikLk19+AIlD4NUnCmfoPRN0EXnCSm4JfMlhv/uL+BdpKE
83u1KaDHverKXmyCR8GvbLhNpmC94eW4WkMTHLH5YVAQPAXyUrk2Yn5NkM2i
SGOZm4Lv5s979j//Ch6W39vTGqeh1fBZfrlyA4yvUrT6/5sFk72f8qw4GkB3
+N2ePU9mwSzqwFWhvnpI+nZU+V7xLDh1GZyfe1APhplXJFWnZ8FLZSbc6d8X
eGlcO3/bbg7O1AnuYPpZBxdSPbOp++ZBYutpTrmsGmDo04UcJxdAQdqypeVO
DaAztabqmxYh4bcx03OnGogJ+B7NKbcIAzG/HAupNaBeOMz39uQiPGDND/R4
Wg0BVH5uls+L4Dqw5/6B1CrgXbNnyXy8BLL8vUeV6JWglM88P2LwF2y+dZ0X
S62EgAZutbIzf8GvQjuUeqcSmv6IescE/AUhpbXzj49WwmXZ7dP7C/5C+Ru2
HaIdFVASbjZxT3YFvF+/6iKvfQJD1/RBpYUVaBwYN+KyKQcPKb02r7Q1+OHn
OvVMpxyq5ov/+ZSsQXxHATJTLAfq1x1bA1rXoPIZI4N1HcOPWxLXw9jXYfNb
38dZqRj0hscpaR7r8O6Ondmz33Sg5seeb1H9Bzy6w9fPo1KYSPO8LenIhGwa
7DSYxEvhEf/2+JQLTIjbIbqoglECBjcGcyjXmFB9CzbsfFIC6RbWrVvimFDc
LpsUY+YSsN6kq6BWxYRMWf/tk2oqhpoLYo2G2zagf+MJ5WqR7yF9X5lEwMwG
lKNhqZ3l9h7ob0rz+JiYkcWmz9uNdN5Dx9ZS/Wc8zKhVt9Bt13IR8JNKrlQq
MKPEu0Ydtq5FcP3vh2+cp5nRp022wixG78D8Y2Fo/BdmRDqa6KyiWQAsB14u
56VvRMWk9ydzpApAtjA3Sjt/I7IB6QNma29hv1Lulhb6RnSeyYp1K/0teErn
nFjs2IhQQxPHsO5b6Fx7/uaAAAtCTqHBgVb5UFCWfrbuBgu6s/OT1ZeUPDiD
kn72W7AivdTL0lrBeXBb7Jtz5BlWZISPPvtxPg9SJ1ln9nqyou/1O46cO5AH
fUkXOSNDWZF2wwTWKXkN9svaGntLWJFrVcoPg6OvwC5/JCmcwoYqasJM1+Jz
wFpuj/3uccIVx9crL+SA/4rHeM8SGyK793+uOpQDj5qf+oaxsqOzskZhPnPZ
8DOQM7pHhh19ixejBptng1VXV3nocXa0dGuURJJ9ARYPg2jd79jRCC4pOtCZ
CaYczUPBtzgQW4/twsXiTGD4aMVPR3Cg2Z9qfd8SMiF8OE/f9hEHav3E00Sz
yITPVfef73zLgd72611dbs6AvXeM3DsHOFBM2H+797amgzRz7cROg02I++s3
e6+/qfBnhT7XycuJ7hck+il0p0KQx44MfUlOdDf6sizHp1Sg/Eo5kb+FE72b
oR5AYalgXXzj3V3EiUYiuxcjpFKhwVfDd9clTmS/mNHlZfAM8uffrdxt5URP
pzpezfk8gRuMl8yqSVzIyq7hWpnuEwh2d9yd+4ILhWQas/wUeAJRg6Ju8kVc
yMbH4fx6bgqk/7rZINbMhZivXfi8NpQM9dXHE1bZuZHDdanEs2eTQOrpvFKV
NzeS4uV/MJaeCMUmB06ePMqDxHp/P5z2T4TKL9P3mq14kBIjPGr/8URo1Mss
O+rCg75mWLfHridAnyaf3MFbPMhhLKTCyjYBOLf+nqQW8aCl2XajNlo8nNxw
J2icyot4V9oucvfGwdKb+tc3//KiS1varJhxHLCFv2sXYOdD+hufeSg8jQMR
l6f/0oT4ED2ieHmjQxzsIl02rlHkQ6bj4fumB2Lh/G1JBv9pPhTxMMrn7HwM
9Jm6K6dW8KGfStK7uPdEw9DyfxaOevzIw380765UNEwO+brnGPKjSdZhy+3M
0TD//XzAnCk/6q5dUh1tiAKWV5aZwaf5kafn/XpwjQKK4/aFbF9+NPByLmCn
9n2wrWt+MJvNjx4cP+TBZh8O3x5RWoP4BBC/yf2T/6mEQyTPvm0nRAVQqV/C
x2MbwsEw0OSmvLQA0s7aM9CYdg9qnG9urdomgHhvS+xyHQ8DrNJ1g11PAKWV
M12JuBcKeVUJm8OuC6BymX7p/9aDIWqGz/f+iACq+uEZ+Kc9GI45b2k4PSWA
8jPvL0W8CQbuHwepKosCSKDYNCzeORhCSs/XN7EIoogtiauJTXcgMOQLWZAs
iOhRh51Y8oPAU+ZubZyFIPLf5pfS9OQ2GB9ZJz2qEETiz2Mehd++DVHn8kYX
agWRTPFbhavOt6Ep0rHYrEkQURLbBpq23waT71UneboEkS/2sEwuvgWmtvcT
AhcEUYXxZ13L3kAwv0AWdd0qhFTYmpXFHwSAdYy2gNp9IdQmnpU77xQAjwrm
eqMeCKEXlZqnZHYHwK+2zLyJx0JobVdAiHHbDbCV5DLJei6E1J1eh8pJ3YBT
6d8jSZ+E0KD2x0t7Cq+B/Tsn7g3zQmij9GYlYZIfuHQEszdaC6Nf1qImR2Z9
YdDAYoTTQRh16KSwltT7glOR/Bd9V2F0JeQW3STQFxziKiPLvYXRwbz13N2j
PmB7jFm0MFwYcZNieZ/VXAWzTzfkksqEkft13oaCl5cBZV/WcqeKoK1H0GBR
xGWgi+vSshREkG2P777x85fh4F0h1gFlEXTQ+7T7sPJl0HDKrzmlIYKitm1s
lX3rDeoyU8bHzUXQIe1L505WXgLFGA+7vcEiqPdHjg4nhxdI+DteYxsl/i85
+slrzBOOXTBPqZsSQTp8TwU3ffWEIEe98shFEXROt3Ho80NPmDyyjV2MVRTF
vK5vvajgCZWSMzFbyKLIbHMLf9DzC+BZeivbwEIUkdZFuyvjPaCa6dnPsE+i
6E3f0auuZz1gdS5m9VitKEp+61JgqeEBu0aCZIWaRJHUyhUZ2V53op9wc37c
JYrWBDaXaii5w6VUlemcJVGkm595BlrdQEYXczQoi6G3PBycqidd4Mrdnj18
j8WQw9XjnLLqLqC4/Vzr6WdiiLo1ZFZLyAUGGpcu5WWJIS19o+3bG53BXFTw
1fECMTTW9nnhlp4zqGXoysU1iKEp/ePtS8gJZj694JdgEkcN7oaz/daO4Lnu
PUJ1FkfBj9Eq/0FHUEhluuvtIY6qHins8KA4Qu+hCLlKL3G0T+LScsYfBzCO
yDztHCCOeL+P31HycwBlqZ+tWfHiqDVQnutwqj1M7Dv4SbFOHEns/GjVJm8H
7lc4HqvvkECZ8lbZwTOn4EdKkR+vugT6ShFViKSfAv0aF6shTQk0KJ5v/dT6
FMhJfhZ5eEQC7S7wKSyPs4VufCtq3lkCjYd4UK6L28Bx7pU7BUmER87by1hb
wd60Cc9dnCTk77qq8VzFCjLrk4w5BUhIKP5OnC+7FYgsHFXuEyMh6dsOPaOF
ljBjkD0WLU9C53/OrnCIWkLupIvLNCIh9S//mqr6ToDs/l6bPB8SehJNuns0
xwzYvjXrKQ+SUFj1TKtrmBm81XuyZ2iMhF7emBX8eNYM7Es8FFJmSMh328QI
y1YzKM5i4eRlkkS52buVpbJN4XyAesMESRJ1iARycL87Di3bH5m9NJFEcj39
X44OGkNqsIO9YokkOsLw05x9bQzGq0rHBz5JooO1XV9n/Y1h1euvVlKtJKIn
uPOsCxiDxalYGne7JMqxr+7arHsMNql9HhqblkTP4wo+GL43BM/fCudztkih
vyUJkzs6DwNoTvlti5VC2xN4JL+/PQwXHCwHLyRKoaYtV/cX3jsMKcFlJm+f
SKHLl9Lr1DQPw2pT+BbNXCkk0yCRLPrUAIqdt7YafZZC90zMLQS99UHtvqOK
16IUkg2Pq/XSOQQKfS1DRTbSSItN1wtRD4Elu6bpqoM0yov716u94RAEK6aV
IjdplGV6pu03XRcGr3rF1V6WRsv4kdNN0IVULl7tXxHS6ANv3dqcvg5I79ZP
XqdLo+nUkPLya1ogGPLB7JCcDEpb1RHZbqcFS7t0mAS2yyBtr8tXqpAWdHfV
53bulEHN6zc2xbBpQbZqL+tlkEFOm3ad8Y5DoNXD9j7VWgYZRl733XEJwFPd
XIopWga5S3o/idHXhK8DkwPFa8T45oqHC8U0oeC+b3Qwiyyae+E1ofBHAx7t
Zz5oyiWLyOWrzBvCNMAlSiR+RFwWnfasf+b8bT+sa2geFleTRfoZLhERF/aB
cmzoyyvusuhMUPaJsW51CNeSu6rSLoscRGbaK4vVYe6xQXJIlyx6UbTFr/2h
OtgunKvs7ZdFXg1yeZnG6qCUUygYPSWLNshV7+6v2A2uYWntSyxktATXokPe
qQHHnNrlkzJktAIfr8KnXXCk2vIl6TgZacT5nklI3wUBcyNYz5yMKpQPK5Lv
7oJ8yvWWS5Zk9Kw+cttHw11Auv50pe4UGfnvXuoS7dgJYyojh6+5k1EwP/P7
zWsqEP7If+jXf2SkQp359fCzMnw9nyyb/I6Mkpup44MPlIGqdVDzwwcy2hP4
8XeAizJcFe6xai0hxlPjLgjnUAapj+QYngoyonX+e8xlogTuHOksAV/JiKXR
bmj3+HZgTcsesftDRjqc3mMnLbaCxo+it2QSBQVGtmLhHVshMseqSVOagviT
Ez25ObZCX8DyuBWZgqw464fyihUgRF5jc/RmCqo7osFcSVWAtktlCRtUKeji
Pl6PirXN4MXz+UbfUQqireQ3VHXKQZZ2s376DQqaup6zoeCDHLRZsbCy3KIg
vL5vW+dDOWC5qP7pTBAFWX/1a/h1XA4cHz/SpN2joHEu09cRdTSQmnPcmZpA
QalvBkPdqqgQkzFLevqWgrJfqFTfHCTDDQ6RyccjFKQcxXgiVkuGXBn9nJVx
Cspw1N/Xk0uGDjU/N5spCvodond+9TIZ9jp09ZEWKehJ5kU1F3YyzHzIaE9k
oaKNJH1/17My4OahXh4vS0XyYhGzbnaSYNZoGRd7gorGTv97dFVVErQ12yM/
WFHRwaqm9GoOSdiVbRHaY0NFnKJO+3YVkEAw+ETAdkcqundW6p80LwmaD5i5
VVygogW6U+tCgzgcf3lMc/YuFUlOPLRiuSYKxuGHBkyLqUjO6snNUktROPi3
stu3lIp4NKqZXqmJgrKb7s8UTEWRZ9LfqTJEgFdXp3G0ioroM74xNS4i0LiC
3t/+TkUldrsbGk8Lg5GHZnj+OBHPOvWRtI8gHD2iqiYoS0NC5Xe6qy0EgXrD
cewBlYZqlZTLs9UFYel1dKrEZhpanLvRKr4oAJkiU/wUJRqysOGOuOcvAMy/
cyd2aNAQ64mcJZ97/PDeZ3OWkSUN6R6i/hrO4IHNGRKk0Ps0RCpb+LXqxQNr
7QbfuGNpaNO5P5/PHeSBFk7fkKiHNFSudu+n9Q9uuOXZthCfTEM7spR+2fFz
Q6dG7PfMHBqysT7wODCKE2KbuSMqq2mIqhY7uOLACe6smroGX2io63Zzeo0q
J6C9HitfGmno/oMwA/Mfm2Ayufbs91Ya6lQJq5GT3wRHzgbr9fXT0GGJUQup
ZQ6gJBWuOQ/T0G+lbUwODRyw1DhQMDJKQ2o2qiFfr3JAhpoObXqahuzGS22W
jnLAdddLHZfnacjW8bnqOQoHmD56Fr20REPqvonh2xbZYWtDk8H1VRqy/yk9
sKuB/f+/X4L+H8YPqgg=
       "]]},
     Annotation[#, "Charting`Private`Tag$3025#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
      "\"\\!\\(\\*FractionBox[\\(E - \[Chi]\\), \\(\\*SubscriptBox[\\(k\\), \
\\(B\\)] T\\)]\\)\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(2\\)]\\)(E;\[Chi],T)\"", HoldForm],
       TraditionalForm], 
     FormBox[
      TagBox[
      "\"Cold(T = \\!\\(\\*SubscriptBox[\\(T\\), \\(2\\)]\\))\"", HoldForm], 
      TraditionalForm]}},
  FrameStyle->Directive[
    GrayLevel[0], 20],
  FrameTicks->{{{{-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}}, None}, {{{0., 
       FormBox["0.`", TraditionalForm]}, {0.25, 
       FormBox["0.25`", TraditionalForm]}, {0.5, 
       FormBox["0.5`", TraditionalForm]}, {0.75, 
       FormBox["0.75`", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}, None}},
  GridLines->{{0., 0.25, 0.5, 0.75, 1.}, {-10, -5, 0, 5, 10}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{14, 
    GrayLevel[0], Bold},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{0., 0.9999546021312976}, {-10., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9447330459113626`*^9, 3.9447330805677605`*^9, 3.9447334678045588`*^9, 
   3.9447335006033545`*^9, {3.9447376017800293`*^9, 3.944737627575455*^9}, 
   3.9447377155847254`*^9, 3.944737779300416*^9, 3.9447378928809423`*^9, 
   3.9447380115420666`*^9, 3.944738181809909*^9, 3.944739736660421*^9, {
   3.944739773649392*^9, 3.9447397906606674`*^9}, 3.944743818647045*^9, 
   3.944743972606642*^9, {3.9447440163739095`*^9, 3.944744035767351*^9}, 
   3.944777379848543*^9, 3.9447774496111956`*^9, 3.944777660225548*^9, 
   3.944804804735319*^9, 3.944804869212856*^9, 3.9448070385773687`*^9, 
   3.94482150114204*^9, 3.949968974287975*^9, 3.9499693188717203`*^9, 
   3.9499693496051545`*^9, 3.949969463315037*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"a24e77ad-6b29-4e0f-aa09-34538b4f4087"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", 
           RowBox[{"x", "/", "2"}], "]"}]}], ")"}]}], ")"}], "-", 
      RowBox[{"(", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}], ")"}]}], ",", "x"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.1"}], ",", "0.0", ",", "0.1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "10"}], ",", 
        RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}]}], "}"}]}],
    ",", 
   RowBox[{"PlotTheme", "\[Rule]", "\"\<Scientific\>\""}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*FractionBox[\(E - \[Chi]\), \(\*SubscriptBox[\(k\), \
\(B\)] T\)]\)\>\"", "]"}], ",", "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
        "HoldForm", "[", 
         "\"\<\!\(\*SubscriptBox[\(f\), \(1\)]\)(E;\[Chi],T) - \
\!\(\*SubscriptBox[\(f\), \(2\)]\)(E;\[Chi],T)\>\"", "]"}], ",", 
        RowBox[{"HoldForm", "[", "\"\<Hot-Cold\>\"", "]"}]}], "}"}]}], 
     "}"}]}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", "Black"}], ",", 
   RowBox[{"LabelStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"14", ",", 
      RowBox[{"GrayLevel", "[", "0", "]"}], ",", "Bold"}], "}"}]}], ",", 
   RowBox[{"FrameStyle", "\[Rule]", 
    RowBox[{"Directive", "[", 
     RowBox[{"Black", ",", "20"}], "]"}]}], ",", 
   RowBox[{"FrameTicks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "10"}], ",", 
          RowBox[{"-", "5"}], ",", "0", ",", "5", ",", "10"}], "}"}], ",", 
        "None"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.1"}], ",", "0.0", ",", "0.1"}], "}"}], ",", 
        "None"}], "}"}]}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Orange", ",", 
      RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9447332142867208`*^9, 3.944733261073659*^9}, {
  3.944733297684899*^9, 3.944733331201537*^9}, {3.94473339314104*^9, 
  3.9447334206041055`*^9}, {3.9447373340095053`*^9, 3.9447373373397827`*^9}, {
  3.944737576577361*^9, 3.944737580246798*^9}, {3.94473772512772*^9, 
  3.944737751589441*^9}, {3.944741549507353*^9, 3.9447416086336317`*^9}, {
  3.944804811223692*^9, 3.9448048264991302`*^9}, {3.9448070208162994`*^9, 
  3.9448070215659027`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"3413d943-7c81-4c65-b15d-b8df3f9a5c8a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[1, 0.5, 0], Thickness[0.01], Opacity[1.], FaceForm[Opacity[
      0.4]], LineBox[CompressedData["
1:eJwtmXk0VV/4/++9LgnJmDHT9YlMCUlReyuZlShjg4qUMlQqc5SEzHOGEpJE
GTNmb/dQSEVRiDKEkCKETN/z/f5+55+7Xut51vs8+5n2uutIn3a3cKJRKJTP
VArlf38DLdOEju32RZT/e2RxIN6Q63PIF51PaKL1LjNwoHOv3RNHX/RBPpa1
cpGBKUvBzjujfVH2YRlOjxmSb8SfEBr2RfrZepv6R0jmyLswHe+HIvTDlPBb
ktsG1hxX/ZFQJJ9tYBoDQ4fuI9HBgUhF9L8Syk4GxkyRtnNxgaj2wjGBe+ok
bwsuM8sMREYv469tVyX5umDfrtpA5OhA0z69ldTjO1SQPhuI7uV+IwgxkgX5
LBKcgxBdPbUzhEJydkl8pNVN9MVk4yJXiwymnDM4+dYuGIX6LwKR4zIYx4gt
PXUJRkeuDzlO2MpguBRbnOQTjKQuvQ17aUXagzJiY1KDUZXjw4+nzEmunRMU
+hKMxk2MnPP3k3p7nlCun7iNTEXvRWkrkPZL7YJMtxC0sUKr7/i8NMbHe2yS
KkJR0tR1n6xYaQzNHOUcW0LRfj3LpOAoaUyxrR8AfaFoKlml5Oxdkg82QmmW
MGQMhscUbkvjQM6flRGHwtBqpIVtqRep5+qltHEiDJ1VVNZqOEnqQYut7Mp3
kebZwblhZdKeJrWV+1sk6vxiemlrixSmPA8WjpuPRLk/k36+fiWFoXWC71ae
KOS10u98liD5d39nnG4UEpe8eiK7lvSPUnM9/CgKnT6dYbL5OWnvSv8Q7hGN
pn5M/sebIIUd4MsWhbsxiPNvVM/CcSncf+3qj0OH41CQVNadmCFJLJVSw6Zz
Mg5lxaWx6PZJYocdJw3VXOMQk554Y/qTJIZFF833hMUh+tid6xYtkhhn8G97
Vx+HQotdnQWKJTFlIZFrQCMexezbZZASQPpnm0ssySSgTMc2tkwR0n831S9M
KgnV5a3efn5IAmP5I/WpaklIPrETdxlK4H4xe2q1XhKKDypYou6TwA4tx5Jl
ziehc3Z2l45oSGAo9Fs2oyQJ8XK9OLYoTLL/uBQ0TEaO7q7q+wc3Y7zUuCMo
IAWt1+zt/+S5GUud41QWFklDR4gq7dV74hjKrZZEqaShwDNXHA3ixbGDgYOA
oF4aKmBRjoyJEMf9I6diDrunIbpe5leZG+KYwn42IPxVGiptCAkycBTHgaHs
TLpXOuJ7Zfk6RoXUo/1+e3I0A7U1TVowCDEMxZIVfvllIrN30i6GP0Wx1P2r
ReZ12ahgoW/6ir0IxrZb6x1/PEaO5Quq7/OE8JT6k7OuVwpQcKxzMyf/JvxD
PbBW/XURYjtxq2f/bQEcM3JH89VYKeqvXcl62smHvTITY05uqUAy2q0Ns/t4
cV7yYZbo0Wp0PfmP9hfxjbhrvZP96uM65P5/A8WJz70dNCHK69BlDkqkfgUn
7hqQnwwm6tA1X9vdzfmcOE/x4/TK1zrkd5wr8V0sJ3bw4XjTIIhQqPRl4+6T
pL/Dy6j4mwhlPtlT/muJA/due33voBJGH6o6wkU0OLBwJ+E/qoZRp4KKVroc
B054y2/nvwujrrQ7wxJiHFj2ruGbB/oYffXfDWVpHFgLBuyqc8BoQjdzTqVt
PYYKijZWCRjRWy446F1cj83l9mWnLGCk2UPTdM9hx1MG/bt01jBqBUKnhpLY
cV4ev3kPaz06/UgxwjqMHeud2lPCyl+PojyODAI3diwuY24kpFyPhtlyo3i0
2LGs/M5Dgg71KEHdaLT4zTq8/CVdYBbXoz8R0Smzf9gwfTDjMvNVPQr9k02c
G2bDbaeud4e21iMJm8pfvZ/ZcNF+v4srn+uRMWNAr7GWDR/r4D5461c9elil
Np0YwobNnR4N/RJhIvORTqOdoqRenWXl4/NMVAjEl7x1WbHHqJP1iisT7dVf
Uu3UYMV6N2eijC4zUZtpz1lVeVb8XWu9d6MPE/2xTfkwwk3az5/nMbrLRJqe
AvmWvXRc+Zfe4ZrPJOeFy1b5Oh3n+fbkMZ4x0aHnE1GhLnTcuvtM57tiJuov
b2kYOk7HP68fH6JXMRGNCFVN1aNjU77MmMlXTGTQR2dfx0fHHRmOf+73k+/n
XXnRX8CCf4xI3c4cYqJTwr0/tTNZsHhGn1TSCBmPRI1McjwLlipY23z8JxMJ
KHlHmfmQ/uo8n63nmchWf86p2oAF+/0ztptfZKJx0440QW0WbDhcszt8mYn8
LEvbPVRYsF5+cm0YlUD3HS7tkRNkwb07756Z5CDQoM+kQMIgDZf94vX4bwOB
rgS1Gv/upGHh5ShF840Eooc+DTRupuH+/jxrf34CbUk8/5NSRMMaD83TbwgS
qCLNUOZYNg1H0Fi1PIUIZJglZ1ORRMN+wzbiGmIEcnk+TLj607D4dLPWmjiB
lsobFps8aDhHdcKyVoJAEbXZ22QdafhYWpoylwyBnjWfSusxpmHVVRYqRZ5A
M0N9lw2EafjigdEmz60E2vTt+pYEDhoO/aZm2qVAoN09vD39y1Q8K3uF/4Iy
gW62HdD1GaBiHe94iVQVAuW++Tb76iMVCx/0vFKxjUAtr7zz+F9Rccf9h6G1
2wnE97JwY2E+FbfJLW3MUSOQZqUBsZhOxcFqqu7e6gSyKx24ph9NxZlG9WE6
GgQKeOarEB9ExQXOyvsnSX74RPDrtyukvvufgLs7CNSQ8zxW6SwV03MipYQ0
CfTjgdEBbxsqFpDz44whmSttaKHRmIopl7UZf0lWTfIv4NtDxeadRiZGOwl0
JFbI4eQ2Kq6c3+IcRrJXRDF/gTQVe1kdsXtBcvodk9cL/FTc+vooexvJ+Oaw
zwE2Kl5eKT7yieTv/jdU4hYoOIZrRqaZZHZvkcGv4xTs9yvXKo9kJc/SRMU+
Cu7a4PDxCsmH3M2MvN5T8GxruZ8iyZddRpcb6ilYgPeA5nsyviSnoCLeMgo2
fVc0dILkagcxxxO5FPw9IetcD3ner/blQk9TKNhQ6k2eLsk060Nv5sMpWGp0
8E4CmZ8tFmMBev4kF+aPfSDzaWx2Sy3WndTf9LN4mcy3m+Hmkb5TpP5unwZe
kuP2V9xTOELBlTpqrHxkfV7sPWx2XZ9C7ocl6xWyfj27JigNWhScubUl8yNZ
31WN22U8ihRcNJpGJJD1l1GVPHd8MwU3OPjlQCUC6StWieVvJM9/vUvVhuwf
0f09rHd+rCHxY89yCDkCnd7F7Sr1dg21thg6i2wh0JNt+zqqiteQV/QWl1tk
P2qJ52f99CHtz+GVZCkCBfJ9XR9ycg0JaL87lkj2bxM73yVJvTUkq1925qAo
gaznvIHFhjUU2OlpvF6YnLeJwtyJ6VXEpe+TU0jOy8jAwIbbn1ZR3gm6fgkP
ga69M+qteLCKWluTrfm4CVTX4L//cPAqkueI9rDnJBBrTXH++LlV9F2z0SyP
lUAJj0W8N6utIk/8vvcpjUC9GWb9Lzatov6qT+wpa0wkmxBkYL60gloFot9t
JfdBaeCY4K2GFZSXUbFDdYKJPthWlfywWkHL55vP3RllIilJr3aqzgoS+PSf
0Wty/7h915wSlV5BPLKZxZReJuJwL1M2m1hGZV8f37F+w0S6wc/zim8so17/
g+HT5D6LMnJ73eK4jDwNjf2vMJmol1t5ZMhoGWW6m3epkPvP614+Y5MAaeeW
HQ18xERFzx7d98lbQjYCXFPWmUy0esXxZXzkEooZ09uxKY2JTHcxegsuk9zz
YLNhDBONEpki33SWEKVNifuGNxNJdKcl7G//h3rlJw/IGTBRJEtcONe/RUSZ
5Nt7DjJRT5P5k/++LaLQmyaK0buYSD5qY9PehkWU84Q1NUqRiRqEI1kvRS2i
yhrQdJibiZaVQwM7ZRaRAO8So+ddPXKxCbh232QB9dJjxS+T91Hl5j2JFaoL
yJNLfPHXy3rENrRU2ia4gEwLzsskF9SjLFfvaVr/PJL1M89+EFqPum96XnT2
nEe9M66lt7XrkWGhy2nVjL8o4SE2FVCrRxFldUlCwX+RxvLhtHD5etRWw/dm
1YVkUKipIliPbFuq1d9q/UXLVgph5pMYuYxysLp0zCF509jgpRSMIqWfPs7m
nEMF7H1stCjy/pdf+xL+ZxZRFHU7f9/EaJOqJc/l7lkU2il/IOgiRvf3LnnB
x7PIVL6K3XcvRkX2JsZ9+2ZRZbDw3egahD4kTvzc5DODzDPf7riVhdCmDCC9
6jCD2M3o2w+EIWSXE3902GAGTaUliGlYITRUol1XKjiD8hpH5l5O1qHZ93ej
zYv/oEDPCY/b/HVIiENJLfzHNOJhV/4ps7sWHQu4eH3FagqFvhifNxauRa/c
NB+/1p5CWk1IbvffGqR6kvI5VmoKtemYnnErrkFsgfKuph2/kZfQTOT2/2rQ
URaviYx/vxDmu8sNadXoz3qhH9BgEmXqrVfLiK9ASkJHB0L6x1CXWcPPXMkS
lLm9/SMf/xA6J8/1T2m2GDkkRZ/Y3z9IzqOrXVRTMZJeMhu7UjiIKCYH9373
KEZZDS2rHQaDqMnb4Ot3VIQeWTdsTfYbQFMqEruWnz1Dlktua5qt31DbO7cf
z7/mobPx2taGl7sR5Wxt3wHre2jTnScbPvk1o0ATj6jbailgXYGlhKplE1D9
9WhJYd09kGd9xN5GsRm0Oe0JiPtyDxiyHE0JZGkBuKS6/MGtNBBuZ8XXXvoG
BDaVjfi03Qdc623ZLgu8B0V/9o3XFmYBdvVt893jH0DXYbttKQJPAFeMxjex
gm4AeV4gBe8noHe4bGWbcA9o8ny8IbDvCSjQ3iGuF9wDKCUDLu6P8oHZ6A7b
i8e+gP7DXlpGagUgau/Oj7VcfcCrce8tFfAchP5NH3qm2Q9sHEVjJWNKAMej
B58PJQ8BCkWgGFeXAFbT8pqXzUPAcxae1xkuAZSZlgeKy0Ogy4ojhrmrFPyF
f53XnfoOeLZVn6QNlIKhXtOFOoVhkLezO0tIvhzUCvwTVqkbAR3nCt4vJVUA
9+AjdlzDYyD4gmSzV20FcFF02esjNA68NPoUmwcqwNkPN2R+GI2DBj9J7yHF
SnBM6uk48WwcBFZs8Vh8WQkMa6m+vl4TIOFRhtqd7iogM/ssbZxzEqQo19hr
TNaA8eJgN0eRKSD/o+mT98ZasC9dxKlSYwpAy9bV29trQWrIM3su8ynQph02
Nu1ZC4ztuwzLQqbAxa/PLggu1oJ8uhKDPjsFLJx2OXj9fQkuWH/8nP1uGuxT
g1QJwTrQoHvu3fzYNLCKe80dpl4HxJVWGkxY/wBa+0H43L0OtFLkSma0/4Bn
sYqju4frgFK+T8T+J38An7LHbaNGBH4uS+sO3ZoBOtUMo339COiNvti588EM
SDIdlaUsIZDebqJyt3oGfGcdThoWwsA096qY+vQMiOat9j5kgkHhoea5mydm
wdjmydKHBRi4ZXnky+yaA32R3zQNKzF4FcH68NqROaDrwQxpJzCQuJ6a3OI+
ByKEOJ9G9GDwzqQh+HLuHLi3tWPsEVs9UJkTOsnk/wtu8weHXbStB78NEP/p
X3/B7L7hI5vO1AN4ptlCc/084DDmTMy5WA/iAj7GcsjOgyN08xy3G/VAs3x0
Y6ntPBC7ef1MdXY9CJDh4aI3zgNlk/7LOqP1gHvFgZ6btgAGXbI/qP+uBw7C
F/b7vFgA/+XWhfHM14MS9as3D7YvAGX/QuDDxgRWLmGUebZFkCtwK5tHlgnu
fy5eNri8CMaeBH6wsWMC5RLa3JjhP/BfAGtHoQMTBLzl0qg78w+s/MVmY2eZ
oO3HpitxAf/AN5dTi/xXmMBTUnF6d9k/cPzg1XO7w5mgNsJy8q7kErh2xvdU
YzQTcOcdV3LYvQQs1kdf25nIBA6E8wWNo0uA+7WscfsDJqD/8x3rDV8C3o6y
c32lTGDqnDOs/HcJvPLyVcypJOO7+UyWxrsMfCxTlSxeMsFURuWZT4rLQGfX
1TGnV0yQ0NE6EHBqGYRbXH7r9pkJenXn+t63LoMbk2+7rn5hApXja+I5o8sg
iEXA2ekbEwR6rT/mRVsBlEM/XVZHmED2+eYeKa0V4Lj+SIHoHBNcENf/dCl7
BZzlEdVWXWCCV3PVa9drV4Dr3VMUtSUmkHm/bWtA5wroH+UM+EchQFeQiF/4
ulVQ3OVyop6FABr2UY9ipFbBNvd9jZ5sBIjWYHmftGsV5OhLXn/ISQD90Z/S
2RdWgaJ1ybgoNwGy8CmTJ8Gr4Fhj144gHgKs3Pvk+TxjFZyiluYICBKgzBS/
rnm/Cj6ebZa13UwAmZJ41w71NWC3UJigLUmAgLvsyT2mayBFyDKIU5oA3Y7+
uN9pDRiu85f1lCVAjJAz/2TyGkhHv+kbthDg59QXnZmiNfCHsloeL0cAgxbz
s4vNa4A+YfDVRYEAq367q1iXST3mmxs1igRQemo9fZuDAutKfPT/KRGgR4iP
bb0QBeq/jTWQUyFAaHCraASDAqUvWKfs20YAzemQbRtVKVC1SfSgqSoBvh/X
1YvTocCRB+oBetsJENeyZCNoRIE3e39mUdQJMJntcVPsNKlHnGE2kJzKo5h8
340Crzn3Fl/XIICh//BTaV8K9DP9GCKygwB/xx7gnDukv9obq3ySc6zsOuUS
KPBFhelOBU0CWBAC4/mZFNi0MrznHslr296vKhdSYK6JQuA8yQXpYfzFVRTo
UVrMf2AnAezW68lrvKLA2Qph7psks19b1an4QIEKM2vBz0h+MVh5ePc3Cgx+
yRnVQrLjoStnX05QoPCnob3k/wHAW6vsCxcoMIlTvbCd5Dr5H9EEnQp5RnJ/
1ZJ8MTErR5+XCnMP/xZOIVmUdryqeTMVDhnV6Z4huclN6J2pAhXyhrwOkCD5
2pf2wfeaVKi3BQ83k/HKGkbMW+ynQoNTJyKcSP5Qps/16RAVWqjbhk6T578h
TZW2PUaFCRvO/XYlWSmqZkfvOSpMCdn3uYfMX8+/q8Ynr1KhHWfmUS2SQ51V
Tw4GUeHp2J2BIWS+NTvGrzhFUeE1I3SxUY2sF3wU+iOVCqHlT9W5/61X4cmM
C49Jf8ySLEfWczKk49UlTIXG580dFch6p85EfZltpcKv9mwOEmQ/GDoYTV3v
pkJzVttdPWT/5OyqEwn4Q4VuOArcIfsLFb8s2kihQZ+F45CxlYxv60uDhxto
MMuFM1Oe7E8e0dqrDfI06De7vCOO7F/FuBouK00aLGsv1JiQIeeHoyZ7dD8N
upmo9Fwg+9/vX1U7x0kalPDurYgn5yP5ctW59Is0mHyc7eJTMQKUjFeuKfvQ
YAObRmO+EAF+9FQoH06kwdJ13Zo/yfk7UlMelvyGBuWd/BsSuQjgrl4utbWb
Bl898aWpchAg/GlZRfUIDdbWly1pshIAp5UO91FZYJrh187Yf0yg5FesK6vF
Am2HrJLiBsl9tqdwsSiHBYo+fPPSktw3kuUFMftKWGDvQDpc18sEu5UL5DoQ
C2Tu2VJ/oJMJPDY/PTrfwwKrJzaGMl6T+2slr3gPLx16c+xv8spjgrK6nPMt
/nS4yeT9mws5TPBeM4dy7C4dtoTbv7LIZILxZ9nJkyl0aJc1Ql9JZgKpB1mN
PGV0WPmm4HRjCBNE3MiUth6nw8A8QlP7NBOcgendQ1assCKQltFynAluCrU7
RZ1hhV725l/MbZkg6xfrHy0PVhhiVqC8z5wJBtPdOaLCWGG6aate9R5yfy/u
09aqZYVCSU/6eYSY4ETJWHqENBtsW+d7upuoB3ayOx12/GSDlampUk/W1wML
9g8jIUHsMGaz3aU0FvL+u66bPB3JDg37HguHrWAQMVpkcCyVHf7lGcuymsag
8VV03vZSdqj8i0+htgsDrdtmLr3f2aHam6fjtbkYbKY1T243XA8185d/TAEM
fiyh2V5uDqiw3iAj9mMd8P9dSFNP54QWp249l+OuAQvFrc9v/OOGiUX2XwcS
KkB7qnRn8EZeuDplFeG8oQwcMl4VTSX4oNFq0PER3mJwtidk3Ts7Abi8Ulrk
/acAiPic9mUbF4TCSs88+Dfkgat3vu3cmCYEPy1mt72RyQEuV9nTNLeJwJHV
q/YM/hzQdb/Cm1tTBF5psC6/zZIDDJrO2ozoiMCt97WZLt+zgaxYo2CSsQg8
4BZbWp6bDb7ioJg5JxFYf37fbWPlbHCYa+l2WboI5GQ8o5juywJa2ZMeahyi
cGf3fwfDwzMBW/sHfZVhUXggnV8w3z8TlOo/2DkyIQrjiDesHz0ygUPtBfn7
f0Rhk3+QObTOBNWP6RzcFDHotN1s9Y5sJnAN0Hw7KSoGM6t7nkYFPQAdiqmW
heZi0LLU+knjWgbICjnloFQrBs9XDupNqKQBoDPlrRAvDg9XsDcOiKYBt1PW
w273xOHFdAfuEbY0cD+kzrz0gTgU5ubuE/qWCpbbIuR0CsShYvX9SMmYVFDt
tLXTrFEcFnd+tK+cvQc0ok+rXpoXh3DPLeHu1ylAfrBjpMJ+MxwMCqnZmpAE
+EKrLA/ISkApy1SWiaAksKC2n8KrKAGtWH7rVrsnga99rQW92yWgYxm3302T
JJCv3s/qCSTgzqPDA5UsSUD3G1tllp0EhEPuJ8qvJQIPzSPilFgJKF01q114
NgG8//7re/WKBJx6LNSSezEOROjKXlP9LAmdrHW7M07Egdk0w4zQPkm4HHlI
7oF5HDj292JD/5Ak3FDF64Q14oDy03K+2ClJmDtfkO+3Egucw7M/L9CloObC
v+BPMbGAfVbD01ZCCrZsVbYZqIsBxq+tC0UPS0Gz3+/Ke1yjwHvXDMmMF1KQ
bybQdN4qCsjo7tWpqpKCAU9578jCKHBN4JtNZ60UpLXz1RTxRQHxGqm4DYQU
lGTHI1GVkcCFPYce8F4Ksl1eemizLhKwZuePnfghBb1tGiM7i+4C7a6KUilR
aaidYb0mtz0MPN73wSDHXxpy3gu66iseBj7Z0FnpQdLwv00XXL+tCwN0d03m
mWBp+JjvV1HX11BwOi1Vh3FXGjZuvKscHRkKxGdPb89KkYYjf5vMqL/ugLhH
M6KZpdKQOiBmklsdAvzZBX+ljUnDig/opmtgMLB8Z50Qf1QGbtqi0vTIIxjs
0/kcVWUjA7s/t/wecwgGavlWYd/sZWDO0StEom4w4As5GqB4WgaG5U9G+bAE
gw97LM8RbjJQvrXM/lLYLXC48KDOzB0ZyIjR29iTcRMcijjw3aJaBtI23dzy
ZSQQmBira/BJMiBPbf6qQVcgkPE/PZEow4Afv3dvq28OBAvPY7NEtjDgZzaO
q10FgSBXcIpHWpkBo2LCLt+7EghoAwWT27QZMPSvRuwxlkBQeX3LYzNrBqxP
O6JqYB0AtjwSEQ2LZsAb74d28e4JACufDdu54hkQapyNnJYJAB0cXqExSQx4
MZnaPPvLHwR5fPqbnMGApY+aE1hC/UGvdvzH3KcMuP3205dqdX4g/gNXZMNr
Bgyv1pm0eeQHXFh19AzfMOBhvzmDhAg/ALUuLL15x4D9R9btMrb3A78yms9/
7GRAV2odo3jRFxifD9EfHGLAox17XwUM+ALp9PIVp1EGfFmVuP5Usy9YePe9
bGycAdtXU1TO3PMFjzT2M6anGVCy79Cvm0G+wM/5co/nHBlv9TRHxXlfYJH6
MHZhgQGdI3OurB32BVvfthn6LTPgl//3fRX8/++r8H8ApkN9QQ==
       "]]},
     Annotation[#, "Charting`Private`Tag$3065#1"]& ]}, {}},
  AspectRatio->1,
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
      TagBox[
      "\"\\!\\(\\*FractionBox[\\(E - \[Chi]\\), \\(\\*SubscriptBox[\\(k\\), \
\\(B\\)] T\\)]\\)\"", HoldForm], TraditionalForm], None}, {
     FormBox[
      TagBox[
      "\"\\!\\(\\*SubscriptBox[\\(f\\), \\(1\\)]\\)(E;\[Chi],T) - \
\\!\\(\\*SubscriptBox[\\(f\\), \\(2\\)]\\)(E;\[Chi],T)\"", HoldForm], 
      TraditionalForm], 
     FormBox[
      TagBox["\"Hot-Cold\"", HoldForm], TraditionalForm]}},
  FrameStyle->Directive[
    GrayLevel[0], 20],
  FrameTicks->{{{{-10, 
       FormBox[
        RowBox[{"-", "10"}], TraditionalForm]}, {-5, 
       FormBox[
        RowBox[{"-", "5"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {5, 
       FormBox["5", TraditionalForm]}, {10, 
       FormBox["10", TraditionalForm]}}, None}, {{{-0.1, 
       FormBox[
        RowBox[{"-", "0.1`"}], TraditionalForm]}, {0., 
       FormBox["0.`", TraditionalForm]}, {0.1, 
       FormBox["0.1`", TraditionalForm]}}, None}},
  GridLines->{{-0.1, 0., 0.1}, {-10, -5, 0, 5, 10}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  LabelStyle->{14, 
    GrayLevel[0], Bold},
  Method->{
   "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "ScalingFunctions" -> 
    None},
  PlotRange->{{-0.1501415170241528, 0.1501415068702705}, {-10., 10.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.9447332647902026`*^9, {3.9447333107832346`*^9, 3.944733332525321*^9}, {
   3.9447333961219378`*^9, 3.944733421807676*^9}, 3.9447335006556*^9, 
   3.944737362604574*^9, 3.9447375825666447`*^9, 3.9447376276733665`*^9, 
   3.9447377257442603`*^9, 3.944737779423739*^9, 3.9447380116198134`*^9, 
   3.9447381818867598`*^9, {3.9447397737500563`*^9, 3.944739790752513*^9}, {
   3.9447415678317595`*^9, 3.944741610239807*^9}, 3.94474381873669*^9, 
   3.9447440358742657`*^9, 3.9447776602930746`*^9, 3.9448048277670617`*^9, 
   3.9448048692669525`*^9, 3.94480703866551*^9, 3.944821501233758*^9, 
   3.949968974368898*^9, 3.9499693190104036`*^9, 3.9499693496570497`*^9, 
   3.949969463417037*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"82e6f1e5-b24e-4671-95e0-79e0c366a794"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", "E_", "]"}], ":=", 
   FractionBox[
    RowBox[{"E", "-", "\[Chi]"}], 
    RowBox[{
     SubscriptBox["k", "B"], "*", "T"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Chi]", "=", "0"}], ";", " ", 
  RowBox[{
   SubscriptBox["k", "B"], "=", 
   RowBox[{"8.6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "5"}]]}]}], ";", " ", 
  RowBox[{"T", "=", "300"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"x", "[", "E", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"E", ",", 
     RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9499678985383244`*^9, 3.949967959336315*^9}, {
  3.9499680303640537`*^9, 3.949968045252884*^9}, {3.949968081611646*^9, 
  3.949968151509611*^9}, {3.949968230423063*^9, 3.949968252772753*^9}, {
  3.9499683703365064`*^9, 3.9499684222463913`*^9}, {3.949968476865662*^9, 
  3.949968494430324*^9}, {3.949968712782239*^9, 3.949968717643471*^9}, {
  3.9499687479056797`*^9, 3.9499687666137314`*^9}, {3.9499688001735086`*^9, 
  3.9499688262944493`*^9}, {3.9499692835626373`*^9, 3.9499692854170847`*^9}, {
  3.9499694379894557`*^9, 3.9499694401479177`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"fe23b86d-ee86-46c7-89b1-094255bc7b55"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], 
       LineBox[{{-0.49999997959183673`, 
        0.9999999961678667}, {-0.4901856591951531, 
        0.9999999943940885}, {-0.48037133879846955`, 
        0.9999999917992822}, {-0.4776188869290459, 0.9999999908760223}}], 
       LineBox[{{-0.47698113182700513`, 
        0.9999999906476743}, {-0.4590916429145413, 
        0.9999999812907866}, {-0.4541242612933679, 
        0.9999999773184854}, {-0.4518188701211629, 0.9999999751984412}}], 
       LineBox[{{-0.4511811150191221, 
        0.9999999745777266}, {-0.44418949805102115`, 
        0.9999999666646435}, {-0.4392221164298478, 
        0.9999999595869499}, {-0.4367871457737573, 
        0.9999999555870338}, {-0.4343521751176668, 
        0.9999999511912224}, {-0.43191720446157633`, 
        0.9999999463603322}, {-0.42948223380548584`, 
        0.9999999410513004}, {-0.42704726314939534`, 
        0.9999999352168025}, {-0.4260188837837758, 0.9999999325824119}}], 
       LineBox[{{-0.425381128681735, 
        0.9999999308951358}, {-0.42217732183721435`, 
        0.9999999217582282}, {-0.41974235118112385`, 
        0.9999999140141823}, {-0.41842167490991855`, 
        0.9999999094980525}, {-0.4171009986387132, 
        0.9999999047447274}, {-0.4144596460963026, 
        0.9999998944760053}, {-0.41313896982509724`, 
        0.9999998889336955}, {-0.41181829355389193`, 
        0.9999998831002935}, {-0.4091769410114813, 
        0.9999998704982557}, {-0.407856264740276, 
        0.9999998636965913}, {-0.4065355884690707, 
        0.9999998565376914}, {-0.40389423592666, 
        0.9999998410721491}, {-0.40323389779105734`, 
        0.9999998369519684}, {-0.4025735596554547, 
        0.9999998327249728}, {-0.40125288338424936`, 
        0.9999998239393882}, {-0.40021887199560435`, 0.9999998167399332}}], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQncfjtXbPpJv790xQm/3//3v7qXc+yxysuLn/5M2D
U0D8UzrbPFfk3dzfrKM1CcQ3Pmu1uCzq5n5J31M9ID4bn0uYsNHN/S2eto0g
vnUcW/Mv9Zv7T1/SqQPxC9adWP9Q9ub+uFTOahD/pp8v5wbOm/tNzrWXgPhr
+sP2+Dy8sf+VYk8aiP/wvsRL4+s39r+ovpYE4osZ3BaVPntj/7cHnPEgfv2F
+PyXO27sb5+gGQ7iBwlmKrVNuLG/Rc7GDcTPsTy1o7L7xv64fQwuIH57orZ/
btuN/acb9jmC+Hs2vq0Oqbmxf76Eqi2IrxpUdFUp48b+6yZzjEH8H5OqO/bb
39gf4CInD+I/lzn4ys3qxv4+LwMZEP/aMjbfcyY39i/rtpAE8Tfvmih4V/PG
/oXW2sIgft6j5bN+CQPtXz6VDcQ/kGs4r+rb9f0La/u+/APyAeVy2vo=
        "]], LineBox[CompressedData["
1:eJwdzGkow3Ecx/FFLMr1cGgZUaSRJa1kNdbKExqFyZErT5hRLEquzeSJyF3I
rTlS7qMvacoYswe/X2p/hTkSrRxz1N/x3YNPn15P3oIilaLUjcPhBP4PP4kw
C9wnCnzW9vzz65BYt3l+u9cUgtON9+g9WYE6haGQuM+3o0dyHuMzrBRW3uZt
6OxmDlTtUPgMjjOjTy3R54YuCsr2TQN6R1ktEnVS+FhPnUEb7Ou9W1oKHiHm
cbT+U6o8qqfQa5kcRCeH5NzclVAIjxjSoTdU2neBmMIrW5GHnvkyZc2JKNwG
fGeh+1r9t2KFFDTOGgW6pn+4URJGISIpVo4WwjI3z4dCwutBDHrC95I3cEWg
uofPsv/uzpVwxTYC3t96J7plduztghDItzIOdJG0+CzohABvV3aNDq19aBtd
I1DW4XmIHmdeHNOdBCIVXh2uXlQmI9cRaFj+aHL16lZND00EKqePNa5egGYq
qpaA0BlajhbIWOViIQGpWitDq7OX2o1pBAr17pHoPya1BQI=
        "]], LineBox[CompressedData["
1:eJwVzl0oqwEcx/FFUYd4HOyIyUumuPHSyG5w423kZXYm5G1R3Bw1rJjXUJQQ
4oKGViLidIiS+SMXzGjs+T8iNSIvKZQL23B4/he/vn3ufiGqWnmVk0Ag8OdH
fd4qHpOncPC4fSz8/HpOGrRXLyujOTgy3bx88G5PNU69RXLw8uvqllx+2aeV
BnPwdac5IQf5/Iwx/OBgtMNtlqzTiiZ2rQjZzfVZ5P69lt6qcwSJWplMbvW1
alwQYX+DkZBLl6bz0o0I5lT3AHLgdbiraQUhZ5C5e+c9IYtRW3oRItItGnKY
m8xo7kIQXTqqyfMHqtCjNgTXOFsReT1r5GSvASGBUSeSz7LfYjcrEBgPhTNZ
mG94nZUiTD4UdDnorzeXOSNBSCwcryOL2Se9Pgph6N+8iiz5HazQiRHW/kYn
k+UFnSvDXgi5ynWbnfdAcUZD6wMLijVpGVkoUh1qb1iw/PkvI+sumsSNVhbs
ld3x5MWSBaxDFj79Tt3JpjLP+JptFnbU9as23uZ7Qw8zx0Jc6Hka+RuYrP2Q

        "]], LineBox[CompressedData["
1:eJwVx1sog2EcgPHPFxJWKMeRuBCFll3MIUMoI2sUyphTM6QNKacLrMQVmkPY
cENSFBKS+u/CIWfzvo4NpSSZ0w4sCe978fT0CylX5cpZhmH8SfTinJqR8QkM
wxy5j/3vLcn3wXlG3IehWrm4/0UcVhlbIOrCcGUSj1KnV2lXhfUY5gT3PGp1
bVlzhAhDonFA8kl82yvTradiGHPv5FHHL0r1WUIMEmdHD2qzLc9FyceQf7p1
aCMua88cWQrCUBTjmUadrOGvJZgR2NtaA6zEumWe8cCEwI3xtliI7edRjOwR
gYoTtU+9wA3P6DAiaPo9aqEOng683NxGoBycPTET/6462bO1CAyuIRUfxIXX
bODdEILd240Y6pWfv6S6fgRLDWsO1MqU725NF4LDnu3xd+KbvVffCxUC6zx7
9Ea8cXMhKE1DUOzlxHkl9mPOpB9CBLLWQcMLcWPoabs6DgHrXjJEHak42JmK
RqBu1AZQ6971BU9+CCw2BddEzJUfq6QsgsnHbMdn4n90pu9J
        "]], LineBox[CompressedData["
1:eJwV0Gkow3Ecx/HxSIo5HjhyJ+GJHC3kShLWiMQ0koUc5VySo+GBiCTmypWW
q0iOmlDf5Kzl+P3MjJiwZWjWHLM9EN//g0/vXk8/vsLqrBJrFovlhmM6dtIs
1v1QqDPetb7+GeKFIc5DvCcKS0604gWdJmhZC7ymwK0qU+vQruvpevU+heyr
pO1n9IbwU8idoLAo4qdq0QvmeWPkCAXXVblJgx7vy28LGKDAVsZLGXdsHUxa
dVGwFXtZntCZTqMqWT0F/mb+6CP6fTcm3Z9LIS/1Z+Ye/ZhrvHVMpqDXGWMZ
X+pnK/8SKJSLZCo1eseN3X3DoZCRK7Fl3FP7sNfvR+HbHFR4iw707Yz6tRDw
SUw8VqE9ZNHHr18EWjYcMxizeYYclYFA6WKF4gptauSL1rUEOOa5GyV6/zx4
pZwQkHgfKRToorYzf+UCgUG7kuZzdM71dNydlEA4r+HtjPkrrIavmSLgOXyR
xzhC49D7ISFQPFAQeoq2Scn6tG8nsKx1l8vRz2q7hjkBARdOk+kQ/Q8uwfkE

        "]], LineBox[CompressedData["
1:eJwVz2kow3EcBvARZS94IVeOWClHmUaRF5tyNCk5or1hyv5bTMuxXC1sjiSK
hpythdYaliOxRV81V174//7kmjBCXggtV5b47sXT0+fd83AqaoqkniwWKxTj
bqnQ2p1cyIBI4Nu78/earlEGxVHZDHzqPW5t6OIz0aCax4Dd1e/aQrt0drGF
zcC83mazot++TM1bXgyIBb5OC/q+QKXd+yPQbrqMcPvQM3z35INA8P6TYg09
LStLcN4S0Hk/v6ygc7gOV7yVgLmpRzGP5vcsBiatEohqoGrn0EkOdWLaIgFm
I6PWhA7TciRCA4GMvWuZEf3yUXEg0RIo/RngzqJHNh/GpuQE3pcKIyfR4uaJ
tlQp7pnWH4+jY5PzqaNyAuseC51jaKtxPdGnhMDV+c7pCPp6qG9XmU5gNZ8S
DqJj5Lz33AACz5yQ7C733+jHiwc/AhxRlrkDbbmZADWbwPF3ir8GPWryCVL8
0tAyHH/QinaozZlZRzR0cku/G9H1CT86p4oGsWqBX4n2mpHIY+to0LQu58rQ
v9XDhrsqGvLk258U+h8hJvlU
        "]], LineBox[CompressedData["
1:eJwVzmkow3EYB/CRF8oRyjFGI8dKXgxLaZIQb0SL5loyJk1ouSZyNCxHzRwT
JZSSs/EG8+LRsix+//8fIffxQsm1ckzN+ezF07dP3++LJ1haLZI5slgsfzx7
fgqfTd/ZDKRTau/iP0ui01mqbTKMgSfx2rMYrevS5mQyNDi0WC5S0bxvG7dz
i4aSuhdlMtqgKH0yrNNApJ5uSejrwjhV+DQN4tqCQKF9H3Op/1HSYH3zPefb
99c814UQGpgm80oAulnosDjmR4OWo7f6oRNGTzO63WkY5AiifdCboh5NmY2C
EbZe44HeNj16BR9QULvSdeuEPpxfYuvaKTC99poff/FfZ7Who4GCzo3uxnu0
WFZUUFNJQVGvlHuHPgvyGM/Ko8DWysu8Qt9qFVwXPgWhJeqoPfRLQ2xE2w2B
fV3O3jJaf+hqrjomoFkdYRbRCv5duYQQkHGGjLPo94fhufg1AuzdUNUU+kvy
GfWhIXBzXyHvRzunGGLlidi7C5Yq0DuTA0e5AgIiY81xGbrvR16fFkmg2nxq
KUZbJaoTJYeAdUY0kY/+B2/U9a4=
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQ/UHvzvdJ7Gf23+iXFwn4995eWcDBKWTe6f11VbxX
xYD8PoOHVVmTT+8vEyusEgDyfwQ0bW7oOL1/i+hWLi4g/8zEIypri07v/zbx
yKs/f9/blwh7srO5n94vrS218CGQf0ws6Mz296f2/3xku2QZkG9g/pnl3JNT
+9+xrb0yD8ifFT7F9snNU/sXpKu+ngbk58+4tk7gyKn9Ybuvn2gD8iWkoidm
zji138+lxzYVyM+STQmTdjy1fy/vol0yQP4VW9Z+Q7NT++dJrFQQBvLt4pYd
d9c+tb9g3bE0TiBfeP4LixLRU/vXaMyZ+PXPe/s9CrnSZ1+e3L/B5GDoGSCf
T6XsQd2kk/vF3u4wLgbyK1zEJae2n9zfwh6Rlg7kP0rZEbi65uT+wsP7CqOB
/O1Lfx26nnZy/5dJNwScgfwE9fqlBtYn968TnZIoAORv0urIevT4xP61b9kv
Lfr93l7+YsJO7Zsn9r+ZOHXKFCD/5r8sd77zJ/Y3PzL70QbkAwD0ztpp
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQffn84TSNXSf2/7+mHJL1+729RJzvQ52+E/s9LWo2
aAP5tROFIsotTuzfsfHDneW/3tu/Mn+97IDuif2BrCq504D8sHuHv3Iqn9h/
VaH2SAuQb6BdOnkO74n9rfd2Hk0A8h8duX7u4KPj+29N6vgrCuR7/JjjytN7
fP9Gni2TS36+t986r3RKaNPx/XF+ylbxQL6Sq9/jeeXH9/tm/Z7lCeT/nvi/
wTDp+P5LdZEdskD+Ou2kPWHmx/dzdwb+OPjjvb1IvLrxwofH9nNfTg//8/29
fSMrQ9Ora8f2r5m62fgRkP9u9Y0LxmeO7Z/ed3nXcSD/+I/OvGPbju03vmRx
dCKQXzXpzcrX3cf2/9qTt1oRyL9/dKOCmdmx/VfuSu3Q//bevib4p4uFzrH9
euomjwWBfImHDplWSsf2R4vu3vz563v7gD/nN9rxHdsvlH/UYRuQf8DonZP7
s6P7zQX/vTYD8hfM10qNmHZ0v/CsvFbVL+/tbXSLOqN6ju7ncSuvZwTyb+za
uTam6ej+jRn6PHc/v7fvT96rsLTx6P6fR8OybgH5AA9d8gk=
        "]], LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAiTQWQL9sxb8DL5e1jPPvP4EMZ4dp
RsW/BLh5F/ny7z9ieaOpevbEv2foWfiu8e8//gbrzXzsxL/60355g/HvP5qU
MvJ+4sS/zjC7dlfx7z/Sr8E6g87EvwA3O9/98O8/Q+bfy4umxL99sZY7RPDv
PyRTHO6cVsS/B3yXq7Xu7z/A4GMSn0zEv1KmwCiB7u8/XG6rNqFCxL8nGMgG
TO7vP5SJOn+lLsS/eLLr3d/t7z8EwFgQrgbEvzAxncL/7O8/5SyVMr+2w791
chWjHuvvPyp+pe7oq8O/Q0q02tnq7z9uz7WqEqHDv8C1VjCU6u8/+HHWImaL
w79KyxIqBurvPwq3FxMNYMO/TMlOBN/o7z8wQZrzWgnDv9xH0pph5u8/dZKq
r4T+wr+kWjtDDebvP7rjumuu88K/UDvd1rfl7z9DhtvjAd7Cv0qiprEJ5e8/
Vssc1Kiywr+L6cvPn+PvP3tVn7T2W8K/xEgWW5Lg7z/Apq9wIFHCv7K8QPYq
4O8/BPi/LEpGwr+mJp0+wt/vP521w+s4NMK/qZTsqxDf7z/InPGm
        "]], LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAl4YcC1Mfwr82czaHPt7vP8ZppHWS
rsG/WxNgb3PZ7z8Lu7QxvKPBvxicILr02O8/UAzF7eWYwb+caGtmdNjvP9mu
5WU5g8G/UNiVzm7X7z/s8yZW4FfBv0KaSUZP1e8/EX6pNi4Bwb84tSniudDv
P4a2KMgQ98C/I2eNESnQ7z/67qdZ8+zAv3v+9oeWz+8/4l+mfLjYwL9OXxI1
bM7vP7JBo8JCsMC/ryKL+wHM7z9SBZ1OV1/Av6S+X17Sxu8/xj0c4DlVwL+b
w9ttI8bvPzp2m3EcS8C/Ibj1aXLF7z8i55mU4TbAv4rlFw8KxO8/88iW2msO
wL8chahaH8HvPycZIc0Ae7+/FQjEJdy67z8Qih/wxWa/vwBo0uwIuu8/+Pod
E4tSv7/OGTg0M7nvP8jcGlkVKr+/q+45JoC37z9ooBTlKdm+v2cRt8H6s+8/
qicI/VI3vr8yfLfia6zvP5KYBiAYI76/YEZJA22r7z96CQVD3Q6+v2Uq0yJr
qu8/SusBiWfmvb+46T07XqjvP1fuRi+pzb2/cE+HHBen7z96W939
        "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAATZD4bd2jvb8J7/zN46TvPyw27yyl
87y/fuOHVAGb7z9mLn9/ud28vyCZiiu0me8/nyYP0s3HvL/CSZrFYpjvPxIX
L3f2m7y/kV75DLOV7z/3927BR0S8v0ndgmYekO8/wrnuVeqUu79YP6epE4Tv
P/yxfqj+fru/2rlECnyC7z81qg77Emm7vxbzNUPfgO8/qJouoDs9u78aO1L9
lX3vP417buqM5bq/5RvLwsJ27z9YPe5+Lza6v2HhaXUKaO8/kjV+0UMgur8g
oUZgGGbvP8stDiRYCrq/qlk0CiBk7z8+Hi7JgN65v/qG6E0cYO8/I/9tE9KG
ub92tE1rxlfvP+7A7ad017i/ur0c+85F7z8nuX36iMG4v6b+QFNvQ+8/YLEN
TZ2ruL8HUI0bCEHvP9OhLfLFf7i/CmjeoCI87z+4gm08Fyi4v6IGpu74Me8/
g0Tt0Ll4t7/NrAtKFRzvP8JI7E80Y7e/DRPl7z4Z7z8ATevOrk23v1Qr085f
Fu8/Tq5b/q0yt7/PcEPeuBLvP1IG2DU=
        "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAARFANPeIIt79Nf8W89QzvP2iI3cBh
ILa/fY7b91jq7j+mjNw/3Aq2v7Hz+7Tp5u4/5JDbvlb1tb9j3s71b+PuP2GZ
2bxLyrW/SXsyjFzc7j9aqtW4NXS1v478usCyze4/TMzNsAnItL/jLR4QOK7u
P4rQzC+EsrS/lsp0nRKq7j/I1Muu/py0v9iQRrbgpe4/Rd3JrPNxtL+uYe8C
V53uPz7uxajdG7S/W7dZRaiL7j8wEL6gsW+zv47LQ3a+Ze4/bhS9Hyxas7+n
lO1OwWDuP6wYvJ6mRLO/pPZ2drVb7j8pIbqcmxmzv5qf0RlxUe4/IjK2mIXD
sr9xAgh5MTzuPxVUrpBZF7K/AoD0A7QO7j+yJou6RQOyv2i50KcgCe4/UPln
5DHvsb8nUI5ZfgPuP4qeITgKx7G/JSujXgz47T/+6JTfunaxv3vp4C1v4O0/
5n17LhzWsL9apB9WMa7tP4NQWFgIwrC/g3cHlZ6n7T8gIzWC9K2wv22aP7D6
oO0/ZAfXzImYsL/F7VJY0pntP8JB4As=
        "]], LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAWqmIC75usL+Lh20ooYvtP25PkZi9
Ka+/mEtQlqw87T+o9ErslQGvv37btWn2NO0/4pkEQG7Zrr84VDvLLC3tP1bk
d+ceia6/Cd0Lo14d7T8/eV42gOitv78rjY3S/Ow/EKMr1EKnrL+eryuQ2rfs
P7L2xQ/IJKq/RE0+JGgd7D+OqqLCPvmpv1JuLxEaEuw/a15/dbXNqb//2ze/
rwbsPyTGONuidqm/MeYMsYXv6z+Wlaumfciov3MN1ELXv+s/ejSRPTNsp786
rRFM7VrrP1bobfCpQKe/TWNI2cdN6z8znEqjIBWnvyWggqaDQOs/7AMECQ6+
pr9R11B0niXrP17TdtToD6a/pkeTK13u6j9CclxrnrOkvyLwsv7jeeo/HiY5
HhWIpL8HgyGdw2rqP/vZFdGLXKS/Pvllo4Jb6j+0Qc82eQWkvxEQ3JCePOo/
PDxvzAryo78OpPHgpzXqPxsmuCg=
        "]], 
       LineBox[{{-0.03831825519705517, 
        0.8153572810298148}, {-0.035118389077837334`, 
        0.795951065964605}, {-0.02980389526916451, 
        0.760457566926086}, {-0.029493773302985506`, 
        0.7582610890958533}, {-0.029183651336806497`, 
        0.7560509316568205}, {-0.02856340740444848, 
        0.7515897122022311}, {-0.027322919539732447`, 
        0.7425047298304176}, {-0.024841943810300388`, 
        0.723695266805016}, {-0.01987999235143626, 
        0.6836382009184068}, {-0.014057682745113582`, 0.6329449057413152}}], 
       LineBox[{{-0.013419927643072765`, 
        0.6271833630780794}, {-0.00031887755102040825`, 0.5030898594164934}}],
        LineBox[CompressedData["
1:eJwVl3c0EH4bxVVWlBSKkplVVqIkvldWspL8ZEdFSUPISEZWhRBFKCsrspKR
vffem9LQsrMib+9fzz/3fJ7nnHvuOffhvnhLx2IzBQXF0CYKiv/PY1RiyeOf
JdHVlydu1jKGWBGWrkweb1w5HalXuDIAX+3M9hdt3jBlf7FbtW4AumETTQ5C
vph2vZddfXEAM9walQdHHuLXOu+6UVQ/+I/vzwxRCsTTSwWcdUx9aMi5oJT9
6Cleq10V2iHQDdka4SqB8ad4OCL4d3WlC1m9Kyejjz6D8i0rTo6WLoSthMJ/
4hkm3rRc2Wbfhcuol7GQC8f8lu384dWd2GgUP8w2GwHB1gWaRpsOSH3cxHFf
PwZ6pURj30wLRAvPz4q/jkHFY/eVU6kt4A9Jrx5ficG1TVzZXy63gD7ujVSs
ZiyM28s+3h1qxpq2/vDGVCzEBZ2qNrU2YSQrU6jscDw+x//yCKtvwOALQ6Y9
hvG4+4w99dejBvQ+pFq/6RkPiXOd1/LVG9BqZtTO0RUP9S4llfj2epQy0ji6
2b+ChePUy46xOsTYmFbL5ScgSYiT6QZTLV4Yb814NpYACRuB2IGhGjxXfRf+
iyYRbvbCHrkJNQjmorN+qZ+IKHqF1ffHauDRnrtzfSURsYrw/XmxGubi2y8U
yybDeEHxWGJLJXhnilZkKl/DenNCYtHHMtxrUfRe+PUavIpT5+p9y9Cb2sSQ
wZaKLIoQtfeHyuBnMcTLfTsVNOZe3gpOpZgZXNWk4UrD4o2lisZ9JSitOR7f
5foG6rfUv93yLwTrqwrhx6/fID9tepJFrhC2HqfzVXre4IKG69ZH0+/Bd8Kg
+b1wOthl9ma1671HQJbTYsxQOi7JKbkXiRbAMCpf7frxTDiPU8qkb87DOyf0
8Flk4rTsSJxNeS4Y9OoujAVngsP+1/ZvbrmoYOyz15nMhKT/4vTc+jswK7qc
eaGeBS5721/ylO/gUhDp7LmahQtRx445i7+FYPIoucCYjTfC4ScHl7PR/YyH
UpY/G5v3jqb3V2RD1C418PfZbPBMjPxK/i8bH0UKX119nY2qIhPRq95ZOP1q
oEVL/y3epHX7XF9Nx4xPhmXNjbcw5ZAqkI5Jx/OrXhsnvN5CaJL74VbldEyK
iBwWyngLCeqRlYzQN3hY4PF0C2UOPvQqNFbJpqG+RcCoIDMHIjbLHEtFKbDJ
WpsXrckBuB2vTt5KAWtoR0DiYA7e6wT9yT+Qgqv6LqUhVO9gfmh4aTI4GbQT
rdw3jN5BJnCFUtcuCaeW70xy0+SiMKVN5JppAqYG1e4/Z8/F3Kz2ZhnOBISV
cO7dIZELzeVn0zXjr/DFs0F9zTgXvd4F7HSWr+C7fX9m79tcyFA8mtzmHI9a
nuo7/qZ5cCsL1zpXFoubVBEMm+3zUL562fyvXyx2T95Idnr0z6eGs89OnY+F
ZfqeAYt3eQheYfhqOBEDamlrWXm6fIwdNfsgahQNZc1dW37n5iMn7rLjN48o
BJpvnV1pyEddyOpdOfEo9N+hGPs7kg+ILxQ5jkfiWvRUIS11Aa4kamk8U4xE
4HSjLbteAb5dm5CTYI5A/xOvj4qLBYg3eas0NxwG7qS77ap076ESzl8YGhGG
a4W3SzU53kNebENpSS8Max8vRJ5XeQ/3c/rqa13PwC0pq2Md9h7bDrPQ1/Q+
xbXehYqQo4U4OyMgGrEegpzvPzLD1QoR6MtHeaMmBGt/P758YVqIp4u7ZiYe
hyBQoMM5ybcQw7KPZ3K4/umd0g8X9hbi/IlX42maT7C21zLug0MROJ4UvaZ9
EARlMZOgL35FoIt54O0iFIRARV3XH9FFkFrZVrjRHAju6woGv2uLoFVhzS++
JxAqJRw7t+4pxuKnm+dH8wMQdKHPQzy/GFLvpKbmBfz+hVwWX5qL4R6wZzCy
6xHcnOPXoz4WoythUV/L4xFuht64S8NQAuV7Xsytww+hVbfFfvRyCfTLf+X2
xT0Ag5j4lYBdpSiKj5e3NvABdfEzPgXBUhz+cY/KitkHf1X/TCzJleJVfGSQ
Yrs3pi7Wml2yKoUrjbOIt5o3WsOMDWXKS1Guz/b5m6oXAv8+1Jy8UQb/L9K6
TNb34es/RR/tVYZIGmKSKnEfbqy6jeciypD1mj5ocdUDNyU4T5VVl4E+5K9X
4mMPCOQYcjVtL0cOr2XkSQd30HydYYu/XI49Rkvrd6zuwSudd+XerXJ4uW7L
1tx+Dxt2ev3n75aDf+bSKa23LliiKA7bHlwOo7/r1kUbd/F17wMm56JyKOW2
iHxIdkad1v7t2rsqkCw5P2d40BHMoh9227JX4HK4yCHWTw4w257I9ZS/AsH0
plqvox2w2iQs2S9TgaWXqffkdjtA+LSskdmlCvB+b2L9znAHwYpGr23eVUAg
MHX4zAE7DPNw5oSUVsBy8ORbie+2ENo8UfyuvgIiFFoCNVm2qCy/1r48XIEF
BrPSGdjit9zdJQ+qSpzbMvP0oOVtGEpHKD/RqwRzTNnYYuwtJO0xOZNjVonE
l8uLw/K3ML/IZdBzrRIFW2nmPn+4iYDclOts7pUQsbNd1BG4iTKJgtC45Er4
q5N9smXXcUCk70P2ciVCvCN97nNdg822qB9dm6vwh64hYGeHFUp+mP7+va0K
xueoDUI8raCX+oVWhrsKzyy1Fwwnr+KhwKJY5ekqlNTvnCssvYJf3CxunZFV
SJ5tVLZ8agFpl7jbFQlV6HEsct2qawHPbhGLrIwqMBWmiFxntsDuByoagZVV
OPvqPPeV8MsgPx33qn2vwsob1rnFxEsIyhvMqzheDam0Zd3MCXMM7riSmqVY
jadiA/u0MsxxwGr+ZYxmNRQe/Oj0dzZHwb5tPq7m1XigKVY4vNMc4x5y544/
qsaoeYBk/GkzHFaPnc7qr8Z+6ogtDikmuJcgPBHzsRoce24kTZ0xQe16QW/g
z2rwnT3IdGvZGIZZHSXXKWqwrum020XDGJ4sWwIEBWvA+/O2xnUKI3SNWQjG
Otag5jD/1JFn+uA4Prcv6H4NXgro7mxR18fVELcdbv41WP1evv3kFn2sKYUv
GsXUYNuve7cy7c/jQGp99Z66GmjHGnuamevhjv0h86Ddtbhid6eSwkwXu+mm
i/W4a5GUsEG1iUMXBTFvWTmEa1FfsdTWO3wOa43H29+crEX5uNKJZeNz8ORW
ReP1WoSlbD/YYKmDwNbL+6mqarGdsuqQfbQ2xC8LOje31KI7ZHU56qo2OlZ+
dIf216LRn47B9og2mPnsAnimamFFl/hMPuwMIl3u/wFbHUT1ra6GUGohSTB6
4O6tOnwt452lYVeHaqm5lMLdOlxgSHQQrVbDt3N8T7b61OG2xt1bt2+oQdj9
jerzyDokzbhfJVWn8banMD+3pg4blTm5IS6qKPXsezazrx5221ZzZNhVYMYa
NZvPXw+b6rS8J93K2JRhqul+uB7zxbOd7Y+VoTTwmZLhVD1qQuOT/mxWRqPY
gt0h23rQpKR/z1lSRN8wo45lfT3mmoUHNWkVoOZv0W/fWQ+fNs3G0o6TKD5e
aOo1XA+nIdO87qiTiA27ZB07U4+p5OzSr4dP4qp2nvcgawN8/vi63LGQx2qV
Ub6WVQPiWaLSJDrkcN02S87ErgGqrZyPVhzkMMpFVW3t2oA7QfmqHfvlUOma
0f7wSQPSEy8+S7opC/9jm75Xvm/41zdPPglmPwH2tCT2Y3SNOOdp0lGRJI1A
gz/xysyN2KZSWSJoLA0KWm0hXY5GDP0d0bm9SxqfLq9I3ZZoBO++xt4X948h
nUPjTJphI0KjPWOYrx0FCZm9z5nWiIciurxG5pLIklehFc1txCkxmZZ0Xknw
TEcGypY14pf6VsaiL0dAraEUZdDViEbv02FrN4+gjSr8XeifRnyPXgkceyAB
M2fZrzQaTbjn43jKYEAcBy/X90zpNSGmabWVNV4c81q61T3mTdD7PeL82Foc
vgeux71ybMLJm4J/AijE8aYtygivmvDfzksS6haiWOH70+aw2gRnPqmQgmuH
UMn4oNSEqhlZ3LOObYyHEPBnV7oSYzNSuVUEtxccBFfHQb9d/M2gNLw//Gvr
QajcM1TKONuM5bnlyZFCQYR0vi/4nNIML6UrmVZa/DAuUU5uzmmGcv6dMwpU
/OBL6XiWU9qMHdUUrXQlfChw/WZ7v7sZPJOPBS6I8WFUkE1kP0ULYoZbyyo4
DuCgu1Oc7vkWFB6hsZrl48GCFWXwiYstUODU9Lj+nRslusFuPDdacDyFrjo1
kxvaB1OMZjxbsH6sesBSlhsOPX0sARktSK4alo8w5ULVoWN+VVStOG3DzFLx
YD9MxXRfze5oRQMPrfspkf1YlrhdzLm3FTfUMpgmutghLJM25SLaivbjkV4a
B9jxVJXznOT5VkhFWe8P7NgLSwsa9sSUVjxxwASrESsorA5Idb1tRQfjyWvO
jKyIvH5Sa1NJKxj5zgeW1u5Bq52Lh0lHK5QvcNX8kNqDY57Tn1hWWzGSLW32
gGM3aGP60n3V21AbLkr7aDcz4uMXat/91wbD+rCqtX4myCbtHP94oQ1PZ0R2
iLxggk26+i7Yt6Hv1YXzhQeYMFBU5rD0og3SJpdE1MgupPYn4+pUG2g+WAVc
fcII5eFq/bDlNhzgesycaMqImekZ6Yub2lF9No/XVZgRfvPbdYLp23FiF0vv
TOgOlK6e8v7J2Y7V82YNHXsYwL+1eDJBtR3q5oTOSJcec3Wi1+I12/FOspRB
fjM9Sn3jfsTotGPBbKBwXzYd9CgfTEUat+MNw7xb2k46+GycXQi2acfRDLmm
kRFafPr9dePe83bcN/1BDsdSI+ud4f27L9vBcOdq2TFjatyza9nsFN+OHcUM
d+jYqME8+5bK7s0/XrHeLN0zKij+dKW3Km/HTFRi79EwSsR/ZNrz32Q7pilf
s6gUbcbNON/nOr/aYfE5ynfDczNkzFbYtOfaMRBHTXtRfTM6R0bZ1dfaocJY
orN3dBM2DbzmOcnYAaGZpilu+k0wa4OoiHQHDKp8RUe3bBDhwLeZB+U6IP3g
PWtW0l+yrMF3WFChA92NOXMRan9JUCOdJK9GB8Z/bjNOebZOSmt6jrOZdaDn
V6eNnvQa2V9srUz1sANz0lP9p9NXCDPb6urNxx1gU6Q4n2ywQrY5PMzqD+nA
5slMORaaFbImlrjvzcsOqLGq2TFbLJPBV6OzOjkdqMkSklQQWSJh/mejY0c7
cOONT6v/jwUSODl2ju5TB26evJJ0JXmB+Cjf3Gr/rQNfTX1suC8vEPsNP/tT
Cx14vMYZwTs+T3TsqtWmtnaCnunbFZaPc4TB6NjSCalOLNbPLV2mnyXUBTVv
EmU6sRDx4+p41wxZZ9a9uEO+Ez1CqRmML2fIz1ablo9qndh2nj7A9/AMaVRI
ffXIrBNs+uY/dtZMkQcH92v3+Xei8hI7++7aH8TtQRrVySedsPuXl2jrH8Th
0/Gi1LBOvIyw0dXa9YNYRuvxu8V1ooxBTGHXpe9EaVfw2oH8TpzQiFar3/mN
UKxufm37sROfaqqpJ2K/ELOJgXn3r5048nOOdafxF1LenEUe/+zE16N0Toys
X4hHjGl38mInTASsJJxDPpMNpcKNYboufH7v354R/In8Dbqtd+pIF/5mi+xK
yPpITJ1V43Slu1CVddq92fEjKb3I+dNcrgt5mweb4vCRuEm13L93qgslBpGd
ah0fyPqgYHq2URcEOumjTNfGyRrf+BZ273+8hBz7irFRYrwjX0voUReYLowm
Dd0fJcXLjyOOBnbhFxO1NRPfKLnXdELs7PMu9Cckc7feHCF/bMINfd90gfXF
qxamHcNktUgre6a7C7szVjzYPQaIYSLf2vpAF8KXf9sESgyQwsA1FfqxLmxh
2Yefn/uJs3nqMN+3LvD93nba7Ew/WaampjVa70Kikln2iHAfWTpbYlrD141o
JWPjzzt6iOdA5gg51A22X2IVXo3dhME83rhAvBuM1tVvqX27Cb/NA8O0E904
Z3TDM2Oji+gGntV7crYb8narvVLrnSSr8bOmiWs3VJ8bB1RwdBBZnf7mXs9u
eKpmHjT+0k7qBhrVtR92Y9nKOSgro52MTmaeVgzthn2UywHXk+1kG81dZaHX
3Yil8piuH20lVooMcr+7u5GpYSe53N1EFhopim8O/ru35FvYaecm4qEzLzM5
1o3OQK+1eo4m8ty8X3roezc82N10FG40klr3eMkKih442LY45O5pIDzFR4Uf
C/dgRexBr2NMLclQFEqjluiBXRjl3KxuLTnetO+gx7EeHAz09zOnryXagxSC
dgo9EMuzi2R2qSFuy428Bvo9CCncr25vUU2GJC/s4/PuQSfLnQW/S5XEckVq
h8+jHkTLmroxClaSmZJtWz4H9oDzwUcrvV8VhPJU4feEiB7EWUW8Y7tbQUQN
WAoPZPbgT5Tv/IkX5cTDtUn/wGAPFjfa6n9uKiV0CvEa3mM9cNRzKRyJLSHP
qJ3lP33qAbP15SjakyUkNYhfMGG6BxXPOQ3XvItJV9z9JV6qXnDEzg9O7y0i
/LXHwnjFe+Fe0neuzaWAZPkx+HlJ9cKv8KhEtHABkTnz2XVCphd72l9I3RjN
J2f6QyxeKfdCbWq96q9SPnH6/kuS16gXcc0Wv8L355EmhoQuHt9eFB/Z6rR5
NYfodd2t8/TvhQUTm6rF+xwyHn626GNwL5zyzu6OcM4hC1wb8fFR/3gWg3xW
a28JxxFDW57sXpSbDEtdon9LbM4z7uQZ7oXOyo+OSI0scjFFLJLvQy+q847m
XtmXRf5b0eIV+tILj/8Uj4b0ZBKZqMdS4jO9OPxlyxfv3ZmEaozOkFD24b62
mFBZYjqJtKR6ZSjch5d/mI3fLKaSgPwDwqaH+6ClV+ygmphK3GmVcs2P9mHe
kBqDuqnkcqpn3VX5Puy0/67WlfeaiE1t/HDQ/ccbLNBt9kkh1XdWJUPv9eFn
2HyCq2YSyatlKw273wcq9TGLQ3RJ5PWe46ciffsQlV5nnFCXSALfOxrEBfeB
x0zSdEopkRisL7hmJvSBtUDTKE41gUx5T9c2Nfdh+0vKI0G28eRDD4N2W8c/
3tJDmnGZeNLNLzrQ2duHvXfiZ/u3xJP39dd/DIz34fpdNs6i8Djive37jsmF
PkxLtfbQ1cUStqef9Cn390PIVUDE3juaSHtx7rbn6cfrdM6eaK5oomdr2DUh
0I/pr2eYGUtfkhDtds0qiX6U/LF+l7v2gmzbXqzgqdoPyx3zc1EPo8hfn1Bh
Cvt++C9HRdj2PSfsd1q/3XLuR2LI6SBR3+fkxOWtyWNu/XBSsTFdkHpOnBTc
ucse9SOZw2c96Hk4mf17bbdbTD9C39V0pVqFkU+OChRrjf04VCbHmiH9lGy+
4lpi3d6P6775Zx4shhIuvYK7Qz39uKYxNyWdG0pMJEV/F47346Dib5O9UqGk
d4btu/NiP0pDLKv8SAhpsJrtWuIeQLztl6WJO8FkUl/4yRWBAXSNlrTTyQcT
atUrWn3CA2jXren4QBdMFPhH6vOODeAD7X+JospBpPhjfckdzQEw+pTy1eY8
JhlGscnzTgOoMHJg/a/Zj0j28a5Suw3gYdpAp91dP1Kkk6yx12sAYR2zhQFC
fqT+dMas/OOBf/9w1aE4v0dk4ljxicC4AbDIGots0X9IWJn72wQbB6Bv9JtZ
br8viQ4y4pFtG4ArTVVg2oAP4aMfsz/TPYAiynmXyTAfIrH5C5vD6ABmnnQO
VzH5EM2Z+UtVcwNYuhIeVLLbm3g271g22TeIjdCAmUJ4ElrVULXbXIPI+nGg
cZnGkwRV7X7pzTcID5drmz603ycvCvcrpIkNYv+LrTdSLt8n+SmHApYVB+GO
guahUA/y0/sUV+j1QRzKFrMw4HAjdhRNtkm3B+Fy/sCCTqUrWXXRqnnvMIjs
J6ezLK64Ehq7/66Newzia96MZsO7e4TH/NI7kWeDmPRJSBIxdiHn5dxV60sG
EdbjtT1z0IkM//6yo7LyH7+eW14m2IlczNDqK6obxPxeH/cEFSdynZPDMrNj
EHE5SUX0eY7Ec1OJV9jnQdCmWP0ZiXYgGTWrpZe3D8EtfzTMJsyeSLpd9DXd
NYT8RZ2+Kn178v5oo6b+niHcoLoy2LbPnlQnRwyrcw+B13/+4dYEOzLwSHpV
QmoIf0jpk/piW0Kp5SC1yWQIrGzzo9nbbxM/6tG1VfMhVMlGukQN2pAdZcrV
C5ZDkHS/ysuRYkP2irOcm7QZQqPs7K2vSjZEbNc7mzbvIRRbtKi/pbtFDHtn
016+GcISlyKvr/x1Mh5oYBeePYSWqB1+Ez+sicWpCpkneUOoERxxIc+tiU1B
cIN3+RCO1Esc+jB/jfhGin217h7C2veStod5ViTb9AaPzNoQsjeOvvlteYVc
zJ3ZH7tpGBeN+COn914hzNvs2ahphmGfTOcx3mZJHN7fZezcOYyUz9nvImUt
iQzzw79WAsMI+3vNZR+3BalsiB+M0BmG/95rq1VMl4gdF3/vxvlh/Ky6lNvY
c5EccHzdYWEyDHbBwarI5xeJ74Gs+sNXh5GXYpsWwHWRqLuX5DW4DkO3OYvb
9rg56ZbsD1lJGYbki0ulF/deID7+RoEXMoZRjlED/VxTcvTj6KOanGFs6j0q
EXbWlDwP+uzxpHQYAtKd6wOPTYjJ97mbQt3DWPBkTmNkMSZfYrarG2wMY1uD
bcOAoQEJXwxWKaMcwVWL+/UutAZEVZNZgY9uBMkla4ZC+fokdXXv8VnmEUx8
Uc+K2KNPbv0nKPDo4Ah0xfMKbD/pkWU6xS3v/xtB3zmKO8ppumTXFMPTSsMR
pFcmU4Zf1yWHOgYPNF8Ygfpr7rQkUV1iGm6rMmY1AqtBj5NL786RKt74R1Ru
IzhU5yXO1ahDAmU3MeokjWDV67JWEfNZksLZEmuUNgIK6032U+PapGJzxGGL
rBGIi7dmlaZrk4V68XNOhSOw7qeiFDutTQz/MwuLbh1B2k+VNGmGM4TvZhn7
j8URcP3K7lI7oUHIWf/0hT8jUHrTKZT+WZ3oS54nfylG8Q1/eZmeqBO/1akL
O+lHcUL/WPnIdzUy48vx6hjnKI4opJeypZ4mxTGuQt6nRtFxMZE/TfcU6fU8
XfhYYxTsykTt+/ZTZNqCRT387ChYnPQ3NupUCI9w+vVUo1Fc+jW/mkBUyIOC
4cz2W6Pg7An5GSSlTHQ6Thzd/3wUXmzlNn2nFAndCfqK4pej0LAtDX9JrUgq
EgbVjV+NovPLkSvytQpE3MnZPCpj9J/79hcYVRUIA2d+AFvNv33z1A5+/50k
DdclJljmRhEkM12+5xCIR++mm7lLo5DxKUtKqiBEWr5jWXd9FAzjyScjDQhJ
YrJheEo7hke/q5pePJYj3oXpx3dxjuFioB9LEJUskacVCmbQGEPMo24eg8PH
yfLt5b0ZZ8fAmfOCi3NYmmQO1SVqnh/DXp+TNlQPpQlHpmVRwMUxnKH26Oad
OEbW/kv4Quc8hrfeJQfkk46S/FeccjRJY5BPCPL9aCxJbm6frktKG4Nln6zt
xh5Jwu9YqqOSPYbcvi1WVN1HyFM1k6s+xWPYeaNavFzrCLGdjQzd0jUG2qQ9
ji+1JMhBo2scr/rHUPK7uTSDUYJ8qD7+WmF0DEvTWX5Pug4T7ef9pfe/jUHq
pkxiudFhQrs55TT39Bj2P1X2peE+TMqsHbvLF8ZQnUPPyPJVnDj0qFwwWx3D
cqBr/Jd0cSKK3d83NsbwyfFGkvMdcfI/LxBzXg==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3107#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.5, 0.5}, {0., 0.9999999961678667}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.949968271014361*^9, 3.9499683258201427`*^9, {3.9499683738789635`*^9, 
   3.9499684259299507`*^9}, {3.9499684844887724`*^9, 3.949968495040085*^9}, 
   3.949968718409005*^9, {3.949968758098257*^9, 3.9499687681866317`*^9}, {
   3.9499688077879953`*^9, 3.9499688269750476`*^9}, 3.949968974439353*^9, 
   3.9499693190683875`*^9, 3.949969349788935*^9, 3.949969463493034*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"205a2bc7-e4b4-47a3-ac30-538367c0b387"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Exp", "[", "x", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", "E_", "]"}], ":=", 
   FractionBox[
    RowBox[{"E", "-", "\[Chi]"}], 
    RowBox[{
     SubscriptBox["k", "B"], "*", "T"}]]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Chi]", "=", "0"}], ";", " ", 
  RowBox[{
   SubscriptBox["k", "B"], "=", 
   RowBox[{"8.6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "5"}]]}]}], ";", " ", 
  RowBox[{"T", "=", "800"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"x", "[", "E", "]"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"E", ",", 
     RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.9499687876296024`*^9, 3.9499688173154397`*^9}, {
  3.9499692922857456`*^9, 3.9499692939859314`*^9}, {3.949969330848652*^9, 
  3.94996933267886*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"9ee12857-6cb8-4d3f-a839-5cccbaedb4a4"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], LineBox[CompressedData["
1:eJwVzmtIUwEYxvFRjVwTm+gKpEZNXUJTUwsJN0+LgnQYtJXlrbG1NZaZQWR9
KEYlJCE2Wn5oKInFvKzLmAV221vJytZ0qSuh7ZyzamjO4KzpNGdqbx8e/vy+
PVs19QrdKhaLlY773xxiQ3hlhYago6uuJM4Q9QvpTQtxGpa7V0/sRdv78kQz
MRqSVOFyCTo/q0wzMU1DxuIuYS66MLnxq2ecBurE55pU9J4fv913HtMwLzKp
yQWGUFwfshWoaDid+aLKgDbL/CXZlTQcuJbvU6N9iz8nRUdoMHzh7atEl59d
k5Emp0G5yc+Ro6sqitpYhTTMRU1iMVq7vad5KImG71GH69cfhrjgbazTOymI
yGJLJ9HN0w3js/0UnPIm3K5Bd641yK72UdCSd15wGO0hyvjt3RS43AKeDC20
81+N3qJgzLNZl4YeNlkTi/UUvLOMDbrnGUKkGLSl8ihgMyauEC0585zfuY6C
SWnD+o3oQzceGHPZFCjuDrAT0ZfempSlcRIsauWH2BxDjOZXLBpDJPhHansH
0ZdTwqXT/SQEnRpXLdrn44bfqEkw1HG+WWMMcUX71GmrJiG7+uWUBZ0ze9zc
epSER+b2UAu6KcUhMZSRIBbY7A1oqeLYTd5uEj7qd3TsR1u993eqeCS8Tmgd
Ds4yxEW31PjXGYCBc7ooF51ZOamceBaAuL9ty/IM/psyZX16EgBtQbA4ghZz
QiP3egMQ2SaT+9APO5YcydYAHIwUdb1H/wMP60pr
        "]], LineBox[CompressedData["
1:eJwV0H0s1HEcB/ALWahwdZjkaWvlYR4nl7LvNWaK2bqkJ4ZQdHHNGpGmrG42
Z0wjspmnnTrJhVzLwwdDlzx1Gr8ncURO8fW0ZrTWtz/ee+/133tvpxtScZIB
j8c7QfK/3UyUfVWVHOT8RsXKTYzOD0x+qkjloDWixec48dEe6WF/Ow4CDLg4
7w2Mhvl+9wKsObDoV3Y4EWcn7UwE8jkomxo04hNPmj59FryPAwfz5/Eb6xgV
X3rBF2+xYFCeENRCbPiz3yJ1mIVcj95SD2K9wPZAXQ4LFbOJOps1jMqTZ+4o
MlkQXMmcNiYO6agffpXOwsUct4EtjFFtnKdclcwCb93u8jhxdGOwWXckC8sb
lXky4jGR1IR2Z0GyK51fXcXonaR/r/k0A8JEe+fmFYyEjmneiikGHPaPVpcT
f/hqHROoZeCmctEwj7gnUNIm+chAw+bnjEjiIXN+guYtA1p9k9n2L4xmW2N7
HssY6FY/mjhFbPpnJ3vLk4HWcpdZxTJGhap6RYErA6s8eYOc2CIpQut8jAEI
G4tIJxaM1rhcsGXAauj6mUBix+pQqsmIgQStsOiLHiO/4DK/WzQNhU80a5tL
GMXJvdfoPBpca4Ny7X+Qv9tKZCMPaQjdDfq7h7iU27TrvU+Df1Z79MIi2eve
fu5lGg1LKzHqRmLfkYC6jGs00Ms1MyeJjQ8GRx3yocEofoQJWcDodVFUZ7iO
ApFjWEr4PEaDarVYxFGQJesqcCPWzdjofacomMPN+abEVl6s4MgIBW+ab1tq
5jDKHY+V6t9TcFclu3qWWGyZ4iwrpqC506vKXYfRdsmDfEAUVNfMd33/hpFI
ONfnf5oCVbgG+oj/AdKTb+g=
        "]], LineBox[CompressedData["
1:eJwV0H0s1HEcB/DLw0jFlhbCwthQf+Cwrmt95WlDtTxU4/Jw52G1tSMmx9Wx
csXokiRxccvi1onpwYnch1jlyMPd78EZ53Hin75NdEpZv/54773X3v+93QXZ
cZlmLBbLm8n/1ihkuiG/KXCZ9yXyjBgJF1vrf9tPQeTmYm3tLEZL/kRb0CoN
Fje3Y7kzGI1NHJ1UVdFQHr+TwjNg9D4pl82uoCGZlhYcYaxaVj/qkdJwrOFH
wvYURmVboUnDRTRsqNOS6xmHuSUurWTQwHW8IydpjLqzpZvuHBrk2OxhCIVR
s63RqW6BAmfTpcgVHUbVPGTFmaFgPuyasIPxLaViw0BRcGpvYIKIsSA0fdx5
lIJq2d2Luxl7XF8tbeqigFvUHOg9idGz2XXcUkHBdKNgV+I4Roo2q49vgyjg
D0Jt6QhGVb8uv77gR8GZGq0+nHFJpFZh8qVAyZ8btGCcNl8p5rhR0GlU997W
YnT4wH7/PhsKXMvNWZJhjBrFLvKhORIcPeVl6Z8wkkf75+rLSQhYGMT4A0ae
e6K1E6UkeH41171grBoReIwVk5BzTpGVybjndI3ucz4JfwpqnxsGMDKcNQVo
+CS0OPzN0fRjdDC+74eSQ4L9N+V3kQaj+7yofMkaAQ0RUoeOd8zuIvgiXiZg
a0f7OJVx40yRV+EcAbZeWxo7xu3JbWQeSYC5ZQkruxuj0VS74CsDBIzzcyN8
1BhZZ5A/458QUCddk1S+Yf69yhf5RBFwIjZ42qYDI6MsRd4TRkC/5EFXaztG
xzt5/TEnCbiRpTkUznh987y1kE2AtWWcSPwSI35xdN0rVwL8Yp6KllUYhVSz
u7nretD23tvXpMSosDVGWEHrQeaUY6pswegfg5NvDw==
        "]], LineBox[CompressedData["
1:eJwBsQJO/SFib1JlAgAAACoAAAACAAAA9w/4fRjN079gsAUQuqXvP1raAhzf
ldO/XOwAGj+h7z+2/P8/cJDTv/DLNETLoO8/bkH6h5KF0781Eir04Z/vP93K
7hfXb9O/D+4msAie7z+83dc3YETTv2X85gQ7mu8/ewOqd3Lt0r+07jZeLpLv
P26ZXgZg6NK/O2w6SrGR7z9iLxOVTePSvxe+vKkzke8/Slt8sijZ0r+lwNfA
NpDvPxizTu3exNK/3el5PjaO7z+0YvNiS5zSvzmm+O0Ziu8/7sE8TiRL0r9F
FMawb4HvP+JX8dwRRtK/bpZG19+A7z/V7aVr/0DSv6Sp3lxPgO8/vBkPido2
0r/WdJyCLH/vP4tx4cOQItK/KtYYJd987z8oIYY5/fnRv3W2IColeO8/YYDP
JNao0b8fzrUvL27vP1bZnz7do9G/eFy2HI1t7z9KMnBY5J7Rv8Ks3FjqbO8/
NOQQjPKU0b/QTbO7omvvPwhIUvMOgdG/DoEOFwtp7z+uD9XBR1nRvyYUW365
Y+8/+57aXrkJ0b+7M4O4h1jvP/D3qnjABNG/Gru/FM5X7z/kUHuSx//Qv9xM
iacTV+8/zgIcxtX10L8M3n5tnFXvP6JmXS3y4dC/LwDoY6RS7z9ILuD7KrrQ
vxgZzD+NTO8/lb3lmJxq0L+YMnmzvD/vP154mn43ZdC/BQVYI9Y+7z8oM09k
0l/Qv1fRbYXuPe8/uqi4LwhV0L8l9Y4bHDzvP96Ti8ZzP9C/PEWbbmo47z8n
ajH0ShTQvw5OrKPSMO8/ci36nvJ7z78/M1iqyCDvPwSjY2oocc+/aMoKBr4f
7z+WGM01XmbPv7nDOiyyHu8/uwOgzMlQz79NxsrSlhzvPwTaRfqgJc+/cfhs
Y1EY7z+j/6nbD9jOv8gYPe5xEO8/bnlsYQ==
        "]], LineBox[CompressedData["
1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAAndAC+ynDzr+6uF2qRw7vPz2Z2U2J
Ds6/Lr1yV8L67j/AUoqPZvrNv+aGcKR9+O4/x8XrEiHSzb9OTBGW5fPuP9Sr
rhmWgc2/bHeuxXnq7j/udzQngODMv0dYno+q1u4/sNQMyG7WzL9EznNLYtXu
P3Ex5WhdzMy/1A2jqhjU7j/06pWqOrjMv2aAvk2B0e4/+133LfWPzL86kXwB
QszuPwhEujRqP8y/LBhM8H/B7j8jEEBCVJ7LvwJcez7kqu4/jjDhemqTy7/2
WGM7TqnuP/hQgrOAiMu/Is44aran7j/MkcQkrXLLv6NdPVaBpO4/dBNJBwZH
y7+rLlUzAZ7uP8YWUsy378q/52xJWqeQ7j9qHWRWG0HKv6F9WtR/dO4/1D0F
jzE2yr/TDzJarHLuPz5epsdHK8q/XTrG09Zw7j8Tn+g4dBXKv3Md/5klbe4/
vCBtG83pyb/hKWA5qmXuPw4kduB+ksm/soe39E1W7j+yKohq4uPIv3YMa5zw
Ne4/H9FguSvZyL+kzRdl4TPuP4x3OQh1zsi/5PE3888x7j9lxOqlB7nIv13a
eVemLe4/GF5N4SyOyL+et1UFOCXuP32RElh3OMi/uJEeHe0T7j9I+JxFDI3H
v/RmgTaP7+0/tZ51lFWCx78OqdmMNO3tPyJFTuOed8e/TquzY9fq7T/7kf+A
MWLHv+KIBooV5u0/ritivFY3x7+SNaN6c9ztPxRfJzOh4ca/MyJo9LPI7T/f
xbEgNjbGv62QqV83n+0/fFP5RDgsxr+OQijHtpztPxjhQGk6Isa/gnQkwzOa
7T92YWjkUhfGv2camDxzl+0/pj9P1g==
        "]], LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAAcDLBA20Cxr9JBH7qJJLtP6CfKmVY
lsW/1wK6Swd27T9ieaOpevbEv+kMHBtPSu0//gbrzXzsxL9/zEhffUftP5qU
MvJ+4sS/m3KV+qhE7T/Sr8E6g87Ev/53zC74Pu0/Q+bfy4umxL+YElhXdjPt
PyRTHO6cVsS/IpiN9e8b7T/lLJUyv7bDv05lzMbK6uw/Kn6l7uirw79H26Nz
W+fsP27PtaoSocO/6wUctujj7D/4cdYiZovDv24GBfL43Ow/CrcXEw1gw78r
JmgA8M7sPzBBmvNaCcO/eaEbTjay7D97VZ+09lvCvxtwc30Sduw/EX6pNi4B
wb8l1n1lgvLrP4a2KMgQ98C/Zne46m/u6z/67qdZ8+zAvxj2jPFZ6us/4l+m
fLjYwL8M+tZ8I+LrP7JBo8JCsMC/yGkPWIzR6z9SBZ1OV1/Av+pggZezr+s/
JxkhzQB7v79hTb1MTGnrPyw27yyl87y/R6fcHE7R6j9mLn9/ud28v1gPKhDk
y+o/nyYP0s3HvL+73oZ1dcbqPxIXL3f2m7y/KCRWkIq76j/3927BR0S8v7DC
ntx9peo/wrnuVeqUu793TuGRh3jqP8/VFh34T7q/X+PSSSUi6j8LgwF6
        "]], 
       LineBox[{{-0.10214497795865814`, 
        0.8152762244399026}, {-0.0913574881672359, 
        0.7904881669807684}, {-0.09102909614312082, 
        0.7896965595701051}, {-0.09037231209489066, 
        0.7881067679992446}, {-0.08905874399843036, 
        0.7849008785143021}, {-0.08643160780550974, 
        0.7783839220328821}, {-0.08117733541966848, 
        0.7649303860307032}, {-0.070668790647986, 
        0.7363654476291388}, {-0.051061870503855813`, 
        0.6774720177059391}, {-0.03833138583950993, 0.6357910513469168}}], 
       LineBox[{{-0.03769363073746912, 
        0.6336418632732045}, {-0.00995608943370801, 
        0.5361146489952446}, {-0.00031887755102040825`, 0.5011587099570587}}],
        LineBox[CompressedData["
1:eJwVjHc8FI4DhhVSiBQqGVFKmfVFRnlLmWVmhTJCKgmJkJkkREZIhEP2KIns
s/c87txxV4pKJUoZKb9+f7yf55/3eUTtrxs7rmdiYpr7t//zCKts7pspeWQi
j4XlKwMKk+uEgy3Sofa5YDvXGgV75mqWVZryoZ543S+wmwSdrLFefYsXOKik
MVn1fAAaeluZf1ZU4ntApreiaxei7TbNL3dWQuG9aOslsy5QbjIx/k5UIilu
djlPrQtXns5Wb9xQBbO2Xn4r7n//b10egmZVIDexsAU87wQl9s7kyV9V+HnI
rbduqQNXRheIcYrV+BagHL4zvh0xNuQgucpaTHc+Ol3yqwVhX45iuqcW/oXV
MbvetiDAh/DnyWQthuI3VKZ0t8A1/povG1cdpN7IJfVltEC/ndmT7lAH+8L3
3znOtIBLVu5S1NZ6SIbbRJBzmhH9N1zv47UG6H4yIIQ4NaFdX2iz4VYiHp58
dj1QoBG8Mm/5PQSJOKvCVHqWvRG2m3N2J+wjotCkovzqQgNWuqXkKSpEWF3x
ytd62QApnaNWtheJoBjIip5WaPjXscp3e0lEAVFb4cbRelgqPdaINWvCFXJS
8sSFWnwV5QsYSmlG3P6cDWVzVVDyy3QnZjdjKI580ZxchRCStGNZSTPaXsoQ
+eqrwH9P80x0UzP2xcmDHFkFtS/eArozzSiQeJ16VaIKMa+or4jKLbj/46pf
j2MlDp3O+FZGaYHRpi25zPMVuJ0t9S59sgV06xKna9QKtP2pGo3+0gJ/N7Fj
X5orYFk2WOfC1Ir26vh5iaQKhPAxR0lItGLRR6UvVa0CwwxHiQzvVnDiEbtd
7Evc9JS0i+FvA1vj+dfzGuXgZ/9WaybahgLpqEopuXJUpb/YISzVBsGsRMMA
gXKsdikPFJ1ow+xPHTbHby8QIqqNLpc2JEXUeKqlvEB0n4MQa3MbmubjBrYs
PMcziadjvtfb0WK7/XtZZRm06+0U1H3bMZl1eSUluwyfzorHbrrbjm2labqP
Y8sgFViknZzSjgQ5dd+hq2V4MVJdWdHajqkadyEF0TLUh5Afze3qgBrLgWhz
kVKQx7cYO3V0gFc6U7rtZxF0Ix0pnkMd8J3L8SSMFqFWufrCnfEOlDTUKD+t
LEJG4sWrGXMd2Ns93v/DpwjOhq9CqTs64Xk2UpKXqQgrzVaV+pc7IaG91Mez
tRCChc8Ej7B3oXIvzU7jTD6iz/0maPB2wUkrXnxCLh9MGw0PmAh34dDHxq2x
fPl477Cs4H64C1lD7Mx6jDwUC58xKLTsAulmq/tWzzyoxc0HixR2gd/Ux62O
kAtbn6Mf2M504+Fbpbjpbc9w0KFjZNasGw22BIm+5Rz80DdpGbHrRqVYouIw
Iwdhe10ys7y74XZc4IRCUQ6K+p9YIasb0snhvaaaOVgW/93vtdKN486Dv2YD
sxE39LpqKq8HxYGNpEq2LFjXaeT2lPeg4rrKF755AsTzBh+V1/fgSuDI9AMq
AVX+nzyCST1YJtB2dBcTQJfYKS3E1Iu/1vz+3qYEHAy8lWli3gsTq8+LQfmZ
aJY8EtHM2ge7rkVGxsUMXJA1yZrn7kPSuY0/zhplYOmwe62IQB8mwqY6BZAB
KZXCWT+ZPlTVF914J5CBBG2Rs/LmfXAlHxepe5YOJ0c2wZy8Pji3ZRFHYp5i
Yzq5OOx0Pyb6Xq4V+6eCQFhoe2naj96jzLnV51Nx9BnPm0mbfiiT8oRnjqXC
rfj0Vnj2Y89vr7myv08wVtPgtZjaD0bNZVCDn6CAkgvn2X4I7lL5fTs6Bfs2
1X7M1h4Ag/9FHW9jMr63y1wh6A2AwN0s35KdjPqwzM/pxgOY5jbdFns/GWYs
92ZTrAdQ4bcWHXI2GXfXjBYeug2gZts1NeLHJLz/+WHtdvIAvMcjW+N3JIEw
uW276ccByD8+JdQa9QiumWHJxl8H8NFUzvqT5yOo2C7vNPw+ALFVjpv7zz/C
0ARd8PTqABZ+pnTOST/CurF8sRNbBrHkROSvGEiAbT9kpJUGwR3sZ/5VIAFC
tVc1WMMHYVK7KHyFGAfenSsrrg8GkfM7dv9IQRw4vcLLKHGD2C/wjmGZEIdV
2ZxdRWmD0FS6NV1xKQ7ULPq8cfkgFj/9WJfLHYfESKOnGfRB8LyIjbJyiAWX
1ZFFVYUhNASNsWrsfogNVa1FOSpD2BHpmtTL+RB/eE3suY8PYbdffxz1ewy+
9Ln1TuoOQdElV/tdTgy61Auy7tsO4a9QTT4/VwzuHRQyJEcO4RNzzRR5+gGY
Vtbne0z+6/9xz3SoioTtu7EfgR+GMJ998Qr/40g09pSpPfgyhG7H1a2ffSIR
lH6BlPtrCJR8FZdV1UisnapeG2cfho/D3L4aYgT+xribaf03jKwjAz7hw/ex
Kv6GWTB0GB8WK/icucNhzV2pf+D+MOYUOQNlF+6hdunBY8XoYTxdjDHnG7uH
292qskbJwyhcujaomnUPv92SLMOKhvHbca/BnNI9rNToP58jDUPxZCY/7XIY
Fo3qLrSKk2BoytdEexOKkLHSCTVJEjIP/G5Qbg8Flx3BukqOBH4ltvevikOx
z+2eZaEqCd69t9i5/EJhEm1kFmtEgtvyiV7J7aEo65rSO+9Pgmb9nURW0zu4
fJLr2E8SCTyX5N8fmw7GQhdTrSuVBNkKkTnVgWAEGf9Q+cggoZzpSZ9JdTCS
7ShKtBkSlkgLIaPRwWgLJMgTmUaQ817KgF85GGK1ilIPpEagyugSdIkLAk3e
Zpd46Ag6Vwz4VUoD4LSswH33/ggaD83l74kIwFwdJ/NU9Ahex7vXKDsGgEWr
eib78T+/a0vYzK4AyJzjq95bOgIO7YKN5yL9EeTfbbGXOgJiQ/jqUY/b2Nd2
JHGP3CimPi8otV3wRVkEV8QdhVH82i25i67mCxWDKf93KqNIUl6xEBTxhQEl
zjFLYxQmZuGHON744NbMV/k9VqPYzjnuXHzRB91c2cNiYf/8tAjpCfdbcDPf
wiM2PgrPl1ba9XlesM+TTRF/O4q8TNnte2O8YLqsv+fA9CjWN5QWPLvpBZUn
DxTk5kZRzL6Svu6kF1gZ7JZqLGTMH5XW42DcRIoTa5alFBmN515fMxa8iZab
K/Lxt8n47zPTrfGCG3jVtrM+MZiMmjRH3/SEG8jfrqyVEkZGhPr+O34BNxD9
2vtc5kMyJI4YKQUY38C5Pwv+pdlk7Pg0KFn42wOzod/aunvI2GRx3jXS2AM7
E95bsAhREHnmLF8xjzuU7ojwe4pRwCScqle36gYzD8vhd/spuB/L2PHhgxvi
DAf0mg9TwOsa+yWs3g2cm2vVQ7Qp8CFpyiy4uOHv3XgpJk8KWLlp/iOp1/He
W51ptYuC173HqUsa17D+kn/d1QEKGBEfnDjErmG3WZUvbYQCsKW90/nrgvPy
Mj+r31Aw5LSZolPpgtG5nTM+vyjgqKdOG0i6oPPy/PCi6Bicbzsqae26ihKr
jNwft8bAnXyTPXTnZciT96xsCBgD4+L3wtpVZ9QY554RuDOGczyrh/nfOKND
p2T++IMxiP5nZy2Z64x3R2pVozPHwNetvoWq6IwdvJR+ia4xHLnIIXbA+hJC
eriXzu+iQk3hg0lSnSM2asfruu+mQl7vpnFutiNimvnTQsWp6HfyJQ9HOiK1
Wki9UJaKwSeHfgVbOqIyTzJq6SQVCd9PrJdddsCXUK3d8S5U2JuIFpSpOsD8
WKB2Rx0V1oJRm2+T7DH+c5q7qYmKpqjVE3oN9rAv0SfXtFNhm0w7qlhgDxcR
YafSQSoKGU27DILsEbKu7k7iFBU3TArTHkvbo6R1pd5hMw2h7405/aLswKLv
pbDuPA1JPWHSjZa2iNhAX12xoyFnt/FbC21bcDdotCw40aBXcPD4BkVbCMjx
nf3oRsMajUB4ymML2a0v3fpDaXAw1/gRFm8Dy9H5wrQiGkZmz3jG+13A8wvX
xFRWaYg4QWuwcbaGfcWcUMa6cWidsnYu07AGL6fnzg1s44ghpZpL7rGG12vf
LUM843ilc/hYOt0KKrzhfy/vH8fqr/WJPuZWaOokUB8bjyOt/NBAj6ElSPKU
uOW8cRzWP82TamuBu5FW0TYl4zDYtvhkVN0CipP0+63l4wgyq/dUELdAcsxU
UGz9OJoUTtrazJjj/Mx31wOkcbiqwcLGyxzT6ZtPn1sbh8Ymj+MzCWZYYj/J
/Np0Alq7KevYP5tg6yxXQpPlBIbSBPcfGjaB5CB1b4/NBAL8lG7cqDHBhSQP
TcblCdRLE1l0okzQvIdwnzVgAmWzSq/kZU0QfXTdFuNnE/Bf5uVc8DkLcdcG
wc+/JsCSLSGmJWYMNaPI4oXfE8gp+TD/eLMxLOTN1f4y0RGQcFGfZdkIESuz
NjwcdHA+IKiLDBhhLkw464gIHUodOoevBhqhNt3/QKgWHd00GdtTk4YwHlRV
FEqmozds+lOimwHYVTmItWl06C9dzI3XNgAxm3raOouO4EPUU827DSB3y8fu
SQkdP041CVUP6oNLpDJqZysdhZfrT68p6KPT5fA7vu90yAyWNpax6eH4xgMP
uc4wEMpqqLypTxdL7ksCJUYM6F33HJkp1EUprT1Hz5yBBwzF0cX7uhAudaqJ
smfAWsnrQLymLlZNs6fZfRjoz5AV7STqoDJL5BjbMwZWBVTCmRu14br5W/uz
QgYU74XIhWRoY593vbHmcwaaeNs/SwRrI0H3vPPdWgbK2Wb7v6prw2M+JZ55
mAHqinWvQYcWDlpdEc6iMBCW4ByxqUALb1uU89XpDGjpHOv6FKkFw2RKffAn
BgSPkbiEDLWwcX2ejug3BuZkfV9cP6yFhqvepMYFBp5vKuP/yKsFrxFNG9sV
BqomgjjCFjUhA/6ZtTUGPgfI2+lQNfE/dt9b2Q==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3154#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.5, 0.5}, {0., 0.999302591486039}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9499687886158476`*^9, 3.9499688178617744`*^9}, 
   3.949968974487447*^9, 3.9499693191253977`*^9, 3.949969349863937*^9, 
   3.949969463558035*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"5d90f9cd-b2ec-41f0-9321-a52cceab5c90"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "E_", "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Exp", "[", 
       FractionBox[
        RowBox[{"E", "-", "\[Chi]"}], 
        RowBox[{"k", "*", "T"}]], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Chi]", "=", "0"}], ";", " ", 
  RowBox[{"k", "=", 
   RowBox[{"8.6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "5"}]]}]}], ";", " ", 
  RowBox[{"T", "=", "300"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"F", "[", "E", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"E", ",", 
     RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.949968546459031*^9, 3.9499685845792737`*^9}, {
  3.9499686946612253`*^9, 3.949968701860529*^9}, {3.949968845159441*^9, 
  3.9499688484223576`*^9}, {3.949969297875152*^9, 3.94996932609124*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"5f444617-a322-41d6-9a60-bd558b1250be"],

Cell[BoxData[
 GraphicsBox[{{{{}, {}, 
     TagBox[
      {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
       Opacity[1.], 
       LineBox[{{-0.49999997959183673`, 
        0.9999999961678667}, {-0.4901856591951531, 
        0.9999999943940885}, {-0.48037133879846955`, 
        0.9999999917992822}, {-0.4776188869290459, 0.9999999908760223}}], 
       LineBox[{{-0.47698113182700513`, 
        0.9999999906476743}, {-0.4590916429145413, 
        0.9999999812907866}, {-0.4541242612933679, 
        0.9999999773184854}, {-0.4518188701211629, 0.9999999751984412}}], 
       LineBox[{{-0.4511811150191221, 
        0.9999999745777266}, {-0.44418949805102115`, 
        0.9999999666646435}, {-0.4392221164298478, 
        0.9999999595869499}, {-0.4367871457737573, 
        0.9999999555870338}, {-0.4343521751176668, 
        0.9999999511912224}, {-0.43191720446157633`, 
        0.9999999463603322}, {-0.42948223380548584`, 
        0.9999999410513004}, {-0.42704726314939534`, 
        0.9999999352168025}, {-0.4260188837837758, 0.9999999325824119}}], 
       LineBox[{{-0.425381128681735, 
        0.9999999308951358}, {-0.42217732183721435`, 
        0.9999999217582282}, {-0.41974235118112385`, 
        0.9999999140141823}, {-0.41842167490991855`, 
        0.9999999094980525}, {-0.4171009986387132, 
        0.9999999047447274}, {-0.4144596460963026, 
        0.9999998944760053}, {-0.41313896982509724`, 
        0.9999998889336955}, {-0.41181829355389193`, 
        0.9999998831002935}, {-0.4091769410114813, 
        0.9999998704982557}, {-0.407856264740276, 
        0.9999998636965913}, {-0.4065355884690707, 
        0.9999998565376914}, {-0.40389423592666, 
        0.9999998410721491}, {-0.40323389779105734`, 
        0.9999998369519684}, {-0.4025735596554547, 
        0.9999998327249728}, {-0.40125288338424936`, 
        0.9999998239393882}, {-0.40021887199560435`, 0.9999998167399332}}], 
       LineBox[CompressedData["
1:eJxTTMoPSmViYGAQB2IQncfjtXbPpJv790xQm/3//3v7qXc+yxysuLn/5M2D
U0D8UzrbPFfk3dzfrKM1CcQ3Pmu1uCzq5n5J31M9ID4bn0uYsNHN/S2eto0g
vnUcW/Mv9Zv7T1/SqQPxC9adWP9Q9ub+uFTOahD/pp8v5wbOm/tNzrWXgPhr
+sP2+Dy8sf+VYk8aiP/wvsRL4+s39r+ovpYE4osZ3BaVPntj/7cHnPEgfv2F
+PyXO27sb5+gGQ7iBwlmKrVNuLG/Rc7GDcTPsTy1o7L7xv64fQwuIH57orZ/
btuN/acb9jmC+Hs2vq0Oqbmxf76Eqi2IrxpUdFUp48b+6yZzjEH8H5OqO/bb
39gf4CInD+I/lzn4ys3qxv4+LwMZEP/aMjbfcyY39i/rtpAE8Tfvmih4V/PG
/oXW2sIgft6j5bN+CQPtXz6VDcQ/kGs4r+rb9f0La/u+/APyAeVy2vo=
        "]], LineBox[CompressedData["
1:eJwdzGkow3Ecx/FFLMr1cGgZUaSRJa1kNdbKExqFyZErT5hRLEquzeSJyF3I
rTlS7qMvacoYswe/X2p/hTkSrRxz1N/x3YNPn15P3oIilaLUjcPhBP4PP4kw
C9wnCnzW9vzz65BYt3l+u9cUgtON9+g9WYE6haGQuM+3o0dyHuMzrBRW3uZt
6OxmDlTtUPgMjjOjTy3R54YuCsr2TQN6R1ktEnVS+FhPnUEb7Ou9W1oKHiHm
cbT+U6o8qqfQa5kcRCeH5NzclVAIjxjSoTdU2neBmMIrW5GHnvkyZc2JKNwG
fGeh+1r9t2KFFDTOGgW6pn+4URJGISIpVo4WwjI3z4dCwutBDHrC95I3cEWg
uofPsv/uzpVwxTYC3t96J7plduztghDItzIOdJG0+CzohABvV3aNDq19aBtd
I1DW4XmIHmdeHNOdBCIVXh2uXlQmI9cRaFj+aHL16lZND00EKqePNa5egGYq
qpaA0BlajhbIWOViIQGpWitDq7OX2o1pBAr17pHoPya1BQI=
        "]], LineBox[CompressedData["
1:eJwVzl0oqwEcx/FFUYd4HOyIyUumuPHSyG5w423kZXYm5G1R3Bw1rJjXUJQQ
4oKGViLidIiS+SMXzGjs+T8iNSIvKZQL23B4/he/vn3ufiGqWnmVk0Ag8OdH
fd4qHpOncPC4fSz8/HpOGrRXLyujOTgy3bx88G5PNU69RXLw8uvqllx+2aeV
BnPwdac5IQf5/Iwx/OBgtMNtlqzTiiZ2rQjZzfVZ5P69lt6qcwSJWplMbvW1
alwQYX+DkZBLl6bz0o0I5lT3AHLgdbiraQUhZ5C5e+c9IYtRW3oRItItGnKY
m8xo7kIQXTqqyfMHqtCjNgTXOFsReT1r5GSvASGBUSeSz7LfYjcrEBgPhTNZ
mG94nZUiTD4UdDnorzeXOSNBSCwcryOL2Se9Pgph6N+8iiz5HazQiRHW/kYn
k+UFnSvDXgi5ynWbnfdAcUZD6wMLijVpGVkoUh1qb1iw/PkvI+sumsSNVhbs
ld3x5MWSBaxDFj79Tt3JpjLP+JptFnbU9as23uZ7Qw8zx0Jc6Hka+RuYrP2Q

        "]], LineBox[CompressedData["
1:eJwVx1sog2EcgPHPFxJWKMeRuBCFll3MIUMoI2sUyphTM6QNKacLrMQVmkPY
cENSFBKS+u/CIWfzvo4NpSSZ0w4sCe978fT0CylX5cpZhmH8SfTinJqR8QkM
wxy5j/3vLcn3wXlG3IehWrm4/0UcVhlbIOrCcGUSj1KnV2lXhfUY5gT3PGp1
bVlzhAhDonFA8kl82yvTradiGHPv5FHHL0r1WUIMEmdHD2qzLc9FyceQf7p1
aCMua88cWQrCUBTjmUadrOGvJZgR2NtaA6zEumWe8cCEwI3xtliI7edRjOwR
gYoTtU+9wA3P6DAiaPo9aqEOng683NxGoBycPTET/6462bO1CAyuIRUfxIXX
bODdEILd240Y6pWfv6S6fgRLDWsO1MqU725NF4LDnu3xd+KbvVffCxUC6zx7
9Ea8cXMhKE1DUOzlxHkl9mPOpB9CBLLWQcMLcWPoabs6DgHrXjJEHak42JmK
RqBu1AZQ6971BU9+CCw2BddEzJUfq6QsgsnHbMdn4n90pu9J
        "]], LineBox[CompressedData["
1:eJwV0Gkow3Ecx/HxSIo5HjhyJ+GJHC3kShLWiMQ0koUc5VySo+GBiCTmypWW
q0iOmlDf5Kzl+P3MjJiwZWjWHLM9EN//g0/vXk8/vsLqrBJrFovlhmM6dtIs
1v1QqDPetb7+GeKFIc5DvCcKS0604gWdJmhZC7ymwK0qU+vQruvpevU+heyr
pO1n9IbwU8idoLAo4qdq0QvmeWPkCAXXVblJgx7vy28LGKDAVsZLGXdsHUxa
dVGwFXtZntCZTqMqWT0F/mb+6CP6fTcm3Z9LIS/1Z+Ye/ZhrvHVMpqDXGWMZ
X+pnK/8SKJSLZCo1eseN3X3DoZCRK7Fl3FP7sNfvR+HbHFR4iw707Yz6tRDw
SUw8VqE9ZNHHr18EWjYcMxizeYYclYFA6WKF4gptauSL1rUEOOa5GyV6/zx4
pZwQkHgfKRToorYzf+UCgUG7kuZzdM71dNydlEA4r+HtjPkrrIavmSLgOXyR
xzhC49D7ISFQPFAQeoq2Scn6tG8nsKx1l8vRz2q7hjkBARdOk+kQ/Q8uwfkE

        "]], LineBox[CompressedData["
1:eJwVz2kow3EcBvARZS94IVeOWClHmUaRF5tyNCk5or1hyv5bTMuxXC1sjiSK
hpythdYaliOxRV81V174//7kmjBCXggtV5b47sXT0+fd83AqaoqkniwWKxTj
bqnQ2p1cyIBI4Nu78/earlEGxVHZDHzqPW5t6OIz0aCax4Dd1e/aQrt0drGF
zcC83mazot++TM1bXgyIBb5OC/q+QKXd+yPQbrqMcPvQM3z35INA8P6TYg09
LStLcN4S0Hk/v6ygc7gOV7yVgLmpRzGP5vcsBiatEohqoGrn0EkOdWLaIgFm
I6PWhA7TciRCA4GMvWuZEf3yUXEg0RIo/RngzqJHNh/GpuQE3pcKIyfR4uaJ
tlQp7pnWH4+jY5PzqaNyAuseC51jaKtxPdGnhMDV+c7pCPp6qG9XmU5gNZ8S
DqJj5Lz33AACz5yQ7C733+jHiwc/AhxRlrkDbbmZADWbwPF3ir8GPWryCVL8
0tAyHH/QinaozZlZRzR0cku/G9H1CT86p4oGsWqBX4n2mpHIY+to0LQu58rQ
v9XDhrsqGvLk258U+h8hJvlU
        "]], LineBox[CompressedData["
1:eJwVzmkow3EYB/CRF8oRyjFGI8dKXgxLaZIQb0SL5loyJk1ouSZyNCxHzRwT
JZSSs/EG8+LRsix+//8fIffxQsm1ckzN+ezF07dP3++LJ1haLZI5slgsfzx7
fgqfTd/ZDKRTau/iP0ui01mqbTKMgSfx2rMYrevS5mQyNDi0WC5S0bxvG7dz
i4aSuhdlMtqgKH0yrNNApJ5uSejrwjhV+DQN4tqCQKF9H3Op/1HSYH3zPefb
99c814UQGpgm80oAulnosDjmR4OWo7f6oRNGTzO63WkY5AiifdCboh5NmY2C
EbZe44HeNj16BR9QULvSdeuEPpxfYuvaKTC99poff/FfZ7Who4GCzo3uxnu0
WFZUUFNJQVGvlHuHPgvyGM/Ko8DWysu8Qt9qFVwXPgWhJeqoPfRLQ2xE2w2B
fV3O3jJaf+hqrjomoFkdYRbRCv5duYQQkHGGjLPo94fhufg1AuzdUNUU+kvy
GfWhIXBzXyHvRzunGGLlidi7C5Yq0DuTA0e5AgIiY81xGbrvR16fFkmg2nxq
KUZbJaoTJYeAdUY0kY/+B2/U9a4=
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAGIQ/UHvzvdJ7Gf23+iXFwn4995eWcDBKWTe6f11VbxX
xYD8PoOHVVmTT+8vEyusEgDyfwQ0bW7oOL1/i+hWLi4g/8zEIypri07v/zbx
yKs/f9/blwh7srO5n94vrS218CGQf0ws6Mz296f2/3xku2QZkG9g/pnl3JNT
+9+xrb0yD8ifFT7F9snNU/sXpKu+ngbk58+4tk7gyKn9Ybuvn2gD8iWkoidm
zji138+lxzYVyM+STQmTdjy1fy/vol0yQP4VW9Z+Q7NT++dJrFQQBvLt4pYd
d9c+tb9g3bE0TiBfeP4LixLRU/vXaMyZ+PXPe/s9CrnSZ1+e3L/B5GDoGSCf
T6XsQd2kk/vF3u4wLgbyK1zEJae2n9zfwh6Rlg7kP0rZEbi65uT+wsP7CqOB
/O1Lfx26nnZy/5dJNwScgfwE9fqlBtYn968TnZIoAORv0urIevT4xP61b9kv
Lfr93l7+YsJO7Zsn9r+ZOHXKFCD/5r8sd77zJ/Y3PzL70QbkAwD0ztpp
        "]], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQAmIQffn84TSNXSf2/7+mHJL1+729RJzvQ52+E/s9LWo2
aAP5tROFIsotTuzfsfHDneW/3tu/Mn+97IDuif2BrCq504D8sHuHv3Iqn9h/
VaH2SAuQb6BdOnkO74n9rfd2Hk0A8h8duX7u4KPj+29N6vgrCuR7/JjjytN7
fP9Gni2TS36+t986r3RKaNPx/XF+ylbxQL6Sq9/jeeXH9/tm/Z7lCeT/nvi/
wTDp+P5LdZEdskD+Ou2kPWHmx/dzdwb+OPjjvb1IvLrxwofH9nNfTg//8/29
fSMrQ9Ora8f2r5m62fgRkP9u9Y0LxmeO7Z/ed3nXcSD/+I/OvGPbju03vmRx
dCKQXzXpzcrX3cf2/9qTt1oRyL9/dKOCmdmx/VfuSu3Q//bevib4p4uFzrH9
euomjwWBfImHDplWSsf2R4vu3vz563v7gD/nN9rxHdsvlH/UYRuQf8DonZP7
s6P7zQX/vTYD8hfM10qNmHZ0v/CsvFbVL+/tbXSLOqN6ju7ncSuvZwTyb+za
uTam6ej+jRn6PHc/v7fvT96rsLTx6P6fR8OybgH5AA9d8gk=
        "]], LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAiTQWQL9sxb8DL5e1jPPvP4EMZ4dp
RsW/BLh5F/ny7z9ieaOpevbEv2foWfiu8e8//gbrzXzsxL/60355g/HvP5qU
MvJ+4sS/zjC7dlfx7z/Sr8E6g87EvwA3O9/98O8/Q+bfy4umxL99sZY7RPDv
PyRTHO6cVsS/B3yXq7Xu7z/A4GMSn0zEv1KmwCiB7u8/XG6rNqFCxL8nGMgG
TO7vP5SJOn+lLsS/eLLr3d/t7z8EwFgQrgbEvzAxncL/7O8/5SyVMr+2w791
chWjHuvvPyp+pe7oq8O/Q0q02tnq7z9uz7WqEqHDv8C1VjCU6u8/+HHWImaL
w79KyxIqBurvPwq3FxMNYMO/TMlOBN/o7z8wQZrzWgnDv9xH0pph5u8/dZKq
r4T+wr+kWjtDDebvP7rjumuu88K/UDvd1rfl7z9DhtvjAd7Cv0qiprEJ5e8/
Vssc1Kiywr+L6cvPn+PvP3tVn7T2W8K/xEgWW5Lg7z/Apq9wIFHCv7K8QPYq
4O8/BPi/LEpGwr+mJp0+wt/vP521w+s4NMK/qZTsqxDf7z/InPGm
        "]], LineBox[CompressedData["
1:eJwBsQFO/iFib1JlAgAAABoAAAACAAAAl4YcC1Mfwr82czaHPt7vP8ZppHWS
rsG/WxNgb3PZ7z8Lu7QxvKPBvxicILr02O8/UAzF7eWYwb+caGtmdNjvP9mu
5WU5g8G/UNiVzm7X7z/s8yZW4FfBv0KaSUZP1e8/EX6pNi4Bwb84tSniudDv
P4a2KMgQ98C/I2eNESnQ7z/67qdZ8+zAv3v+9oeWz+8/4l+mfLjYwL9OXxI1
bM7vP7JBo8JCsMC/ryKL+wHM7z9SBZ1OV1/Av6S+X17Sxu8/xj0c4DlVwL+b
w9ttI8bvPzp2m3EcS8C/Ibj1aXLF7z8i55mU4TbAv4rlFw8KxO8/88iW2msO
wL8chahaH8HvPycZIc0Ae7+/FQjEJdy67z8Qih/wxWa/vwBo0uwIuu8/+Pod
E4tSv7/OGTg0M7nvP8jcGlkVKr+/q+45JoC37z9ooBTlKdm+v2cRt8H6s+8/
qicI/VI3vr8yfLfia6zvP5KYBiAYI76/YEZJA22r7z96CQVD3Q6+v2Uq0yJr
qu8/SusBiWfmvb+46T07XqjvP1fuRi+pzb2/cE+HHBen7z96W939
        "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAATZD4bd2jvb8J7/zN46TvPyw27yyl
87y/fuOHVAGb7z9mLn9/ud28vyCZiiu0me8/nyYP0s3HvL/CSZrFYpjvPxIX
L3f2m7y/kV75DLOV7z/3927BR0S8v0ndgmYekO8/wrnuVeqUu79YP6epE4Tv
P/yxfqj+fru/2rlECnyC7z81qg77Emm7vxbzNUPfgO8/qJouoDs9u78aO1L9
lX3vP417buqM5bq/5RvLwsJ27z9YPe5+Lza6v2HhaXUKaO8/kjV+0UMgur8g
oUZgGGbvP8stDiRYCrq/qlk0CiBk7z8+Hi7JgN65v/qG6E0cYO8/I/9tE9KG
ub92tE1rxlfvP+7A7ad017i/ur0c+85F7z8nuX36iMG4v6b+QFNvQ+8/YLEN
TZ2ruL8HUI0bCEHvP9OhLfLFf7i/CmjeoCI87z+4gm08Fyi4v6IGpu74Me8/
g0Tt0Ll4t7/NrAtKFRzvP8JI7E80Y7e/DRPl7z4Z7z8ATevOrk23v1Qr085f
Fu8/Tq5b/q0yt7/PcEPeuBLvP1IG2DU=
        "]], LineBox[CompressedData["
1:eJwBoQFe/iFib1JlAgAAABkAAAACAAAARFANPeIIt79Nf8W89QzvP2iI3cBh
ILa/fY7b91jq7j+mjNw/3Aq2v7Hz+7Tp5u4/5JDbvlb1tb9j3s71b+PuP2GZ
2bxLyrW/SXsyjFzc7j9aqtW4NXS1v478usCyze4/TMzNsAnItL/jLR4QOK7u
P4rQzC+EsrS/lsp0nRKq7j/I1Muu/py0v9iQRrbgpe4/Rd3JrPNxtL+uYe8C
V53uPz7uxajdG7S/W7dZRaiL7j8wEL6gsW+zv47LQ3a+Ze4/bhS9Hyxas7+n
lO1OwWDuP6wYvJ6mRLO/pPZ2drVb7j8pIbqcmxmzv5qf0RlxUe4/IjK2mIXD
sr9xAgh5MTzuPxVUrpBZF7K/AoD0A7QO7j+yJou6RQOyv2i50KcgCe4/UPln
5DHvsb8nUI5ZfgPuP4qeITgKx7G/JSujXgz47T/+6JTfunaxv3vp4C1v4O0/
5n17LhzWsL9apB9WMa7tP4NQWFgIwrC/g3cHlZ6n7T8gIzWC9K2wv22aP7D6
oO0/ZAfXzImYsL/F7VJY0pntP8JB4As=
        "]], LineBox[CompressedData["
1:eJwBcQGO/iFib1JlAgAAABYAAAACAAAAWqmIC75usL+Lh20ooYvtP25PkZi9
Ka+/mEtQlqw87T+o9ErslQGvv37btWn2NO0/4pkEQG7Zrr84VDvLLC3tP1bk
d+ceia6/Cd0Lo14d7T8/eV42gOitv78rjY3S/Ow/EKMr1EKnrL+eryuQ2rfs
P7L2xQ/IJKq/RE0+JGgd7D+OqqLCPvmpv1JuLxEaEuw/a15/dbXNqb//2ze/
rwbsPyTGONuidqm/MeYMsYXv6z+Wlaumfciov3MN1ELXv+s/ejSRPTNsp786
rRFM7VrrP1bobfCpQKe/TWNI2cdN6z8znEqjIBWnvyWggqaDQOs/7AMECQ6+
pr9R11B0niXrP17TdtToD6a/pkeTK13u6j9CclxrnrOkvyLwsv7jeeo/HiY5
HhWIpL8HgyGdw2rqP/vZFdGLXKS/Pvllo4Jb6j+0Qc82eQWkvxEQ3JCePOo/
PDxvzAryo78OpPHgpzXqPxsmuCg=
        "]], 
       LineBox[{{-0.03831825519705517, 
        0.8153572810298148}, {-0.035118389077837334`, 
        0.795951065964605}, {-0.02980389526916451, 
        0.760457566926086}, {-0.029493773302985506`, 
        0.7582610890958533}, {-0.029183651336806497`, 
        0.7560509316568205}, {-0.02856340740444848, 
        0.7515897122022311}, {-0.027322919539732447`, 
        0.7425047298304176}, {-0.024841943810300388`, 
        0.723695266805016}, {-0.01987999235143626, 
        0.6836382009184068}, {-0.014057682745113582`, 0.6329449057413152}}], 
       LineBox[{{-0.013419927643072765`, 
        0.6271833630780794}, {-0.00031887755102040825`, 0.5030898594164934}}],
        LineBox[CompressedData["
1:eJwVl3c0EH4bxVVWlBSKkplVVqIkvldWspL8ZEdFSUPISEZWhRBFKCsrspKR
vffem9LQsrMib+9fzz/3fJ7nnHvuOffhvnhLx2IzBQXF0CYKiv/PY1RiyeOf
JdHVlydu1jKGWBGWrkweb1w5HalXuDIAX+3M9hdt3jBlf7FbtW4AumETTQ5C
vph2vZddfXEAM9walQdHHuLXOu+6UVQ/+I/vzwxRCsTTSwWcdUx9aMi5oJT9
6Cleq10V2iHQDdka4SqB8ad4OCL4d3WlC1m9Kyejjz6D8i0rTo6WLoSthMJ/
4hkm3rRc2Wbfhcuol7GQC8f8lu384dWd2GgUP8w2GwHB1gWaRpsOSH3cxHFf
PwZ6pURj30wLRAvPz4q/jkHFY/eVU6kt4A9Jrx5ficG1TVzZXy63gD7ujVSs
ZiyM28s+3h1qxpq2/vDGVCzEBZ2qNrU2YSQrU6jscDw+x//yCKtvwOALQ6Y9
hvG4+4w99dejBvQ+pFq/6RkPiXOd1/LVG9BqZtTO0RUP9S4llfj2epQy0ji6
2b+ChePUy46xOsTYmFbL5ScgSYiT6QZTLV4Yb814NpYACRuB2IGhGjxXfRf+
iyYRbvbCHrkJNQjmorN+qZ+IKHqF1ffHauDRnrtzfSURsYrw/XmxGubi2y8U
yybDeEHxWGJLJXhnilZkKl/DenNCYtHHMtxrUfRe+PUavIpT5+p9y9Cb2sSQ
wZaKLIoQtfeHyuBnMcTLfTsVNOZe3gpOpZgZXNWk4UrD4o2lisZ9JSitOR7f
5foG6rfUv93yLwTrqwrhx6/fID9tepJFrhC2HqfzVXre4IKG69ZH0+/Bd8Kg
+b1wOthl9ma1671HQJbTYsxQOi7JKbkXiRbAMCpf7frxTDiPU8qkb87DOyf0
8Flk4rTsSJxNeS4Y9OoujAVngsP+1/ZvbrmoYOyz15nMhKT/4vTc+jswK7qc
eaGeBS5721/ylO/gUhDp7LmahQtRx445i7+FYPIoucCYjTfC4ScHl7PR/YyH
UpY/G5v3jqb3V2RD1C418PfZbPBMjPxK/i8bH0UKX119nY2qIhPRq95ZOP1q
oEVL/y3epHX7XF9Nx4xPhmXNjbcw5ZAqkI5Jx/OrXhsnvN5CaJL74VbldEyK
iBwWyngLCeqRlYzQN3hY4PF0C2UOPvQqNFbJpqG+RcCoIDMHIjbLHEtFKbDJ
WpsXrckBuB2vTt5KAWtoR0DiYA7e6wT9yT+Qgqv6LqUhVO9gfmh4aTI4GbQT
rdw3jN5BJnCFUtcuCaeW70xy0+SiMKVN5JppAqYG1e4/Z8/F3Kz2ZhnOBISV
cO7dIZELzeVn0zXjr/DFs0F9zTgXvd4F7HSWr+C7fX9m79tcyFA8mtzmHI9a
nuo7/qZ5cCsL1zpXFoubVBEMm+3zUL562fyvXyx2T95Idnr0z6eGs89OnY+F
ZfqeAYt3eQheYfhqOBEDamlrWXm6fIwdNfsgahQNZc1dW37n5iMn7rLjN48o
BJpvnV1pyEddyOpdOfEo9N+hGPs7kg+ILxQ5jkfiWvRUIS11Aa4kamk8U4xE
4HSjLbteAb5dm5CTYI5A/xOvj4qLBYg3eas0NxwG7qS77ap076ESzl8YGhGG
a4W3SzU53kNebENpSS8Max8vRJ5XeQ/3c/rqa13PwC0pq2Md9h7bDrPQ1/Q+
xbXehYqQo4U4OyMgGrEegpzvPzLD1QoR6MtHeaMmBGt/P758YVqIp4u7ZiYe
hyBQoMM5ybcQw7KPZ3K4/umd0g8X9hbi/IlX42maT7C21zLug0MROJ4UvaZ9
EARlMZOgL35FoIt54O0iFIRARV3XH9FFkFrZVrjRHAju6woGv2uLoFVhzS++
JxAqJRw7t+4pxuKnm+dH8wMQdKHPQzy/GFLvpKbmBfz+hVwWX5qL4R6wZzCy
6xHcnOPXoz4WoythUV/L4xFuht64S8NQAuV7Xsytww+hVbfFfvRyCfTLf+X2
xT0Ag5j4lYBdpSiKj5e3NvABdfEzPgXBUhz+cY/KitkHf1X/TCzJleJVfGSQ
Yrs3pi7Wml2yKoUrjbOIt5o3WsOMDWXKS1Guz/b5m6oXAv8+1Jy8UQb/L9K6
TNb34es/RR/tVYZIGmKSKnEfbqy6jeciypD1mj5ocdUDNyU4T5VVl4E+5K9X
4mMPCOQYcjVtL0cOr2XkSQd30HydYYu/XI49Rkvrd6zuwSudd+XerXJ4uW7L
1tx+Dxt2ev3n75aDf+bSKa23LliiKA7bHlwOo7/r1kUbd/F17wMm56JyKOW2
iHxIdkad1v7t2rsqkCw5P2d40BHMoh9227JX4HK4yCHWTw4w257I9ZS/AsH0
plqvox2w2iQs2S9TgaWXqffkdjtA+LSskdmlCvB+b2L9znAHwYpGr23eVUAg
MHX4zAE7DPNw5oSUVsBy8ORbie+2ENo8UfyuvgIiFFoCNVm2qCy/1r48XIEF
BrPSGdjit9zdJQ+qSpzbMvP0oOVtGEpHKD/RqwRzTNnYYuwtJO0xOZNjVonE
l8uLw/K3ML/IZdBzrRIFW2nmPn+4iYDclOts7pUQsbNd1BG4iTKJgtC45Er4
q5N9smXXcUCk70P2ciVCvCN97nNdg822qB9dm6vwh64hYGeHFUp+mP7+va0K
xueoDUI8raCX+oVWhrsKzyy1Fwwnr+KhwKJY5ekqlNTvnCssvYJf3CxunZFV
SJ5tVLZ8agFpl7jbFQlV6HEsct2qawHPbhGLrIwqMBWmiFxntsDuByoagZVV
OPvqPPeV8MsgPx33qn2vwsob1rnFxEsIyhvMqzheDam0Zd3MCXMM7riSmqVY
jadiA/u0MsxxwGr+ZYxmNRQe/Oj0dzZHwb5tPq7m1XigKVY4vNMc4x5y544/
qsaoeYBk/GkzHFaPnc7qr8Z+6ogtDikmuJcgPBHzsRoce24kTZ0xQe16QW/g
z2rwnT3IdGvZGIZZHSXXKWqwrum020XDGJ4sWwIEBWvA+/O2xnUKI3SNWQjG
Otag5jD/1JFn+uA4Prcv6H4NXgro7mxR18fVELcdbv41WP1evv3kFn2sKYUv
GsXUYNuve7cy7c/jQGp99Z66GmjHGnuamevhjv0h86Ddtbhid6eSwkwXu+mm
i/W4a5GUsEG1iUMXBTFvWTmEa1FfsdTWO3wOa43H29+crEX5uNKJZeNz8ORW
ReP1WoSlbD/YYKmDwNbL+6mqarGdsuqQfbQ2xC8LOje31KI7ZHU56qo2OlZ+
dIf216LRn47B9og2mPnsAnimamFFl/hMPuwMIl3u/wFbHUT1ra6GUGohSTB6
4O6tOnwt452lYVeHaqm5lMLdOlxgSHQQrVbDt3N8T7b61OG2xt1bt2+oQdj9
jerzyDokzbhfJVWn8banMD+3pg4blTm5IS6qKPXsezazrx5221ZzZNhVYMYa
NZvPXw+b6rS8J93K2JRhqul+uB7zxbOd7Y+VoTTwmZLhVD1qQuOT/mxWRqPY
gt0h23rQpKR/z1lSRN8wo45lfT3mmoUHNWkVoOZv0W/fWQ+fNs3G0o6TKD5e
aOo1XA+nIdO87qiTiA27ZB07U4+p5OzSr4dP4qp2nvcgawN8/vi63LGQx2qV
Ub6WVQPiWaLSJDrkcN02S87ErgGqrZyPVhzkMMpFVW3t2oA7QfmqHfvlUOma
0f7wSQPSEy8+S7opC/9jm75Xvm/41zdPPglmPwH2tCT2Y3SNOOdp0lGRJI1A
gz/xysyN2KZSWSJoLA0KWm0hXY5GDP0d0bm9SxqfLq9I3ZZoBO++xt4X948h
nUPjTJphI0KjPWOYrx0FCZm9z5nWiIciurxG5pLIklehFc1txCkxmZZ0Xknw
TEcGypY14pf6VsaiL0dAraEUZdDViEbv02FrN4+gjSr8XeifRnyPXgkceyAB
M2fZrzQaTbjn43jKYEAcBy/X90zpNSGmabWVNV4c81q61T3mTdD7PeL82Foc
vgeux71ybMLJm4J/AijE8aYtygivmvDfzksS6haiWOH70+aw2gRnPqmQgmuH
UMn4oNSEqhlZ3LOObYyHEPBnV7oSYzNSuVUEtxccBFfHQb9d/M2gNLw//Gvr
QajcM1TKONuM5bnlyZFCQYR0vi/4nNIML6UrmVZa/DAuUU5uzmmGcv6dMwpU
/OBL6XiWU9qMHdUUrXQlfChw/WZ7v7sZPJOPBS6I8WFUkE1kP0ULYoZbyyo4
DuCgu1Oc7vkWFB6hsZrl48GCFWXwiYstUODU9Lj+nRslusFuPDdacDyFrjo1
kxvaB1OMZjxbsH6sesBSlhsOPX0sARktSK4alo8w5ULVoWN+VVStOG3DzFLx
YD9MxXRfze5oRQMPrfspkf1YlrhdzLm3FTfUMpgmutghLJM25SLaivbjkV4a
B9jxVJXznOT5VkhFWe8P7NgLSwsa9sSUVjxxwASrESsorA5Idb1tRQfjyWvO
jKyIvH5Sa1NJKxj5zgeW1u5Bq52Lh0lHK5QvcNX8kNqDY57Tn1hWWzGSLW32
gGM3aGP60n3V21AbLkr7aDcz4uMXat/91wbD+rCqtX4myCbtHP94oQ1PZ0R2
iLxggk26+i7Yt6Hv1YXzhQeYMFBU5rD0og3SJpdE1MgupPYn4+pUG2g+WAVc
fcII5eFq/bDlNhzgesycaMqImekZ6Yub2lF9No/XVZgRfvPbdYLp23FiF0vv
TOgOlK6e8v7J2Y7V82YNHXsYwL+1eDJBtR3q5oTOSJcec3Wi1+I12/FOspRB
fjM9Sn3jfsTotGPBbKBwXzYd9CgfTEUat+MNw7xb2k46+GycXQi2acfRDLmm
kRFafPr9dePe83bcN/1BDsdSI+ud4f27L9vBcOdq2TFjatyza9nsFN+OHcUM
d+jYqME8+5bK7s0/XrHeLN0zKij+dKW3Km/HTFRi79EwSsR/ZNrz32Q7pilf
s6gUbcbNON/nOr/aYfE5ynfDczNkzFbYtOfaMRBHTXtRfTM6R0bZ1dfaocJY
orN3dBM2DbzmOcnYAaGZpilu+k0wa4OoiHQHDKp8RUe3bBDhwLeZB+U6IP3g
PWtW0l+yrMF3WFChA92NOXMRan9JUCOdJK9GB8Z/bjNOebZOSmt6jrOZdaDn
V6eNnvQa2V9srUz1sANz0lP9p9NXCDPb6urNxx1gU6Q4n2ywQrY5PMzqD+nA
5slMORaaFbImlrjvzcsOqLGq2TFbLJPBV6OzOjkdqMkSklQQWSJh/mejY0c7
cOONT6v/jwUSODl2ju5TB26evJJ0JXmB+Cjf3Gr/rQNfTX1suC8vEPsNP/tT
Cx14vMYZwTs+T3TsqtWmtnaCnunbFZaPc4TB6NjSCalOLNbPLV2mnyXUBTVv
EmU6sRDx4+p41wxZZ9a9uEO+Ez1CqRmML2fIz1ablo9qndh2nj7A9/AMaVRI
ffXIrBNs+uY/dtZMkQcH92v3+Xei8hI7++7aH8TtQRrVySedsPuXl2jrH8Th
0/Gi1LBOvIyw0dXa9YNYRuvxu8V1ooxBTGHXpe9EaVfw2oH8TpzQiFar3/mN
UKxufm37sROfaqqpJ2K/ELOJgXn3r5048nOOdafxF1LenEUe/+zE16N0Toys
X4hHjGl38mInTASsJJxDPpMNpcKNYboufH7v354R/In8Dbqtd+pIF/5mi+xK
yPpITJ1V43Slu1CVddq92fEjKb3I+dNcrgt5mweb4vCRuEm13L93qgslBpGd
ah0fyPqgYHq2URcEOumjTNfGyRrf+BZ273+8hBz7irFRYrwjX0voUReYLowm
Dd0fJcXLjyOOBnbhFxO1NRPfKLnXdELs7PMu9Cckc7feHCF/bMINfd90gfXF
qxamHcNktUgre6a7C7szVjzYPQaIYSLf2vpAF8KXf9sESgyQwsA1FfqxLmxh
2Yefn/uJs3nqMN+3LvD93nba7Ew/WaampjVa70Kikln2iHAfWTpbYlrD141o
JWPjzzt6iOdA5gg51A22X2IVXo3dhME83rhAvBuM1tVvqX27Cb/NA8O0E904
Z3TDM2Oji+gGntV7crYb8narvVLrnSSr8bOmiWs3VJ8bB1RwdBBZnf7mXs9u
eKpmHjT+0k7qBhrVtR92Y9nKOSgro52MTmaeVgzthn2UywHXk+1kG81dZaHX
3Yil8piuH20lVooMcr+7u5GpYSe53N1EFhopim8O/ru35FvYaecm4qEzLzM5
1o3OQK+1eo4m8ty8X3roezc82N10FG40klr3eMkKih442LY45O5pIDzFR4Uf
C/dgRexBr2NMLclQFEqjluiBXRjl3KxuLTnetO+gx7EeHAz09zOnryXagxSC
dgo9EMuzi2R2qSFuy428Bvo9CCncr25vUU2GJC/s4/PuQSfLnQW/S5XEckVq
h8+jHkTLmroxClaSmZJtWz4H9oDzwUcrvV8VhPJU4feEiB7EWUW8Y7tbQUQN
WAoPZPbgT5Tv/IkX5cTDtUn/wGAPFjfa6n9uKiV0CvEa3mM9cNRzKRyJLSHP
qJ3lP33qAbP15SjakyUkNYhfMGG6BxXPOQ3XvItJV9z9JV6qXnDEzg9O7y0i
/LXHwnjFe+Fe0neuzaWAZPkx+HlJ9cKv8KhEtHABkTnz2XVCphd72l9I3RjN
J2f6QyxeKfdCbWq96q9SPnH6/kuS16gXcc0Wv8L355EmhoQuHt9eFB/Z6rR5
NYfodd2t8/TvhQUTm6rF+xwyHn626GNwL5zyzu6OcM4hC1wb8fFR/3gWg3xW
a28JxxFDW57sXpSbDEtdon9LbM4z7uQZ7oXOyo+OSI0scjFFLJLvQy+q847m
XtmXRf5b0eIV+tILj/8Uj4b0ZBKZqMdS4jO9OPxlyxfv3ZmEaozOkFD24b62
mFBZYjqJtKR6ZSjch5d/mI3fLKaSgPwDwqaH+6ClV+ygmphK3GmVcs2P9mHe
kBqDuqnkcqpn3VX5Puy0/67WlfeaiE1t/HDQ/ccbLNBt9kkh1XdWJUPv9eFn
2HyCq2YSyatlKw273wcq9TGLQ3RJ5PWe46ciffsQlV5nnFCXSALfOxrEBfeB
x0zSdEopkRisL7hmJvSBtUDTKE41gUx5T9c2Nfdh+0vKI0G28eRDD4N2W8c/
3tJDmnGZeNLNLzrQ2duHvXfiZ/u3xJP39dd/DIz34fpdNs6i8Djive37jsmF
PkxLtfbQ1cUStqef9Cn390PIVUDE3juaSHtx7rbn6cfrdM6eaK5oomdr2DUh
0I/pr2eYGUtfkhDtds0qiX6U/LF+l7v2gmzbXqzgqdoPyx3zc1EPo8hfn1Bh
Cvt++C9HRdj2PSfsd1q/3XLuR2LI6SBR3+fkxOWtyWNu/XBSsTFdkHpOnBTc
ucse9SOZw2c96Hk4mf17bbdbTD9C39V0pVqFkU+OChRrjf04VCbHmiH9lGy+
4lpi3d6P6775Zx4shhIuvYK7Qz39uKYxNyWdG0pMJEV/F47346Dib5O9UqGk
d4btu/NiP0pDLKv8SAhpsJrtWuIeQLztl6WJO8FkUl/4yRWBAXSNlrTTyQcT
atUrWn3CA2jXren4QBdMFPhH6vOODeAD7X+JospBpPhjfckdzQEw+pTy1eY8
JhlGscnzTgOoMHJg/a/Zj0j28a5Suw3gYdpAp91dP1Kkk6yx12sAYR2zhQFC
fqT+dMas/OOBf/9w1aE4v0dk4ljxicC4AbDIGots0X9IWJn72wQbB6Bv9JtZ
br8viQ4y4pFtG4ArTVVg2oAP4aMfsz/TPYAiynmXyTAfIrH5C5vD6ABmnnQO
VzH5EM2Z+UtVcwNYuhIeVLLbm3g271g22TeIjdCAmUJ4ElrVULXbXIPI+nGg
cZnGkwRV7X7pzTcID5drmz603ycvCvcrpIkNYv+LrTdSLt8n+SmHApYVB+GO
guahUA/y0/sUV+j1QRzKFrMw4HAjdhRNtkm3B+Fy/sCCTqUrWXXRqnnvMIjs
J6ezLK64Ehq7/66Newzia96MZsO7e4TH/NI7kWeDmPRJSBIxdiHn5dxV60sG
EdbjtT1z0IkM//6yo7LyH7+eW14m2IlczNDqK6obxPxeH/cEFSdynZPDMrNj
EHE5SUX0eY7Ec1OJV9jnQdCmWP0ZiXYgGTWrpZe3D8EtfzTMJsyeSLpd9DXd
NYT8RZ2+Kn178v5oo6b+niHcoLoy2LbPnlQnRwyrcw+B13/+4dYEOzLwSHpV
QmoIf0jpk/piW0Kp5SC1yWQIrGzzo9nbbxM/6tG1VfMhVMlGukQN2pAdZcrV
C5ZDkHS/ysuRYkP2irOcm7QZQqPs7K2vSjZEbNc7mzbvIRRbtKi/pbtFDHtn
016+GcISlyKvr/x1Mh5oYBeePYSWqB1+Ez+sicWpCpkneUOoERxxIc+tiU1B
cIN3+RCO1Esc+jB/jfhGin217h7C2veStod5ViTb9AaPzNoQsjeOvvlteYVc
zJ3ZH7tpGBeN+COn914hzNvs2ahphmGfTOcx3mZJHN7fZezcOYyUz9nvImUt
iQzzw79WAsMI+3vNZR+3BalsiB+M0BmG/95rq1VMl4gdF3/vxvlh/Ky6lNvY
c5EccHzdYWEyDHbBwarI5xeJ74Gs+sNXh5GXYpsWwHWRqLuX5DW4DkO3OYvb
9rg56ZbsD1lJGYbki0ulF/deID7+RoEXMoZRjlED/VxTcvTj6KOanGFs6j0q
EXbWlDwP+uzxpHQYAtKd6wOPTYjJ97mbQt3DWPBkTmNkMSZfYrarG2wMY1uD
bcOAoQEJXwxWKaMcwVWL+/UutAZEVZNZgY9uBMkla4ZC+fokdXXv8VnmEUx8
Uc+K2KNPbv0nKPDo4Ah0xfMKbD/pkWU6xS3v/xtB3zmKO8ppumTXFMPTSsMR
pFcmU4Zf1yWHOgYPNF8Ygfpr7rQkUV1iGm6rMmY1AqtBj5NL786RKt74R1Ru
IzhU5yXO1ahDAmU3MeokjWDV67JWEfNZksLZEmuUNgIK6032U+PapGJzxGGL
rBGIi7dmlaZrk4V68XNOhSOw7qeiFDutTQz/MwuLbh1B2k+VNGmGM4TvZhn7
j8URcP3K7lI7oUHIWf/0hT8jUHrTKZT+WZ3oS54nfylG8Q1/eZmeqBO/1akL
O+lHcUL/WPnIdzUy48vx6hjnKI4opJeypZ4mxTGuQt6nRtFxMZE/TfcU6fU8
XfhYYxTsykTt+/ZTZNqCRT387ChYnPQ3NupUCI9w+vVUo1Fc+jW/mkBUyIOC
4cz2W6Pg7An5GSSlTHQ6Thzd/3wUXmzlNn2nFAndCfqK4pej0LAtDX9JrUgq
EgbVjV+NovPLkSvytQpE3MnZPCpj9J/79hcYVRUIA2d+AFvNv33z1A5+/50k
DdclJljmRhEkM12+5xCIR++mm7lLo5DxKUtKqiBEWr5jWXd9FAzjyScjDQhJ
YrJheEo7hke/q5pePJYj3oXpx3dxjuFioB9LEJUskacVCmbQGEPMo24eg8PH
yfLt5b0ZZ8fAmfOCi3NYmmQO1SVqnh/DXp+TNlQPpQlHpmVRwMUxnKH26Oad
OEbW/kv4Quc8hrfeJQfkk46S/FeccjRJY5BPCPL9aCxJbm6frktKG4Nln6zt
xh5Jwu9YqqOSPYbcvi1WVN1HyFM1k6s+xWPYeaNavFzrCLGdjQzd0jUG2qQ9
ji+1JMhBo2scr/rHUPK7uTSDUYJ8qD7+WmF0DEvTWX5Pug4T7ef9pfe/jUHq
pkxiudFhQrs55TT39Bj2P1X2peE+TMqsHbvLF8ZQnUPPyPJVnDj0qFwwWx3D
cqBr/Jd0cSKK3d83NsbwyfFGkvMdcfI/LxBzXg==
        "]]},
      Annotation[#, 
       "Charting`Private`Tag$3201#1"]& ], {}}, {{}, {}}, {{}, {}}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-0.5, 0.5}, {0., 0.9999999961678667}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.949968570400634*^9, 3.949968587759924*^9}, 
   3.949968702487485*^9, 3.9499688491364803`*^9, 3.9499689745522842`*^9, 
   3.949969319191018*^9, 3.9499693499424725`*^9, 3.9499694636190333`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"55c41d25-d805-4859-ba82-79a06d8bd64f"]
}, Open  ]]
},
WindowSize->{1518, 755},
WindowMargins->{{1, Automatic}, {Automatic, 1}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 548, 16, 48, "Input",ExpressionUUID->"f942ba23-69b3-4490-968d-fbd01311253d"],
Cell[1131, 40, 6569, 127, 245, "Output",ExpressionUUID->"db3da5bb-6292-40da-8baa-b0cb83e77546"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7737, 172, 2501, 66, 86, "Input",ExpressionUUID->"4c871ba2-d24c-4603-bf6a-bf404be95c46"],
Cell[10241, 240, 6980, 133, 233, "Output",ExpressionUUID->"96e0a4d0-ef6b-4530-bc98-d0bf88582e20"],
Cell[17224, 375, 14049, 247, 242, "Output",ExpressionUUID->"4c416bbc-c1d2-4b98-a560-9c7d22dc1c8d"],
Cell[31276, 624, 12511, 223, 227, "Output",ExpressionUUID->"2b0cc8e5-fd8f-4569-8de8-73d678defb77"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43824, 852, 3916, 99, 146, "Input",ExpressionUUID->"e67e059b-0d85-49c8-a9af-b2e347f59415"],
Cell[47743, 953, 7559, 154, 427, "Output",ExpressionUUID->"e9b2f56f-e842-4de1-b3f5-dce25903ac49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55339, 1112, 2740, 77, 107, "Input",ExpressionUUID->"bb9ef185-396c-4bd2-bdf7-e2c49f045679"],
Cell[58082, 1191, 14390, 267, 427, "Output",ExpressionUUID->"ef7aef8f-ea49-47a8-8f48-b284b03a28cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[72509, 1463, 2875, 81, 107, "Input",ExpressionUUID->"c54ee960-f92b-4936-8d0c-3580bcf29d6d"],
Cell[75387, 1546, 12748, 239, 425, "Output",ExpressionUUID->"b3e52e83-1c4a-43b3-8bcd-3f138746a17c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[88172, 1790, 2736, 74, 86, "Input",ExpressionUUID->"9790d29c-9aeb-41ef-9b80-86ac2f06fa95"],
Cell[90911, 1866, 6590, 122, 293, "Output",ExpressionUUID->"415f5631-839f-49b2-84ff-39830df43739"],
Cell[97504, 1990, 13670, 238, 293, "Output",ExpressionUUID->"c6fd5259-0e11-4860-a59f-0844546681ba"],
Cell[111177, 2230, 12086, 211, 264, "Output",ExpressionUUID->"c8a49221-1097-465c-a8e6-7bc48cee2b54"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123300, 2446, 4527, 103, 107, "Input",ExpressionUUID->"67b2613b-467a-4958-9047-a75dd687549e"],
Cell[127830, 2551, 8175, 158, 356, "Output",ExpressionUUID->"06eb1767-fbf1-4da1-9864-28b01a60221f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136042, 2714, 3267, 85, 107, "Input",ExpressionUUID->"3f755edb-f871-4f55-9f0b-6a724f00c224"],
Cell[139312, 2801, 14430, 263, 356, "Output",ExpressionUUID->"a24e77ad-6b29-4e0f-aa09-34538b4f4087"]
}, Open  ]],
Cell[CellGroupData[{
Cell[153779, 3069, 3155, 87, 107, "Input",ExpressionUUID->"3413d943-7c81-4c65-b15d-b8df3f9a5c8a"],
Cell[156937, 3158, 12790, 235, 356, "Output",ExpressionUUID->"82e6f1e5-b24e-4671-95e0-79e0c366a794"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169764, 3398, 1535, 39, 107, "Input",ExpressionUUID->"fe23b86d-ee86-46c7-89b1-094255bc7b55"],
Cell[171302, 3439, 23012, 413, 245, "Output",ExpressionUUID->"205a2bc7-e4b4-47a3-ac30-538367c0b387"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194351, 3857, 1135, 34, 107, "Input",ExpressionUUID->"9ee12857-6cb8-4d3f-a839-5cccbaedb4a4"],
Cell[195489, 3893, 12996, 239, 245, "Output",ExpressionUUID->"5d90f9cd-b2ec-41f0-9321-a52cceab5c90"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208522, 4137, 1014, 28, 85, "Input",ExpressionUUID->"5f444617-a322-41d6-9a60-bd558b1250be"],
Cell[209539, 4167, 22833, 410, 278, "Output",ExpressionUUID->"55c41d25-d805-4859-ba82-79a06d8bd64f"]
}, Open  ]]
}
]
*)