(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 4.2'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing 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[     50538,       2573]*)
(*NotebookOutlinePosition[     51204,       2596]*)
(*  CellTagsIndexPosition[     51160,       2592]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["\<\
Formulation of finite element matrices for a 2d elastic \
isoparametric 4-node quadrilateral element - Eigenvalue analysis of stiffness \
matrix (energy modes)\
\>", "Title",
  FontSize->36],

Cell[BoxData[
    \(Clear["\<Global`*\>"]; Off[General::spell, General::spell1];\)], "Input",\

  FontSize->36],

Cell[CellGroupData[{

Cell["Shape functions and derivatives", "Subtitle",
  FontSize->36],

Cell[BoxData[{
    \(\(\[Phi]\_1\  = \ \(1\/4\) \((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\);\)\), \
"\[IndentingNewLine]", 
    \(\(\[Phi]\_2\  = \ \(1\/4\) \((1 - \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\);\)\), \
"\[IndentingNewLine]", 
    \(\(\[Phi]\_3\  = \ \(1\/4\) \((1 - \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\);\)\), \
"\[IndentingNewLine]", 
    \(\(\[Phi]\_4\  = \ \(1\/4\) \((1 + \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\);\)\), \
"\[IndentingNewLine]", 
    \(\(d\[Phi]1\[Xi]1\  = \ 
        D[\[Phi]\_1, \[Xi]\_1];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]1\[Xi]2\  = \ 
        D[\[Phi]\_1, \[Xi]\_2];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]2\[Xi]1\  = \ 
        D[\[Phi]\_2, \[Xi]\_1];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]2\[Xi]2\  = \ 
        D[\[Phi]\_2, \[Xi]\_2];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]3\[Xi]1\  = \ 
        D[\[Phi]\_3, \[Xi]\_1];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]3\[Xi]2\  = \ 
        D[\[Phi]\_3, \[Xi]\_2];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]4\[Xi]1\  = \ 
        D[\[Phi]\_4, \[Xi]\_1];\)\), "\[IndentingNewLine]", 
    \(\(d\[Phi]4\[Xi]2\  = \ D[\[Phi]\_4, \[Xi]\_2];\)\)}], "Input",
  FontSize->36]
}, Open  ]],

Cell[CellGroupData[{

Cell["Element displacement interpolation matrix", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    RowBox[{
      RowBox[{"H", " ", "=", " ", 
        RowBox[{"(", GridBox[{
              {\(\[Phi]\_1\), "0", \(\[Phi]\_2\), "0", \(\[Phi]\_3\), 
                "0", \(\[Phi]\_4\), "0"},
              {"0", \(\[Phi]\_1\), "0", \(\[Phi]\_2\), "0", \(\[Phi]\_3\), 
                "0", \(\[Phi]\_4\)}
              }], ")"}]}], ";"}], "\[IndentingNewLine]", \(MatrixForm[
      Transpose[H]]\)}], "Input",
  FontSize->36],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(1\/4\ \((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\), "0"},
            {"0", \(1\/4\ \((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\)},
            {\(1\/4\ \((1 - \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\), "0"},
            {"0", \(1\/4\ \((1 - \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\)},
            {\(1\/4\ \((1 - \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\), "0"},
            {"0", \(1\/4\ \((1 - \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\)},
            {\(1\/4\ \((1 + \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\), "0"},
            {"0", \(1\/4\ \((1 + \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\)}
            }], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Element nodal displacement vector and dispacement \
interpolation\
\>", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    \(Un\  = \ Table[U\_\(a, i\), {a, 4}, {i, 2}] // Flatten\), "\n", 
    \(ue\  = \ H . Un // Simplify\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({U\_\(1, 1\), U\_\(1, 2\), U\_\(2, 1\), U\_\(2, 2\), U\_\(3, 1\), 
      U\_\(3, 2\), U\_\(4, 1\), U\_\(4, 2\)}\)], "Output"],

Cell[BoxData[
    \({1\/4\ \((\((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ U\_\(1, 1\) - \((\(-1\
\) + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ U\_\(2, 1\) + \((\(-1\) + \[Xi]\_2)\)\ \
\((\((\(-1\) + \[Xi]\_1)\)\ U\_\(3, 1\) - \((1 + \[Xi]\_1)\)\ U\_\(4, 1\))\))\
\), 1\/4\ \((\((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ U\_\(1, 2\) - \((\(-1\) \
+ \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ U\_\(2, 2\) + \((\(-1\) + \[Xi]\_2)\)\ \((\
\((\(-1\) + \[Xi]\_1)\)\ U\_\(3, 2\) - \((1 + \[Xi]\_1)\)\ U\_\(4, 2\))\))\)}\
\)], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Nodal coordinates and element coordinates interpolation (mapping)\
\
\>", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    \(Xn\  = \ 
      Table[X\_\(a, i\), {a, 4}, {i, 2}] // 
        Flatten\), "\[IndentingNewLine]", 
    \(xe\  = \ H . Xn\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({X\_\(1, 1\), X\_\(1, 2\), X\_\(2, 1\), X\_\(2, 2\), X\_\(3, 1\), 
      X\_\(3, 2\), X\_\(4, 1\), X\_\(4, 2\)}\)], "Output"],

Cell[BoxData[
    \({1\/4\ \((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ X\_\(1, 1\) + 
        1\/4\ \((1 - \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ X\_\(2, 1\) + 
        1\/4\ \((1 - \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\ X\_\(3, 1\) + 
        1\/4\ \((1 + \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\ X\_\(4, 1\), 
      1\/4\ \((1 + \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ X\_\(1, 2\) + 
        1\/4\ \((1 - \[Xi]\_1)\)\ \((1 + \[Xi]\_2)\)\ X\_\(2, 2\) + 
        1\/4\ \((1 - \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\ X\_\(3, 2\) + 
        1\/4\ \((1 + \[Xi]\_1)\)\ \((1 - \[Xi]\_2)\)\ X\_\(4, 2\)}\)], \
"Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Jacobian", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    RowBox[{
      RowBox[{"J", " ", "=", " ", 
        RowBox[{"(", GridBox[{
              {\(\[PartialD]\_\(\[Xi]\_1\)xe[\([1]\)]\), \(\[PartialD]\_\(\
\[Xi]\_1\)xe[\([2]\)]\)},
              {\(\[PartialD]\_\(\[Xi]\_2\)xe[\([1]\)]\), \(\[PartialD]\_\(\
\[Xi]\_2\)xe[\([2]\)]\)}
              }], ")"}]}], ";"}], "\[IndentingNewLine]", \(MatrixForm[
      Simplify[Expand[J]]]\)}], "Input",
  FontSize->36],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(1\/4\ \((\((1 + \[Xi]\_2)\)\ X\_\(1, 1\) - \((1 + \[Xi]\_2)\)\ \
X\_\(2, 1\) + \((\(-1\) + \[Xi]\_2)\)\ \((X\_\(3, 1\) - 
                          X\_\(4, 1\))\))\)\), \(1\/4\ \((\((1 + \[Xi]\_2)\)\ \
X\_\(1, 2\) - \((1 + \[Xi]\_2)\)\ X\_\(2, 2\) + \((\(-1\) + \[Xi]\_2)\)\ \((X\
\_\(3, 2\) - X\_\(4, 2\))\))\)\)},
            {\(1\/4\ \((\((1 + \[Xi]\_1)\)\ X\_\(1, 1\) + 
                    X\_\(2, 1\) - \[Xi]\_1\ X\_\(2, 1\) - 
                    X\_\(3, 1\) + \[Xi]\_1\ X\_\(3, 1\) - 
                    X\_\(4, 1\) - \[Xi]\_1\ X\_\(4, 1\))\)\), \(1\/4\ \((\((1 \
+ \[Xi]\_1)\)\ X\_\(1, 2\) + X\_\(2, 2\) - \[Xi]\_1\ X\_\(2, 2\) - 
                    X\_\(3, 2\) + \[Xi]\_1\ X\_\(3, 2\) - 
                    X\_\(4, 2\) - \[Xi]\_1\ X\_\(4, 2\))\)\)}
            }], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{\(Jinv\ \  = \ 
        Inverse[J] // Simplify;\), "\[IndentingNewLine]", \(detJ\  = \ 
      Det[J] // Simplify\), "\[IndentingNewLine]", 
    RowBox[{
      RowBox[{"A", " ", "=", " ", 
        RowBox[{\(1\/detJ\), 
          RowBox[{"(", GridBox[{
                {\(\(J[\([2]\)]\)[\([2]\)]\), \(-\(J[\([1]\)]\)[\([2]\)]\), 
                  "0", "0"},
                {"0", 
                  "0", \(-\(J[\([2]\)]\)[\([1]\)]\), \
\(\(J[\([1]\)]\)[\([1]\)]\)},
                {\(-\(J[\([2]\)]\)[\([1]\)]\), \(\(J[\([1]\)]\)[\([1]\)]\), \
\(\(J[\([2]\)]\)[\([2]\)]\), \(-\(J[\([1]\)]\)[\([2]\)]\)}
                }], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
    RowBox[{"G", " ", "=", " ", 
      RowBox[{"(", GridBox[{
            {"d\[Phi]1\[Xi]1", "0", "d\[Phi]2\[Xi]1", "0", "d\[Phi]3\[Xi]1", 
              "0", "d\[Phi]4\[Xi]1", "0"},
            {"d\[Phi]1\[Xi]2", "0", "d\[Phi]2\[Xi]2", "0", "d\[Phi]3\[Xi]2", 
              "0", "d\[Phi]4\[Xi]2", "0"},
            {"0", "d\[Phi]1\[Xi]1", "0", "d\[Phi]2\[Xi]1", "0", 
              "d\[Phi]3\[Xi]1", "0", "d\[Phi]4\[Xi]1"},
            {"0", "d\[Phi]1\[Xi]2", "0", "d\[Phi]2\[Xi]2", "0", 
              "d\[Phi]3\[Xi]2", "0", "d\[Phi]4\[Xi]2"}
            }], ")"}]}]}], "Input",
  FontSize->36],

Cell[BoxData[
    \(1\/8\ \((\(-X\_\(2, 2\)\)\ X\_\(3, 1\) + \[Xi]\_1\ X\_\(2, 2\)\ X\_\(3, \
1\) + X\_\(2, 1\)\ X\_\(3, 2\) - \[Xi]\_1\ X\_\(2, 1\)\ X\_\(3, 2\) - \
\[Xi]\_1\ X\_\(2, 2\)\ X\_\(4, 1\) - \[Xi]\_2\ X\_\(2, 2\)\ X\_\(4, 1\) - 
          X\_\(3, 2\)\ X\_\(4, 1\) + \[Xi]\_2\ X\_\(3, 2\)\ X\_\(4, 1\) + 
          X\_\(1, 2\)\ \((\(-\((1 + \[Xi]\_2)\)\)\ X\_\(2, 1\) + \[Xi]\_2\ \
X\_\(3, 1\) + X\_\(4, 1\) + \[Xi]\_1\ \((\(-X\_\(3, 1\)\) + 
                      X\_\(4, 1\))\))\) + \[Xi]\_1\ X\_\(2, 1\)\ X\_\(4, 2\) \
+ \[Xi]\_2\ X\_\(2, 1\)\ X\_\(4, 2\) + 
          X\_\(3, 1\)\ X\_\(4, 2\) - \[Xi]\_2\ X\_\(3, 1\)\ X\_\(4, 2\) + 
          X\_\(1, 1\)\ \((\((1 + \[Xi]\_2)\)\ X\_\(2, 2\) + \[Xi]\_1\ X\_\(3, \
2\) - \[Xi]\_2\ X\_\(3, 2\) - 
                X\_\(4, 2\) - \[Xi]\_1\ X\_\(4, 2\))\))\)\)], "Output"],

Cell[BoxData[
    \({{1\/4\ \((1 + \[Xi]\_2)\), 0, 1\/4\ \((\(-1\) - \[Xi]\_2)\), 0, 
        1\/4\ \((\(-1\) + \[Xi]\_2)\), 0, 1\/4\ \((1 - \[Xi]\_2)\), 
        0}, {1\/4\ \((1 + \[Xi]\_1)\), 0, 1\/4\ \((1 - \[Xi]\_1)\), 0, 
        1\/4\ \((\(-1\) + \[Xi]\_1)\), 0, 1\/4\ \((\(-1\) - \[Xi]\_1)\), 
        0}, {0, 1\/4\ \((1 + \[Xi]\_2)\), 0, 1\/4\ \((\(-1\) - \[Xi]\_2)\), 
        0, 1\/4\ \((\(-1\) + \[Xi]\_2)\), 0, 1\/4\ \((1 - \[Xi]\_2)\)}, {0, 
        1\/4\ \((1 + \[Xi]\_1)\), 0, 1\/4\ \((1 - \[Xi]\_1)\), 0, 
        1\/4\ \((\(-1\) + \[Xi]\_1)\), 0, 
        1\/4\ \((\(-1\) - \[Xi]\_1)\)}}\)], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Element strain-operator matrix ", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(B\  = \ A . G // Simplify;\)\), "\[IndentingNewLine]", 
    \(Dimensions[B]\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({3, 8}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(values\  = \ {X\_\(1, 1\) \[Rule] 1, \ X\_\(1, 2\) \[Rule] 1, \ 
        X\_\(2, 1\) \[Rule] \(-2\), \ X\_\(2, 2\) \[Rule] 1, \ 
        X\_\(3, 1\) \[Rule] \(-1\), \ X\_\(3, 2\) \[Rule] \(-1\), \ 
        X\_\(4, 1\) \[Rule] 1, \ 
        X\_\(4, 2\) \[Rule] \(-1\)}\), "\[IndentingNewLine]", 
    \(\(J\  /. \ values\  // \ Simplify\) // 
      MatrixForm\), "\[IndentingNewLine]", 
    \(\(B\  /. \ values // Simplify\) // MatrixForm\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({X\_\(1, 1\) \[Rule] 1, X\_\(1, 2\) \[Rule] 1, 
      X\_\(2, 1\) \[Rule] \(-2\), X\_\(2, 2\) \[Rule] 1, 
      X\_\(3, 1\) \[Rule] \(-1\), X\_\(3, 2\) \[Rule] \(-1\), 
      X\_\(4, 1\) \[Rule] 1, X\_\(4, 2\) \[Rule] \(-1\)}\)], "Output"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(1\/4\ \((5 + \[Xi]\_2)\)\), "0"},
            {\(1\/4\ \((\(-1\) + \[Xi]\_1)\)\), "1"}
            }], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"],

Cell[BoxData[
    TagBox[
      RowBox[{"(", "\[NoBreak]", GridBox[{
            {\(\(1 + \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\), 
              "0", \(-\(\(1 + \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\)\), 
              "0", \(\(\(-1\) + \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\), 
              "0", \(\(1 - \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\), "0"},
            {"0", \(\(3 + 2\ \[Xi]\_1 + \[Xi]\_2\)\/\(10 + 2\ \[Xi]\_2\)\), 
              "0", \(\(1 - \[Xi]\_1\)\/\(5 + \[Xi]\_2\)\), 
              "0", \(\(3\ \((\(-1\) + \[Xi]\_1)\)\)\/\(2\ \((5 + \
\[Xi]\_2)\)\)\), 
              "0", \(-\(\(2 + 
                      3\ \[Xi]\_1 + \[Xi]\_2\)\/\(2\ \((5 + \
\[Xi]\_2)\)\)\)\)},
            {\(\(3 + 2\ \[Xi]\_1 + \[Xi]\_2\)\/\(10 + 
                    2\ \[Xi]\_2\)\), \(\(1 + \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\), \
\(\(1 - \[Xi]\_1\)\/\(5 + \[Xi]\_2\)\), \(-\(\(1 + \[Xi]\_2\)\/\(5 + \[Xi]\_2\
\)\)\), \(\(3\ \((\(-1\) + \[Xi]\_1)\)\)\/\(2\ \((5 + \[Xi]\_2)\)\)\), \
\(\(\(-1\) + \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\), \(-\(\(2 + 
                      3\ \[Xi]\_1 + \[Xi]\_2\)\/\(2\ \((5 + \
\[Xi]\_2)\)\)\)\), \(\(1 - \[Xi]\_2\)\/\(5 + \[Xi]\_2\)\)}
            }], "\[NoBreak]", ")"}],
      Function[ BoxForm`e$, 
        MatrixForm[ BoxForm`e$]]]], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Stiffness Matrix", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell["Elastic moduli (Plane strain)", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"CC", " ", "=", " ", 
      RowBox[{\(EE\/\((1 - \[Nu]\^2)\)\), 
        RowBox[{"(", GridBox[{
              {"1", "\[Nu]", "0"},
              {"\[Nu]", "1", "0"},
              {"0", "0", \(\((1 - \[Nu])\)\/2\)}
              }], ")"}]}]}]], "Input",
  FontSize->36],

Cell[BoxData[
    \({{EE\/\(1 - \[Nu]\^2\), \(EE\ \[Nu]\)\/\(1 - \[Nu]\^2\), 
        0}, {\(EE\ \[Nu]\)\/\(1 - \[Nu]\^2\), EE\/\(1 - \[Nu]\^2\), 0}, {0, 
        0, \(EE\ \((1 - \[Nu])\)\)\/\(2\ \((1 - \[Nu]\^2)\)\)}}\)], "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(values\  = \ {X\_\(1, 1\) \[Rule] 1, \ X\_\(1, 2\) \[Rule] 1, \ 
        X\_\(2, 1\) \[Rule] \(-1\), \ X\_\(2, 2\) \[Rule] 1, \ 
        X\_\(3, 1\) \[Rule] \(-1\), \ X\_\(3, 2\) \[Rule] \(-1\), \ 
        X\_\(4, 1\) \[Rule] 1, \ 
        X\_\(4, 2\) \[Rule] \(-1\)}\), "\[IndentingNewLine]", 
    \(\(integrand\  = \ 
        detJ\ Transpose[B] . CC . B\ \  /. \ values // 
          Simplify;\)\), "\[IndentingNewLine]", 
    \(K\  = \ 
      Integrate[integrand\ , {\[Xi]\_1, \(-1\), 1}, {\[Xi]\_2, \(-1\), 1}] // 
        Simplify\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({X\_\(1, 1\) \[Rule] 1, X\_\(1, 2\) \[Rule] 1, 
      X\_\(2, 1\) \[Rule] \(-1\), X\_\(2, 2\) \[Rule] 1, 
      X\_\(3, 1\) \[Rule] \(-1\), X\_\(3, 2\) \[Rule] \(-1\), 
      X\_\(4, 1\) \[Rule] 1, X\_\(4, 2\) \[Rule] \(-1\)}\)], "Output"],

Cell[BoxData[
    \({{\(EE\ \((\(-3\) + \[Nu])\)\)\/\(6\ \((\(-1\) + \[Nu]\^2)\)\), 
        EE\/\(8 - 8\ \[Nu]\), \(EE\ \((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \
\[Nu]\^2)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \[Nu]\^2\), \(-\(\(EE\ \
\((\(-3\) + \[Nu])\)\)\/\(12\ \((\(-1\) + \[Nu]\^2)\)\)\)\), 
        EE\/\(\(-8\) + 8\ \[Nu]\), \(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), \(EE - \
3\ EE\ \[Nu]\)\/\(8 - 8\ \[Nu]\^2\)}, {EE\/\(8 - 8\ \[Nu]\), \(EE\ \((\(-3\) \
+ \[Nu])\)\)\/\(6\ \((\(-1\) + \[Nu]\^2)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(8 - 8\ \
\[Nu]\^2\), \(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), 
        EE\/\(\(-8\) + 8\ \[Nu]\), \(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\(12\ \
\((\(-1\) + \[Nu]\^2)\)\)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \
\[Nu]\^2\), \(EE\ \((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \[Nu]\^2)\)\)}, {\(EE\ \
\((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \[Nu]\^2)\)\), \(EE - 3\ EE\ \
\[Nu]\)\/\(8 - 8\ \[Nu]\^2\), \(EE\ \((\(-3\) + \[Nu])\)\)\/\(6\ \((\(-1\) + \
\[Nu]\^2)\)\), 
        EE\/\(\(-8\) + 8\ \[Nu]\), \(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), \(EE - \
3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \[Nu]\^2\), \(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\
\(12\ \((\(-1\) + \[Nu]\^2)\)\)\)\), 
        EE\/\(8 - 8\ \[Nu]\)}, {\(EE - 3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \[Nu]\^2\
\), \(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), 
        EE\/\(\(-8\) + 8\ \[Nu]\), \(EE\ \((\(-3\) + \[Nu])\)\)\/\(6\ \((\(-1\
\) + \[Nu]\^2)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(8 - 8\ \[Nu]\^2\), \(EE\ \((3 + \
\[Nu])\)\)\/\(12\ \((\(-1\) + \[Nu]\^2)\)\), 
        EE\/\(8 - 8\ \[Nu]\), \(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\(12\ \
\((\(-1\) + \[Nu]\^2)\)\)\)\)}, {\(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\(12\ \((\
\(-1\) + \[Nu]\^2)\)\)\)\), 
        EE\/\(\(-8\) + 8\ \[Nu]\), \(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), \(EE - \
3\ EE\ \[Nu]\)\/\(8 - 8\ \[Nu]\^2\), \(EE\ \((\(-3\) + \[Nu])\)\)\/\(6\ \
\((\(-1\) + \[Nu]\^2)\)\), 
        EE\/\(8 - 8\ \[Nu]\), \(EE\ \((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \
\[Nu]\^2)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \[Nu]\^2\)}, \
{EE\/\(\(-8\) + 8\ \[Nu]\), \(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\(12\ \
\((\(-1\) + \[Nu]\^2)\)\)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \
\[Nu]\^2\), \(EE\ \((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \[Nu]\^2)\)\), 
        EE\/\(8 - 8\ \[Nu]\), \(EE\ \((\(-3\) + \[Nu])\)\)\/\(6\ \((\(-1\) + \
\[Nu]\^2)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(8 - 8\ \[Nu]\^2\), \(EE\ \[Nu]\)\/\(6 \
- 6\ \[Nu]\^2\)}, {\(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), \(EE - 3\ EE\ \
\[Nu]\)\/\(\(-8\) + 8\ \[Nu]\^2\), \(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\(12\ \
\((\(-1\) + \[Nu]\^2)\)\)\)\), 
        EE\/\(8 - 8\ \[Nu]\), \(EE\ \((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \
\[Nu]\^2)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(8 - 8\ \[Nu]\^2\), \(EE\ \((\(-3\) + \
\[Nu])\)\)\/\(6\ \((\(-1\) + \[Nu]\^2)\)\), 
        EE\/\(\(-8\) + 8\ \[Nu]\)}, {\(EE - 3\ EE\ \[Nu]\)\/\(8 - 8\ \[Nu]\^2\
\), \(EE\ \((3 + \[Nu])\)\)\/\(12\ \((\(-1\) + \[Nu]\^2)\)\), 
        EE\/\(8 - 8\ \[Nu]\), \(-\(\(EE\ \((\(-3\) + \[Nu])\)\)\/\(12\ \
\((\(-1\) + \[Nu]\^2)\)\)\)\), \(EE - 3\ EE\ \[Nu]\)\/\(\(-8\) + 8\ \
\[Nu]\^2\), \(EE\ \[Nu]\)\/\(6 - 6\ \[Nu]\^2\), 
        EE\/\(\(-8\) + 8\ \[Nu]\), \(EE\ \((\(-3\) + \[Nu])\)\)\/\(6\ \((\(-1\
\) + \[Nu]\^2)\)\)}}\)], "Output"]
}, Open  ]],

Cell[BoxData[
    \( (*Det[K] // Simplify*) \)], "Input",
  FontSize->36]
}, Open  ]],

Cell[CellGroupData[{

Cell["Eigenvalue analysis of stiffness matrix", "Subtitle",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    \(k\  = 
      K\/\(EE\/\((1 - \[Nu]\^2)\)\)\  /. \ \[Nu] \[Rule] 0.3 // 
        Simplify\), "\[IndentingNewLine]", 
    \(evalues\  = \ Eigenvalues[k]\), "\[IndentingNewLine]", 
    \(evectors\  = \ Eigenvectors[k]\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({{0.45`, 
        0.1625`, \(-0.27499999999999997`\), \(-0.01250000000000001`\), \
\(-0.225`\), \(-0.1625`\), 0.05`, 0.01250000000000001`}, {0.1625`, 0.45`, 
        0.01250000000000001`, 
        0.05`, \(-0.1625`\), \(-0.225`\), \(-0.01250000000000001`\), \
\(-0.27499999999999997`\)}, {\(-0.27499999999999997`\), 0.01250000000000001`, 
        0.45`, \(-0.1625`\), 0.05`, \(-0.01250000000000001`\), \(-0.225`\), 
        0.1625`}, {\(-0.01250000000000001`\), 0.05`, \(-0.1625`\), 0.45`, 
        0.01250000000000001`, \(-0.27499999999999997`\), 
        0.1625`, \(-0.225`\)}, {\(-0.225`\), \(-0.1625`\), 0.05`, 
        0.01250000000000001`, 0.45`, 
        0.1625`, \(-0.27499999999999997`\), \(-0.01250000000000001`\)}, \
{\(-0.1625`\), \(-0.225`\), \(-0.01250000000000001`\), \
\(-0.27499999999999997`\), 0.1625`, 0.45`, 0.01250000000000001`, 
        0.05`}, {0.05`, \(-0.01250000000000001`\), \(-0.225`\), 
        0.1625`, \(-0.27499999999999997`\), 0.01250000000000001`, 
        0.45`, \(-0.1625`\)}, {0.01250000000000001`, \
\(-0.27499999999999997`\), 0.1625`, \(-0.225`\), \(-0.01250000000000001`\), 
        0.05`, \(-0.1625`\), 0.45`}}\)], "Output"],

Cell[BoxData[
    \({1.3`, 0.7000000000000001`, 0.7`, 0.4500000000000003`, 
      0.45000000000000007`, 7.464363002749909`*^-17, 
      4.6844608842237644`*^-17, 3.920210384082503`*^-18}\)], "Output"],

Cell[BoxData[
    \({{\(-0.3535533905932738`\), \(-0.3535533905932739`\), 
        0.3535533905932738`, \(-0.3535533905932736`\), 0.35355339059327384`, 
        0.3535533905932738`, \(-0.3535533905932737`\), 
        0.3535533905932737`}, {\(-0.29736836320560345`\), \
\(-0.4019602673951992`\), \(-0.4019602673951995`\), 0.29736836320560356`, 
        0.2973683632056038`, 0.4019602673951996`, 
        0.4019602673951993`, \(-0.2973683632056038`\)}, {0.4080547731664783`, \
\(-0.2889486149751434`\), \(-0.28894861497514346`\), \
\(-0.4080547731664787`\), \(-0.4080547731664786`\), 0.2889486149751439`, 
        0.2889486149751438`, 0.4080547731664782`}, {\(-0.1143855478953441`\), 
        0.48674012206996276`, 
        0.11438554789534397`, \(-0.4867401220699622`\), \
\(-0.11438554789534376`\), 0.48674012206996253`, 
        0.1143855478953438`, \(-0.4867401220699624`\)}, {0.5000000000000002`, 
        2.8823273181874436`*^-13, \(-0.4999999999999999`\), \
\(-2.884244932988619`*^-13\), 0.49999999999999994`, 
        2.881829059497778`*^-13, \(-0.5`\), \(-2.880379006883487`*^-13\)}, \
{\(-0.6098809526005506`\), 
        0.24609402810548536`, \(-0.6098809526005504`\), \
\(-0.20751073931860767`\), \(-0.15627618517645736`\), \(-0.20751073931860767`\
\), \(-0.15627618517645733`\), 
        0.24609402810548556`}, {0.15825727451004057`, \
\(-0.5951885706311164`\), 
        0.15825727451004049`, \(-0.10610301706223692`\), \
\(-0.33082827905883894`\), \(-0.10610301706223674`\), \
\(-0.3308282790588387`\), \(-0.5951885706311163`\)}, \
{\(-0.0019932555174057907`\), 
        0.22936270495805716`, \(-0.001993255517405777`\), 
        0.5727818512835907`, \(-0.34541240184293914`\), 
        0.5727818512835906`, \(-0.3454124018429393`\), 
        0.22936270495805722`}}\)], "Output"]
}, Open  ]],

Cell[BoxData[{
    \(U\_1[v_]\  := \ 
      Table[\(evectors[\([v]\)]\)[\([j]\)], \ {j, 1, 8, 
          2}]\), "\[IndentingNewLine]", 
    \(\ u1[v_]\  := \ 
      Flatten[{U\_1[v], \(U\_1[v]\)[\([1]\)]}]\), "\[IndentingNewLine]", 
    \(U\_2[v_]\  := \ 
      Table[\(evectors[\([v]\)]\)[\([j]\)], \ {j, 2, 8, 
          2}]\), "\[IndentingNewLine]", 
    \(u2[v_]\  := \ 
      Flatten[{U\_2[v], \(U\_2[v]\)[\([1]\)]}]\), "\[IndentingNewLine]", 
    \(Ut[v_]\  := \ {u1[v], \ u2[v]}\), "\[IndentingNewLine]", 
    \(U[v_]\  := \ Transpose[Ut[v]]\)}], "Input",
  FontSize->36],

Cell[CellGroupData[{

Cell[BoxData[{
    \(X\_1 = Table[Xn[\([j]\)] /. values, {j, 1, 8, 2}]; \ 
    x1\  = \ Flatten[{X\_1, X\_1[\([1]\)]}]\), "\[IndentingNewLine]", 
    \(X\_2 = Table[Xn[\([j]\)] /. values, {j, 2, 8, 2}]; \ 
    x2\  = \ Flatten[{X\_2, X\_2[\([1]\)]}]\), "\[IndentingNewLine]", 
    \(X\  = \ Transpose[{x1, x2}]\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({1, \(-1\), \(-1\), 1, 1}\)], "Output"],

Cell[BoxData[
    \({1, 1, \(-1\), \(-1\), 1}\)], "Output"],

Cell[BoxData[
    \({{1, 1}, {\(-1\), 1}, {\(-1\), \(-1\)}, {1, \(-1\)}, {1, 
        1}}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
    \(\(b\  = \ B /. \ values\  // Simplify;\)\), "\[IndentingNewLine]", 
    \(\(b . evectors[\([8]\)] // Simplify\) // Chop\)}], "Input",
  FontSize->36],

Cell[BoxData[
    \({0, 0, 0}\)], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(plots\  = \ 
        Table[Show[
            Graphics[{Thickness[0.01], RGBColor[1, 0, 0], Line[X], 
                RGBColor[0, 0, 1], Line[X + U[j]]}, \ 
              AspectRatio \[Rule] Automatic, Axes \[Rule] True]], {j, 
            8}];\)\)], "Input",
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.47619 0.5 0.47619 [
[.02381 .4875 -6 -9 ]
[.02381 .4875 6 0 ]
[.2619 .4875 -12 -9 ]
[.2619 .4875 12 0 ]
[.7381 .4875 -9 -9 ]
[.7381 .4875 9 0 ]
[.97619 .4875 -3 -9 ]
[.97619 .4875 3 0 ]
[.4875 .02381 -12 -4.5 ]
[.4875 .02381 0 4.5 ]
[.4875 .2619 -24 -4.5 ]
[.4875 .2619 0 4.5 ]
[.4875 .7381 -18 -4.5 ]
[.4875 .7381 0 4.5 ]
[.4875 .97619 -6 -4.5 ]
[.4875 .97619 0 4.5 ]
[ 0 0 0 0 ]
[ 1 1 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 .5 m
.02381 .50625 L
s
[(-1)] .02381 .4875 0 1 Mshowa
.2619 .5 m
.2619 .50625 L
s
[(-0.5)] .2619 .4875 0 1 Mshowa
.7381 .5 m
.7381 .50625 L
s
[(0.5)] .7381 .4875 0 1 Mshowa
.97619 .5 m
.97619 .50625 L
s
[(1)] .97619 .4875 0 1 Mshowa
.125 Mabswid
.07143 .5 m
.07143 .50375 L
s
.11905 .5 m
.11905 .50375 L
s
.16667 .5 m
.16667 .50375 L
s
.21429 .5 m
.21429 .50375 L
s
.30952 .5 m
.30952 .50375 L
s
.35714 .5 m
.35714 .50375 L
s
.40476 .5 m
.40476 .50375 L
s
.45238 .5 m
.45238 .50375 L
s
.54762 .5 m
.54762 .50375 L
s
.59524 .5 m
.59524 .50375 L
s
.64286 .5 m
.64286 .50375 L
s
.69048 .5 m
.69048 .50375 L
s
.78571 .5 m
.78571 .50375 L
s
.83333 .5 m
.83333 .50375 L
s
.88095 .5 m
.88095 .50375 L
s
.92857 .5 m
.92857 .50375 L
s
.25 Mabswid
0 .5 m
1 .5 L
s
.5 .02381 m
.50625 .02381 L
s
[(-1)] .4875 .02381 1 0 Mshowa
.5 .2619 m
.50625 .2619 L
s
[(-0.5)] .4875 .2619 1 0 Mshowa
.5 .7381 m
.50625 .7381 L
s
[(0.5)] .4875 .7381 1 0 Mshowa
.5 .97619 m
.50625 .97619 L
s
[(1)] .4875 .97619 1 0 Mshowa
.125 Mabswid
.5 .07143 m
.50375 .07143 L
s
.5 .11905 m
.50375 .11905 L
s
.5 .16667 m
.50375 .16667 L
s
.5 .21429 m
.50375 .21429 L
s
.5 .30952 m
.50375 .30952 L
s
.5 .35714 m
.50375 .35714 L
s
.5 .40476 m
.50375 .40476 L
s
.5 .45238 m
.50375 .45238 L
s
.5 .54762 m
.50375 .54762 L
s
.5 .59524 m
.50375 .59524 L
s
.5 .64286 m
.50375 .64286 L
s
.5 .69048 m
.50375 .69048 L
s
.5 .78571 m
.50375 .78571 L
s
.5 .83333 m
.50375 .83333 L
s
.5 .88095 m
.50375 .88095 L
s
.5 .92857 m
.50375 .92857 L
s
.25 Mabswid
.5 0 m
.5 1 L
s
0 0 m
1 0 L
1 1 L
0 1 L
closepath
clip
newpath
1 0 0 r
.01 w
.97619 .97619 m
.02381 .97619 L
.02381 .02381 L
.97619 .02381 L
.97619 .97619 L
s
0 0 1 r
.80783 .80783 m
.19217 .80783 L
.19217 .19217 L
.80783 .19217 L
.80783 .80783 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 288},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .9254 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.33966 0.462698 0.33966 [
[.16034 .4502 -6 -9 ]
[.16034 .4502 6 0 ]
[.33017 .4502 -12 -9 ]
[.33017 .4502 12 0 ]
[.66983 .4502 -9 -9 ]
[.66983 .4502 9 0 ]
[.83966 .4502 -3 -9 ]
[.83966 .4502 3 0 ]
[.4875 .12304 -12 -4.5 ]
[.4875 .12304 0 4.5 ]
[.4875 .29287 -24 -4.5 ]
[.4875 .29287 0 4.5 ]
[.4875 .63253 -18 -4.5 ]
[.4875 .63253 0 4.5 ]
[.4875 .80236 -6 -4.5 ]
[.4875 .80236 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .9254 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.16034 .4627 m
.16034 .46895 L
s
[(-1)] .16034 .4502 0 1 Mshowa
.33017 .4627 m
.33017 .46895 L
s
[(-0.5)] .33017 .4502 0 1 Mshowa
.66983 .4627 m
.66983 .46895 L
s
[(0.5)] .66983 .4502 0 1 Mshowa
.83966 .4627 m
.83966 .46895 L
s
[(1)] .83966 .4502 0 1 Mshowa
.125 Mabswid
.19431 .4627 m
.19431 .46645 L
s
.22827 .4627 m
.22827 .46645 L
s
.26224 .4627 m
.26224 .46645 L
s
.2962 .4627 m
.2962 .46645 L
s
.36414 .4627 m
.36414 .46645 L
s
.3981 .4627 m
.3981 .46645 L
s
.43207 .4627 m
.43207 .46645 L
s
.46603 .4627 m
.46603 .46645 L
s
.53397 .4627 m
.53397 .46645 L
s
.56793 .4627 m
.56793 .46645 L
s
.6019 .4627 m
.6019 .46645 L
s
.63586 .4627 m
.63586 .46645 L
s
.7038 .4627 m
.7038 .46645 L
s
.73776 .4627 m
.73776 .46645 L
s
.77173 .4627 m
.77173 .46645 L
s
.80569 .4627 m
.80569 .46645 L
s
.12637 .4627 m
.12637 .46645 L
s
.09241 .4627 m
.09241 .46645 L
s
.05844 .4627 m
.05844 .46645 L
s
.02448 .4627 m
.02448 .46645 L
s
.87363 .4627 m
.87363 .46645 L
s
.90759 .4627 m
.90759 .46645 L
s
.94156 .4627 m
.94156 .46645 L
s
.97552 .4627 m
.97552 .46645 L
s
.25 Mabswid
0 .4627 m
1 .4627 L
s
.5 .12304 m
.50625 .12304 L
s
[(-1)] .4875 .12304 1 0 Mshowa
.5 .29287 m
.50625 .29287 L
s
[(-0.5)] .4875 .29287 1 0 Mshowa
.5 .63253 m
.50625 .63253 L
s
[(0.5)] .4875 .63253 1 0 Mshowa
.5 .80236 m
.50625 .80236 L
s
[(1)] .4875 .80236 1 0 Mshowa
.125 Mabswid
.5 .157 m
.50375 .157 L
s
.5 .19097 m
.50375 .19097 L
s
.5 .22494 m
.50375 .22494 L
s
.5 .2589 m
.50375 .2589 L
s
.5 .32683 m
.50375 .32683 L
s
.5 .3608 m
.50375 .3608 L
s
.5 .39477 m
.50375 .39477 L
s
.5 .42873 m
.50375 .42873 L
s
.5 .49666 m
.50375 .49666 L
s
.5 .53063 m
.50375 .53063 L
s
.5 .5646 m
.50375 .5646 L
s
.5 .59856 m
.50375 .59856 L
s
.5 .66649 m
.50375 .66649 L
s
.5 .70046 m
.50375 .70046 L
s
.5 .73443 m
.50375 .73443 L
s
.5 .76839 m
.50375 .76839 L
s
.5 .08907 m
.50375 .08907 L
s
.5 .05511 m
.50375 .05511 L
s
.5 .02114 m
.50375 .02114 L
s
.5 .83632 m
.50375 .83632 L
s
.5 .87029 m
.50375 .87029 L
s
.5 .90426 m
.50375 .90426 L
s
.25 Mabswid
.5 0 m
.5 .9254 L
s
0 0 m
1 0 L
1 .9254 L
0 .9254 L
closepath
clip
newpath
1 0 0 r
.01 w
.83966 .80236 m
.16034 .80236 L
.16034 .12304 L
.83966 .12304 L
.83966 .80236 L
s
0 0 1 r
.73866 .66583 m
.02381 .90336 L
.26134 .25957 L
.97619 .02203 L
.73866 .66583 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 266.5},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .7102 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.33819 0.3551 0.33819 [
[.16181 .3426 -6 -9 ]
[.16181 .3426 6 0 ]
[.3309 .3426 -12 -9 ]
[.3309 .3426 12 0 ]
[.6691 .3426 -9 -9 ]
[.6691 .3426 9 0 ]
[.83819 .3426 -3 -9 ]
[.83819 .3426 3 0 ]
[.4875 .01691 -12 -4.5 ]
[.4875 .01691 0 4.5 ]
[.4875 .186 -24 -4.5 ]
[.4875 .186 0 4.5 ]
[.4875 .52419 -18 -4.5 ]
[.4875 .52419 0 4.5 ]
[.4875 .69329 -6 -4.5 ]
[.4875 .69329 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .7102 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.16181 .3551 m
.16181 .36135 L
s
[(-1)] .16181 .3426 0 1 Mshowa
.3309 .3551 m
.3309 .36135 L
s
[(-0.5)] .3309 .3426 0 1 Mshowa
.6691 .3551 m
.6691 .36135 L
s
[(0.5)] .6691 .3426 0 1 Mshowa
.83819 .3551 m
.83819 .36135 L
s
[(1)] .83819 .3426 0 1 Mshowa
.125 Mabswid
.02653 .3551 m
.02653 .35885 L
s
.06035 .3551 m
.06035 .35885 L
s
.09417 .3551 m
.09417 .35885 L
s
.12799 .3551 m
.12799 .35885 L
s
.19563 .3551 m
.19563 .35885 L
s
.22945 .3551 m
.22945 .35885 L
s
.26327 .3551 m
.26327 .35885 L
s
.29709 .3551 m
.29709 .35885 L
s
.36472 .3551 m
.36472 .35885 L
s
.39854 .3551 m
.39854 .35885 L
s
.43236 .3551 m
.43236 .35885 L
s
.46618 .3551 m
.46618 .35885 L
s
.53382 .3551 m
.53382 .35885 L
s
.56764 .3551 m
.56764 .35885 L
s
.60146 .3551 m
.60146 .35885 L
s
.63528 .3551 m
.63528 .35885 L
s
.70291 .3551 m
.70291 .35885 L
s
.73673 .3551 m
.73673 .35885 L
s
.77055 .3551 m
.77055 .35885 L
s
.80437 .3551 m
.80437 .35885 L
s
.87201 .3551 m
.87201 .35885 L
s
.90583 .3551 m
.90583 .35885 L
s
.93965 .3551 m
.93965 .35885 L
s
.97347 .3551 m
.97347 .35885 L
s
.25 Mabswid
0 .3551 m
1 .3551 L
s
.5 .01691 m
.50625 .01691 L
s
[(-1)] .4875 .01691 1 0 Mshowa
.5 .186 m
.50625 .186 L
s
[(-0.5)] .4875 .186 1 0 Mshowa
.5 .52419 m
.50625 .52419 L
s
[(0.5)] .4875 .52419 1 0 Mshowa
.5 .69329 m
.50625 .69329 L
s
[(1)] .4875 .69329 1 0 Mshowa
.125 Mabswid
.5 .05073 m
.50375 .05073 L
s
.5 .08455 m
.50375 .08455 L
s
.5 .11837 m
.50375 .11837 L
s
.5 .15219 m
.50375 .15219 L
s
.5 .21982 m
.50375 .21982 L
s
.5 .25364 m
.50375 .25364 L
s
.5 .28746 m
.50375 .28746 L
s
.5 .32128 m
.50375 .32128 L
s
.5 .38892 m
.50375 .38892 L
s
.5 .42274 m
.50375 .42274 L
s
.5 .45656 m
.50375 .45656 L
s
.5 .49038 m
.50375 .49038 L
s
.5 .55801 m
.50375 .55801 L
s
.5 .59183 m
.50375 .59183 L
s
.5 .62565 m
.50375 .62565 L
s
.5 .65947 m
.50375 .65947 L
s
.25 Mabswid
.5 0 m
.5 .7102 L
s
0 0 m
1 0 L
1 .7102 L
0 .7102 L
closepath
clip
newpath
1 0 0 r
.01 w
.83819 .69329 m
.16181 .69329 L
.16181 .01691 L
.83819 .01691 L
.83819 .69329 L
s
0 0 1 r
.97619 .59557 m
.06409 .55529 L
.02381 .11463 L
.93591 .15491 L
.97619 .59557 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 204.5},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1.33413 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.427312 0.667067 0.427312 [
[.07269 .65457 -6 -9 ]
[.07269 .65457 6 0 ]
[.28634 .65457 -12 -9 ]
[.28634 .65457 12 0 ]
[.71366 .65457 -9 -9 ]
[.71366 .65457 9 0 ]
[.92731 .65457 -3 -9 ]
[.92731 .65457 3 0 ]
[.4875 .0261 -24 -4.5 ]
[.4875 .0261 0 4.5 ]
[.4875 .23976 -12 -4.5 ]
[.4875 .23976 0 4.5 ]
[.4875 .45341 -24 -4.5 ]
[.4875 .45341 0 4.5 ]
[.4875 .88072 -18 -4.5 ]
[.4875 .88072 0 4.5 ]
[.4875 1.09438 -6 -4.5 ]
[.4875 1.09438 0 4.5 ]
[.4875 1.30804 -18 -4.5 ]
[.4875 1.30804 0 4.5 ]
[ 0 0 0 0 ]
[ 1 1.33413 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.07269 .66707 m
.07269 .67332 L
s
[(-1)] .07269 .65457 0 1 Mshowa
.28634 .66707 m
.28634 .67332 L
s
[(-0.5)] .28634 .65457 0 1 Mshowa
.71366 .66707 m
.71366 .67332 L
s
[(0.5)] .71366 .65457 0 1 Mshowa
.92731 .66707 m
.92731 .67332 L
s
[(1)] .92731 .65457 0 1 Mshowa
.125 Mabswid
.11542 .66707 m
.11542 .67082 L
s
.15815 .66707 m
.15815 .67082 L
s
.20088 .66707 m
.20088 .67082 L
s
.24361 .66707 m
.24361 .67082 L
s
.32908 .66707 m
.32908 .67082 L
s
.37181 .66707 m
.37181 .67082 L
s
.41454 .66707 m
.41454 .67082 L
s
.45727 .66707 m
.45727 .67082 L
s
.54273 .66707 m
.54273 .67082 L
s
.58546 .66707 m
.58546 .67082 L
s
.62819 .66707 m
.62819 .67082 L
s
.67092 .66707 m
.67092 .67082 L
s
.75639 .66707 m
.75639 .67082 L
s
.79912 .66707 m
.79912 .67082 L
s
.84185 .66707 m
.84185 .67082 L
s
.88458 .66707 m
.88458 .67082 L
s
.02996 .66707 m
.02996 .67082 L
s
.97004 .66707 m
.97004 .67082 L
s
.25 Mabswid
0 .66707 m
1 .66707 L
s
.5 .0261 m
.50625 .0261 L
s
[(-1.5)] .4875 .0261 1 0 Mshowa
.5 .23976 m
.50625 .23976 L
s
[(-1)] .4875 .23976 1 0 Mshowa
.5 .45341 m
.50625 .45341 L
s
[(-0.5)] .4875 .45341 1 0 Mshowa
.5 .88072 m
.50625 .88072 L
s
[(0.5)] .4875 .88072 1 0 Mshowa
.5 1.09438 m
.50625 1.09438 L
s
[(1)] .4875 1.09438 1 0 Mshowa
.5 1.30804 m
.50625 1.30804 L
s
[(1.5)] .4875 1.30804 1 0 Mshowa
.125 Mabswid
.5 .06883 m
.50375 .06883 L
s
.5 .11156 m
.50375 .11156 L
s
.5 .15429 m
.50375 .15429 L
s
.5 .19702 m
.50375 .19702 L
s
.5 .28249 m
.50375 .28249 L
s
.5 .32522 m
.50375 .32522 L
s
.5 .36795 m
.50375 .36795 L
s
.5 .41068 m
.50375 .41068 L
s
.5 .49614 m
.50375 .49614 L
s
.5 .53887 m
.50375 .53887 L
s
.5 .5816 m
.50375 .5816 L
s
.5 .62434 m
.50375 .62434 L
s
.5 .7098 m
.50375 .7098 L
s
.5 .75253 m
.50375 .75253 L
s
.5 .79526 m
.50375 .79526 L
s
.5 .83799 m
.50375 .83799 L
s
.5 .92345 m
.50375 .92345 L
s
.5 .96619 m
.50375 .96619 L
s
.5 1.00892 m
.50375 1.00892 L
s
.5 1.05165 m
.50375 1.05165 L
s
.5 1.13711 m
.50375 1.13711 L
s
.5 1.17984 m
.50375 1.17984 L
s
.5 1.22257 m
.50375 1.22257 L
s
.5 1.2653 m
.50375 1.2653 L
s
.25 Mabswid
.5 0 m
.5 1.33413 L
s
0 0 m
1 0 L
1 1.33413 L
0 1.33413 L
closepath
clip
newpath
1 0 0 r
.01 w
.92731 1.09438 m
.07269 1.09438 L
.07269 .23976 L
.92731 .23976 L
.92731 1.09438 L
s
0 0 1 r
.87843 1.30237 m
.12157 .88639 L
.02381 .44775 L
.97619 .03177 L
.87843 1.30237 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 384.188},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .66667 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.5 0.31746 0.333333 0.31746 [
[.02381 .32083 -12 -9 ]
[.02381 .32083 12 0 ]
[.18254 .32083 -6 -9 ]
[.18254 .32083 6 0 ]
[.34127 .32083 -12 -9 ]
[.34127 .32083 12 0 ]
[.65873 .32083 -9 -9 ]
[.65873 .32083 9 0 ]
[.81746 .32083 -3 -9 ]
[.81746 .32083 3 0 ]
[.97619 .32083 -9 -9 ]
[.97619 .32083 9 0 ]
[.4875 .01587 -12 -4.5 ]
[.4875 .01587 0 4.5 ]
[.4875 .1746 -24 -4.5 ]
[.4875 .1746 0 4.5 ]
[.4875 .49206 -18 -4.5 ]
[.4875 .49206 0 4.5 ]
[.4875 .65079 -6 -4.5 ]
[.4875 .65079 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .66667 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.02381 .33333 m
.02381 .33958 L
s
[(-1.5)] .02381 .32083 0 1 Mshowa
.18254 .33333 m
.18254 .33958 L
s
[(-1)] .18254 .32083 0 1 Mshowa
.34127 .33333 m
.34127 .33958 L
s
[(-0.5)] .34127 .32083 0 1 Mshowa
.65873 .33333 m
.65873 .33958 L
s
[(0.5)] .65873 .32083 0 1 Mshowa
.81746 .33333 m
.81746 .33958 L
s
[(1)] .81746 .32083 0 1 Mshowa
.97619 .33333 m
.97619 .33958 L
s
[(1.5)] .97619 .32083 0 1 Mshowa
.125 Mabswid
.05556 .33333 m
.05556 .33708 L
s
.0873 .33333 m
.0873 .33708 L
s
.11905 .33333 m
.11905 .33708 L
s
.15079 .33333 m
.15079 .33708 L
s
.21429 .33333 m
.21429 .33708 L
s
.24603 .33333 m
.24603 .33708 L
s
.27778 .33333 m
.27778 .33708 L
s
.30952 .33333 m
.30952 .33708 L
s
.37302 .33333 m
.37302 .33708 L
s
.40476 .33333 m
.40476 .33708 L
s
.43651 .33333 m
.43651 .33708 L
s
.46825 .33333 m
.46825 .33708 L
s
.53175 .33333 m
.53175 .33708 L
s
.56349 .33333 m
.56349 .33708 L
s
.59524 .33333 m
.59524 .33708 L
s
.62698 .33333 m
.62698 .33708 L
s
.69048 .33333 m
.69048 .33708 L
s
.72222 .33333 m
.72222 .33708 L
s
.75397 .33333 m
.75397 .33708 L
s
.78571 .33333 m
.78571 .33708 L
s
.84921 .33333 m
.84921 .33708 L
s
.88095 .33333 m
.88095 .33708 L
s
.9127 .33333 m
.9127 .33708 L
s
.94444 .33333 m
.94444 .33708 L
s
.25 Mabswid
0 .33333 m
1 .33333 L
s
.5 .01587 m
.50625 .01587 L
s
[(-1)] .4875 .01587 1 0 Mshowa
.5 .1746 m
.50625 .1746 L
s
[(-0.5)] .4875 .1746 1 0 Mshowa
.5 .49206 m
.50625 .49206 L
s
[(0.5)] .4875 .49206 1 0 Mshowa
.5 .65079 m
.50625 .65079 L
s
[(1)] .4875 .65079 1 0 Mshowa
.125 Mabswid
.5 .04762 m
.50375 .04762 L
s
.5 .07937 m
.50375 .07937 L
s
.5 .11111 m
.50375 .11111 L
s
.5 .14286 m
.50375 .14286 L
s
.5 .20635 m
.50375 .20635 L
s
.5 .2381 m
.50375 .2381 L
s
.5 .26984 m
.50375 .26984 L
s
.5 .30159 m
.50375 .30159 L
s
.5 .36508 m
.50375 .36508 L
s
.5 .39683 m
.50375 .39683 L
s
.5 .42857 m
.50375 .42857 L
s
.5 .46032 m
.50375 .46032 L
s
.5 .52381 m
.50375 .52381 L
s
.5 .55556 m
.50375 .55556 L
s
.5 .5873 m
.50375 .5873 L
s
.5 .61905 m
.50375 .61905 L
s
.25 Mabswid
.5 0 m
.5 .66667 L
s
0 0 m
1 0 L
1 .66667 L
0 .66667 L
closepath
clip
newpath
1 0 0 r
.01 w
.81746 .65079 m
.18254 .65079 L
.18254 .01587 L
.81746 .01587 L
.81746 .65079 L
s
0 0 1 r
.97619 .65079 m
.02381 .65079 L
.34127 .01587 L
.65873 .01587 L
.97619 .65079 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 192},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .94012 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.611277 0.364914 0.463021 0.364914 [
[.06391 .45052 -12 -9 ]
[.06391 .45052 12 0 ]
[.24636 .45052 -6 -9 ]
[.24636 .45052 6 0 ]
[.42882 .45052 -12 -9 ]
[.42882 .45052 12 0 ]
[.79373 .45052 -9 -9 ]
[.79373 .45052 9 0 ]
[.97619 .45052 -3 -9 ]
[.97619 .45052 3 0 ]
[.59878 .09811 -12 -4.5 ]
[.59878 .09811 0 4.5 ]
[.59878 .28056 -24 -4.5 ]
[.59878 .28056 0 4.5 ]
[.59878 .64548 -18 -4.5 ]
[.59878 .64548 0 4.5 ]
[.59878 .82793 -6 -4.5 ]
[.59878 .82793 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .94012 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.06391 .46302 m
.06391 .46927 L
s
[(-1.5)] .06391 .45052 0 1 Mshowa
.24636 .46302 m
.24636 .46927 L
s
[(-1)] .24636 .45052 0 1 Mshowa
.42882 .46302 m
.42882 .46927 L
s
[(-0.5)] .42882 .45052 0 1 Mshowa
.79373 .46302 m
.79373 .46927 L
s
[(0.5)] .79373 .45052 0 1 Mshowa
.97619 .46302 m
.97619 .46927 L
s
[(1)] .97619 .45052 0 1 Mshowa
.125 Mabswid
.1004 .46302 m
.1004 .46677 L
s
.13689 .46302 m
.13689 .46677 L
s
.17338 .46302 m
.17338 .46677 L
s
.20987 .46302 m
.20987 .46677 L
s
.28285 .46302 m
.28285 .46677 L
s
.31935 .46302 m
.31935 .46677 L
s
.35584 .46302 m
.35584 .46677 L
s
.39233 .46302 m
.39233 .46677 L
s
.46531 .46302 m
.46531 .46677 L
s
.5018 .46302 m
.5018 .46677 L
s
.53829 .46302 m
.53829 .46677 L
s
.57479 .46302 m
.57479 .46677 L
s
.64777 .46302 m
.64777 .46677 L
s
.68426 .46302 m
.68426 .46677 L
s
.72075 .46302 m
.72075 .46677 L
s
.75724 .46302 m
.75724 .46677 L
s
.83023 .46302 m
.83023 .46677 L
s
.86672 .46302 m
.86672 .46677 L
s
.90321 .46302 m
.90321 .46677 L
s
.9397 .46302 m
.9397 .46677 L
s
.02742 .46302 m
.02742 .46677 L
s
.25 Mabswid
0 .46302 m
1 .46302 L
s
.61128 .09811 m
.61753 .09811 L
s
[(-1)] .59878 .09811 1 0 Mshowa
.61128 .28056 m
.61753 .28056 L
s
[(-0.5)] .59878 .28056 1 0 Mshowa
.61128 .64548 m
.61753 .64548 L
s
[(0.5)] .59878 .64548 1 0 Mshowa
.61128 .82793 m
.61753 .82793 L
s
[(1)] .59878 .82793 1 0 Mshowa
.125 Mabswid
.61128 .1346 m
.61503 .1346 L
s
.61128 .17109 m
.61503 .17109 L
s
.61128 .20758 m
.61503 .20758 L
s
.61128 .24407 m
.61503 .24407 L
s
.61128 .31706 m
.61503 .31706 L
s
.61128 .35355 m
.61503 .35355 L
s
.61128 .39004 m
.61503 .39004 L
s
.61128 .42653 m
.61503 .42653 L
s
.61128 .49951 m
.61503 .49951 L
s
.61128 .536 m
.61503 .536 L
s
.61128 .57249 m
.61503 .57249 L
s
.61128 .60899 m
.61503 .60899 L
s
.61128 .68197 m
.61503 .68197 L
s
.61128 .71846 m
.61503 .71846 L
s
.61128 .75495 m
.61503 .75495 L
s
.61128 .79144 m
.61503 .79144 L
s
.61128 .06162 m
.61503 .06162 L
s
.61128 .02512 m
.61503 .02512 L
s
.61128 .86443 m
.61503 .86443 L
s
.61128 .90092 m
.61503 .90092 L
s
.61128 .93741 m
.61503 .93741 L
s
.25 Mabswid
.61128 0 m
.61128 .94012 L
s
0 0 m
1 0 L
1 .94012 L
0 .94012 L
closepath
clip
newpath
1 0 0 r
.01 w
.97619 .82793 m
.24636 .82793 L
.24636 .09811 L
.97619 .09811 L
.97619 .82793 L
s
0 0 1 r
.75364 .91774 m
.02381 .75221 L
.18934 .02238 L
.91916 .18791 L
.75364 .91774 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 270.75},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1.04263 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.533015 0.382623 0.63518 0.382623 [
[.15039 .62268 -6 -9 ]
[.15039 .62268 6 0 ]
[.3417 .62268 -12 -9 ]
[.3417 .62268 12 0 ]
[.72433 .62268 -9 -9 ]
[.72433 .62268 9 0 ]
[.91564 .62268 -3 -9 ]
[.91564 .62268 3 0 ]
[.52051 .06125 -24 -4.5 ]
[.52051 .06125 0 4.5 ]
[.52051 .25256 -12 -4.5 ]
[.52051 .25256 0 4.5 ]
[.52051 .44387 -24 -4.5 ]
[.52051 .44387 0 4.5 ]
[.52051 .82649 -18 -4.5 ]
[.52051 .82649 0 4.5 ]
[.52051 1.0178 -6 -4.5 ]
[.52051 1.0178 0 4.5 ]
[ 0 0 0 0 ]
[ 1 1.04263 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.15039 .63518 m
.15039 .64143 L
s
[(-1)] .15039 .62268 0 1 Mshowa
.3417 .63518 m
.3417 .64143 L
s
[(-0.5)] .3417 .62268 0 1 Mshowa
.72433 .63518 m
.72433 .64143 L
s
[(0.5)] .72433 .62268 0 1 Mshowa
.91564 .63518 m
.91564 .64143 L
s
[(1)] .91564 .62268 0 1 Mshowa
.125 Mabswid
.18865 .63518 m
.18865 .63893 L
s
.22692 .63518 m
.22692 .63893 L
s
.26518 .63518 m
.26518 .63893 L
s
.30344 .63518 m
.30344 .63893 L
s
.37997 .63518 m
.37997 .63893 L
s
.41823 .63518 m
.41823 .63893 L
s
.45649 .63518 m
.45649 .63893 L
s
.49475 .63518 m
.49475 .63893 L
s
.57128 .63518 m
.57128 .63893 L
s
.60954 .63518 m
.60954 .63893 L
s
.6478 .63518 m
.6478 .63893 L
s
.68606 .63518 m
.68606 .63893 L
s
.76259 .63518 m
.76259 .63893 L
s
.80085 .63518 m
.80085 .63893 L
s
.83911 .63518 m
.83911 .63893 L
s
.87738 .63518 m
.87738 .63893 L
s
.11213 .63518 m
.11213 .63893 L
s
.07387 .63518 m
.07387 .63893 L
s
.03561 .63518 m
.03561 .63893 L
s
.9539 .63518 m
.9539 .63893 L
s
.99216 .63518 m
.99216 .63893 L
s
.25 Mabswid
0 .63518 m
1 .63518 L
s
.53301 .06125 m
.53926 .06125 L
s
[(-1.5)] .52051 .06125 1 0 Mshowa
.53301 .25256 m
.53926 .25256 L
s
[(-1)] .52051 .25256 1 0 Mshowa
.53301 .44387 m
.53926 .44387 L
s
[(-0.5)] .52051 .44387 1 0 Mshowa
.53301 .82649 m
.53926 .82649 L
s
[(0.5)] .52051 .82649 1 0 Mshowa
.53301 1.0178 m
.53926 1.0178 L
s
[(1)] .52051 1.0178 1 0 Mshowa
.125 Mabswid
.53301 .09951 m
.53676 .09951 L
s
.53301 .13777 m
.53676 .13777 L
s
.53301 .17603 m
.53676 .17603 L
s
.53301 .21429 m
.53676 .21429 L
s
.53301 .29082 m
.53676 .29082 L
s
.53301 .32908 m
.53676 .32908 L
s
.53301 .36734 m
.53676 .36734 L
s
.53301 .40561 m
.53676 .40561 L
s
.53301 .48213 m
.53676 .48213 L
s
.53301 .52039 m
.53676 .52039 L
s
.53301 .55866 m
.53676 .55866 L
s
.53301 .59692 m
.53676 .59692 L
s
.53301 .67344 m
.53676 .67344 L
s
.53301 .7117 m
.53676 .7117 L
s
.53301 .74997 m
.53676 .74997 L
s
.53301 .78823 m
.53676 .78823 L
s
.53301 .86475 m
.53676 .86475 L
s
.53301 .90302 m
.53676 .90302 L
s
.53301 .94128 m
.53676 .94128 L
s
.53301 .97954 m
.53676 .97954 L
s
.53301 .02298 m
.53676 .02298 L
s
.25 Mabswid
.53301 0 m
.53301 1.04263 L
s
0 0 m
1 0 L
1 1.04263 L
0 1.04263 L
closepath
clip
newpath
1 0 0 r
.01 w
.91564 1.0178 m
.15039 1.0178 L
.15039 .25256 L
.91564 .25256 L
.91564 1.0178 L
s
0 0 1 r
.97619 .79007 m
.21094 .97721 L
.02381 .21196 L
.78906 .02482 L
.97619 .79007 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 300.25},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: 1.09694 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Scaling calculations
0.570129 0.406061 0.432179 0.406061 [
[.16407 .41968 -6 -9 ]
[.16407 .41968 6 0 ]
[.3671 .41968 -12 -9 ]
[.3671 .41968 12 0 ]
[.77316 .41968 -9 -9 ]
[.77316 .41968 9 0 ]
[.97619 .41968 -3 -9 ]
[.97619 .41968 3 0 ]
[.55763 .02612 -12 -4.5 ]
[.55763 .02612 0 4.5 ]
[.55763 .22915 -24 -4.5 ]
[.55763 .22915 0 4.5 ]
[.55763 .63521 -18 -4.5 ]
[.55763 .63521 0 4.5 ]
[.55763 .83824 -6 -4.5 ]
[.55763 .83824 0 4.5 ]
[.55763 1.04127 -18 -4.5 ]
[.55763 1.04127 0 4.5 ]
[ 0 0 0 0 ]
[ 1 1.09694 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 g
.25 Mabswid
[ ] 0 setdash
.16407 .43218 m
.16407 .43843 L
s
[(-1)] .16407 .41968 0 1 Mshowa
.3671 .43218 m
.3671 .43843 L
s
[(-0.5)] .3671 .41968 0 1 Mshowa
.77316 .43218 m
.77316 .43843 L
s
[(0.5)] .77316 .41968 0 1 Mshowa
.97619 .43218 m
.97619 .43843 L
s
[(1)] .97619 .41968 0 1 Mshowa
.125 Mabswid
.20467 .43218 m
.20467 .43593 L
s
.24528 .43218 m
.24528 .43593 L
s
.28589 .43218 m
.28589 .43593 L
s
.32649 .43218 m
.32649 .43593 L
s
.4077 .43218 m
.4077 .43593 L
s
.44831 .43218 m
.44831 .43593 L
s
.48892 .43218 m
.48892 .43593 L
s
.52952 .43218 m
.52952 .43593 L
s
.61074 .43218 m
.61074 .43593 L
s
.65134 .43218 m
.65134 .43593 L
s
.69195 .43218 m
.69195 .43593 L
s
.73255 .43218 m
.73255 .43593 L
s
.81377 .43218 m
.81377 .43593 L
s
.85437 .43218 m
.85437 .43593 L
s
.89498 .43218 m
.89498 .43593 L
s
.93558 .43218 m
.93558 .43593 L
s
.12346 .43218 m
.12346 .43593 L
s
.08286 .43218 m
.08286 .43593 L
s
.04225 .43218 m
.04225 .43593 L
s
.00164 .43218 m
.00164 .43593 L
s
.25 Mabswid
0 .43218 m
1 .43218 L
s
.57013 .02612 m
.57638 .02612 L
s
[(-1)] .55763 .02612 1 0 Mshowa
.57013 .22915 m
.57638 .22915 L
s
[(-0.5)] .55763 .22915 1 0 Mshowa
.57013 .63521 m
.57638 .63521 L
s
[(0.5)] .55763 .63521 1 0 Mshowa
.57013 .83824 m
.57638 .83824 L
s
[(1)] .55763 .83824 1 0 Mshowa
.57013 1.04127 m
.57638 1.04127 L
s
[(1.5)] .55763 1.04127 1 0 Mshowa
.125 Mabswid
.57013 .06672 m
.57388 .06672 L
s
.57013 .10733 m
.57388 .10733 L
s
.57013 .14794 m
.57388 .14794 L
s
.57013 .18854 m
.57388 .18854 L
s
.57013 .26975 m
.57388 .26975 L
s
.57013 .31036 m
.57388 .31036 L
s
.57013 .35097 m
.57388 .35097 L
s
.57013 .39157 m
.57388 .39157 L
s
.57013 .47278 m
.57388 .47278 L
s
.57013 .51339 m
.57388 .51339 L
s
.57013 .554 m
.57388 .554 L
s
.57013 .5946 m
.57388 .5946 L
s
.57013 .67582 m
.57388 .67582 L
s
.57013 .71642 m
.57388 .71642 L
s
.57013 .75703 m
.57388 .75703 L
s
.57013 .79763 m
.57388 .79763 L
s
.57013 .87885 m
.57388 .87885 L
s
.57013 .91945 m
.57388 .91945 L
s
.57013 .96006 m
.57388 .96006 L
s
.57013 1.00066 m
.57388 1.00066 L
s
.57013 1.08188 m
.57388 1.08188 L
s
.25 Mabswid
.57013 0 m
.57013 1.09694 L
s
0 0 m
1 0 L
1 1.09694 L
0 1.09694 L
closepath
clip
newpath
1 0 0 r
.01 w
.97619 .83824 m
.16407 .83824 L
.16407 .02612 L
.97619 .02612 L
.97619 .83824 L
s
0 0 1 r
.97538 .93138 m
.16326 1.07082 L
.02381 .2587 L
.83593 .11925 L
.97538 .93138 L
s
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{288, 315.875},
  ImageMargins->{{43, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCacheValid->False,
  FontSize->36]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.2 for X",
ScreenRectangle->{{0, 1280}, {0, 1024}},
WindowSize->{1173, 945},
WindowMargins->{{25, Automatic}, {Automatic, 14}},
StyleDefinitions -> "DemoText.nb"
]

(*******************************************************************
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[1754, 51, 200, 5, 202, "Title"],
Cell[1957, 58, 111, 3, 121, "Input"],

Cell[CellGroupData[{
Cell[2093, 65, 67, 1, 67, "Subtitle"],
Cell[2163, 68, 1152, 24, 821, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[3352, 97, 77, 1, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[3454, 102, 439, 10, 157, "Input"],
Cell[3896, 114, 731, 13, 281, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[4676, 133, 109, 4, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[4810, 141, 149, 3, 121, "Input"],
Cell[4962, 146, 145, 2, 52, "Output"],
Cell[5110, 150, 502, 7, 115, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[5661, 163, 111, 4, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[5797, 171, 170, 5, 121, "Input"],
Cell[5970, 178, 145, 2, 52, "Output"],
Cell[6118, 182, 575, 9, 115, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[6742, 197, 44, 1, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[6811, 202, 424, 10, 168, "Input"],
Cell[7238, 214, 957, 17, 101, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8232, 236, 1274, 26, 1005, "Input"],
Cell[9509, 264, 830, 12, 117, "Output"],
Cell[10342, 278, 618, 9, 205, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[11009, 293, 67, 1, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[11101, 298, 128, 3, 121, "Input"],
Cell[11232, 303, 40, 1, 52, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11309, 309, 487, 9, 229, "Input"],
Cell[11799, 320, 259, 4, 52, "Output"],
Cell[12061, 326, 282, 7, 101, "Output"],
Cell[12346, 335, 1228, 23, 139, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[13623, 364, 52, 1, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[13700, 369, 65, 1, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[13790, 374, 295, 8, 165, "Input"],
Cell[14088, 384, 232, 3, 73, "Output"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[14369, 393, 586, 12, 337, "Input"],
Cell[14958, 407, 259, 4, 52, "Output"],
Cell[15220, 413, 3202, 48, 409, "Output"]
}, Open  ]],
Cell[18437, 464, 73, 2, 67, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[18547, 471, 75, 1, 67, "Subtitle"],

Cell[CellGroupData[{
Cell[18647, 476, 265, 6, 237, "Input"],
Cell[18915, 484, 1185, 19, 213, "Output"],
Cell[20103, 505, 200, 3, 54, "Output"],
Cell[20306, 510, 1790, 31, 214, "Output"]
}, Open  ]],
Cell[22111, 544, 578, 13, 445, "Input"],

Cell[CellGroupData[{
Cell[22714, 561, 340, 6, 283, "Input"],
Cell[23057, 569, 59, 1, 52, "Output"],
Cell[23119, 572, 59, 1, 52, "Output"],
Cell[23181, 575, 103, 2, 52, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[23321, 582, 170, 3, 121, "Input"],
Cell[23494, 587, 43, 1, 52, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[23574, 593, 296, 7, 391, "Input"],
Cell[23873, 602, 2786, 213, 304, 2651, 208, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[26662, 817, 3325, 255, 283, 3188, 250, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[29990, 1074, 3141, 237, 221, 3004, 232, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[33134, 1313, 3490, 255, 401, 3351, 250, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[36627, 1570, 3420, 249, 208, 3285, 244, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[40050, 1821, 3488, 249, 287, 3350, 244, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[43541, 2072, 3496, 249, 317, 3358, 244, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False],
Cell[47040, 2323, 3470, 246, 332, 3331, 241, "GraphicsData", "PostScript", \
"Graphics",
  ImageCacheValid->False]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)