(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 11.3' *) (***************************************************************************) (* *) (* *) (* Under the Wolfram FreeCDF terms of use, this file and its content are *) (* bound by the Creative Commons BY-SA Attribution-ShareAlike license. *) (* *) (* For additional information concerning CDF licensing, see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (* *) (***************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1088, 20] NotebookDataLength[ 34855, 835] NotebookOptionsPosition[ 30584, 747] NotebookOutlinePosition[ 32603, 797] CellTagsIndexPosition[ 32283, 785] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Universal Joint", "DemoTitle", CellChangeTimes->{ 3.35696210375764*^9, {3.4011250038138723`*^9, 3.4011250103933325`*^9}},ExpressionUUID->"db7824ba-f338-4f40-8240-\ 1103a201f6c3"], Cell["", "InitializationSection",ExpressionUUID->"a7cc223b-1758-41d8-b74f-ccf161415910"], Cell[CellGroupData[{ Cell["", "ManipulateSection",ExpressionUUID->"46b89817-bf68-4834-ad9d-79535ed4ad66"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"spider1", "=", RowBox[{"{", RowBox[{"Green", ",", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "b"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "b", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"bearing1a", "=", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"b", "-", "1.4"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"b", "+", "1"}], ",", "0"}], "}"}]}], "}"}], ",", "1.7"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"bearing1b", "=", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "b"}], "-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "b"}], "+", "1.4"}], ",", "0"}], "}"}]}], "}"}], ",", "1.7"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"spider2", "=", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "b"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "b"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"bearing2a", "=", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"b", "-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"b", "+", "1"}]}], "}"}]}], "}"}], ",", "1.7"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"bearing2b", "=", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "b"}], "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{ RowBox[{"-", "b"}], "+", "1.4"}]}], "}"}]}], "}"}], ",", "1.7"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"r1", "=", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0.3", ",", "0.6", ",", "1"}], "]"}], ",", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"b", "+", RowBox[{"Cos", "[", "u", "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"Sin", "[", "t", "]"}], " ", RowBox[{"(", RowBox[{"b", "+", RowBox[{"Cos", "[", "u", "]"}]}], ")"}]}], ",", RowBox[{"Sin", "[", "u", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{ RowBox[{"-", "Pi"}], "/", "2"}], ",", RowBox[{"Pi", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"r2", "=", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{"r1", ",", RowBox[{"Pi", "/", "2"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "Pi", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"shaft1", "=", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0.2", ",", "0.5", ",", "0.3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "b"}], ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"shaft2", "=", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Cylinder", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b"}], ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"axis1", "=", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"axis2", "=", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "b"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "b"}], ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"par2", "=", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"b", RowBox[{"{", " ", RowBox[{"0", ",", RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Sin", "[", "x", "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"par1", "=", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"b", RowBox[{"{", " ", RowBox[{"0", ",", RowBox[{"Cos", "[", "x", "]"}], ",", RowBox[{"Sin", "[", "x", "]"}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Dashed", ",", "Green"}], "}"}]}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rot1", "=", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"{", RowBox[{ "spider1", ",", "bearing1a", ",", "bearing1b", ",", "r1", ",", "shaft1", ",", "axis1", ",", "par1"}], "}"}], ",", "\[Omega]", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"rot2", "=", RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{ RowBox[{"{", RowBox[{ "spider2", ",", "bearing2a", ",", "bearing2b", ",", "r2", ",", "shaft2", ",", "axis2", ",", "par2"}], "}"}], ",", "\[Alpha]", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "\[Omega]", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"Tan", "[", "\[Alpha]", "]"}], ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"rot2", ",", "rot1"}], "}"}], ",", RowBox[{"ViewAngle", "\[Rule]", RowBox[{"Pi", "/", "14"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "400"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"2", "b", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", "0.7"}], "}"}]}], "}"}]}]}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Omega]", ",", "0", ",", "\"\\""}], "}"}], ",", RowBox[{ RowBox[{"-", "2"}], "Pi"}], ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "6", ",", "\"\\""}], "}"}], ",", "4", ",", "30"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\[Alpha]", ",", RowBox[{"-", "0.3"}], ",", "\"\\""}], "}"}], ",", RowBox[{ RowBox[{"-", "\[Pi]"}], "/", "2"}], ",", "0.0"}], "}"}], ",", RowBox[{"TrackedSymbols", "\[RuleDelayed]", "Manipulate"}]}], "]"}]], "Input", CellChangeTimes->{{3.397493265559142*^9, 3.3974934109181585`*^9}, 3.39749346613756*^9, {3.3974935546748705`*^9, 3.397493654909*^9}, { 3.397493718540498*^9, 3.3974939090945005`*^9}, {3.397494008487421*^9, 3.39749408377568*^9}, {3.397494129080826*^9, 3.397494170119837*^9}, { 3.3974942088355074`*^9, 3.397494253690005*^9}, {3.3974942931567554`*^9, 3.397494316981013*^9}, {3.3974952214215345`*^9, 3.3974952863849473`*^9}, { 3.397495320333763*^9, 3.397495413397582*^9}, {3.401117689386242*^9, 3.401117750434024*^9}, {3.4011178096992435`*^9, 3.4011178452203197`*^9}, { 3.4011178767356367`*^9, 3.401118056954779*^9}, {3.401118491830099*^9, 3.4011184929416976`*^9}, {3.401118622017299*^9, 3.401118698006566*^9}, { 3.4011188391395054`*^9, 3.4011188536904287`*^9}, {3.4011189019798656`*^9, 3.4011189057853374`*^9}, {3.401118982004936*^9, 3.401119039267275*^9}, { 3.401119077772643*^9, 3.401119090961608*^9}, {3.4011191235484657`*^9, 3.401119157637483*^9}, {3.4011191908352194`*^9, 3.4011192135478783`*^9}, { 3.401119251322195*^9, 3.4011192909291472`*^9}, {3.4011193614605665`*^9, 3.4011193996054163`*^9}, {3.401119459181082*^9, 3.4011194636174607`*^9}, { 3.4011194961041746`*^9, 3.401119580265192*^9}, {3.4011196202226477`*^9, 3.401119629566083*^9}, {3.401119737140768*^9, 3.401119739494152*^9}, { 3.401119805248702*^9, 3.4011198413906717`*^9}, {3.401120037803099*^9, 3.4011200445427904`*^9}, {3.4011201645253167`*^9, 3.4011201800676656`*^9}, 3.4011202461627054`*^9, {3.4011203262779055`*^9, 3.4011203704714527`*^9}, { 3.4011204063630624`*^9, 3.4011204441574078`*^9}, {3.401120484946059*^9, 3.401120523040837*^9}, {3.4011205576405888`*^9, 3.4011205884248543`*^9}, { 3.4011206506443214`*^9, 3.4011206993944206`*^9}, {3.4011207356866064`*^9, 3.401120748765413*^9}, {3.4011208168633327`*^9, 3.401120884440504*^9}, { 3.401120917848542*^9, 3.4011209199615808`*^9}, {3.401120991324195*^9, 3.4011210260741634`*^9}, {3.401121140278381*^9, 3.401121258448301*^9}, { 3.4011213337165313`*^9, 3.4011213452130623`*^9}, {3.401121408924675*^9, 3.4011215005364065`*^9}, {3.401121541154813*^9, 3.4011215594711504`*^9}, { 3.4011215993785343`*^9, 3.4011216135188675`*^9}, {3.40112198041644*^9, 3.401121985253395*^9}, {3.4011220212151055`*^9, 3.4011220833444433`*^9}, { 3.401122326764464*^9, 3.401122327495515*^9}, {3.401122409112875*^9, 3.401122540011098*^9}, {3.401122605214856*^9, 3.4011226643799314`*^9}, { 3.4011227437540655`*^9, 3.4011227679588704`*^9}, {3.4011228376390657`*^9, 3.4011228393815713`*^9}, {3.4011228697352176`*^9, 3.40112287178817*^9}, { 3.4011229155410833`*^9, 3.401122918795763*^9}, {3.4011229583426285`*^9, 3.4011229903786945`*^9}, {3.4011230630231524`*^9, 3.401123069512483*^9}, { 3.4011231379108353`*^9, 3.4011231959242544`*^9}, {3.401123230433877*^9, 3.401123277902133*^9}, {3.401123782407576*^9, 3.401123789617944*^9}, { 3.4011238220545855`*^9, 3.401123838147726*^9}, {3.4011239102313776`*^9, 3.401124120864253*^9}, {3.401124252042878*^9, 3.401124324657293*^9}, { 3.401124420034438*^9, 3.4011244205752163`*^9}, {3.401148853285269*^9, 3.401148885269644*^9}, 3.401622662295312*^9, {3.6242049585793467`*^9, 3.624204978859375*^9}, {3.6242050281234627`*^9, 3.6242050303754683`*^9}, { 3.6242050830535574`*^9, 3.62420508373556*^9}, {3.6242051160316086`*^9, 3.624205123133621*^9}, {3.6246832865079193`*^9, 3.624683288177122*^9}, { 3.624683343572819*^9, 3.6246833466304245`*^9}, {3.62468337825168*^9, 3.624683394787709*^9}, {3.6253753068058233`*^9, 3.6253753082878265`*^9}, { 3.625375354651108*^9, 3.6253753585979147`*^9}}, CellLabel->"In[1]:=", CellID->450238826,ExpressionUUID->"8491a1e4-8673-45e6-ba8b-703db86b5cda"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`b$$ = 4.1, $CellContext`\[Alpha]$$ = -0.7068583470577033, \ $CellContext`\[Omega]$$ = 4.423362456254429, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`\[Omega]$$], 0, "spin"}, (-2) Pi, 2 Pi}, {{ Hold[$CellContext`b$$], 6, "size"}, 4, 30}, {{ Hold[$CellContext`\[Alpha]$$], -0.3, "angle"}, Rational[-1, 2] Pi, 0.}}, Typeset`size$$ = {500., {197., 203.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`\[Omega]$2594$$ = 0, $CellContext`b$2599$$ = 0, $CellContext`\[Alpha]$2600$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`b$$ = 6, $CellContext`\[Alpha]$$ = -0.3, $CellContext`\[Omega]$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`\[Omega]$$, $CellContext`\[Omega]$2594$$, 0], Hold[$CellContext`b$$, $CellContext`b$2599$$, 0], Hold[$CellContext`\[Alpha]$$, $CellContext`\[Alpha]$2600$$, 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" :> ($CellContext`spider1 = {Green, Cylinder[{{0, -$CellContext`b$$, 0}, { 0, $CellContext`b$$, 0}}]}; $CellContext`bearing1a = {Yellow, Cylinder[{{0, $CellContext`b$$ - 1.4, 0}, { 0, $CellContext`b$$ + 1, 0}}, 1.7]}; $CellContext`bearing1b = { Yellow, Cylinder[{{0, -$CellContext`b$$ - 1, 0}, { 0, -$CellContext`b$$ + 1.4, 0}}, 1.7]}; $CellContext`spider2 = Cylinder[{{0, 0, -$CellContext`b$$}, { 0, 0, $CellContext`b$$}}]; $CellContext`bearing2a = {Yellow, Cylinder[{{0, 0, $CellContext`b$$ - 1.4}, { 0, 0, $CellContext`b$$ + 1}}, 1.7]}; $CellContext`bearing2b = { Yellow, Cylinder[{{0, 0, -$CellContext`b$$ - 1}, { 0, 0, -$CellContext`b$$ + 1.4}}, 1.7]}; $CellContext`r1 = { RGBColor[0.3, 0.6, 1], Part[ ParametricPlot3D[{ Cos[$CellContext`t] ($CellContext`b$$ + Cos[$CellContext`u]), Sin[$CellContext`t] ($CellContext`b$$ + Cos[$CellContext`u]), Sin[$CellContext`u]}, {$CellContext`t, (-Pi)/2, Pi/ 2}, {$CellContext`u, 0, 2 Pi}, Mesh -> None], 1]}; $CellContext`r2 = Rotate[ Rotate[$CellContext`r1, Pi/2, {1, 0, 0}], Pi, {0, 0, 1}]; $CellContext`shaft1 = { RGBColor[0.2, 0.5, 0.3], Cylinder[{{$CellContext`b$$, 0, 0}, { 2 $CellContext`b$$, 0, 0}}]}; $CellContext`shaft2 = {Red, Cylinder[{{-$CellContext`b$$, 0, 0}, {(-2) $CellContext`b$$, 0, 0}}]}; $CellContext`axis1 = Line[{{(-2) $CellContext`b$$, 0, 0}, {$CellContext`b$$, 0, 0}}]; $CellContext`axis2 = {Red, Line[{{-$CellContext`b$$, 0, 0}, { 2 $CellContext`b$$, 0, 0}}]}; $CellContext`par2 = Part[ ParametricPlot3D[$CellContext`b$$ {0, Cos[$CellContext`x], Sin[$CellContext`x]}, {$CellContext`x, 0, 2 Pi}, PlotStyle -> Dashed], 1]; $CellContext`par1 = Part[ ParametricPlot3D[$CellContext`b$$ {0, Cos[$CellContext`x], Sin[$CellContext`x]}, {$CellContext`x, 0, 2 Pi}, PlotStyle -> {Dashed, Green}], 1]; $CellContext`rot1 = Rotate[{$CellContext`spider1, $CellContext`bearing1a, \ $CellContext`bearing1b, $CellContext`r1, $CellContext`shaft1, \ $CellContext`axis1, $CellContext`par1}, $CellContext`\[Omega]$$, {1, 0, 0}]; $CellContext`rot2 = Rotate[ Rotate[{$CellContext`spider2, $CellContext`bearing2a, \ $CellContext`bearing2b, $CellContext`r2, $CellContext`shaft2, \ $CellContext`axis2, $CellContext`par2}, $CellContext`\[Alpha]$$, {0, 0, 1}], $CellContext`\[Omega]$$, {1, Tan[$CellContext`\[Alpha]$$], 0}]; Graphics3D[{$CellContext`rot2, $CellContext`rot1}, ViewAngle -> Pi/14, ImageSize -> {500, 400}, SphericalRegion -> True, Boxed -> False, PlotRange -> 2 $CellContext`b$$ {{-1, 1}, {-0.7, 0.7}, {-0.7, 0.7}}]), "Specifications" :> {{{$CellContext`\[Omega]$$, 0, "spin"}, (-2) Pi, 2 Pi}, {{$CellContext`b$$, 6, "size"}, 4, 30}, {{$CellContext`\[Alpha]$$, -0.3, "angle"}, Rational[-1, 2] Pi, 0.}}, "Options" :> {TrackedSymbols :> Manipulate}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{549., {271., 277.}}, 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.62420494738832*^9, 3.624204984811385*^9, 3.6242050351174765`*^9, 3.6242050881375675`*^9, 3.624205127915629*^9, 3.624682530592991*^9, 3.6246832912971277`*^9, {3.6246833825728874`*^9, 3.624683400528519*^9}, 3.625375141601534*^9, 3.6253753232794523`*^9, 3.625375364338725*^9, 3.8444083214987535`*^9}, CellLabel->"Out[1]=", CellID->85026619,ExpressionUUID->"78992c99-9b78-4cf3-afe0-de0a93057376"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "ManipulateCaptionSection",ExpressionUUID->"d2829ca5-d63c-445b-ad37-04894fa64f0a"], Cell["\<\ Universal joints (Cardan joints) are used to transmit rotary motion between \ machine parts that are not in line with each other. Such a joint can allow \ bending movement in any direction.\ \>", "ManipulateCaption", CellChangeTimes->{ 3.35696210375764*^9, {3.40112521006044*^9, 3.4011252869409885`*^9}, { 3.40112577462224*^9, 3.401125775793925*^9}, {3.4012194413336163`*^9, 3.401219442896456*^9}, {3.401622753404687*^9, 3.401622767139062*^9}},ExpressionUUID->"82ed869b-5c57-4c85-8cd6-\ 943df760212f"] }, Open ]], Cell["", "ThumbnailSection",ExpressionUUID->"dc85d40b-49a8-49c5-9764-54ca733618bc"], Cell["", "SnapshotsSection",ExpressionUUID->"ebc1521a-0b61-4c5e-9505-d33e0176f19a"], Cell["", "DetailsSection",ExpressionUUID->"faa6974d-2e96-4ba6-bea4-940035c5975c"], Cell[CellGroupData[{ Cell["", "ControlSuggestionsSection",ExpressionUUID->"9cf66e2f-6666-4597-8986-4de9b8543e29"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[ " Resize Images",ExpressionUUID->"3028cfc1-117c-416a-a45f-e695ac19ee1b"]}], "\"Click inside an image to reveal its orange resize frame.\\nDrag any of \ the orange resize handles to resize the image.\"", TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.401148923269644*^9}, FontFamily->"Verdana", CellTags-> "ResizeImages",ExpressionUUID->"989490b2-3e01-4904-9641-07a13ed30473"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[ " Rotate and Zoom in 3D",ExpressionUUID-> "752e1b87-c9af-480b-b376-8d6eae013f48"]}], RowBox[{ "\"Drag a 3D graphic to rotate it. Starting the drag near the center \ tumbles\\nthe graphic; starting near a corner turns it parallel to the plane \ of the screen.\\nHold down \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" (or \"", FrameBox[ "Cmd", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" on Mac) and drag up and down to zoom.\""}], TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.401148923879019*^9}, FontFamily->"Verdana", CellTags-> "RotateAndZoomIn3D",ExpressionUUID->"d87940ab-779d-4440-a77e-d99c7d915d0b"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[ " Drag Locators",ExpressionUUID->"931b4664-3703-4c54-b3ae-5425b3071c9d"]}], RowBox[{"\"Drag any locator (\"", GraphicsBox[ LocatorBox[ Scaled[{0.5, 0.5}]], ImageSize -> 20], "\", etc.) to move it around.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags-> "DragLocators",ExpressionUUID->"28d23896-6b27-46bf-adf9-4b7256d57253"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[ " Create and Delete Locators",ExpressionUUID-> "8386d63a-e44c-4bc5-a8a3-2d9c868829d7"]}], RowBox[{"\"Insert a new locator in the graphic by holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key\\nand clicking where you want it to be. Delete a locator by \ clicking it\\nwhile holding down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags-> "CreateAndDeleteLocators",ExpressionUUID->"c6ec9565-6434-40b1-9c3d-\ 5a55c57db845"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[ " Slider Zoom",ExpressionUUID->"27226818-316e-46d4-8525-7aaa295504c3"]}], RowBox[{"\"Hold down the \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" key while moving a slider to make fine adjustments in the slider \ value.\\nHold \"", FrameBox[ "Ctrl", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" and/or \"", FrameBox[ "Shift", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" at the same time as \"", FrameBox[ "Alt", Background -> GrayLevel[0.9], FrameMargins -> 2, FrameStyle -> GrayLevel[0.9]], "\" to make ever finer adjustments.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags-> "SliderZoom",ExpressionUUID->"583cedd7-578b-4406-9a7d-9df316a49283"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[ " Gamepad Controls",ExpressionUUID-> "58d6075c-6120-4143-9107-0fd154e09c8a"]}], "\"Control this Demonstration with a gamepad or other\\nhuman interface \ device connected to your computer.\"", TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.3895522232313623`*^9, 3.401148925160269*^9}, FontFamily->"Verdana", CellTags-> "GamepadControls",ExpressionUUID->"c860a86c-0ed4-4970-9ade-239b242501df"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[True], Cell[ " Automatic Animation",ExpressionUUID-> "1d9f8eca-d3c3-427a-892f-b7448ef6f339"]}], RowBox[{"\"Animate a slider in this Demonstration by clicking the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwcIKwAgOI/R/IhBKc\n\ /4EAyGAG0f+nTZsGwgysIJIRKsWKLAXGIHFmEpUgLADxWUAkI24jZs+eTaEt\n\ IG+wQKRmzJgBlYf5lhEA30OqWA=="], "Graphics", ImageSize -> {9, 9}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"button\\nnext to the slider, and then clicking the play button that \ appears.\\nAnimate all controls by selecting \"", StyleBox["Autorun", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipDelay->0.35]], "ControlSuggestions", CellChangeTimes->{3.35696210375764*^9, 3.401148926597769*^9}, FontFamily->"Verdana", CellTags-> "AutomaticAnimation",ExpressionUUID->"4e48ae49-71a1-4cab-93a7-4a01570d3d4e"], Cell[BoxData[ TooltipBox[ RowBox[{ CheckboxBox[False], Cell[ " Bookmark Animation",ExpressionUUID-> "dd73a787-9175-4cb7-b78b-b07f24509bb5"]}], RowBox[{ "\"See a prepared animation of this Demonstration by selecting\\n\"", StyleBox["Animate Bookmarks", FontWeight -> "Bold"], "\" from the\"", AdjustmentBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyNULENwyAQfEySIlMwTVJlCGRFsosokeNtqBmDBagoaZjAI1C8/8GUUUC6\n\ 57h7cQ8PvU7Pl17nUav7oj/TPH7V7b2QJAUAXBkKmCPRowxICy64bRvGGNF7\n\ X8CctGoDSN4xhIDGGDhzFXwUh3/ClBKrDQPmnGXtI6u0OOd+tZBVUqy1xSaH\n\ UqiK6pPe4XdEdAz6563tx/gejuORGMxJaz8mdpJn7hc="], "Graphics", ImageSize -> {10, 10}, ImageMargins -> 0], BoxBaselineShift -> 0.1839080459770115, BoxMargins -> {{0., 0.}, {-0.1839080459770115, 0.1839080459770115}}], "\"menu.\""}], TooltipDelay->0.35]], "ControlSuggestions", FontFamily->"Verdana", CellTags-> "BookmarkAnimation",ExpressionUUID->"846c8bdd-2b22-4ab6-a837-bff012bf22ab"] }, Open ]], Cell[CellGroupData[{ Cell["", "SearchTermsSection",ExpressionUUID->"2e89480e-b4df-406c-8a08-4a681821c3bc"], Cell["Hooke's joint", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.401622694232812*^9, 3.401622696576562*^9}}, CellID->441748698,ExpressionUUID->"17b88e39-d9c5-4729-89c3-321165a53c2a"], Cell["machine parts", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.40112585064155*^9, 3.4011258536558847`*^9}}, CellID->155669723,ExpressionUUID->"ddf7f325-7f19-400c-b48d-7a2dbd9aa223"], Cell["U-joint", "SearchTerms", CellChangeTimes->{ 3.35696210375764*^9, {3.401622699576562*^9, 3.401622701873437*^9}}, CellID->22715940,ExpressionUUID->"17edb17f-4cd9-4e3c-9530-7eb52f257d40"] }, Open ]], Cell["", "RelatedLinksSection",ExpressionUUID->"6dee6814-d455-4b95-9d42-542ca7825de8"], Cell[CellGroupData[{ Cell["", "AuthorSection",ExpressionUUID->"f0378ae0-db81-4556-9ee7-021eb0d61781"], Cell[TextData[{ "Contributed by: ", ButtonBox["S\[AAcute]ndor Kabai", BaseStyle->"Hyperlink", ButtonData->{ URL["http://demonstrations.wolfram.com/author.html?author=S%C3%A1ndor+\ Kabai"], None}, ButtonNote-> "http://demonstrations.wolfram.com/author.html?author=S%C3%A1ndor+Kabai"] }], "Author", CellChangeTimes->{ 3.35696210375764*^9, {3.3800404018125*^9, 3.380040407265625*^9}}, CellID->245863265,ExpressionUUID->"2f301471-00ce-4144-91ef-440d93a45285"] }, Open ]] }, Open ]] }, WindowSize->{961, 734}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "ResizeImages"->{ Cell[22477, 530, 491, 11, 22, "ControlSuggestions",ExpressionUUID->"989490b2-3e01-4904-9641-07a13ed30473", CellTags->"ResizeImages"]}, "RotateAndZoomIn3D"->{ Cell[22971, 543, 862, 20, 22, "ControlSuggestions",ExpressionUUID->"d87940ab-779d-4440-a77e-d99c7d915d0b", CellTags->"RotateAndZoomIn3D"]}, "DragLocators"->{ Cell[23836, 565, 457, 13, 22, "ControlSuggestions",ExpressionUUID->"28d23896-6b27-46bf-adf9-4b7256d57253", CellTags->"DragLocators"]}, "CreateAndDeleteLocators"->{ Cell[24296, 580, 761, 19, 22, "ControlSuggestions",ExpressionUUID->"c6ec9565-6434-40b1-9c3d-5a55c57db845", CellTags->"CreateAndDeleteLocators"]}, "SliderZoom"->{ Cell[25060, 601, 961, 23, 22, "ControlSuggestions",ExpressionUUID->"583cedd7-578b-4406-9a7d-9df316a49283", CellTags->"SliderZoom"]}, "GamepadControls"->{ Cell[26024, 626, 515, 13, 22, "ControlSuggestions",ExpressionUUID->"c860a86c-0ed4-4970-9ade-239b242501df", CellTags->"GamepadControls"]}, "AutomaticAnimation"->{ Cell[26542, 641, 1596, 35, 22, "ControlSuggestions",ExpressionUUID->"4e48ae49-71a1-4cab-93a7-4a01570d3d4e", CellTags->"AutomaticAnimation"]}, "BookmarkAnimation"->{ Cell[28141, 678, 1004, 24, 22, "ControlSuggestions",ExpressionUUID->"846c8bdd-2b22-4ab6-a837-bff012bf22ab", CellTags->"BookmarkAnimation"]} } *) (*CellTagsIndex CellTagsIndex->{ {"ResizeImages", 30949, 758}, {"RotateAndZoomIn3D", 31113, 761}, {"DragLocators", 31277, 764}, {"CreateAndDeleteLocators", 31447, 767}, {"SliderZoom", 31615, 770}, {"GamepadControls", 31775, 773}, {"AutomaticAnimation", 31943, 776}, {"BookmarkAnimation", 32114, 779} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1510, 35, 191, 4, 74, "DemoTitle",ExpressionUUID->"db7824ba-f338-4f40-8240-1103a201f6c3"], Cell[1704, 41, 88, 0, 275, "InitializationSection",ExpressionUUID->"a7cc223b-1758-41d8-b74f-ccf161415910"], Cell[CellGroupData[{ Cell[1817, 45, 84, 0, 189, "ManipulateSection",ExpressionUUID->"46b89817-bf68-4834-ad9d-79535ed4ad66"], Cell[CellGroupData[{ Cell[1926, 49, 13650, 333, 476, "Input",ExpressionUUID->"8491a1e4-8673-45e6-ba8b-703db86b5cda", CellID->450238826], Cell[15579, 384, 5842, 115, 593, "Output",ExpressionUUID->"78992c99-9b78-4cf3-afe0-de0a93057376", CellID->85026619] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[21470, 505, 91, 0, 169, "ManipulateCaptionSection",ExpressionUUID->"d2829ca5-d63c-445b-ad37-04894fa64f0a"], Cell[21564, 507, 525, 10, 37, "ManipulateCaption",ExpressionUUID->"82ed869b-5c57-4c85-8cd6-943df760212f"] }, Open ]], Cell[22104, 520, 83, 0, 173, "ThumbnailSection",ExpressionUUID->"dc85d40b-49a8-49c5-9764-54ca733618bc"], Cell[22190, 522, 83, 0, 131, "SnapshotsSection",ExpressionUUID->"ebc1521a-0b61-4c5e-9505-d33e0176f19a"], Cell[22276, 524, 81, 0, 246, "DetailsSection",ExpressionUUID->"faa6974d-2e96-4ba6-bea4-940035c5975c"], Cell[CellGroupData[{ Cell[22382, 528, 92, 0, 114, "ControlSuggestionsSection",ExpressionUUID->"9cf66e2f-6666-4597-8986-4de9b8543e29"], Cell[22477, 530, 491, 11, 22, "ControlSuggestions",ExpressionUUID->"989490b2-3e01-4904-9641-07a13ed30473", CellTags->"ResizeImages"], Cell[22971, 543, 862, 20, 22, "ControlSuggestions",ExpressionUUID->"d87940ab-779d-4440-a77e-d99c7d915d0b", CellTags->"RotateAndZoomIn3D"], Cell[23836, 565, 457, 13, 22, "ControlSuggestions",ExpressionUUID->"28d23896-6b27-46bf-adf9-4b7256d57253", CellTags->"DragLocators"], Cell[24296, 580, 761, 19, 22, "ControlSuggestions",ExpressionUUID->"c6ec9565-6434-40b1-9c3d-5a55c57db845", CellTags->"CreateAndDeleteLocators"], Cell[25060, 601, 961, 23, 22, "ControlSuggestions",ExpressionUUID->"583cedd7-578b-4406-9a7d-9df316a49283", CellTags->"SliderZoom"], Cell[26024, 626, 515, 13, 22, "ControlSuggestions",ExpressionUUID->"c860a86c-0ed4-4970-9ade-239b242501df", CellTags->"GamepadControls"], Cell[26542, 641, 1596, 35, 22, "ControlSuggestions",ExpressionUUID->"4e48ae49-71a1-4cab-93a7-4a01570d3d4e", CellTags->"AutomaticAnimation"], Cell[28141, 678, 1004, 24, 22, "ControlSuggestions",ExpressionUUID->"846c8bdd-2b22-4ab6-a837-bff012bf22ab", CellTags->"BookmarkAnimation"] }, Open ]], Cell[CellGroupData[{ Cell[29182, 707, 85, 0, 155, "SearchTermsSection",ExpressionUUID->"2e89480e-b4df-406c-8a08-4a681821c3bc"], Cell[29270, 709, 201, 3, 22, "SearchTerms",ExpressionUUID->"17b88e39-d9c5-4729-89c3-321165a53c2a", CellID->441748698], Cell[29474, 714, 202, 3, 22, "SearchTerms",ExpressionUUID->"ddf7f325-7f19-400c-b48d-7a2dbd9aa223", CellID->155669723], Cell[29679, 719, 194, 3, 22, "SearchTerms",ExpressionUUID->"17edb17f-4cd9-4e3c-9530-7eb52f257d40", CellID->22715940] }, Open ]], Cell[29888, 725, 86, 0, 141, "RelatedLinksSection",ExpressionUUID->"6dee6814-d455-4b95-9d42-542ca7825de8"], Cell[CellGroupData[{ Cell[29999, 729, 80, 0, 129, "AuthorSection",ExpressionUUID->"f0378ae0-db81-4556-9ee7-021eb0d61781"], Cell[30082, 731, 474, 12, 22, "Author",ExpressionUUID->"2f301471-00ce-4144-91ef-440d93a45285", CellID->245863265] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature Cwpwq0cz@WyAxCwv2UNxk7kn *)