libmeshcheck.nb

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

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

(* CreatedBy='Mathematica 10.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2261,         80]
NotebookOptionsPosition[      1897,         62]
NotebookOutlinePosition[      2256,         78]
CellTagsIndexPosition[      2213,         75]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Check results of libMesh:", "Subsection",
 CellChangeTimes->{{3.64181408130868*^9, 3.641814087202952*^9}}],

Cell["Want to evaluate:", "Text",
 CellChangeTimes->{{3.641814093912965*^9, 3.641814096640976*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Phi]2", "[", "x", "]"}], ":=", 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"2", "\[Pi]"}]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"nxhat", "[", "y", "]"}], ",", 
         RowBox[{"nyhat", "[", "y", "]"}], ",", 
         RowBox[{"nzhat", "[", "y", "]"}]}], "}"}], ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"xx", "-", "yx"}], ",", 
         RowBox[{"xy", "-", "yy"}], ",", 
         RowBox[{"xz", "-", "yz"}]}], "}"}]}], 
      SuperscriptBox[
       RowBox[{"Abs", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xx", "-", "yx"}], ",", 
          RowBox[{"xy", "-", "yy"}], ",", 
          RowBox[{"xz", "-", "yz"}]}], "}"}], "]"}], "3"]], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], 
     RowBox[{"\[DifferentialD]", "\[Theta]"}], 
     RowBox[{"\[DifferentialD]", "\[Phi]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.641814129791712*^9, 3.64181425859741*^9}}]
}, Open  ]]
},
WindowSize->{1128, 911},
WindowMargins->{{Automatic, 306}, {-68, Automatic}},
Magnification->1.25,
FrontEndVersion->"10.1 for Linux x86 (64-bit) (March 23, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 112, 1, 58, "Subsection"],
Cell[695, 25, 99, 1, 40, "Text"],
Cell[797, 28, 1084, 31, 69, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)