rkirov2__hw3 - (* Content-type: application/mathematica *)...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: (* 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[ 532200, 12944] NotebookOptionsPosition[ 465340, 11450] NotebookOutlinePosition[ 521363, 12628] CellTagsIndexPosition[ 521195, 12620] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[GraphicsData["CompressedBitmap", "\<\ eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwBAKxmAIDiP0fyIQS 3CCK5f//b8/QWEwglhScxQVWzsDADKJBAiDMwA4mUcWYsIiRpo4FWQzElsAu zAFiMI46bNRhVHAYJ4ghAE/vaJrYBof70JTyj7p0WMf5oM0sow4bQIchKmoi dJBTgwsSabYamKSTiSIgIS4yfKhKrQihmkEqYJIVRQdUFxmmKYFIJlxpQoyw eaogClzYYQYlIwCufvyz\ \>"], "Graphics", ShowCellBracket->False, CellMargins->{{25, 24}, {5, 7}}, ImageSize->{81, 22}, ImageMargins->{{0, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}], Cell[TextData[{ "Matrices, Geometry&", StyleBox["Mathematica", FontSlant->"Italic"], "\n", StyleBox["Authors: Bruce Carpenter, Bill Davis and Jerry Uhl ", "Subtitle"], StyleBox["\[Copyright]2001-2007", "Subtitle", FontSize->12], StyleBox["\n", "Subtitle"], StyleBox["Publisher: ", "Subtitle", FontSize->12], StyleBox[ButtonBox["Math Everywhere, Inc.", BaseStyle->"MEIHyperlink", ButtonData:>{ URL["http://www.matheverywhere.com"], None}], FontSize->12], StyleBox["\nVersion 6.0", "Subtitle", FontSize->12] }], "PrefaceTitle", CellMargins->{{Inherited, Inherited}, {Inherited, 0}}], Cell[TextData[{ "MGM.03 Using Aligners, Stretchers and Hangers to Make 2D Matrices Do What \ You Want\n", StyleBox["GIVE IT A TRY!", FontSize->16, FontSlant->"Italic"] }], "Title"], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Mathematica", FontSlant->"Italic"], " 6.0 Initializations" }], "Special2", TextAlignment->Center, TextJustification->0], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "\"\<spell\>\""}], "]"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"General", "::", "\"\<spell1\>\""}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Off", "[", RowBox[{"SingularValues", "::", "\"\<deprec\>\""}], "]"}], ";"}], " ", "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Needs", "[", "\"\<Units`\>\"", "]"}], ";"}], " ", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"ListAnimate", ",", " ", RowBox[{"AnimationRepetitions", " ", "\[Rule]", " ", "4"}]}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"Animate", ",", " ", RowBox[{"AnimationRepetitions", " ", "\[Rule]", " ", "4"}]}], "]"}], ";"}], " "}]}], "Input", InitializationCell->True, AspectRatioFixed->True], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"CMView", "=", RowBox[{"{", RowBox[{"2.7", ",", "1.6", ",", "1.2"}], "}"}]}], ";"}], " "}]], "Input",\ InitializationCell->True, AspectRatioFixed->True], Cell[CellGroupData[{ Cell["Vector Drawer", "Subsubsection"],...
View Full Document

This note was uploaded on 11/06/2009 for the course MATH 225 taught by Professor Mingyang during the Spring '08 term at University of Illinois at Urbana–Champaign.

Page1 / 220

rkirov2__hw3 - (* Content-type: application/mathematica *)...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online