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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5512,        139]
NotebookOptionsPosition[      5087,        123]
NotebookOutlinePosition[      5430,        138]
CellTagsIndexPosition[      5387,        135]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ParametricPlot3D", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"a", " ", 
        RowBox[{"Cos", "[", "u", "]"}], " ", 
        RowBox[{"Sin", "[", "v", "]"}]}], ",", " ", 
       RowBox[{"a", " ", 
        RowBox[{"Sin", "[", "u", "]"}], " ", 
        RowBox[{"Sin", "[", "v", "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Cos", "[", "v", "]"}], " ", "+", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"Tan", "[", 
             RowBox[{"v", "/", "2"}], "]"}], "]"}]}], ")"}]}], " ", "+", " ", 
        RowBox[{"b", " ", "u"}]}]}], "\[IndentingNewLine]", "}"}], ",", " ", 
     RowBox[{"{", " ", 
      RowBox[{"u", ",", " ", "0", ",", " ", 
       RowBox[{"4", " ", "Pi"}]}], " ", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"v", ",", " ", "0", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\"", ",", " ", "\"\<z\>\""}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotLabel", "\[Rule]", "\"\<Dini's surface\>\""}], ",", " ", 
     RowBox[{"PlotPoints", "\[Rule]", "64"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"Opacity", "[", "0.7", "]"}]}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "1"}], "}"}], ",", "0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b", ",", "0.15"}], "}"}], ",", "0", ",", "1"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.748633288513892*^9, 3.7486335408608303`*^9}, {
  3.748633608984397*^9, 3.7486336134053288`*^9}, {3.7486336650305614`*^9, 
  3.7486336890246105`*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"2ae19735-3138-4a62-b9b0-bfc6a29a655b"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`a$$ = 1, $CellContext`b$$ = 0.15, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`a$$], 1}, 0, 2}, {{
       Hold[$CellContext`b$$], 0.15}, 0, 1}}, Typeset`size$$ = {
    263., {213., 219.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`a$6531$$ = 
    0, $CellContext`b$6532$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`a$$ = 1, $CellContext`b$$ = 0.15}, 
      "ControllerVariables" :> {
        Hold[$CellContext`a$$, $CellContext`a$6531$$, 0], 
        Hold[$CellContext`b$$, $CellContext`b$6532$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      ParametricPlot3D[{$CellContext`a$$ Cos[$CellContext`u] 
         Sin[$CellContext`v], $CellContext`a$$ Sin[$CellContext`u] 
         Sin[$CellContext`v], $CellContext`a$$ (Cos[$CellContext`v] + Log[
             
             Tan[$CellContext`v/
              2]]) + $CellContext`b$$ $CellContext`u}, {$CellContext`u, 0, 4 
         Pi}, {$CellContext`v, 0, 2}, AxesLabel -> {"x", "y", "z"}, PlotLabel -> 
        "Dini's surface", PlotPoints -> 64, PlotStyle -> Opacity[0.7]], 
      "Specifications" :> {{{$CellContext`a$$, 1}, 0, 
         2}, {{$CellContext`b$$, 0.15}, 0, 1}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{314., {274., 280.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.748633620805958*^9, 3.7486336917171774`*^9, {3.748633743878425*^9, 
   3.7486337648669615`*^9}, 3.7486339042773256`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"d8ad3847-2708-481c-850c-1bed5cf1ba62"]
}, Open  ]]
},
WindowSize->{809, 842},
WindowMargins->{{Automatic, 481}, {66, Automatic}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2048, 48, 200, "Input",ExpressionUUID->"2ae19735-3138-4a62-b9b0-bfc6a29a655b"],
Cell[2631, 72, 2440, 48, 573, "Output",ExpressionUUID->"d8ad3847-2708-481c-850c-1bed5cf1ba62"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
