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

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

(* CreatedBy='Mathematica 13.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3438,        106]
NotebookOptionsPosition[      2700,         84]
NotebookOutlinePosition[      3136,        101]
CellTagsIndexPosition[      3093,         98]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Figure S8", "Section",
 CellChangeTimes->{{3.970590617921006*^9, 
  3.9705906241659164`*^9}},ExpressionUUID->"67a07058-4328-4f46-b376-\
f8fcbe08ae68"],

Cell[CellGroupData[{

Cell[TextData[{
 "Capacitance as a function of the geometrical capacitance, for NPB devices \
with various thicknesses and device areas.\nData: {thickness [nm], area ",
 Cell[BoxData[
  FormBox[
   RowBox[{"[", 
    RowBox[{
     SuperscriptBox["10", 
      RowBox[{"-", "5"}]], 
     SuperscriptBox[
      StyleBox["m",
       FontSlant->"Plain"], "2"]}], "]"}], TraditionalForm]],
  FormatType->TraditionalForm,ExpressionUUID->
  "2d036291-e516-4061-bf74-7fa490db103d"],
 ", geometrical capacitance [nF], capacitance [nF]  "
}], "Subsection",
 CellChangeTimes->{{3.9705906412394686`*^9, 3.9705907699471064`*^9}, {
  3.970590835250596*^9, 
  3.97059083905993*^9}},ExpressionUUID->"0d418859-78fb-47e0-aa26-\
710bc432b53b"],

Cell[BoxData[
 RowBox[{"tabcapacitance", "=", 
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"109.2", ",", "1.6", ",", "1.296", ",", "4.018"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"109.2", ",", "0.9", ",", "0.729", ",", "2.307"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"213.5", ",", "1.6", ",", "0.663", ",", "2.076"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"313.0", ",", "1.6", ",", "0.452", ",", "1.426"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"213.7", ",", "0.9", ",", "0.373", ",", "1.207"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"313.0", ",", "0.9", ",", "0.254", ",", "0.857"}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.9705907739518423`*^9, 3.9705909277454033`*^9}, {
  3.970590963869398*^9, 3.970590980282806*^9}, {3.9705910187683268`*^9, 
  3.970591120184203*^9}},ExpressionUUID->"156feaa6-bb11-4d9a-9d5e-\
31380e9d6469"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.9705911232235622`*^9},ExpressionUUID->"cc7f53cf-50a6-42d7-9125-\
d55d1c948791"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1152, 579.6},
WindowMargins->{{
  Automatic, -5.399999999999864}, {-5.399999999999977, Automatic}},
FrontEndVersion->"13.3 for Microsoft Windows (64-bit) (July 24, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"a8b3476c-19aa-45fe-9dd4-14a1510f522b"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 156, 3, 67, "Section",ExpressionUUID->"67a07058-4328-4f46-b376-f8fcbe08ae68"],
Cell[CellGroupData[{
Cell[761, 29, 722, 19, 82, "Subsection",ExpressionUUID->"0d418859-78fb-47e0-aa26-710bc432b53b"],
Cell[1486, 50, 1053, 25, 143, "Input",ExpressionUUID->"156feaa6-bb11-4d9a-9d5e-31380e9d6469"],
Cell[2542, 77, 130, 3, 28, "Input",ExpressionUUID->"cc7f53cf-50a6-42d7-9125-d55d1c948791"]
}, Open  ]]
}, Open  ]]
}
]
*)

