NeumannCond.nb

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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2106,         75]
NotebookOptionsPosition[      1689,         59]
NotebookOutlinePosition[      2028,         74]
CellTagsIndexPosition[      1985,         71]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "=", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"8.284925963482451", "*", 
      SuperscriptBox["10", 
       RowBox[{"-", "7"}]]}], ")"}], "2"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eps", "=", 
   RowBox[{"692.96", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "21"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"q", "=", 
   RowBox[{"1.6", "*", 
    SuperscriptBox["10", 
     RowBox[{"-", "19"}]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"343", " ", "q"}], "-", 
    RowBox[{"172", "q"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"2", " ", "A", " ", "eps"}], ")"}]}]}], "Input",
 CellChangeTimes->{{3.813519085463492*^9, 3.813519277229178*^9}, {
  3.813519424287323*^9, 
  3.8135194387426434`*^9}},ExpressionUUID->"4c6d8cd9-77c3-48b1-96b9-\
2509ca396239"],

Cell[BoxData["2.8760780487751887`*^13"], "Output",
 CellChangeTimes->{
  3.813519281189237*^9, {3.8135194246031847`*^9, 
   3.813519442741173*^9}},ExpressionUUID->"edc513d2-aee5-4570-afc6-\
ddea95b0d956"]
}, Open  ]]
},
WindowSize->{1248, 1388},
WindowMargins->{{Automatic, 0}, {0, Automatic}},
FrontEndVersion->"11.2 for Linux x86 (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 886, 28, 112, "Input",ExpressionUUID->"4c6d8cd9-77c3-48b1-96b9-2509ca396239"],
Cell[1469, 52, 204, 4, 37, "Output",ExpressionUUID->"edc513d2-aee5-4570-afc6-ddea95b0d956"]
}, Open  ]]
}
]
*)