(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 44096, 898] NotebookOptionsPosition[ 43437, 871] NotebookOutlinePosition[ 43774, 886] CellTagsIndexPosition[ 43731, 883] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Project - Clock", "Title"], Cell[TextData[{ "Write a ", StyleBox["Mathematica", FontSlant->"Italic"], " command, that draws a clock face showing a given a time in hours and \ minutes. For example:" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"clock", "[", RowBox[{"{", RowBox[{"2", ",", "47"}], "}"}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0.85], DiskBox[{0, 0}]}, {Thickness[0.015], CircleBox[{0, 0}]}, CircleBox[{0, 0}, 0.92], DiskBox[{0, 0}, 0.05], {LineBox[{{0.92, 0}, {1, 0}}], LineBox[NCache[{{0.9149601437388115, 0.09616618620624119}, { Cos[Rational[1, 30] Pi], Sin[Rational[1, 30] Pi]}}, {{ 0.9149601437388115, 0.09616618620624119}, {0.9945218953682733, 0.10452846326765346`}}]], LineBox[NCache[{{0.8998957926751012, 0.1912787555523386}, { Cos[Rational[1, 15] Pi], Sin[Rational[1, 15] Pi]}}, {{ 0.8998957926751012, 0.1912787555523386}, {0.9781476007338057, 0.20791169081775931`}}]], LineBox[NCache[{{0.8749719949915413, 0.2842956348249517}, {(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}}, {{0.8749719949915413, 0.2842956348249517}, {0.9510565162951535, 0.30901699437494745`}}]], LineBox[NCache[{{0.8404618210311928, 0.37419771162973614`}, { Cos[Rational[2, 15] Pi], Sin[Rational[2, 15] Pi]}}, {{ 0.8404618210311928, 0.37419771162973614`}, {0.9135454576426009, 0.40673664307580015`}}]], LineBox[NCache[{{0.7967433714816835, 0.46}, { Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}}, {{ 0.7967433714816835, 0.46}, {0.8660254037844386, 0.5}}]], LineBox[NCache[{{0.7442956348249516, 0.5407624321090753}, { Rational[1, 4] (1 + 5^Rational[1, 2]), (Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.7442956348249516, 0.5407624321090753}, {0.8090169943749475, 0.5877852522924731}}]], LineBox[NCache[{{0.6836932394392027, 0.6156001578501497}, { Cos[Rational[7, 30] Pi], Sin[Rational[7, 30] Pi]}}, {{ 0.6836932394392027, 0.6156001578501497}, {0.7431448254773942, 0.6691306063588582}}]], LineBox[NCache[{{0.6156001578501497, 0.6836932394392027}, { Sin[Rational[7, 30] Pi], Cos[Rational[7, 30] Pi]}}, {{ 0.6156001578501497, 0.6836932394392027}, {0.6691306063588582, 0.7431448254773942}}]], LineBox[ NCache[{{0.5407624321090753, 0.7442956348249516}, {(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 + 5^Rational[1, 2])}}, {{0.5407624321090753, 0.7442956348249516}, {0.5877852522924731, 0.8090169943749475}}]], LineBox[NCache[{{0.46, 0.7967433714816835}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {{0.46, 0.7967433714816835}, {0.5, 0.8660254037844386}}]], LineBox[NCache[{{0.37419771162973614`, 0.8404618210311928}, { Sin[Rational[2, 15] Pi], Cos[Rational[2, 15] Pi]}}, {{ 0.37419771162973614`, 0.8404618210311928}, {0.40673664307580015`, 0.9135454576426009}}]], LineBox[NCache[{{0.2842956348249517, 0.8749719949915413}, { Rational[1, 4] (-1 + 5^Rational[1, 2]), (Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.2842956348249517, 0.8749719949915413}, {0.30901699437494745`, 0.9510565162951535}}]], LineBox[NCache[{{0.1912787555523386, 0.8998957926751012}, { Sin[Rational[1, 15] Pi], Cos[Rational[1, 15] Pi]}}, {{ 0.1912787555523386, 0.8998957926751012}, {0.20791169081775931`, 0.9781476007338057}}]], LineBox[NCache[{{0.09616618620624119, 0.9149601437388115}, { Sin[Rational[1, 30] Pi], Cos[Rational[1, 30] Pi]}}, {{ 0.09616618620624119, 0.9149601437388115}, {0.10452846326765346`, 0.9945218953682733}}]], LineBox[{{0, 0.92}, {0, 1}}], LineBox[NCache[{{-0.09616618620624119, 0.9149601437388115}, {-Sin[Rational[1, 30] Pi], Cos[ Rational[1, 30] Pi]}}, {{-0.09616618620624119, 0.9149601437388115}, {-0.10452846326765346`, 0.9945218953682733}}]], LineBox[NCache[{{-0.1912787555523386, 0.8998957926751012}, {-Sin[Rational[1, 15] Pi], Cos[ Rational[1, 15] Pi]}}, {{-0.1912787555523386, 0.8998957926751012}, {-0.20791169081775931`, 0.9781476007338057}}]], LineBox[NCache[{{-0.2842956348249517, 0.8749719949915413}, { Rational[1, 4] (1 - 5^Rational[1, 2]), (Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^ Rational[1, 2]}}, {{-0.2842956348249517, 0.8749719949915413}, {-0.30901699437494745`, 0.9510565162951535}}]], LineBox[NCache[{{-0.37419771162973614`, 0.8404618210311928}, {-Sin[Rational[2, 15] Pi], Cos[ Rational[2, 15] Pi]}}, {{-0.37419771162973614`, 0.8404618210311928}, {-0.40673664307580015`, 0.9135454576426009}}]], LineBox[NCache[{{-0.46, 0.7967433714816835}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {{-0.46, 0.7967433714816835}, {-0.5, 0.8660254037844386}}]], LineBox[NCache[{{-0.5407624321090753, 0.7442956348249516}, {-(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 + 5^Rational[1, 2])}}, {{-0.5407624321090753, 0.7442956348249516}, {-0.5877852522924731, 0.8090169943749475}}]], LineBox[NCache[{{-0.6156001578501497, 0.6836932394392027}, {-Sin[Rational[7, 30] Pi], Cos[ Rational[7, 30] Pi]}}, {{-0.6156001578501497, 0.6836932394392027}, {-0.6691306063588582, 0.7431448254773942}}]], LineBox[NCache[{{-0.6836932394392027, 0.6156001578501497}, {-Cos[Rational[7, 30] Pi], Sin[ Rational[7, 30] Pi]}}, {{-0.6836932394392027, 0.6156001578501497}, {-0.7431448254773942, 0.6691306063588582}}]], LineBox[NCache[{{-0.7442956348249516, 0.5407624321090753}, { Rational[1, 4] (-1 - 5^Rational[1, 2]), (Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^ Rational[1, 2]}}, {{-0.7442956348249516, 0.5407624321090753}, {-0.8090169943749475, 0.5877852522924731}}]], LineBox[NCache[{{-0.7967433714816835, 0.46}, { Rational[-1, 2] 3^Rational[1, 2], Rational[ 1, 2]}}, {{-0.7967433714816835, 0.46}, {-0.8660254037844386, 0.5}}]], LineBox[NCache[{{-0.8404618210311928, 0.37419771162973614`}, {-Cos[Rational[2, 15] Pi], Sin[ Rational[2, 15] Pi]}}, {{-0.8404618210311928, 0.37419771162973614`}, {-0.9135454576426009, 0.40673664307580015`}}]], LineBox[NCache[{{-0.8749719949915413, 0.2842956348249517}, {-(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}}, {{-0.8749719949915413, 0.2842956348249517}, {-0.9510565162951535, 0.30901699437494745`}}]], LineBox[NCache[{{-0.8998957926751012, 0.1912787555523386}, {-Cos[Rational[1, 15] Pi], Sin[ Rational[1, 15] Pi]}}, {{-0.8998957926751012, 0.1912787555523386}, {-0.9781476007338057, 0.20791169081775931`}}]], LineBox[NCache[{{-0.9149601437388115, 0.09616618620624119}, {-Cos[Rational[1, 30] Pi], Sin[ Rational[1, 30] Pi]}}, {{-0.9149601437388115, 0.09616618620624119}, {-0.9945218953682733, 0.10452846326765346`}}]], LineBox[{{-0.92, 0}, {-1, 0}}], LineBox[NCache[{{-0.9149601437388115, -0.09616618620624119}, {- Cos[Rational[1, 30] Pi], - Sin[Rational[1, 30] Pi]}}, {{-0.9149601437388115, -0.09616618620624119}, \ {-0.9945218953682733, -0.10452846326765346`}}]], LineBox[NCache[{{-0.8998957926751012, -0.1912787555523386}, {- Cos[Rational[1, 15] Pi], - Sin[Rational[1, 15] Pi]}}, {{-0.8998957926751012, -0.1912787555523386}, \ {-0.9781476007338057, -0.20791169081775931`}}]], LineBox[NCache[{{-0.8749719949915413, -0.2842956348249517}, {-( Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 - 5^ Rational[ 1, 2])}}, {{-0.8749719949915413, -0.2842956348249517}, \ {-0.9510565162951535, -0.30901699437494745`}}]], LineBox[NCache[{{-0.8404618210311928, -0.37419771162973614`}, {- Cos[Rational[2, 15] Pi], - Sin[Rational[2, 15] Pi]}}, {{-0.8404618210311928, -0.37419771162973614`}, \ {-0.9135454576426009, -0.40673664307580015`}}]], LineBox[NCache[{{-0.7967433714816835, -0.46}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {{-0.7967433714816835, -0.46}, {-0.8660254037844386, -0.5}}]], LineBox[NCache[{{-0.7442956348249516, -0.5407624321090753}, { Rational[1, 4] (-1 - 5^ Rational[1, 2]), -(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^ Rational[ 1, 2]}}, {{-0.7442956348249516, -0.5407624321090753}, \ {-0.8090169943749475, -0.5877852522924731}}]], LineBox[NCache[{{-0.6836932394392027, -0.6156001578501497}, {- Cos[Rational[7, 30] Pi], - Sin[Rational[7, 30] Pi]}}, {{-0.6836932394392027, -0.6156001578501497}, \ {-0.7431448254773942, -0.6691306063588582}}]], LineBox[NCache[{{-0.6156001578501497, -0.6836932394392027}, {- Sin[Rational[7, 30] Pi], - Cos[Rational[7, 30] Pi]}}, {{-0.6156001578501497, -0.6836932394392027}, \ {-0.6691306063588582, -0.7431448254773942}}]], LineBox[NCache[{{-0.5407624321090753, -0.7442956348249516}, {-( Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^ Rational[ 1, 2])}}, {{-0.5407624321090753, -0.7442956348249516}, \ {-0.5877852522924731, -0.8090169943749475}}]], LineBox[NCache[{{-0.46, -0.7967433714816835}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.46, -0.7967433714816835}, {-0.5, \ -0.8660254037844386}}]], LineBox[NCache[{{-0.37419771162973614`, -0.8404618210311928}, {- Sin[Rational[2, 15] Pi], - Cos[Rational[2, 15] Pi]}}, {{-0.37419771162973614`, -0.8404618210311928}, \ {-0.40673664307580015`, -0.9135454576426009}}]], LineBox[NCache[{{-0.2842956348249517, -0.8749719949915413}, { Rational[1, 4] (1 - 5^ Rational[1, 2]), -(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^ Rational[ 1, 2]}}, {{-0.2842956348249517, -0.8749719949915413}, \ {-0.30901699437494745`, -0.9510565162951535}}]], LineBox[NCache[{{-0.1912787555523386, -0.8998957926751012}, {- Sin[Rational[1, 15] Pi], - Cos[Rational[1, 15] Pi]}}, {{-0.1912787555523386, -0.8998957926751012}, \ {-0.20791169081775931`, -0.9781476007338057}}]], LineBox[NCache[{{-0.09616618620624119, -0.9149601437388115}, {- Sin[Rational[1, 30] Pi], - Cos[Rational[1, 30] Pi]}}, {{-0.09616618620624119, -0.9149601437388115}, \ {-0.10452846326765346`, -0.9945218953682733}}]], LineBox[{{0, -0.92}, {0, -1}}], LineBox[ NCache[{{0.09616618620624119, -0.9149601437388115}, { Sin[Rational[1, 30] Pi], -Cos[Rational[1, 30] Pi]}}, {{ 0.09616618620624119, -0.9149601437388115}, { 0.10452846326765346`, -0.9945218953682733}}]], LineBox[NCache[{{0.1912787555523386, -0.8998957926751012}, { Sin[Rational[1, 15] Pi], -Cos[Rational[1, 15] Pi]}}, {{ 0.1912787555523386, -0.8998957926751012}, { 0.20791169081775931`, -0.9781476007338057}}]], LineBox[NCache[{{0.2842956348249517, -0.8749719949915413}, { Rational[1, 4] (-1 + 5^Rational[1, 2]), -(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.2842956348249517, -0.8749719949915413}, { 0.30901699437494745`, -0.9510565162951535}}]], LineBox[NCache[{{0.37419771162973614`, -0.8404618210311928}, { Sin[Rational[2, 15] Pi], -Cos[Rational[2, 15] Pi]}}, {{ 0.37419771162973614`, -0.8404618210311928}, { 0.40673664307580015`, -0.9135454576426009}}]], LineBox[NCache[{{0.46, -0.7967433714816835}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.46, -0.7967433714816835}, {0.5, -0.8660254037844386}}]], LineBox[NCache[{{ 0.5407624321090753, -0.7442956348249516}, {(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2])}}, {{ 0.5407624321090753, -0.7442956348249516}, { 0.5877852522924731, -0.8090169943749475}}]], LineBox[NCache[{{0.6156001578501497, -0.6836932394392027}, { Sin[Rational[7, 30] Pi], -Cos[Rational[7, 30] Pi]}}, {{ 0.6156001578501497, -0.6836932394392027}, { 0.6691306063588582, -0.7431448254773942}}]], LineBox[NCache[{{0.6836932394392027, -0.6156001578501497}, { Cos[Rational[7, 30] Pi], -Sin[Rational[7, 30] Pi]}}, {{ 0.6836932394392027, -0.6156001578501497}, { 0.7431448254773942, -0.6691306063588582}}]], LineBox[NCache[{{0.7442956348249516, -0.5407624321090753}, { Rational[1, 4] (1 + 5^Rational[1, 2]), -(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.7442956348249516, -0.5407624321090753}, { 0.8090169943749475, -0.5877852522924731}}]], LineBox[NCache[{{0.7967433714816835, -0.46}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {{ 0.7967433714816835, -0.46}, {0.8660254037844386, -0.5}}]], LineBox[NCache[{{0.8404618210311928, -0.37419771162973614`}, { Cos[Rational[2, 15] Pi], -Sin[Rational[2, 15] Pi]}}, {{ 0.8404618210311928, -0.37419771162973614`}, { 0.9135454576426009, -0.40673664307580015`}}]], LineBox[NCache[{{ 0.8749719949915413, -0.2842956348249517}, {(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 - 5^Rational[1, 2])}}, {{ 0.8749719949915413, -0.2842956348249517}, { 0.9510565162951535, -0.30901699437494745`}}]], LineBox[NCache[{{0.8998957926751012, -0.1912787555523386}, { Cos[Rational[1, 15] Pi], -Sin[Rational[1, 15] Pi]}}, {{ 0.8998957926751012, -0.1912787555523386}, { 0.9781476007338057, -0.20791169081775931`}}]], LineBox[NCache[{{0.9149601437388115, -0.09616618620624119}, { Cos[Rational[1, 30] Pi], -Sin[Rational[1, 30] Pi]}}, {{ 0.9149601437388115, -0.09616618620624119}, { 0.9945218953682733, -0.10452846326765346`}}]], LineBox[{{0.92, 0}, {1, 0}}]}, {InsetBox["1", {0.4, 0.6928203230275509}], InsetBox["2", {0.6928203230275509, 0.4}], InsetBox["3", {0.8, 0}], InsetBox["4", {0.6928203230275509, -0.4}], InsetBox["5", {0.4, -0.6928203230275509}], InsetBox["6", {0, -0.8}], InsetBox["7", {-0.4, -0.6928203230275509}], InsetBox["8", {-0.6928203230275509, -0.4}], InsetBox["9", {-0.8, 0}], InsetBox["10", {-0.6928203230275509, 0.4}], InsetBox["11", {-0.4, 0.6928203230275509}], InsetBox["12", {0, 0.8}]}}, {Thickness[0.01], {Arrowheads[{{1, 1, GraphicsBox[ PolygonBox[{{0, 0}, {-0.05, 0.0125}, {-0.05, 0}, {-0.05, -0.0125}, { 0, 0}}]]}}], ArrowBox[{{0, 0}, {0.49678592783829373`, 0.056601606883953354`}}]}}, {Thickness[0.01], {Arrowheads[{{1, 1, GraphicsBox[ PolygonBox[{{0, 0}, {-0.05, 0.0125}, {-0.05, 0}, {-0.05, -0.0125}, { 0, 0}}]]}}], ArrowBox[{{0, 0}, {-0.7336107005503543, 0.1559337681133195}}]}}}, AspectRatio->Automatic, BaseStyle->{ FontFamily -> "Times", FontWeight -> "Bold", FontSize -> 24}]], "Output", CellChangeTimes->{ 3.4498393454481497`*^9, {3.449846755718028*^9, 3.449846766698729*^9}}] }, Open ]], Cell[TextData[{ "You may want to check out the ", StyleBox["Arrow", FontWeight->"Bold"], StyleBox[" command in the Documentation Center.\nYou should also write \ another command to produce a clock face showing the current time. So if you \ execute the command at 11:03, it should produce the following:", FontVariations->{"CompatibilityType"->0}] }], "Text", CellChangeTimes->{{3.4498467907090187`*^9, 3.449846803704982*^9}}], Cell[CellGroupData[{ Cell[BoxData["clocknow"], "Input"], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0.85], DiskBox[{0, 0}]}, {Thickness[0.015], CircleBox[{0, 0}]}, CircleBox[{0, 0}, 0.92], DiskBox[{0, 0}, 0.05], {LineBox[{{0.92, 0}, {1, 0}}], LineBox[NCache[{{0.9149601437388115, 0.09616618620624119}, { Cos[Rational[1, 30] Pi], Sin[Rational[1, 30] Pi]}}, {{ 0.9149601437388115, 0.09616618620624119}, {0.9945218953682733, 0.10452846326765346`}}]], LineBox[NCache[{{0.8998957926751012, 0.1912787555523386}, { Cos[Rational[1, 15] Pi], Sin[Rational[1, 15] Pi]}}, {{ 0.8998957926751012, 0.1912787555523386}, {0.9781476007338057, 0.20791169081775931`}}]], LineBox[NCache[{{0.8749719949915413, 0.2842956348249517}, {(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}}, {{0.8749719949915413, 0.2842956348249517}, {0.9510565162951535, 0.30901699437494745`}}]], LineBox[NCache[{{0.8404618210311928, 0.37419771162973614`}, { Cos[Rational[2, 15] Pi], Sin[Rational[2, 15] Pi]}}, {{ 0.8404618210311928, 0.37419771162973614`}, {0.9135454576426009, 0.40673664307580015`}}]], LineBox[NCache[{{0.7967433714816835, 0.46}, { Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}}, {{ 0.7967433714816835, 0.46}, {0.8660254037844386, 0.5}}]], LineBox[NCache[{{0.7442956348249516, 0.5407624321090753}, { Rational[1, 4] (1 + 5^Rational[1, 2]), (Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.7442956348249516, 0.5407624321090753}, {0.8090169943749475, 0.5877852522924731}}]], LineBox[NCache[{{0.6836932394392027, 0.6156001578501497}, { Cos[Rational[7, 30] Pi], Sin[Rational[7, 30] Pi]}}, {{ 0.6836932394392027, 0.6156001578501497}, {0.7431448254773942, 0.6691306063588582}}]], LineBox[NCache[{{0.6156001578501497, 0.6836932394392027}, { Sin[Rational[7, 30] Pi], Cos[Rational[7, 30] Pi]}}, {{ 0.6156001578501497, 0.6836932394392027}, {0.6691306063588582, 0.7431448254773942}}]], LineBox[ NCache[{{0.5407624321090753, 0.7442956348249516}, {(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 + 5^Rational[1, 2])}}, {{0.5407624321090753, 0.7442956348249516}, {0.5877852522924731, 0.8090169943749475}}]], LineBox[NCache[{{0.46, 0.7967433714816835}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {{0.46, 0.7967433714816835}, {0.5, 0.8660254037844386}}]], LineBox[NCache[{{0.37419771162973614`, 0.8404618210311928}, { Sin[Rational[2, 15] Pi], Cos[Rational[2, 15] Pi]}}, {{ 0.37419771162973614`, 0.8404618210311928}, {0.40673664307580015`, 0.9135454576426009}}]], LineBox[NCache[{{0.2842956348249517, 0.8749719949915413}, { Rational[1, 4] (-1 + 5^Rational[1, 2]), (Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.2842956348249517, 0.8749719949915413}, {0.30901699437494745`, 0.9510565162951535}}]], LineBox[NCache[{{0.1912787555523386, 0.8998957926751012}, { Sin[Rational[1, 15] Pi], Cos[Rational[1, 15] Pi]}}, {{ 0.1912787555523386, 0.8998957926751012}, {0.20791169081775931`, 0.9781476007338057}}]], LineBox[NCache[{{0.09616618620624119, 0.9149601437388115}, { Sin[Rational[1, 30] Pi], Cos[Rational[1, 30] Pi]}}, {{ 0.09616618620624119, 0.9149601437388115}, {0.10452846326765346`, 0.9945218953682733}}]], LineBox[{{0, 0.92}, {0, 1}}], LineBox[NCache[{{-0.09616618620624119, 0.9149601437388115}, {-Sin[Rational[1, 30] Pi], Cos[ Rational[1, 30] Pi]}}, {{-0.09616618620624119, 0.9149601437388115}, {-0.10452846326765346`, 0.9945218953682733}}]], LineBox[NCache[{{-0.1912787555523386, 0.8998957926751012}, {-Sin[Rational[1, 15] Pi], Cos[ Rational[1, 15] Pi]}}, {{-0.1912787555523386, 0.8998957926751012}, {-0.20791169081775931`, 0.9781476007338057}}]], LineBox[NCache[{{-0.2842956348249517, 0.8749719949915413}, { Rational[1, 4] (1 - 5^Rational[1, 2]), (Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^ Rational[1, 2]}}, {{-0.2842956348249517, 0.8749719949915413}, {-0.30901699437494745`, 0.9510565162951535}}]], LineBox[NCache[{{-0.37419771162973614`, 0.8404618210311928}, {-Sin[Rational[2, 15] Pi], Cos[ Rational[2, 15] Pi]}}, {{-0.37419771162973614`, 0.8404618210311928}, {-0.40673664307580015`, 0.9135454576426009}}]], LineBox[NCache[{{-0.46, 0.7967433714816835}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}}, {{-0.46, 0.7967433714816835}, {-0.5, 0.8660254037844386}}]], LineBox[NCache[{{-0.5407624321090753, 0.7442956348249516}, {-(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 + 5^Rational[1, 2])}}, {{-0.5407624321090753, 0.7442956348249516}, {-0.5877852522924731, 0.8090169943749475}}]], LineBox[NCache[{{-0.6156001578501497, 0.6836932394392027}, {-Sin[Rational[7, 30] Pi], Cos[ Rational[7, 30] Pi]}}, {{-0.6156001578501497, 0.6836932394392027}, {-0.6691306063588582, 0.7431448254773942}}]], LineBox[NCache[{{-0.6836932394392027, 0.6156001578501497}, {-Cos[Rational[7, 30] Pi], Sin[ Rational[7, 30] Pi]}}, {{-0.6836932394392027, 0.6156001578501497}, {-0.7431448254773942, 0.6691306063588582}}]], LineBox[NCache[{{-0.7442956348249516, 0.5407624321090753}, { Rational[1, 4] (-1 - 5^Rational[1, 2]), (Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^ Rational[1, 2]}}, {{-0.7442956348249516, 0.5407624321090753}, {-0.8090169943749475, 0.5877852522924731}}]], LineBox[NCache[{{-0.7967433714816835, 0.46}, { Rational[-1, 2] 3^Rational[1, 2], Rational[ 1, 2]}}, {{-0.7967433714816835, 0.46}, {-0.8660254037844386, 0.5}}]], LineBox[NCache[{{-0.8404618210311928, 0.37419771162973614`}, {-Cos[Rational[2, 15] Pi], Sin[ Rational[2, 15] Pi]}}, {{-0.8404618210311928, 0.37419771162973614`}, {-0.9135454576426009, 0.40673664307580015`}}]], LineBox[NCache[{{-0.8749719949915413, 0.2842956348249517}, {-(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 + 5^Rational[1, 2])}}, {{-0.8749719949915413, 0.2842956348249517}, {-0.9510565162951535, 0.30901699437494745`}}]], LineBox[NCache[{{-0.8998957926751012, 0.1912787555523386}, {-Cos[Rational[1, 15] Pi], Sin[ Rational[1, 15] Pi]}}, {{-0.8998957926751012, 0.1912787555523386}, {-0.9781476007338057, 0.20791169081775931`}}]], LineBox[NCache[{{-0.9149601437388115, 0.09616618620624119}, {-Cos[Rational[1, 30] Pi], Sin[ Rational[1, 30] Pi]}}, {{-0.9149601437388115, 0.09616618620624119}, {-0.9945218953682733, 0.10452846326765346`}}]], LineBox[{{-0.92, 0}, {-1, 0}}], LineBox[NCache[{{-0.9149601437388115, -0.09616618620624119}, {- Cos[Rational[1, 30] Pi], - Sin[Rational[1, 30] Pi]}}, {{-0.9149601437388115, -0.09616618620624119}, \ {-0.9945218953682733, -0.10452846326765346`}}]], LineBox[NCache[{{-0.8998957926751012, -0.1912787555523386}, {- Cos[Rational[1, 15] Pi], - Sin[Rational[1, 15] Pi]}}, {{-0.8998957926751012, -0.1912787555523386}, \ {-0.9781476007338057, -0.20791169081775931`}}]], LineBox[NCache[{{-0.8749719949915413, -0.2842956348249517}, {-( Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 - 5^ Rational[ 1, 2])}}, {{-0.8749719949915413, -0.2842956348249517}, \ {-0.9510565162951535, -0.30901699437494745`}}]], LineBox[NCache[{{-0.8404618210311928, -0.37419771162973614`}, {- Cos[Rational[2, 15] Pi], - Sin[Rational[2, 15] Pi]}}, {{-0.8404618210311928, -0.37419771162973614`}, \ {-0.9135454576426009, -0.40673664307580015`}}]], LineBox[NCache[{{-0.7967433714816835, -0.46}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {{-0.7967433714816835, -0.46}, {-0.8660254037844386, -0.5}}]], LineBox[NCache[{{-0.7442956348249516, -0.5407624321090753}, { Rational[1, 4] (-1 - 5^ Rational[1, 2]), -(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^ Rational[ 1, 2]}}, {{-0.7442956348249516, -0.5407624321090753}, \ {-0.8090169943749475, -0.5877852522924731}}]], LineBox[NCache[{{-0.6836932394392027, -0.6156001578501497}, {- Cos[Rational[7, 30] Pi], - Sin[Rational[7, 30] Pi]}}, {{-0.6836932394392027, -0.6156001578501497}, \ {-0.7431448254773942, -0.6691306063588582}}]], LineBox[NCache[{{-0.6156001578501497, -0.6836932394392027}, {- Sin[Rational[7, 30] Pi], - Cos[Rational[7, 30] Pi]}}, {{-0.6156001578501497, -0.6836932394392027}, \ {-0.6691306063588582, -0.7431448254773942}}]], LineBox[NCache[{{-0.5407624321090753, -0.7442956348249516}, {-( Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^ Rational[ 1, 2])}}, {{-0.5407624321090753, -0.7442956348249516}, \ {-0.5877852522924731, -0.8090169943749475}}]], LineBox[NCache[{{-0.46, -0.7967433714816835}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[ 1, 2]}}, {{-0.46, -0.7967433714816835}, {-0.5, \ -0.8660254037844386}}]], LineBox[NCache[{{-0.37419771162973614`, -0.8404618210311928}, {- Sin[Rational[2, 15] Pi], - Cos[Rational[2, 15] Pi]}}, {{-0.37419771162973614`, -0.8404618210311928}, \ {-0.40673664307580015`, -0.9135454576426009}}]], LineBox[NCache[{{-0.2842956348249517, -0.8749719949915413}, { Rational[1, 4] (1 - 5^ Rational[1, 2]), -(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^ Rational[ 1, 2]}}, {{-0.2842956348249517, -0.8749719949915413}, \ {-0.30901699437494745`, -0.9510565162951535}}]], LineBox[NCache[{{-0.1912787555523386, -0.8998957926751012}, {- Sin[Rational[1, 15] Pi], - Cos[Rational[1, 15] Pi]}}, {{-0.1912787555523386, -0.8998957926751012}, \ {-0.20791169081775931`, -0.9781476007338057}}]], LineBox[NCache[{{-0.09616618620624119, -0.9149601437388115}, {- Sin[Rational[1, 30] Pi], - Cos[Rational[1, 30] Pi]}}, {{-0.09616618620624119, -0.9149601437388115}, \ {-0.10452846326765346`, -0.9945218953682733}}]], LineBox[{{0, -0.92}, {0, -1}}], LineBox[ NCache[{{0.09616618620624119, -0.9149601437388115}, { Sin[Rational[1, 30] Pi], -Cos[Rational[1, 30] Pi]}}, {{ 0.09616618620624119, -0.9149601437388115}, { 0.10452846326765346`, -0.9945218953682733}}]], LineBox[NCache[{{0.1912787555523386, -0.8998957926751012}, { Sin[Rational[1, 15] Pi], -Cos[Rational[1, 15] Pi]}}, {{ 0.1912787555523386, -0.8998957926751012}, { 0.20791169081775931`, -0.9781476007338057}}]], LineBox[NCache[{{0.2842956348249517, -0.8749719949915413}, { Rational[1, 4] (-1 + 5^Rational[1, 2]), -(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.2842956348249517, -0.8749719949915413}, { 0.30901699437494745`, -0.9510565162951535}}]], LineBox[NCache[{{0.37419771162973614`, -0.8404618210311928}, { Sin[Rational[2, 15] Pi], -Cos[Rational[2, 15] Pi]}}, {{ 0.37419771162973614`, -0.8404618210311928}, { 0.40673664307580015`, -0.9135454576426009}}]], LineBox[NCache[{{0.46, -0.7967433714816835}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}}, {{ 0.46, -0.7967433714816835}, {0.5, -0.8660254037844386}}]], LineBox[NCache[{{ 0.5407624321090753, -0.7442956348249516}, {(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2])}}, {{ 0.5407624321090753, -0.7442956348249516}, { 0.5877852522924731, -0.8090169943749475}}]], LineBox[NCache[{{0.6156001578501497, -0.6836932394392027}, { Sin[Rational[7, 30] Pi], -Cos[Rational[7, 30] Pi]}}, {{ 0.6156001578501497, -0.6836932394392027}, { 0.6691306063588582, -0.7431448254773942}}]], LineBox[NCache[{{0.6836932394392027, -0.6156001578501497}, { Cos[Rational[7, 30] Pi], -Sin[Rational[7, 30] Pi]}}, {{ 0.6836932394392027, -0.6156001578501497}, { 0.7431448254773942, -0.6691306063588582}}]], LineBox[NCache[{{0.7442956348249516, -0.5407624321090753}, { Rational[1, 4] (1 + 5^Rational[1, 2]), -(Rational[5, 8] + Rational[-1, 8] 5^Rational[1, 2])^Rational[1, 2]}}, {{ 0.7442956348249516, -0.5407624321090753}, { 0.8090169943749475, -0.5877852522924731}}]], LineBox[NCache[{{0.7967433714816835, -0.46}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}}, {{ 0.7967433714816835, -0.46}, {0.8660254037844386, -0.5}}]], LineBox[NCache[{{0.8404618210311928, -0.37419771162973614`}, { Cos[Rational[2, 15] Pi], -Sin[Rational[2, 15] Pi]}}, {{ 0.8404618210311928, -0.37419771162973614`}, { 0.9135454576426009, -0.40673664307580015`}}]], LineBox[NCache[{{ 0.8749719949915413, -0.2842956348249517}, {(Rational[5, 8] + Rational[1, 8] 5^Rational[1, 2])^Rational[1, 2], Rational[1, 4] (1 - 5^Rational[1, 2])}}, {{ 0.8749719949915413, -0.2842956348249517}, { 0.9510565162951535, -0.30901699437494745`}}]], LineBox[NCache[{{0.8998957926751012, -0.1912787555523386}, { Cos[Rational[1, 15] Pi], -Sin[Rational[1, 15] Pi]}}, {{ 0.8998957926751012, -0.1912787555523386}, { 0.9781476007338057, -0.20791169081775931`}}]], LineBox[NCache[{{0.9149601437388115, -0.09616618620624119}, { Cos[Rational[1, 30] Pi], -Sin[Rational[1, 30] Pi]}}, {{ 0.9149601437388115, -0.09616618620624119}, { 0.9945218953682733, -0.10452846326765346`}}]], LineBox[{{0.92, 0}, {1, 0}}]}, {InsetBox["1", {0.4, 0.6928203230275509}], InsetBox["2", {0.6928203230275509, 0.4}], InsetBox["3", {0.8, 0}], InsetBox["4", {0.6928203230275509, -0.4}], InsetBox["5", {0.4, -0.6928203230275509}], InsetBox["6", {0, -0.8}], InsetBox["7", {-0.4, -0.6928203230275509}], InsetBox["8", {-0.6928203230275509, -0.4}], InsetBox["9", {-0.8, 0}], InsetBox["10", {-0.6928203230275509, 0.4}], InsetBox["11", {-0.4, 0.6928203230275509}], InsetBox["12", {0, 0.8}]}}, {Thickness[0.01], {Arrowheads[{{1, 1, GraphicsBox[ PolygonBox[{{0, 0}, {-0.05, 0.0125}, {-0.05, 0}, {-0.05, -0.0125}, { 0, 0}}]]}}], ArrowBox[{{0, 0}, {-0.2385793801298042, 0.4394085563309827}}]}}, {Thickness[0.01], {Arrowheads[{{1, 1, GraphicsBox[ PolygonBox[{{0, 0}, {-0.05, 0.0125}, {-0.05, 0}, {-0.05, -0.0125}, { 0, 0}}]]}}], ArrowBox[{{0, 0}, {0.2317627457812106, 0.7132923872213651}}]}}}, AspectRatio->Automatic, BaseStyle->{ FontFamily -> "Times", FontWeight -> "Bold", FontSize -> 24}]], "Output", CellChangeTimes->{3.449839360334725*^9}] }, Open ]], Cell["It's kind of fun to animate the clock too!", "Text"], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`time$$ = 37, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`time$$], 0}, DirectedInfinity[-1], DirectedInfinity[1]}}, Typeset`size$$ = {360., {174., 185.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`time$418$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`time$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`time$$, $CellContext`time$418$$, 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" :> Show[{$CellContext`clockface, $CellContext`hourhandX[$CellContext`time$$], $CellContext`minutehandX[$CellContext`time$$]}, AspectRatio -> Automatic], "Specifications" :> {{{$CellContext`time$$, 0}, DirectedInfinity[-1], DirectedInfinity[1], AnimationRate -> 3, AnimationRunning -> False, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{402., {210.375, 215.625}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`clockface = Graphics[{{ GrayLevel[0.85], Disk[{0, 0}, 1]}, { Thickness[0.015], Circle[{0, 0}, 1]}, Circle[{0, 0}, 0.92], Disk[{0, 0}, 0.05], { Line[{{0.92, 0}, {1, 0}}], Line[{{0.9149601437388115, 0.09616618620624119}, { Cos[Pi/30], Sin[Pi/30]}}], Line[{{0.8998957926751012, 0.1912787555523386}, { Cos[Pi/15], Sin[Pi/15]}}], Line[{{0.8749719949915413, 0.2842956348249517}, { Sqrt[5/8 + Sqrt[5]/8], (-1 + Sqrt[5])/4}}], Line[{{0.8404618210311928, 0.37419771162973614`}, { Cos[(2 Pi)/15], Sin[(2 Pi)/15]}}], Line[{{0.7967433714816835, 0.46}, {Sqrt[3]/2, 1/2}}], Line[{{0.7442956348249516, 0.5407624321090753}, {(1 + Sqrt[5])/4, Sqrt[5/8 - Sqrt[5]/8]}}], Line[{{0.6836932394392027, 0.6156001578501497}, { Cos[(7 Pi)/30], Sin[(7 Pi)/30]}}], Line[{{0.6156001578501497, 0.6836932394392027}, { Sin[(7 Pi)/30], Cos[(7 Pi)/30]}}], Line[{{0.5407624321090753, 0.7442956348249516}, { Sqrt[5/8 - Sqrt[5]/8], (1 + Sqrt[5])/4}}], Line[{{0.46, 0.7967433714816835}, {1/2, Sqrt[3]/2}}], Line[{{0.37419771162973614`, 0.8404618210311928}, { Sin[(2 Pi)/15], Cos[(2 Pi)/15]}}], Line[{{0.2842956348249517, 0.8749719949915413}, {(-1 + Sqrt[5])/4, Sqrt[5/8 + Sqrt[5]/8]}}], Line[{{0.1912787555523386, 0.8998957926751012}, { Sin[Pi/15], Cos[Pi/15]}}], Line[{{0.09616618620624119, 0.9149601437388115}, { Sin[Pi/30], Cos[Pi/30]}}], Line[{{0, 0.92}, {0, 1}}], Line[{{-0.09616618620624119, 0.9149601437388115}, {-Sin[Pi/30], Cos[Pi/30]}}], Line[{{-0.1912787555523386, 0.8998957926751012}, {-Sin[Pi/15], Cos[Pi/15]}}], Line[{{-0.2842956348249517, 0.8749719949915413}, {(1 - Sqrt[5])/4, Sqrt[5/8 + Sqrt[5]/8]}}], Line[{{-0.37419771162973614`, 0.8404618210311928}, {-Sin[(2 Pi)/15], Cos[(2 Pi)/15]}}], Line[{{-0.46, 0.7967433714816835}, {(-1)/2, Sqrt[3]/2}}], Line[{{-0.5407624321090753, 0.7442956348249516}, {-Sqrt[5/8 - Sqrt[5]/8], (1 + Sqrt[5])/4}}], Line[{{-0.6156001578501497, 0.6836932394392027}, {-Sin[(7 Pi)/30], Cos[(7 Pi)/30]}}], Line[{{-0.6836932394392027, 0.6156001578501497}, {-Cos[(7 Pi)/30], Sin[(7 Pi)/30]}}], Line[{{-0.7442956348249516, 0.5407624321090753}, {(-1 - Sqrt[5])/4, Sqrt[5/8 - Sqrt[5]/8]}}], Line[{{-0.7967433714816835, 0.46}, {-Sqrt[3]/2, 1/2}}], Line[{{-0.8404618210311928, 0.37419771162973614`}, {-Cos[(2 Pi)/15], Sin[(2 Pi)/15]}}], Line[{{-0.8749719949915413, 0.2842956348249517}, {-Sqrt[5/8 + Sqrt[5]/8], (-1 + Sqrt[5])/ 4}}], Line[{{-0.8998957926751012, 0.1912787555523386}, {-Cos[Pi/15], Sin[Pi/15]}}], Line[{{-0.9149601437388115, 0.09616618620624119}, {-Cos[Pi/30], Sin[Pi/30]}}], Line[{{-0.92, 0}, {-1, 0}}], Line[{{-0.9149601437388115, -0.09616618620624119}, {-Cos[Pi/30], - Sin[Pi/30]}}], Line[{{-0.8998957926751012, -0.1912787555523386}, {-Cos[Pi/15], - Sin[Pi/15]}}], Line[{{-0.8749719949915413, -0.2842956348249517}, {- Sqrt[5/8 + Sqrt[5]/8], (1 - Sqrt[5])/4}}], Line[{{-0.8404618210311928, -0.37419771162973614`}, {- Cos[(2 Pi)/15], -Sin[(2 Pi)/15]}}], Line[{{-0.7967433714816835, -0.46}, {-Sqrt[3]/2, (-1)/2}}], Line[{{-0.7442956348249516, -0.5407624321090753}, {(-1 - Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8]}}], Line[{{-0.6836932394392027, -0.6156001578501497}, {- Cos[(7 Pi)/30], -Sin[(7 Pi)/30]}}], Line[{{-0.6156001578501497, -0.6836932394392027}, {- Sin[(7 Pi)/30], -Cos[(7 Pi)/30]}}], Line[{{-0.5407624321090753, -0.7442956348249516}, {- Sqrt[5/8 - Sqrt[5]/8], (-1 - Sqrt[5])/4}}], Line[{{-0.46, -0.7967433714816835}, {(-1)/2, -Sqrt[3]/2}}], Line[{{-0.37419771162973614`, -0.8404618210311928}, {- Sin[(2 Pi)/15], -Cos[(2 Pi)/15]}}], Line[{{-0.2842956348249517, -0.8749719949915413}, {(1 - Sqrt[5])/ 4, -Sqrt[5/8 + Sqrt[5]/8]}}], Line[{{-0.1912787555523386, -0.8998957926751012}, {-Sin[Pi/15], - Cos[Pi/15]}}], Line[{{-0.09616618620624119, -0.9149601437388115}, {-Sin[Pi/30], - Cos[Pi/30]}}], Line[{{0, -0.92}, {0, -1}}], Line[{{0.09616618620624119, -0.9149601437388115}, { Sin[Pi/30], -Cos[Pi/30]}}], Line[{{0.1912787555523386, -0.8998957926751012}, { Sin[Pi/15], -Cos[Pi/15]}}], Line[{{0.2842956348249517, -0.8749719949915413}, {(-1 + Sqrt[5])/ 4, -Sqrt[5/8 + Sqrt[5]/8]}}], Line[{{0.37419771162973614`, -0.8404618210311928}, { Sin[(2 Pi)/15], -Cos[(2 Pi)/15]}}], Line[{{0.46, -0.7967433714816835}, {1/2, -Sqrt[3]/2}}], Line[{{0.5407624321090753, -0.7442956348249516}, { Sqrt[5/8 - Sqrt[5]/8], (-1 - Sqrt[5])/4}}], Line[{{0.6156001578501497, -0.6836932394392027}, { Sin[(7 Pi)/30], -Cos[(7 Pi)/30]}}], Line[{{0.6836932394392027, -0.6156001578501497}, { Cos[(7 Pi)/30], -Sin[(7 Pi)/30]}}], Line[{{0.7442956348249516, -0.5407624321090753}, {(1 + Sqrt[5])/ 4, -Sqrt[5/8 - Sqrt[5]/8]}}], Line[{{0.7967433714816835, -0.46}, {Sqrt[3]/2, (-1)/2}}], Line[{{0.8404618210311928, -0.37419771162973614`}, { Cos[(2 Pi)/15], -Sin[(2 Pi)/15]}}], Line[{{0.8749719949915413, -0.2842956348249517}, { Sqrt[5/8 + Sqrt[5]/8], (1 - Sqrt[5])/4}}], Line[{{0.8998957926751012, -0.1912787555523386}, { Cos[Pi/15], -Sin[Pi/15]}}], Line[{{0.9149601437388115, -0.09616618620624119}, { Cos[Pi/30], -Sin[Pi/30]}}], Line[{{0.92, 0}, {1, 0}}]}, { Text[1, {0.4, 0.6928203230275509}], Text[2, {0.6928203230275509, 0.4}], Text[3, {0.8, 0}], Text[4, {0.6928203230275509, -0.4}], Text[5, {0.4, -0.6928203230275509}], Text[6, {0, -0.8}], Text[7, {-0.4, -0.6928203230275509}], Text[8, {-0.6928203230275509, -0.4}], Text[9, {-0.8, 0}], Text[10, {-0.6928203230275509, 0.4}], Text[11, {-0.4, 0.6928203230275509}], Text[12, {0, 0.8}]}}, BaseStyle -> { FontFamily -> "Times", FontWeight -> "Bold", FontSize -> 24}], $CellContext`hourhandX[ Pattern[$CellContext`time, Blank[]]] := ($CellContext`t = ($CellContext`time/(12 60)) 2 Pi; Graphics[{ Thickness[0.01], Arrow[{{0, 0}, 0.5 { Sin[$CellContext`t], Cos[$CellContext`t]}}]}]), $CellContext`time$$ = 37, $CellContext`t = (37 Pi)/30, $CellContext`minutehandX[ Pattern[$CellContext`time, Blank[]]] := ($CellContext`t = ($CellContext`time/60) 2 Pi; Graphics[{ Thickness[0.01], Arrow[{{0, 0}, 0.75 { Sin[$CellContext`t], Cos[$CellContext`t]}}]}])}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.450094544773768*^9, 3.450094605019772*^9}, { 3.450094704937937*^9, 3.450094738486462*^9}, {3.450094820729171*^9, 3.450094868428874*^9}, {3.4500949794987183`*^9, 3.450095066712129*^9}, { 3.466169622534396*^9, 3.466169692162373*^9}}] }, Open ]] }, WindowSize->{776, 686}, WindowMargins->{{61, Automatic}, {Automatic, 69}}, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 32, 0, 76, "Title"], Cell[625, 25, 186, 6, 26, "Text"], Cell[CellGroupData[{ Cell[836, 35, 106, 3, 27, "Input"], Cell[945, 40, 15682, 287, 374, "Output"] }, Open ]], Cell[16642, 330, 433, 9, 56, "Text"], Cell[CellGroupData[{ Cell[17100, 343, 34, 0, 27, "Input"], Cell[17137, 345, 15626, 286, 374, "Output"] }, Open ]], Cell[32778, 634, 58, 0, 26, "Text"], Cell[32839, 636, 10582, 232, 444, "Output"] }, Open ]] } ] *) (* End of internal cache information *)