(* 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[      8835,        221]
NotebookOptionsPosition[      8446,        207]
NotebookOutlinePosition[      8788,        222]
CellTagsIndexPosition[      8745,        219]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"SetOptions", "[", 
   RowBox[{"Plot3D", ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"RGBColor", "[", 
        RowBox[{"0", ",", "0.64", ",", "0.95"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "0.8", "]"}]}], "}"}]}], ",", 
    RowBox[{"MeshStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Thickness", "[", "0.001", "]"}], ",", 
       RowBox[{"Opacity", "[", "0.8", "]"}]}], "}"}]}], ",", 
    RowBox[{"BoundaryStyle", "\[Rule]", "None"}], ",", 
    RowBox[{"ClippingStyle", "\[Rule]", "None"}], ",", 
    RowBox[{"Lighting", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<Point\>\"", ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", "0.64", ",", "0.95"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "50"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Point\>\"", ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", "0.64", ",", "0.95"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"50", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Point\>\"", ",", 
         RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", "0.64", ",", "0.95"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "50", ",", "0"}], "}"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
    RowBox[{"BoxStyle", "\[Rule]", 
     RowBox[{"GrayLevel", "[", "0.8", "]"}]}], ",", 
    RowBox[{"AxesOrigin", "\[Rule]", "Automatic"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plots", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "2"}], "*", "y"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "4"}], "+", 
          RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
       RowBox[{"Boxed", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Bottom", ",", "Front", ",", "Left"}], "}"}]}], ",", 
       RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Abs", "[", "x", "]"}], 
          RowBox[{"y", "^", "2"}]}], ")"}], "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", 
           RowBox[{"x", "^", "2"}]}], "-", 
          RowBox[{"x", "*", "y"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"x", "*", 
          RowBox[{"Cos", "[", 
           RowBox[{"1", "/", "y"}], "]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Sin", "[", 
          RowBox[{"x", "+", "y"}], "]"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"x", "+", "y"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
       RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}]}], 
    "\[IndentingNewLine]", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.87359970541721*^9, 3.87359972601237*^9}, {
   3.873599770985702*^9, 3.8735997711736927`*^9}, {3.8735999761866784`*^9, 
   3.8735999957139974`*^9}, {3.8736001335171084`*^9, 3.873600183242301*^9}, 
   3.8736002828496933`*^9, {3.873600328254253*^9, 3.873600339551844*^9}, {
   3.873600377138627*^9, 3.8736004084782796`*^9}, {3.873600440189373*^9, 
   3.8736004515801907`*^9}, {3.8736004844366827`*^9, 
   3.8736004994921494`*^9}, {3.873600604398999*^9, 3.873600657920148*^9}, {
   3.873600721880295*^9, 3.8736007908295918`*^9}, {3.8736008620902*^9, 
   3.8736009055892477`*^9}, {3.8736246634276953`*^9, 
   3.8736246659709806`*^9}, {3.873624704687437*^9, 3.873624706439434*^9}, {
   3.873624779949642*^9, 3.873624867049683*^9}, {3.8736249251600933`*^9, 
   3.8736250111123867`*^9}, {3.8736250839291425`*^9, 3.873625092829068*^9}, {
   3.8736253432544923`*^9, 3.873625371248539*^9}, 3.8736260285287952`*^9, {
   3.8736261473341494`*^9, 3.8736261486508102`*^9}, {3.8736274308033075`*^9, 
   3.8736274351454945`*^9}, {3.8736276564747467`*^9, 3.8736276924786077`*^9}, 
   3.8736279183950396`*^9, {3.8736287477095575`*^9, 3.873628749356494*^9}, {
   3.8736287995111523`*^9, 3.8736288335644007`*^9}, {3.873628925394453*^9, 
   3.8736289424433775`*^9}, {3.873629111441877*^9, 3.8736291534507585`*^9}, {
   3.8736291884139795`*^9, 3.873629188571643*^9}, {3.873629414336851*^9, 
   3.8736294155078726`*^9}, {3.873640977822756*^9, 3.8736409846969275`*^9}, 
   3.8736410323952303`*^9, {3.8736410663494024`*^9, 3.8736410678684235`*^9}, {
   3.8736431284430285`*^9, 3.873643203936843*^9}, {3.873643685613896*^9, 
   3.873643687605419*^9}, {3.8736439371017656`*^9, 3.87364399382072*^9}, {
   3.8736443943990307`*^9, 3.8736445120816193`*^9}, {3.87364542339677*^9, 
   3.87364550442769*^9}, {3.8736455345073876`*^9, 3.873645550186166*^9}, {
   3.873646565782362*^9, 3.873646664622779*^9}, {3.8736476570906963`*^9, 
   3.8736476577634983`*^9}, {3.873648238789935*^9, 3.8736482390193677`*^9}, 
   3.8740691893750825`*^9, {3.874070230569354*^9, 3.87407023257732*^9}, {
   3.8742302740777597`*^9, 3.874230280740858*^9}, 3.8742304707597675`*^9, {
   3.8863317037963505`*^9, 3.886331708149531*^9}, {3.981017762605481*^9, 
   3.9810177631127367`*^9}, {3.9810178294619703`*^9, 3.9810178971955857`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"00b528b2-d246-42a0-83c8-402965b37129"],

Cell[BoxData[
 RowBox[{"plots", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.9810175530903287`*^9, 3.981017553743231*^9}, 
   3.981017640754237*^9, {3.981017738744712*^9, 3.9810177420412035`*^9}, 
   3.9810177830322337`*^9, {3.9810178342789307`*^9, 3.9810178573570776`*^9}, {
   3.98101788823384*^9, 3.9810179026799116`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"876cab57-ec61-47f3-9e3a-446a9828012a"]
},
WindowSize->{1520, 773},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
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[558, 20, 7450, 176, 200, "Input",ExpressionUUID->"00b528b2-d246-42a0-83c8-402965b37129"],
Cell[8011, 198, 431, 7, 28, "Input",ExpressionUUID->"876cab57-ec61-47f3-9e3a-446a9828012a"]
}
]
*)