(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1063, 20] NotebookDataLength[ 36308, 885] NotebookOptionsPosition[ 36541, 870] NotebookOutlinePosition[ 37083, 892] CellTagsIndexPosition[ 37040, 889] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Cos", "[", "\[Alpha]1", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Alpha]1", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Alpha]1", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", "LightRed"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Beta]1", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Cos", "[", StyleBox["\[Beta]1", FontWeight->"Plain"], "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Beta]1", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", "LightBlue"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Gamma]1", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Gamma]1", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Cos", "[", "\[Gamma]1", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", "LightYellow"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"1.06", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", RowBox[{"AxesOrigin", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ",", RowBox[{"Ticks", "\[Rule]", "False"}], ",", " ", RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Alpha] = \>\"", ",", " ", RowBox[{"Round", "[", RowBox[{ RowBox[{"\[Alpha]1", "*", RowBox[{"180", "/", "Pi"}]}], ",", "1"}], "]"}], ",", "\"\<\[Degree]\>\""}], " ", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Beta] = \>\"", ",", " ", RowBox[{"Round", "[", RowBox[{ RowBox[{"\[Beta]1", "*", RowBox[{"180", "/", "Pi"}]}], ",", "1"}], "]"}], ",", "\"\<\[Degree]\>\""}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Gamma] = \>\"", ",", " ", RowBox[{"Round", "[", RowBox[{ RowBox[{"\[Gamma]1", "*", RowBox[{"180", "/", "Pi"}]}], ",", "1"}], "]"}], ",", "\"\<\[Degree]\>\""}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]", ",", "\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]1", ",", RowBox[{ RowBox[{"15", "/", "180"}], "*", "Pi"}], ",", "\"\<\[Alpha]\>\""}], "}"}], ",", RowBox[{"1", "\[Degree]"}], ",", RowBox[{"179", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Beta]1", ",", RowBox[{ RowBox[{"25", "/", "180"}], "*", "Pi"}], ",", "\"\<\[Beta]\>\""}], "}"}], ",", RowBox[{"1", "\[Degree]"}], ",", RowBox[{"179", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Gamma]1", ",", RowBox[{ RowBox[{"35", "/", "180"}], "*", "Pi"}], ",", "\"\<\[Gamma]\>\""}], "}"}], ",", RowBox[{"1", "\[Degree]"}], ",", RowBox[{"179", "\[Degree]"}]}], "}"}], ",", " ", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", \ "PluginEmbeddedContent"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Alpha]1$$ = Rational[1, 12] Pi, $CellContext`\[Beta]1$$ = Rational[5, 36] Pi, $CellContext`\[Gamma]1$$ = Rational[7, 36] Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ "T\[RHacek]i \[UAcute]hly v\[URing]\[CHacek]i t\[RHacek]em \ os\[AAcute]m"], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`\[Alpha]1$$], Rational[1, 12] Pi, "\[Alpha]"}, Degree, 179 Degree}, {{ Hold[$CellContext`\[Beta]1$$], Rational[5, 36] Pi, "\[Beta]"}, Degree, 179 Degree}, {{ Hold[$CellContext`\[Gamma]1$$], Rational[7, 36] Pi, "\[Gamma]"}, Degree, 179 Degree}}, Typeset`size$$ = {416., {193., 198.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Alpha]1$80191$$ = 0, $CellContext`\[Beta]1$80192$$ = 0, $CellContext`\[Gamma]1$80193$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Alpha]1$$ = Rational[1, 12] Pi, $CellContext`\[Beta]1$$ = Rational[5, 36] Pi, $CellContext`\[Gamma]1$$ = Rational[7, 36] Pi}, "ControllerVariables" :> { Hold[$CellContext`\[Alpha]1$$, $CellContext`\[Alpha]1$80191$$, 0], Hold[$CellContext`\[Beta]1$$, $CellContext`\[Beta]1$80192$$, 0], Hold[$CellContext`\[Gamma]1$$, $CellContext`\[Gamma]1$80193$$, 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" :> Row[{ Show[ ParametricPlot3D[{$CellContext`t Cos[$CellContext`\[Alpha]1$$], ($CellContext`t Sin[$CellContext`\[Alpha]1$$]) Sin[$CellContext`\[Phi]], ($CellContext`t Sin[$CellContext`\[Alpha]1$$]) Cos[$CellContext`\[Phi]]}, {$CellContext`t, 0, 1}, {$CellContext`\[Phi], 0, 2 Pi}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, PlotStyle -> Directive[ Opacity[0.5], LightRed], Mesh -> False], ParametricPlot3D[{($CellContext`t Sin[$CellContext`\[Beta]1$$]) Sin[$CellContext`\[Phi]], $CellContext`t Cos[$CellContext`\[Beta]1$$], ($CellContext`t Sin[$CellContext`\[Beta]1$$]) Cos[$CellContext`\[Phi]]}, {$CellContext`t, 0, 1}, {$CellContext`\[Phi], 0, 2 Pi}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, PlotStyle -> Directive[ Opacity[0.5], LightBlue], Mesh -> False], ParametricPlot3D[{($CellContext`t Sin[$CellContext`\[Gamma]1$$]) Sin[$CellContext`\[Phi]], ($CellContext`t Sin[$CellContext`\[Gamma]1$$]) Cos[$CellContext`\[Phi]], $CellContext`t Cos[$CellContext`\[Gamma]1$$]}, {$CellContext`t, 0, 1}, {$CellContext`\[Phi], 0, 2 Pi}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, PlotStyle -> Directive[ Opacity[0.5], LightYellow], Mesh -> False], Map[Graphics3D[ Text[ Part[#, 1], 1.06 Part[#, 2]]]& , {{"X", {1, 0, 0}}, { "Y", {0, 1, 0}}, {"Z", {0, 0, 1}}}], Graphics3D[ Arrow[{{-1, 0, 0}, {1, 0, 0}}]], Graphics3D[ Arrow[{{0, -1, 0}, {0, 1, 0}}]], Graphics3D[ Arrow[{{0, 0, -1}, {0, 0, 1}}]], Axes -> False, AxesOrigin -> {0, 0, 0}, Ticks -> False, ImageSize -> Medium], Column[{ Row[{"\[Alpha] = ", Round[$CellContext`\[Alpha]1$$ (180/Pi), 1], "\[Degree]"}], Row[{"\[Beta] = ", Round[$CellContext`\[Beta]1$$ (180/Pi), 1], "\[Degree]"}], Row[{"\[Gamma] = ", Round[$CellContext`\[Gamma]1$$ (180/Pi), 1], "\[Degree]"}]}]}], "Specifications" :> { "T\[RHacek]i \[UAcute]hly v\[URing]\[CHacek]i t\[RHacek]em \ os\[AAcute]m", {{$CellContext`\[Alpha]1$$, Rational[1, 12] Pi, "\[Alpha]"}, Degree, 179 Degree}, {{$CellContext`\[Beta]1$$, Rational[5, 36] Pi, "\[Beta]"}, Degree, 179 Degree}, {{$CellContext`\[Gamma]1$$, Rational[7, 36] Pi, "\[Gamma]"}, Degree, 179 Degree}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{467., {275., 280.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", "PluginEmbeddedContent"] }, {2}]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], "^", "2"}]}], " ", "<", "1"}], ",", RowBox[{"(*", RowBox[{"existuji", " ", "dva", " ", "pruniky"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{"{", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{ RowBox[{"180", "/", "Pi"}], " ", "*", " ", RowBox[{"ArcCos", "[", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "^", "2"}], "-", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], "^", "2"}]}], "]"}], "]"}]}], ",", "0.01"}], "]"}], ",", " ", RowBox[{"180", "-", RowBox[{"Round", "[", RowBox[{ RowBox[{ RowBox[{"180", "/", "Pi"}], " ", "*", " ", RowBox[{"ArcCos", "[", RowBox[{"Sqrt", "[", RowBox[{"1", "-", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "^", "2"}], "-", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], "^", "2"}]}], "]"}], "]"}]}], ",", "0.01"}], "]"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"cary", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", RowBox[{"Cos", "[", RowBox[{"#", " ", "Degree"}], "]"}]}], "}"}]}], "}"}], "&"}], "/@", "\[Gamma]"}]}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"Cos", "[", "\[Beta]", "]"}], "^", "2"}]}], " ", "==", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{"{", "90", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"cary", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Alpha]", "]"}], ",", RowBox[{"Cos", "[", "\[Beta]", "]"}], ",", "0"}], "}"}]}], "}"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{"{", "\"\<---\>\"", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"cary", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Cos", "[", "\[Alpha]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Alpha]", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Alpha]", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", "LightRed"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Beta]", "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Cos", "[", StyleBox["\[Beta]", FontWeight->"Plain"], "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Sin", "[", "\[Beta]", "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", "LightBlue"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "*", RowBox[{"Tan", "[", RowBox[{"#", " ", "Degree"}], "]"}], "*", RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", RowBox[{"t", "*", RowBox[{"Tan", "[", RowBox[{"#", " ", "Degree"}], "]"}], "*", RowBox[{"Cos", "[", "\[Phi]", "]"}]}], ",", "t"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", "Gray"}], "]"}]}], ",", " ", RowBox[{"Mesh", "\[Rule]", "False"}]}], "]"}], "&"}], "/@", "\[Gamma]"}], ","}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"1.06", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "]"}], "&"}], "/@", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"t", "*", "cary"}], ",", RowBox[{"{", RowBox[{"t", ",", "0.7", ",", "2"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "LightRed"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"t", "*", "cary"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", "LightRed"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "\[Rule]", "0.05"}], ",", "Red", ",", "\[IndentingNewLine]", RowBox[{"Arrow", "[", "\[IndentingNewLine]", RowBox[{"Tube", "[", RowBox[{"0.7", "*", "cary"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", RowBox[{"Boxed", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Alpha] = \>\"", ",", " ", RowBox[{"Round", "[", RowBox[{ RowBox[{"\[Alpha]", "*", RowBox[{"180", "/", "Pi"}]}], ",", "0.01"}], "]"}], ",", "\"\<\[Degree]\>\""}], " ", "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\<\[Beta] = \>\"", ",", " ", RowBox[{"Round", "[", RowBox[{ RowBox[{"\[Beta]", "*", RowBox[{"180", "/", "Pi"}]}], ",", "0.01"}], "]"}], ",", "\"\<\[Degree]\>\""}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\"\< \[DoubleDownArrow]\>\"", ",", "\[IndentingNewLine]", RowBox[{"Column", "[", RowBox[{ RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\<\[Gamma] = \>\"", ",", " ", "#", ",", "\"\<\[Degree]\>\""}], "}"}], "]"}], "&"}], "/@", "\[Gamma]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], "]"}]}], "\[IndentingNewLine]", ",", "\"\<\[CapitalUAcute]hly v\[URing]\[CHacek]i dv\[EHacek]ma os\[AAcute]m, \ \[UAcute]hel \[Gamma] se dopo\[CHacek]\[IAcute]t\[AAcute], existuje-li\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{ RowBox[{"65", "/", "180"}], "*", "Pi"}]}], "}"}], ",", RowBox[{"1", "\[Degree]"}], ",", RowBox[{"179", "\[Degree]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Beta]", ",", RowBox[{ RowBox[{"45", "/", "180"}], "*", "Pi"}]}], "}"}], ",", RowBox[{"1", "\[Degree]"}], ",", RowBox[{"179", "\[Degree]"}]}], "}"}], ",", " ", RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input", \ "PluginEmbeddedContent"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`\[Alpha]$$ = Rational[13, 36] Pi, $CellContext`\[Beta]$$ = Rational[1, 4] Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[ "\[CapitalUAcute]hly v\[URing]\[CHacek]i dv\[EHacek]ma os\[AAcute]m, \ \[UAcute]hel \[Gamma] se dopo\[CHacek]\[IAcute]t\[AAcute], existuje-li"], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`\[Alpha]$$], Rational[13, 36] Pi}, Degree, 179 Degree}, {{ Hold[$CellContext`\[Beta]$$], Rational[1, 4] Pi}, Degree, 179 Degree}}, Typeset`size$$ = {448., {193., 198.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`\[Alpha]$80009$$ = 0, $CellContext`\[Beta]$80010$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`\[Alpha]$$ = Rational[13, 36] Pi, $CellContext`\[Beta]$$ = Rational[1, 4] Pi}, "ControllerVariables" :> { Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$80009$$, 0], Hold[$CellContext`\[Beta]$$, $CellContext`\[Beta]$80010$$, 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" :> ( If[Cos[$CellContext`\[Alpha]$$]^2 + Cos[$CellContext`\[Beta]$$]^2 < 1, $CellContext`\[Gamma] = { Round[(180/Pi) ArcCos[ Sqrt[ 1 - Cos[$CellContext`\[Alpha]$$]^2 - Cos[$CellContext`\[Beta]$$]^2]], 0.01], 180 - Round[(180/Pi) ArcCos[ Sqrt[ 1 - Cos[$CellContext`\[Alpha]$$]^2 - Cos[$CellContext`\[Beta]$$]^2]], 0.01]}; $CellContext`cary = Map[{{0, 0, 0}, { Cos[$CellContext`\[Alpha]$$], Cos[$CellContext`\[Beta]$$], Cos[# Degree]}}& , $CellContext`\[Gamma]]; Null, If[ Cos[$CellContext`\[Alpha]$$]^2 + Cos[$CellContext`\[Beta]$$]^2 == 1, $CellContext`\[Gamma] = {90}; $CellContext`cary = {{0, 0, 0}, { Cos[$CellContext`\[Alpha]$$], Cos[$CellContext`\[Beta]$$], 0}}, $CellContext`\[Gamma] = { "---"}; $CellContext`cary = {{0, 0, 0}, {0, 0, 0}}; Null]]; Row[{ Show[ ParametricPlot3D[{$CellContext`t Cos[$CellContext`\[Alpha]$$], ($CellContext`t Sin[$CellContext`\[Alpha]$$]) Sin[$CellContext`\[Phi]], ($CellContext`t Sin[$CellContext`\[Alpha]$$]) Cos[$CellContext`\[Phi]]}, {$CellContext`t, 0, 1}, {$CellContext`\[Phi], 0, 2 Pi}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, PlotStyle -> Directive[ Opacity[0.5], LightRed], Mesh -> False], ParametricPlot3D[{($CellContext`t Sin[$CellContext`\[Beta]$$]) Sin[$CellContext`\[Phi]], $CellContext`t Cos[$CellContext`\[Beta]$$], ($CellContext`t Sin[$CellContext`\[Beta]$$]) Cos[$CellContext`\[Phi]]}, {$CellContext`t, 0, 1}, {$CellContext`\[Phi], 0, 2 Pi}, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}, PlotStyle -> Directive[ Opacity[0.5], LightBlue], Mesh -> False], Map[Graphics3D[ Text[ Part[#, 1], 1.06 Part[#, 2]]]& , {{"X", {1, 0, 0}}, { "Y", {0, 1, 0}}, {"Z", {0, 0, 1}}}], ParametricPlot3D[$CellContext`t $CellContext`cary, {$CellContext`t, 0.7, 2}, PlotStyle -> LightRed], ParametricPlot3D[$CellContext`t $CellContext`cary, \ {$CellContext`t, -2, 0}, PlotStyle -> LightRed], Graphics3D[{Arrowheads -> 0.05, Red, Arrow[ Tube[0.7 $CellContext`cary]]}], Graphics3D[ Arrow[{{-1, 0, 0}, {1, 0, 0}}]], Graphics3D[ Arrow[{{0, -1, 0}, {0, 1, 0}}]], Graphics3D[ Arrow[{{0, 0, -1}, {0, 0, 1}}]], ImageSize -> Medium, Axes -> False, Boxed -> True], Column[{ Row[{"\[Alpha] = ", Round[$CellContext`\[Alpha]$$ (180/Pi), 0.01], "\[Degree]"}], Row[{"\[Beta] = ", Round[$CellContext`\[Beta]$$ (180/Pi), 0.01], "\[Degree]"}], " \[DoubleDownArrow]", Column[ Map[ Row[{"\[Gamma] = ", #, "\[Degree]"}]& , $CellContext`\[Gamma]]]}]}]), "Specifications" :> { "\[CapitalUAcute]hly v\[URing]\[CHacek]i dv\[EHacek]ma os\[AAcute]m, \ \[UAcute]hel \[Gamma] se dopo\[CHacek]\[IAcute]t\[AAcute], existuje-li", \ {{$CellContext`\[Alpha]$$, Rational[13, 36] Pi}, Degree, 179 Degree}, {{$CellContext`\[Beta]$$, Rational[1, 4] Pi}, Degree, 179 Degree}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{499., {262., 267.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`\[Gamma] = {12.14, 167.86}, $CellContext`cary = {{{0, 0, 0}, { 0.19142573222139456`, -0.08687754931342001, 0.9776366571268191}}, {{ 0, 0, 0}, { 0.19142573222139456`, -0.08687754931342001, -0.9776366571268192}}}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", "PluginEmbeddedContent"] }, {2}]], Cell[TextData[{ "\[Copyright] ", ButtonBox["Tom\[AAcute]\[SHacek] Hru\[SHacek]", BaseStyle->"Hyperlink", ButtonData->{ URL["mailto:tomas.hrus@tul.cz"], None}, ButtonNote->"mailto:tomas.hrus@tul.cz"] }], "Text", "PluginEmbeddedContent", TextAlignment->Right] }, WindowSize->{643.55, 3098.6400000000003`}, Visible->True, AuthoredSize->{643.55, 3098.6400000000003`}, ScrollingOptions->{"HorizontalScrollRange"->Fit, "VerticalScrollRange"->Fit}, ShowCellBracket->False, Deployed->True, CellContext->Notebook, TrackCellChangeTimes->False, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1485, 35, 9523, 240, 741, "Input"], Cell[11011, 277, 4992, 99, 557, "Output"] }, {2}]], Cell[CellGroupData[{ Cell[16037, 381, 14268, 351, 1221, "Input"], Cell[30308, 734, 5947, 123, 531, "Output"] }, {2}]], Cell[36267, 860, 270, 8, 16, "Text"] } ] *) (* End of internal cache information *) (* NotebookSignature ix04nQ5De053FAg7vuWtZRGw *)