(*********************************************************************** Mathematica-Compatible Notebook This notebook can be used on any computer system with Mathematica 3.0, MathReader 3.0, or any compatible application. The data for the notebook starts with the line of stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. ***********************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 14284, 529]*) (*NotebookOutlinePosition[ 31233, 1135]*) (* CellTagsIndexPosition[ 31050, 1126]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["\<\ 8.033 Problem Set 1, Kinematic Effects of Relativity\ \>", "Subtitle", Evaluatable->False, TextAlignment->Center, TextJustification->0, AspectRatioFixed->True, FontSlant->"Plain"], Cell[TextData[StyleBox["doug "]], "Subsubtitle", Evaluatable->False, TextAlignment->Center, TextJustification->0, AspectRatioFixed->True, FontFamily->"New York"], Cell[TextData[StyleBox[ "Index\n\tPreamble: Initialization functions\n\tR & H: 2 - 9 A moving \ clock\n\tR & H: 2-10 A moving rocket\n\tR & H: 2-13 A fast rocket"]], "Text", TextAlignment->Left, TextJustification->0], Cell[CellGroupData[{ Cell[" Preamble: Initiation functions", "Subsection", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True, CellTags->"preamble"], Cell["\<\ There are a few tools required to solve problems in special \ relativity using quaternions to characterize events in spacetime. The most \ basic are gamma and a round value for c.\ \>", "Text", TextAlignment->Left, TextJustification->0], Cell[BoxData[ RowBox[{ RowBox[{"\[Gamma]", StyleBox["[", FontFamily->"Courier"], StyleBox[ RowBox[{ StyleBox["\[Beta]", FontFamily->"Courier"], StyleBox["_", FontFamily->"Symbol"]}]], StyleBox["]", FontFamily->"Courier"]}], StyleBox[" ", FontFamily->"Courier"], StyleBox[":=", FontFamily->"Courier"], StyleBox[" ", FontFamily->"Courier"], StyleBox[\(1\/\@\(1\ - \ \[Beta]\^2\)\), FontFamily->"Courier"]}]], "Input", CellLabel->"In[1]:=", InitializationCell->True, TextAlignment->Left, TextJustification->0], Cell[BoxData[ \(\(c\ = \ 3\ \ 10\^8\ m/s; \)\)], "Input", CellLabel->"In[2]:=", InitializationCell->True, TextAlignment->Left, TextJustification->0], Cell["\<\ Define a function for quaternions using its matrix \ representation.\ \>", "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[BoxData[ RowBox[{\(q[t_, \ x_, \ y_, \ z_]\), " ", ":=", " ", RowBox[{"(", GridBox[{ {"t", \(-x\), \(-y\), \(-z\)}, {"x", "t", \(-z\), "y"}, {"y", "z", "t", \(-x\)}, {"z", \(-y\), "x", "t"} }], ")"}]}]], "Input", CellLabel->"In[12]:=", InitializationCell->True, TextAlignment->Left, TextJustification->0], Cell[TextData[{ "A quaternion L that perform a transform on a quaternion - \nL q[", StyleBox["x", FontWeight->"Bold"], "] = q[", StyleBox["x'", FontWeight->"Bold"], "] - identical to how the Lorentz transformation acts on 4-vectors - Lambda \ ", StyleBox["x", FontWeight->"Bold"], " = ", StyleBox["x'", FontWeight->"Bold"], " - should exist. These are described in detail in the notebook \"A \ different algebra for boosts.\" For boosts along the x axis with y = z = 0, \ the general function for L is" }], "Text", CellMargins->{{Inherited, 30}, {Inherited, Inherited}}, Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[BoxData[ \(L[t_, \ x_, \ \[Beta]_]\ := \n\t 1\/\(t\^2 + \ x\^2\)\ q[\[Gamma][\[Beta]]\ t\^2\ - \ 2\ \[Gamma][\[Beta]] \[Beta]\ t\ x\ + \ \[Gamma][\[Beta]]\ x\^2, \n\t\t\t\t\t\t\t\t\t\ \(-\[Beta]\)\ \[Gamma][\[Beta]]\ \((t\^2\ - \ x\^2)\), \ 0, \ 0] \)], "Input", CellLabel->"In[4]:=", InitializationCell->True, TextAlignment->Left, TextJustification->0], Cell["\<\ Most of the problems here involve much simpler cases for L, where t \ or x is zero, or t is equal to x.\ \>", "Text", TextAlignment->Left, TextJustification->0], Cell["If t = 0, then ", "Text", TextAlignment->Left, TextJustification->0], Cell[CellGroupData[{ Cell[BoxData[ \(L[0, \ x, \[Beta]]\ .\ {1, 0, 0, 0}\)], "Input", CellLabel->"In[10]:=", TextAlignment->Left, TextJustification->0], Cell[BoxData[ \({1\/\@\(1 - \[Beta]\^2\), \[Beta]\/\@\(1 - \[Beta]\^2\), 0, 0}\)], "Output", CellLabel->"Out[10]="] }, Open ]], Cell["If x = 0, then ", "Text", TextAlignment->Left, TextJustification->0], Cell[CellGroupData[{ Cell[BoxData[ \(L[t, \ 0, \[Beta]]\ .\ {1, 0, 0, 0}\)], "Input", CellLabel->"In[11]:=", TextAlignment->Left, TextJustification->0], Cell[BoxData[ \({1\/\@\(1 - \[Beta]\^2\), \(-\(\[Beta]\/\@\(1 - \[Beta]\^2\)\)\), 0, 0} \)], "Output", CellLabel->"Out[11]="] }, Open ]], Cell["If t = x, then", "Text", TextAlignment->Left, TextJustification->0], Cell[CellGroupData[{ Cell[BoxData[ \(Simplify[L[t, \ t, \[Beta]]\ .\ {1, 0, 0, 0}]\)], "Input", CellLabel->"In[12]:=", TextAlignment->Left, TextJustification->0], Cell[BoxData[ \({\(1 - \[Beta]\)\/\@\(1 - \[Beta]\^2\), 0, 0, 0}\)], "Output", CellLabel->"Out[12]="] }, Open ]], Cell["\<\ Note: this is for blueshifts. Redshifts have a plus instead of the \ minus.\ \>", "Text", TextAlignment->Left, TextJustification->0], Cell["\<\ The problems are from \"Basic Concepts in Relativity\" by Resnick \ and Halliday, \[Copyright]1992 by Macmillian Publishing, \"Special Relativity\ \" by A. P. French, \[Copyright] 1966, 1968 by MIT, and Prof. M. Baranger of \ MIT.\ \>", "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[" R&H 2-9: A moving clock", "Subsection", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True, CellTags->"A moving clock"], Cell["\<\ Q: A clock moves along the x axis at a speed of 0.6c and reads \ zero as it passes the origin. What time does it read as it passes the 180 m \ mark on the x axis?\ \>", "Text", CellLabel->"In[26]:=", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell["\<\ A: A clock measures an interval between two events. The first \ event occurs at the origin. The second event happens at 180 m in a time of \ 180 m/v. Calculate the interval by squaring the difference quaternion and \ then taking the square root of the first term.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(\@\(( q[180\ m/\((.6\ c)\), 180\ m/c, 0, 0]\ .\n\ \ q[180\ m/\((.6\ c)\), 180\ m/c, 0, 0])\)[\([1, 1]\)]\)], "Input", CellLabel->"In[13]:=", TextAlignment->Left, TextJustification->0], Cell[BoxData[ \(8.00000000000000000086`*^-7\ \@s\^2\)], "Output", CellLabel->"Out[13]="] }, Open ]], Cell[TextData[{ "The moving clock reads 8 x ", Cell[BoxData[ \(TraditionalForm\`10^\(-7\)\)]], " seconds." }], "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[" R&H 2-10: A moving rocket", "Subsection", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True, CellTags->"A moving rocket"], Cell["\<\ Q: A rod lies parallel to the x axis of reference frame S, moving \ along this axis at a speed of 0.6c. Its rest length is 1.0 m. What will be \ its measured length in frame S?\ \>", "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[TextData[{ "A: Consider the meter stick at rest in a frame S', one end at the origin, \ the other at q[0, 1 m, 0, 0]. We want to boost the stick end quaternion to \ frame S. The boost quaternion when t=y=z=0 is ", Cell[BoxData[ \(L\ = \ q[\[Gamma], \ \(-\[Gamma]\)\ \[Beta], 0, 0]\)], "Input"], ". In frame S', frame S is moving at -0.6c." }], "Text", TextAlignment->Left, TextJustification->0], Cell[BoxData[ \(\(stick\_end\ = \ q[\[Gamma][\(-0.6\)], \ \(-0.6\)\ \[Gamma][\(-0.6\)], 0, 0]\ .\ q[0, \ 1\ m, \ 0, \ 0]; \)\)], "Input", CellLabel->"In[36]:="], Cell[TextData[{ "The start of the stick will move for a time equal to the first term of the \ boosted quaternion, and moved by a distance ", StyleBox["x = vt/c", FontFamily->"Courier"], "." }], "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[BoxData[ \(\(stick\_start\ = \ q[stick\_end[\([1, 1]\)], 0.6\ \ stick\_end[\([1, 1]\)], 0, 0]; \)\)], "Input", CellLabel->"In[37]:="], Cell["\<\ The meter stick's length in frame S will be the difference at the \ same instant in this frame between the boosted stick end and translocated \ stick start.\ \>", "Text", TextAlignment->Left, TextJustification->0], Cell[CellGroupData[{ Cell[BoxData[ \(stick\_length = \ \((stick\_end\ - \ stick\_start)\).{1, 0, 0, 0}\)], "Input", CellLabel->"In[43]:=", CellMargins->{{Inherited, -57}, {Inherited, Inherited}}], Cell[BoxData[ \({0.`\ m, 0.799999999999999999956`\ m, 0, 0}\)], "Output", CellLabel->"Out[43]="] }, Open ]], Cell["\<\ The meter stick is length contracted to 0.8 meters in frame S.\ \>", "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True] }, Open ]], Cell[CellGroupData[{ Cell[" R&H 2-13: A fast spaceship", "Subsection", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True, CellTags->"A fast spaceship"], Cell["\<\ Q: The length of a spaceship is measured to be exactly half its \ rest length. (a) What is the speed of the spaceship relative to the \ observer's frame? (b) By what factor does the spaceship's clocks run slow, \ compared to clocks in the observer's frame?\ \>", "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[TextData[{ "A: (a) Consider the spaceship at rest, one end at the origin, the other \ at q[0, d, 0, 0]. We want to boost the ship end quaternion to the observer's \ frame. The boost quaternion when t=y=z=0 is ", Cell[BoxData[ \(L\ = \ q[\[Gamma], \ \[Gamma]\ \[Beta], 0, 0]\)], "Input"], ". In the ship's frame, the observer is moving at -", StyleBox["v/c", FontFamily->"Courier"], "." }], "Text", TextAlignment->Left, TextJustification->0], Cell[BoxData[ \(\(ship\_end\ = \ q[\[Gamma][\(-\[Beta]\)], \ \(-\[Beta]\)\ \[Gamma][\(-\[Beta]\)], 0, 0] \ .\ q[0, \ d, \ 0, \ 0]; \)\)], "Input", CellLabel->"In[39]:="], Cell[TextData[{ "The start of the ship will move for a time equal to the first term of the \ boosted quaternion, and moved by a distance ", StyleBox["x = vt/c", FontFamily->"Courier"], "." }], "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[BoxData[ \(\(ship\_start\ = \ q[ship\_end[\([1, 1]\)], \[Beta]\ \ ship\_end[\([1, 1]\)], 0, 0]; \)\)], "Input", CellLabel->"In[40]:="], Cell["\<\ The ship's length in the observer's frame will be the difference at \ the same instant in this frame between the boosted ship end and translocated \ ship start.\ \>", "Text", TextAlignment->Left, TextJustification->0], Cell[CellGroupData[{ Cell[BoxData[ \(ship\_length = \ \((ship\_end\ - \ ship\_start)\).{1, 0, 0, 0}\)], "Input", CellLabel->"In[41]:=", CellMargins->{{Inherited, -57}, {Inherited, Inherited}}], Cell[BoxData[ \({0, d\/\@\(1 - \[Beta]\^2\) - \(d\ \[Beta]\^2\)\/\@\(1 - \[Beta]\^2\), 0, 0}\)], "Output", CellLabel->"Out[41]="] }, Open ]], Cell[TextData[{ "Solve for ", StyleBox["beta", FontFamily->"Courier"], " setting this distance to d/2." }], "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ship\_length[\([2]\)]\ == \ d/2, \ \[Beta]]\)], "Input", CellLabel->"In[42]:="], Cell[BoxData[ \({{\[Beta] \[Rule] \(-\(\@3\/2\)\)}, {\[Beta] \[Rule] \@3\/2}}\)], "Output", CellLabel->"Out[42]="] }, Open ]], Cell[TextData[{ "Beta is ", Cell[BoxData[ \(TraditionalForm\`\@3\)]], "/2 = 0.866.\n\n(b) The factor that the clocks appear to run at different \ rates is gamma." }], "Text", Evaluatable->False, TextAlignment->Left, TextJustification->0, AspectRatioFixed->True], Cell[CellGroupData[{ Cell[BoxData[ \(\[Gamma][\@3\/2]\)], "Input", CellLabel->"In[19]:="], Cell[BoxData[ \(2\)], "Output", CellLabel->"Out[19]="] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 640}, {0, 451}}, AutoGeneratedPackage->None, ScreenStyleEnvironment->"Working", WindowToolbars->{"RulerBar", "EditBar"}, CellGrouping->Automatic, WindowSize->{491, 255}, WindowMargins->{{18, Automatic}, {Automatic, 33}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"PrintingMargins"->{{72, 57.5625}, {57.5625, 72}}, "PrintCellBrackets"->False, "PrintRegistrationMarks"->False, "PrintMultipleHorizontalPages"->False}, PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}}, ShowCellTags->False, RenderingOptions->{"ObjectDithering"->True, "RasterDithering"->False}, CharacterEncoding->"MacintoshAutomaticEncoding", Magnification->1, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Style Definitions"]], "Subtitle"], Cell[TextData[StyleBox[ "Modify the definitions below to change the default appearance of all cells \ in a given style.\nMake modifications to any definition using commands in the \ Format menu."]], "Text"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Style Environment Names"]], "Section"], Cell[StyleData[All, "Working"], ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellLabel->False, ImageSize->{200, 200}, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Notebook Options"]], "Section"], Cell[TextData[StyleBox[ "The options defined for the style below will be used at the Notebook \ level."]], "Text"], Cell[StyleData["Notebook"], PageHeaders->{{Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"], None, Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"]}, {Cell[ TextData[ { ValueBox[ "FileName"]}], "Header"], None, Cell[ TextData[ { CounterBox[ "Page"]}], "PageNumber"]}}, PageHeaderLines->{True, True}, PrintingOptions->{"FirstPageHeader"->False, "FacingPages"->True}, CellLabelAutoDelete->False, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Headings"]], "Section", FontFamily->"Times New Roman"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 30}, {4, 20}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->9, LineSpacing->{0.95, 0}, CounterIncrements->"Title", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Times New Roman", FontSize->36], Cell[StyleData["Title", "Printout"], CellMargins->{{18, 30}, {4, 0}}, CellFrameMargins->4, FontFamily->"Times New Roman", FontSize->30] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{18, 30}, {0, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, LineSpacing->{1, 0}, CounterIncrements->"Subtitle", CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Times New Roman", FontSize->24, FontSlant->"Italic"], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{18, 30}, {0, 10}}, FontFamily->"Times New Roman", FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["SectionFirst"], CellFrame->{{0, 0}, {0, 3}}, CellMargins->{{18, 30}, {4, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->3, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Times New Roman", FontSize->18, FontWeight->"Bold"], Cell[StyleData["SectionFirst", "Printout"], FontFamily->"Times New Roman", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellMargins->{{18, 30}, {4, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Times New Roman", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section", "Printout"], FontFamily->"Times New Roman", FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{18, 30}, {4, 20}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Times New Roman", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Printout"], FontFamily->"Times New Roman"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{18, 30}, {4, 12}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontFamily->"Times New Roman", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Printout"], FontFamily->"Times New Roman", FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Body Text"]], "Section", FontFamily->"Times New Roman", FontSize->12], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{18, 10}, {Inherited, 6}}, TextJustification->1, LineSpacing->{1, 2}, CounterIncrements->"Text", FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["Text", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, LineSpacing->{1, 3}, FontFamily->"Times New Roman"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{55, 50}, {5, 5}}, PageBreakAbove->False, FontFamily->"Times New Roman", FontSize->12], Cell[StyleData["Caption", "Printout"], CellMargins->{{55, 55}, {5, 2}}, FontFamily->"Times New Roman"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Input/Output"]], "Section", FontSize->14, FontWeight->"Plain"], Cell[TextData[StyleBox[ "The cells in this section define styles used for input and output to the \ kernel. Be careful when modifying, renaming, or removing these styles, \ because the front end associates special meanings with these style names."]], "Text", FontSize->14], Cell[CellGroupData[{ Cell[StyleData["Input"], CellMargins->{{55, 10}, {5, 8}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Input", "Printout"], CellMargins->{{55, 55}, {0, 10}}, ShowCellLabel->False, FontSize->14, FontWeight->"Plain"] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Output"], CellMargins->{{55, 10}, {8, 5}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelPositioning->Left, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Output", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Output", "Printout"], CellMargins->{{55, 55}, {10, 10}}, ShowCellLabel->False, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellDingbat->"\[LongDash]", CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Message", StyleMenuListing->None, FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Message", "Printout"], CellMargins->{{55, 55}, {0, 3}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{26, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, TextAlignment->Left, AutoItalicWords->{}, FormatType->InputForm, CounterIncrements->"Print", StyleMenuListing->None, FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Print", "Printout"], CellMargins->{{54, 72}, {2, 10}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, CounterIncrements->"Graphics", StyleMenuListing->None, FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["Graphics", "Printout"], CellMargins->{{55, 55}, {0, 15}}, ImageSize->{0.0625, 0.0625}, ImageMargins->{{35, Inherited}, {Inherited, 0}}, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], CellMargins->{{9, Inherited}, {Inherited, Inherited}}, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->14, FontWeight->"Plain", FontSlant->"Plain", FontTracking->"Plain", FontVariations->{"Underline"->False, "Outline"->False, "Shadow"->False}], Cell[StyleData["CellLabel", "Printout"], CellMargins->{{0, Inherited}, {Inherited, Inherited}}, FontSize->14] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Unique Styles"]], "Section"], Cell[CellGroupData[{ Cell[StyleData["Author"], CellMargins->{{45, Inherited}, {2, 20}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->14, FontWeight->"Bold"], Cell[StyleData["Author", "Printout"], CellMargins->{{36, Inherited}, {2, 30}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Address"], CellMargins->{{45, Inherited}, {2, 2}}, CellGroupingRules->{"TitleGrouping", 30}, PageBreakBelow->False, LineSpacing->{1, 1}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontSize->12, FontSlant->"Italic"], Cell[StyleData["Address", "Printout"], CellMargins->{{36, Inherited}, {2, 2}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Abstract"], CellMargins->{{45, 75}, {Inherited, 30}}, LineSpacing->{1, 0}], Cell[StyleData["Abstract", "Printout"], CellMargins->{{36, 67}, {Inherited, 50}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Reference"], CellMargins->{{18, 40}, {2, 2}}, TextJustification->1, LineSpacing->{1, 0}], Cell[StyleData["Reference", "Printout"], CellMargins->{{18, 40}, {Inherited, 0}}, FontSize->8] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Styles for Automatic Numbering"]], "Section"], Cell[TextData[StyleBox[ "The following styles are useful for numbered equations, figures, etc. \ They automatically give the cell a FrameLabel containing a reference to a \ particular counter, and also increment that counter."]], "Text"], Cell[CellGroupData[{ Cell[StyleData["NumberedEquation"], CellMargins->{{55, 10}, {0, 10}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{55, 55}, {0, 10}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedFigure"], CellMargins->{{55, 145}, {2, 10}}, CellHorizontalScrolling->True, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"]}], FontWeight -> "Bold"], None}}, CounterIncrements->"NumberedFigure", FormatTypeAutoConvert->False], Cell[StyleData["NumberedFigure", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedTable"], CellMargins->{{55, 145}, {2, 10}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"]}], FontWeight -> "Bold"], None}}, TextAlignment->Center, CounterIncrements->"NumberedTable", FormatTypeAutoConvert->False], Cell[StyleData["NumberedTable", "Printout"], CellMargins->{{18, Inherited}, {Inherited, Inherited}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Formulas and Programming"]], "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{55, 10}, {2, 10}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, ScriptLevel->0, SingleLetterItalics->True, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChemicalFormula"], CellMargins->{{55, 10}, {2, 10}}, DefaultFormatType->DefaultInputFormatType, AutoSpacing->False, ScriptLevel->1, ScriptBaselineShifts->{0.6, Automatic}, SingleLetterItalics->False, ZeroWidthTimes->True], Cell[StyleData["ChemicalFormula", "Printout"], FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{18, 10}, {Inherited, 6}}, FontFamily->"Courier"], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 30}, {Inherited, 4}}, FontSize->9.5] }, Closed]] }, Closed]] }, Open ]] }] ] (*********************************************************************** Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. ***********************************************************************) (*CellTagsOutline CellTagsIndex->{ "preamble"->{ Cell[2384, 77, 173, 5, 41, "Subsection", CellTags->"preamble"]}, "A moving clock"->{ Cell[7265, 264, 172, 5, 41, "Subsection", CellTags->"A moving clock"]}, "A moving rocket"->{ Cell[8673, 318, 175, 5, 41, "Subsection", CellTags->"A moving rocket"]}, "A fast spaceship"->{ Cell[11008, 403, 177, 5, 41, "Subsection", CellTags->"A fast spaceship"]} } *) (*CellTagsIndex CellTagsIndex->{ {"preamble", 30631, 1110}, {"A moving clock", 30728, 1113}, {"A moving rocket", 30833, 1116}, {"A fast spaceship", 30940, 1119} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 200, 8, 91, "Subtitle"], Cell[1934, 61, 192, 5, 48, "Subsubtitle"], Cell[2129, 68, 230, 5, 95, "Text"], Cell[CellGroupData[{ Cell[2384, 77, 173, 5, 41, "Subsection", CellTags->"preamble"], Cell[2560, 84, 252, 6, 41, "Text"], Cell[2815, 92, 695, 24, 42, "Input", InitializationCell->True], Cell[3513, 118, 161, 5, 27, "Input", InitializationCell->True], Cell[3677, 125, 187, 7, 24, "Text"], Cell[3867, 134, 389, 11, 77, "Input", InitializationCell->True], Cell[4259, 147, 704, 22, 75, "Text"], Cell[4966, 171, 423, 10, 77, "Input", InitializationCell->True], Cell[5392, 183, 174, 5, 41, "Text"], Cell[5569, 190, 78, 2, 24, "Text"], Cell[CellGroupData[{ Cell[5672, 196, 140, 4, 27, "Input"], Cell[5815, 202, 124, 3, 52, "Output"] }, Open ]], Cell[5954, 208, 78, 2, 24, "Text"], Cell[CellGroupData[{ Cell[6057, 214, 140, 4, 27, "Input"], Cell[6200, 220, 137, 3, 52, "Output"] }, Open ]], Cell[6352, 226, 77, 2, 24, "Text"], Cell[CellGroupData[{ Cell[6454, 232, 150, 4, 27, "Input"], Cell[6607, 238, 107, 2, 52, "Output"] }, Open ]], Cell[6729, 243, 147, 5, 24, "Text"], Cell[6879, 250, 349, 9, 58, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[7265, 264, 172, 5, 41, "Subsection", CellTags->"A moving clock"], Cell[7440, 271, 308, 9, 41, "Text"], Cell[7751, 282, 291, 5, 58, "Text"], Cell[CellGroupData[{ Cell[8067, 291, 232, 6, 52, "Input"], Cell[8302, 299, 94, 2, 39, "Output"] }, Open ]], Cell[8411, 304, 225, 9, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8673, 318, 175, 5, 41, "Subsection", CellTags->"A moving rocket"], Cell[8851, 325, 298, 8, 41, "Text"], Cell[9152, 335, 421, 9, 58, "Text"], Cell[9576, 346, 183, 4, 45, "Input"], Cell[9762, 352, 306, 10, 42, "Text"], Cell[10071, 364, 155, 4, 45, "Input"], Cell[10229, 370, 227, 6, 41, "Text"], Cell[CellGroupData[{ Cell[10481, 380, 186, 4, 27, "Input"], Cell[10670, 386, 102, 2, 37, "Output"] }, Open ]], Cell[10787, 391, 184, 7, 24, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[11008, 403, 177, 5, 41, "Subsection", CellTags->"A fast spaceship"], Cell[11188, 410, 377, 9, 58, "Text"], Cell[11568, 421, 474, 12, 76, "Text"], Cell[12045, 435, 193, 4, 45, "Input"], Cell[12241, 441, 305, 10, 42, "Text"], Cell[12549, 453, 156, 4, 45, "Input"], Cell[12708, 459, 231, 6, 41, "Text"], Cell[CellGroupData[{ Cell[12964, 469, 183, 4, 28, "Input"], Cell[13150, 475, 142, 3, 55, "Output"] }, Open ]], Cell[13307, 481, 220, 9, 25, "Text"], Cell[CellGroupData[{ Cell[13552, 494, 108, 2, 28, "Input"], Cell[13663, 498, 123, 3, 51, "Output"] }, Open ]], Cell[13801, 504, 281, 10, 58, "Text"], Cell[CellGroupData[{ Cell[14107, 518, 74, 2, 41, "Input"], Cell[14184, 522, 60, 2, 37, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)