Permutations
- To: mathgroup at smc.vnet.net
- Subject: [mg47075] Permutations
- From: esi1 at lineone.net
- Date: Tue, 23 Mar 2004 06:29:33 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Hi Im a newbie to Mathematica and require some help on "decoding the permutation and finding the cyphertext" in the folowing notebook. thanks (*********************************************************************** 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 at 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[ 5509, 164]*) (*NotebookOutlinePosition[ 26193, 919]*) (* CellTagsIndexPosition[ 26149, 915]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["", "Title"], Cell["", "Subtitle", CellFrame->True, Background->GrayLevel[1]], Cell[CellGroupData[{ Cell["Specification", "Section 1"], Cell[CellGroupData[{ Cell["General points", "Subsection"], Cell[TextData[{ "1. \tYou must 'solve' this problem using Mathematica.\n6.\t", StyleBox["Save", FontWeight->"Bold"], " your notebook on a ", StyleBox["disc", FontWeight->"Bold"], " and ", StyleBox["hand it", FontWeight->"Bold"], " ", StyleBox["in", FontWeight->"Bold"], " with your ", StyleBox["folder", FontWeight->"Bold"], ". Y." }], "Commentary"] }, Open ]], Cell[CellGroupData[{ Cell["What you must do", "Subsection"], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{ "\<\"Block Permutation Code: Question 1 , Version \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"\\n\\nThe cyphertext message \[CenterEllipsis]\\n\\n\"\>", "\[InvisibleSpace]", "\<\"td Te ocrytsio hmdeg .eYaeossln ueile w pxdloea toemi t hnof \ ooyuuw hd netecd geporn mdii nuftortahf orteam to gfns meeoctd niheeumntprag \ ehtnnw iodomyn esoueoytut rraeoo ktb.no\"\>", "\[InvisibleSpace]", "\<\"\\n\\nwas produced using a block permutation code\\nwith the \ Encoding permutation:\\n\\n\"\>", "\[InvisibleSpace]", TagBox[ RowBox[{"(", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10"}, {"4", "9", "10", "6", "1", "\<\"\[Diamond]\"\>", "3", "2" , "\<\"\[Diamond]\"\>", "\<\"\[Diamond]\"\>"} }], ")"}], (MatrixForm[ #]&)], "\[InvisibleSpace]", "\<\"\\n\\n\[CenterEllipsis] but unfortunately the entries marked \ \[Diamond] were lost.\\n\\nFind the Decoding permutation for this message and \ hence decode the cyphertext.\"\>"}], SequenceForm[ "Block Permutation Code: Question 1 , Version ", 1, "\n\nThe cyphertext message \[CenterEllipsis]\n\n", "td Te ocrytsio hmdeg .eYaeossln ueile w pxdloea toemi t hn of \ ooyuuw hd netecd geporn mdii nuftortahf orteam to gfns meeoctd niheeumntprag \ ehtnnw iodomyn esoueoytut rraeoo ktb.no", "\n\nwas produced using a block permutation code\nwith the Encoding \ permutation:\n\n", MatrixForm[ {{1, 2, 3, 4, 5, 6, 7, 8, 9, 10}, {4, 9, 10, 6, 1, "\[Diamond]", 3, 2, "\[Diamond]", "\[Diamond]"}}], "\n\n\[CenterEllipsis] but unfortunately the entries marked \ \[Diamond] were lost.\n\nFind the Decoding permutation for this message and \ hence decode the cyphertext."], Editable->False], TextForm]], "Text", FontSize->13] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Your Solution", "Section"], Cell[CellGroupData[{ Cell["This is the cypher text string - do not retype it", "Subsection"], Cell[BoxData[ \(cyphertext == "\<td Te ocrytsio hmdeg .eYaeossln ueile w pxdloea toemi t hn of \ ooyuuw hd netecd geporn mdii nuftortahf orteam to gfns meeoctd niheeumntprag \ ehtnnw iodomyn esoueoytut rraeoo ktb.no\>"\)], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["", "Subsection", CellDingbat->"\[FivePointedStar]", TextAlignment->Right, FontColor->RGBColor[0.8, 0, 0.8]], Cell["", "Commentary", TextAlignment->Right] }, Open ]] }, Open ]] }, Open ]] }, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 1024}, {0, 712}}, WindowSize->{996, 646}, WindowMargins->{{2, Automatic}, {Automatic, 2}}, PrintingCopies->1, PrintingPageRange->{2, 2}, StyleDefinitions -> Notebook[{ Cell[CellGroupData[{ Cell["Style Definitions", "Subtitle"], Cell["\<\ Modify the definitions below to change the default appearance of all cells in \ a given style. Make modifications to any definition using commands in the Format menu.\ \>", "Text"], Cell[CellGroupData[{ Cell["Style Environment Names", "Section"], Cell[StyleData[All, "Working"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.4, 0, 0.239994]}, ScriptMinSize->9, Background->RGBColor[1, 0.960006, 0.900008]], Cell[StyleData[All, "Presentation"], PageWidth->WindowWidth, CellBracketOptions->{"Color"->RGBColor[0.744411, 0.47155, 0.371542]}, ScriptMinSize->9], Cell[StyleData[All, "Printout"], PageWidth->PaperWidth, ShowCellLabel->False, ImageSize->{200, 200}, PrivateFontOptions->{"FontType"->"Outline"}] }, Closed]], Cell[CellGroupData[{ Cell["Notebook Options", "Section"], Cell["\<\ 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"]}}, CellFrameLabelMargins->6, StyleMenuListing->None] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headings", "Section"], Cell[CellGroupData[{ Cell[StyleData["Title"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 10}, {0, 20}}, CellGroupingRules->{"TitleGrouping", 0}, PageBreakBelow->False, CellFrameMargins->6, CellFrameColor->GrayLevel[0], LineSpacing->{0.95, 0}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->36, FontWeight->"Bold", FontColor->RGBColor[0.4, 0, 0.239994]], Cell[StyleData["Title", "Presentation"], CellMargins->{{20, 10}, {2, 20}}, CellFrameMargins->5, FontColor->RGBColor[0.744411, 0.47155, 0.371542]], Cell[StyleData["Title", "Printout"], CellMargins->{{18, 30}, {0, 0}}, CellFrameMargins->4, FontSize->24] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subtitle"], CellMargins->{{20, 30}, {2, 10}}, CellGroupingRules->{"TitleGrouping", 10}, PageBreakBelow->False, CellFrameMargins->{{0, 4}, {8, 4}}, LineSpacing->{1, 0}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->24], Cell[StyleData["Subtitle", "Presentation"], CellMargins->{{20, 10}, {2, 10}}], Cell[StyleData["Subtitle", "Printout"], CellMargins->{{18, 30}, {0, 10}}, FontSize->18] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section 1"], CellFrame->{{0, 0}, {0, 3}}, CellMargins->{{18, 10}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->{{0, 4}, {8, 4}}, CellFrameColor->RGBColor[0.4, 0, 0.239994], CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section 1", "Presentation"], CellMargins->{{20, 10}, {6, 30}}, CellFrameMargins->5], Cell[StyleData["Section 1", "Printout"], CellMargins->{{18, 30}, {4, 30}}, CellFrameMargins->4, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Section"], CellFrame->{{0, 0}, {0, 0.25}}, CellMargins->{{18, 10}, {10, 30}}, CellGroupingRules->{"SectionGrouping", 40}, PageBreakBelow->False, CellFrameMargins->4, CellFrameColor->RGBColor[0.4, 0, 0.239994], CounterIncrements->"Section", CounterAssignments->{{"Subsection", 0}, {"Subsubsection", 0}}, FontFamily->"Helvetica", FontSize->18, FontWeight->"Bold"], Cell[StyleData["Section", "Presentation"], CellMargins->{{20, 10}, {0, 30}}], Cell[StyleData["Section", "Printout"], CellMargins->{{18, 30}, {0, 30}}, CellFrameMargins->5, FontSize->14] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsection"], CellDingbat->"\[FilledSquare]", CellMargins->{{38, 30}, {2, 20}}, CellGroupingRules->{"SectionGrouping", 50}, PageBreakBelow->False, CounterIncrements->"Subsection", CounterAssignments->{{"Subsubsection", 0}}, FontFamily->"Times", FontSize->14, FontWeight->"Bold"], Cell[StyleData["Subsection", "Presentation"], CellMargins->{{35, 30}, {0, 20}}], Cell[StyleData["Subsection", "Printout"], CellMargins->{{18, 30}, {0, 10}}, FontSize->12] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Subsubsection"], CellDingbat->"\[FilledSmallSquare]", CellMargins->{{55, 30}, {4, 10}}, CellGroupingRules->{"SectionGrouping", 60}, PageBreakBelow->False, CounterIncrements->"Subsubsection", FontFamily->"Times", FontSize->12, FontWeight->"Bold"], Cell[StyleData["Subsubsection", "Presentation"], CellMargins->{{31, 30}, {0, 12}}], Cell[StyleData["Subsubsection", "Printout"], CellMargins->{{18, 30}, {0, 12}}, FontSize->10] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Body Text", "Section"], Cell[CellGroupData[{ Cell[StyleData["Text"], CellMargins->{{55, 10}, {6, 6}}, TextJustification->1, LineSpacing->{1, 2}, FontFamily->"Arial", FontColor->RGBColor[1, 0, 0]], Cell[RawData["\<\ Cell[StyleData[\"Text\", \"Presentation\"], CellMargins->{{20, 10}, {6, 6}}, TextAlignment->Left, TextJustification->0, LineSpacing->{1.3, 0}, FontSize->14]\ \>"], CellMargins->{{20, 10}, {6, 6}}, TextAlignment->Left, TextJustification->0, LineSpacing->{1.3, 0}, FontSize->14], Cell[RawData["\<\ Cell[StyleData[\"Text\", \"Printout\"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10]\ \>"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Commentary"], CellMargins->{{55, 10}, {2, 6}}, TextJustification->1, LineSpacing->{1, 2}, FontFamily->"Helvetica", FontSize->13, FontColor->RGBColor[0, 0, 0.4]], Cell[StyleData["Commentary", "Presentation"], CellMargins->{{60, 30}, {2, 6}}, TextJustification->1, LineSpacing->{1.3, 0}, FontSize->15], Cell[StyleData["Commentary", "Printout"], CellMargins->{{18, 30}, {3, 0}}, LineSpacing->{1, 3}, FontFamily->"Times", FontSize->14] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Styles for Input/Output", "Section", Background->GrayLevel[1]], Cell["\<\ 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", Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[StyleData["Input"], CellFrame->{{1, 1}, {0, 1}}, CellMargins->{{55, 10}, {0, 0}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelPositioning->Automatic, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, FontSize->12, FontWeight->"Bold", Background->GrayLevel[1]], Cell[StyleData["Input", "Presentation"], CellMargins->{{60, 10}, {0, 10}}], Cell[StyleData["Input", "Printout"], CellMargins->{{55, 10}, {0, 10}}, FontSize->10] }, Closed]], Cell[StyleData["InlineInput"], Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, DefaultFormatType->DefaultInputFormatType, AutoItalicWords->{}, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, CounterIncrements->"Input", FontWeight->"Bold", Background->GrayLevel[1]], Cell[CellGroupData[{ Cell[StyleData["Output"], CellFrame->{{1, 1}, {1, 0}}, CellMargins->{{55, 10}, {15, 0}}, CellEditDuplicate->True, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, FontSize->12, Background->GrayLevel[1]], Cell[StyleData["Output", "Presentation"], CellMargins->{{60, Inherited}, {10, 0}}], Cell[StyleData["Output", "Printout"], CellMargins->{{55, Inherited}, {10, 0}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["InputOnly"], CellFrame->1, CellMargins->{{55, 10}, {15, 0}}, Evaluatable->True, CellGroupingRules->"InputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, CellLabelPositioning->Automatic, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultInputFormatType, FormatType->InputForm, ShowStringCharacters->True, NumberMarks->True, FontSize->12, FontWeight->"Bold", Background->GrayLevel[1]], Cell[StyleData["InputOnly", "Presentation"], CellMargins->{{60, Inherited}, {10, 10}}], Cell[StyleData["InputOnly", "Printout"], CellMargins->{{55, Inherited}, {10, 10}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Message"], CellFrame->{{1, 1}, {0, 0}}, CellDingbat->"\[LongDash]", CellMargins->{{55, 10}, {0, 0}}, CellGroupingRules->"OutputGrouping", PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontSlant->"Oblique", FontColor->GrayLevel[0], Background->GrayLevel[1]], Cell[StyleData["Message", "Presentation"], CellMargins->{{60, Inherited}, {Inherited, Inherited}}, LineSpacing->{1, 0}], Cell[StyleData["Message", "Printout"], CellMargins->{{55, Inherited}, {0, 0}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Print"], CellMargins->{{55, 26}, {1, 6}}, CellGroupingRules->"OutputGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GroupPageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, CellLabelMargins->{{23, Inherited}, {Inherited, Inherited}}, DefaultFormatType->DefaultOutputFormatType, TextAlignment->Left, FormatType->InputForm, StyleMenuListing->None, Background->GrayLevel[1]], Cell[StyleData["Print", "Presentation"], CellMargins->{{60, Inherited}, {10, 2}}], Cell[StyleData["Print", "Printout"], CellMargins->{{54, Inherited}, {2, 6}}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Graphics"], CellFrame->{{1, 1}, {0, 0}}, CellMargins->{{55, 10}, {0, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, GeneratedCell->True, CellAutoOverwrite->True, ShowCellLabel->False, DefaultFormatType->DefaultOutputFormatType, FormatType->InputForm, ImageMargins->{{35, Inherited}, {Inherited, 0}}, StyleMenuListing->None, Background->GrayLevel[1]], Cell[StyleData["Graphics", "Presentation"], CellMargins->{{60, Inherited}, {0, 0}}, ImageMargins->{{10, 10}, {10, 10}}], Cell[StyleData["Graphics", "Printout"], CellMargins->{{55, Inherited}, {0, 0}}, ImageSize->{0.0625, 0.0625}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["CellLabel"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->10, FontSlant->"Oblique", FontColor->RGBColor[0.6, 0, 0.6], Background->GrayLevel[1]], Cell[StyleData["CellLabel", "Presentation"], CellMargins->{{18, Inherited}, {Inherited, Inherited}}], Cell[StyleData["CellLabel", "Printout"], CellMargins->{{0, Inherited}, {Inherited, Inherited}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Unique Styles", "Section"], Cell[CellGroupData[{ Cell[StyleData["Author"], CellMargins->{{20, 30}, {45, 5}}, CellGroupingRules->{"TitleGrouping", 20}, PageBreakBelow->False, CellFrameMargins->{{0, 4}, {8, 4}}, LineSpacing->{1, 0}, CounterAssignments->{{"Section", 0}, {"Equation", 0}, {"Figure", 0}}, FontFamily->"Helvetica", FontSize->14, FontSlant->"Italic"], Cell[StyleData["Author", "Presentation"], CellMargins->{{20, 30}, {45, 10}}], Cell[StyleData["Author", "Printout"], CellMargins->{{18, 30}, {45, 5}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Abstract"], CellFrame->False, CellMargins->{{18, 140}, {4, 30}}, LineSpacing->{0.9, 0}, FontFamily->"Times", FontSize->12], Cell[StyleData["Abstract", "Presentation"], CellFrame->True, CellMargins->{{20, 10}, {Inherited, 30}}], Cell[StyleData["Abstract", "Printout"], LineSpacing->{1, 2}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Caption"], CellMargins->{{55, 10}, {5, 3}}, PageBreakAbove->False, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["Caption", "Presentation"], CellMargins->{{60, 65}, {6, 4}}, FontSize->10], Cell[StyleData["Caption", "Printout"], CellMargins->{{55, 55}, {5, 4}}, LineSpacing->{1, 2}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Reference"], CellMargins->{{24, 40}, {6, 6}}, TextJustification->1, LineSpacing->{1, 0}, FontFamily->"Times"], Cell[StyleData["Reference", "Presentation"], CellMargins->{{20, 40}, {Inherited, 6}}, TextJustification->0, LineSpacing->{1, 4}, FontSize->12], Cell[StyleData["Reference", "Printout"], CellMargins->{{18, 4}, {4, 4}}, FontSize->9] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["PictureGroup"], CellFrame->{{1, 1}, {0, 0}}, CellMargins->{{55, Inherited}, {0, 0}}, CellGroupingRules->"GraphicsGrouping", CellHorizontalScrolling->True, PageBreakWithin->False, ShowCellLabel->False, ImageMargins->{{35, Inherited}, {Inherited, 0}}, StyleMenuListing->None, Background->GrayLevel[0.850004]], Cell[StyleData["PictureGroup", "Presentation"], CellMargins->{{60, Inherited}, {0, 0}}, ImageMargins->{{10, 10}, {10, 10}}], Cell[StyleData["PictureGroup", "Printout"], CellMargins->{{55, Inherited}, {0, 0}}, ImageSize->{0.0625, 0.0625}] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Formulas and Programming", "Section"], Cell[CellGroupData[{ Cell[StyleData["DisplayFormula"], CellMargins->{{55, Inherited}, {Inherited, Inherited}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, ScriptLevel->0, SingleLetterItalics->True, StyleMenuListing->None, UnderoverscriptBoxOptions->{LimitsPositioning->True}], Cell[StyleData["DisplayFormula", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}, LineSpacing->{1, 5}], Cell[StyleData["DisplayFormula", "Printout"], CellMargins->{{18, 4}, {4, 4}}] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["ChemicalFormula"], CellMargins->{{55, 10}, {Inherited, 0}}, CellHorizontalScrolling->True, DefaultFormatType->DefaultInputFormatType, TextJustification->1, AutoSpacing->False, ScriptLevel->1, ScriptBaselineShifts->{0.6, Automatic}, SingleLetterItalics->False, ZeroWidthTimes->True], Cell[StyleData["ChemicalFormula", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}], Cell[StyleData["ChemicalFormula", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->10] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["Program"], CellMargins->{{55, 10}, {Inherited, 0}}, CellHorizontalScrolling->True, FontFamily->"Courier"], Cell[StyleData["Program", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}], Cell[StyleData["Program", "Printout"], CellMargins->{{18, 4}, {4, 4}}, LineSpacing->{1, 3}, FontSize->9.5] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Automatic Numbering", "Section"], Cell["\<\ 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, 85}, {Inherited, Inherited}}, CellFrameLabels->{{None, Cell[ TextData[ {"(", CounterBox[ "NumberedEquation"], ")"}]]}, {None, None}}, DefaultFormatType->DefaultInputFormatType, CounterIncrements->"NumberedEquation", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedEquation", "Presentation"], CellMargins->{{60, 10}, {Inherited, 6}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedEquation", "Printout"], CellMargins->{{18, 4}, {4, 4}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedFigure"], CellMargins->{{55, 95}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Figure ", CounterBox[ "NumberedFigure"]}], FontWeight -> "Bold"], None} }, CounterIncrements->"NumberedFigure", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedFigure", "Presentation"], CellMargins->{{60, 80}, {Inherited, 6}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedFigure", "Printout"], CellMargins->{{18, 80}, {4, 4}}, FontSize->8] }, Closed]], Cell[CellGroupData[{ Cell[StyleData["NumberedTable"], CellMargins->{{55, 95}, {Inherited, Inherited}}, CellFrameLabels->{{None, None}, {Cell[ TextData[ {"Table ", CounterBox[ "NumberedTable"]}], FontWeight -> "Bold"], None}} , TextAlignment->Center, CounterIncrements->"NumberedTable", FormatTypeAutoConvert->False, FontFamily->"Times"], Cell[StyleData["NumberedTable", "Presentation"], CellMargins->{{60, 80}, {Inherited, 6}}, LineSpacing->{1, 0}], Cell[StyleData["NumberedTable", "Printout"], CellMargins->{{18, 80}, {4, 4}}, FontSize->8] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Styles for Headers and Footers", "Section"], Cell[StyleData["Header"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9], Cell[StyleData["PageNumber"], StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9, FontWeight->"Bold"], Cell[StyleData["Footer"], TextAlignment->Center, StyleMenuListing->None, FontFamily->"Helvetica", FontSize->9] }, 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->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1731, 51, 17, 0, 67, "Title"], Cell[1751, 53, 67, 2, 51, "Subtitle"], Cell[CellGroupData[{ Cell[1843, 59, 34, 0, 70, "Section 1"], Cell[CellGroupData[{ Cell[1902, 63, 36, 0, 41, "Subsection"], Cell[1941, 65, 776, 22, 116, "Commentary"] }, Open ]], Cell[CellGroupData[{ Cell[2754, 92, 38, 0, 41, "Subsection"], Cell[2795, 94, 2046, 38, 299, "Text"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4890, 138, 32, 0, 67, "Section"], Cell[CellGroupData[{ Cell[4947, 142, 71, 0, 41, "Subsection"], Cell[5021, 144, 243, 4, 55, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[5301, 153, 119, 3, 41, "Subsection"], Cell[5423, 158, 46, 1, 26, "Commentary"] }, Open ]] }, Open ]] }, Open ]] } ] *) (*********************************************************************** End of Mathematica Notebook file. ***********************************************************************)