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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2418,         82]
NotebookOptionsPosition[      1994,         65]
NotebookOutlinePosition[      2360,         81]
CellTagsIndexPosition[      2317,         78]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_", ",", "z_"}], "]"}], "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"], "+", 
       SuperscriptBox["z", "2"]}]]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.732028230076592*^9, 
  3.732028296297146*^9}},ExpressionUUID->"baeb467b-b2ea-44f9-852e-\
52a06ee42103"],

Cell[BoxData[
 RowBox[{"ContourPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", "0.1"}], ",", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}], "\[Equal]", 
      RowBox[{"-", "0.1"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", 
     RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.732028341369347*^9, 3.732028395397305*^9}, {
   3.732028467907709*^9, 3.732028500489702*^9}, {3.732028669020604*^9, 
   3.732028722177464*^9}, 3.732028754497467*^9, {3.732028851622154*^9, 
   3.7320288652204647`*^9}},ExpressionUUID->"4fb37f77-e0c4-4d2e-82be-\
d26b030d1841"]
},
WindowSize->{808, 911},
WindowMargins->{{139, Automatic}, {41, Automatic}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 502, 16, 73, "Input", "ExpressionUUID" -> \
"baeb467b-b2ea-44f9-852e-52a06ee42103"],
Cell[1063, 38, 927, 25, 83, "Input", "ExpressionUUID" -> \
"4fb37f77-e0c4-4d2e-82be-d26b030d1841"]
}
]
*)