MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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.
***********************************************************************)



  • Prev by Date: why the overflow problems when using assigned values a,b,c vs. actual numbers?
  • Next by Date: Re: How to Plot this equation ?
  • Previous by thread: why the overflow problems when using assigned values a,b,c vs. actual numbers?
  • Next by thread: Help Browser Scroll Panes