(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 7604, 221] NotebookOptionsPosition[ 6923, 192] NotebookOutlinePosition[ 7286, 208] CellTagsIndexPosition[ 7243, 205] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ \[Copyright]2006 (click to the right for licensing information and details)\ \>", "Subsubsection"], Cell[TextData[{ "\[Copyright]2006 California Institute of Technology.\nAll Rights Reserved.\n\ \n", StyleBox["This library is free software; you can redistribute it and/or \ modify it under the terms of the GNU Lesser Public License as published by \ the Free Software Foundation; either version 2.1 of the License, or any later \ version.\n\nThis library is distributed in the hope that it will be useful, \ but WITHOUT ANY WARRANTY, WITHOUT EVEN THE IMPLIED WARRANTY OF \ MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. The software and \ documentation provided hereunder is on an \"as is\" basis, and the \ California Institute of Technology has no obligations to provide maintenance, \ support, updates, enhancements or modifications. In no event shall the \ California Institute of Technology be liable to any party for direct, \ indirect, special, incidental or consequential damages, including lost \ profits, arising out of the use of this software and its documentation, even \ if the California Institute of Technology have been advised of the \ possibility of such damage. See the GNU Lesser General Public License for \ more details.\n\nYou should have received a copy of the GNU Lesser General \ Public License along with this library; if not, write to the Free Software \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.\n\n \ The original code contained here was initially developed by:\n\n \tBruce E. \ Shapiro\n \tBiological Network Modeling Center\n \tDivision of Biology, Mail \ Code 139-74\n \tCalifornia Institute of Technology\n \tPasadena, CA, 91125, \ USA\n \tbshapiro at caltech dot edu", FontSize->12] }], "Text"], Cell["Revised 19 - Nov - 2007 for Version 6 Verification", "Text", CellChangeTimes->{{3.404486853645843*^9, 3.40448686457447*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["borderedPolygon", "Section"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "theta", "]"}], ",", " ", RowBox[{"Sin", "[", "theta", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"theta", ",", " ", "0", ",", " ", RowBox[{"2", "Pi"}], ",", " ", RowBox[{"Pi", "/", "6"}]}], "}"}]}], "]"}], " "}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SqrtBox["3"], "2"], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", FractionBox[ SqrtBox["3"], "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}], ",", FractionBox["1", "2"]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["1", "2"], ",", RowBox[{"-", FractionBox[ SqrtBox["3"], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox[ SqrtBox["3"], "2"], ",", RowBox[{"-", FractionBox["1", "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.404486742461502*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"borderedPolygon", "[", RowBox[{"d", ",", RowBox[{"RGBColor", "[", RowBox[{".1", ",", "1.", ",", ".3"}], "]"}], ",", " ", RowBox[{"RGBColor", "[", RowBox[{".5", ",", ".3", ",", ".7"}], "]"}], ",", " ", ".02", ",", " ", RowBox[{"AspectRatio", "\[Rule]", " ", "1"}]}], "]"}]], "Input", CellChangeTimes->{3.4044868250189533`*^9}], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.1, 1., 0.3], PolygonBox[ NCache[{{1, 0}, {Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, {0, 1}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, {-1, 0}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {0, -1}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {1, 0}}, {{1, 0}, { 0.8660254037844386, 0.5}, {0.5, 0.8660254037844386}, {0, 1}, {-0.5, 0.8660254037844386}, {-0.8660254037844386, 0.5}, {-1, 0}, {-0.8660254037844386, -0.5}, {-0.5, -0.8660254037844386}, { 0, -1}, {0.5, -0.8660254037844386}, {0.8660254037844386, -0.5}, {1, 0}}]]}, {RGBColor[0.5, 0.3, 0.7], Thickness[0.02], LineBox[NCache[{{1, 0}, { Rational[1, 2] 3^Rational[1, 2], Rational[1, 2]}, { Rational[1, 2], Rational[1, 2] 3^Rational[1, 2]}, {0, 1}, { Rational[-1, 2], Rational[1, 2] 3^Rational[1, 2]}, { Rational[-1, 2] 3^Rational[1, 2], Rational[1, 2]}, {-1, 0}, { Rational[-1, 2] 3^Rational[1, 2], Rational[-1, 2]}, { Rational[-1, 2], Rational[-1, 2] 3^Rational[1, 2]}, {0, -1}, { Rational[1, 2], Rational[-1, 2] 3^Rational[1, 2]}, { Rational[1, 2] 3^Rational[1, 2], Rational[-1, 2]}, {1, 0}}, {{1, 0}, { 0.8660254037844386, 0.5}, {0.5, 0.8660254037844386}, {0, 1}, {-0.5, 0.8660254037844386}, {-0.8660254037844386, 0.5}, {-1, 0}, {-0.8660254037844386, -0.5}, {-0.5, -0.8660254037844386}, { 0, -1}, {0.5, -0.8660254037844386}, {0.8660254037844386, -0.5}, {1, 0}}]]}}, AspectRatio->1]], "Output", CellChangeTimes->{3.404486825362051*^9}] }, Open ]] }, Open ]] }, WindowSize->{895, 738}, WindowMargins->{{323, Automatic}, {3, Automatic}}, CellLabelAutoDelete->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 108, 2, 25, "Subsubsection"], Cell[701, 27, 1679, 25, 371, "Text"], Cell[2383, 54, 131, 1, 26, "Text"] }, Closed]], Cell[CellGroupData[{ Cell[2551, 60, 34, 0, 37, "Section"], Cell[CellGroupData[{ Cell[2610, 64, 384, 11, 27, "Input"], Cell[2997, 77, 1596, 63, 88, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4630, 145, 375, 8, 27, "Input"], Cell[5008, 155, 1887, 33, 375, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)