(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.0' 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[ 99305, 3383]*) (*NotebookOutlinePosition[ 100164, 3413]*) (* CellTagsIndexPosition[ 100075, 3407]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Linear algebra : working with matrices", "Subtitle", CellAutoOverwrite->False], Cell["\<\ I. Cnop Vrije Universiteit Brussel icnop@vub.ac.be\ \>", "Subsubtitle"], Cell[CellGroupData[{ Cell["Multiplication of matrices", "Section", CellAutoOverwrite->False], Cell[TextData[{ "Use ", StyleBox["MatrixForm", FontColor->GrayLevel[0.500008]], " which adds brackets around TableForm" }], "Subsubsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[TextData[{ "Scalar product (", StyleBox["Dot", FontColor->RGBColor[1, 0, 0]], " product) of lists and vectors" }], "Subsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{\(v = {x, y}\), ";", "\n", RowBox[{"b", "=", RowBox[{"{", StyleBox[\(2, 3\), FontColor->RGBColor[0, 1, 0]], "}"}]}], ";", "\n", \(v . b\)}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(2\ x + 3\ y\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox["Dot", FontColor->RGBColor[1, 0, 0]], "[", \(v, b\), "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(2\ x + 3\ y\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(b . b\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(13\)], "Output"] }, Closed]], Cell["Square of the length", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(v . v\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(x\^2 + y\^2\)], "Output"] }, Closed]], Cell["Square of a distance", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(Expand[\((v - b)\) . \((v - b)\)]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(13 - 4\ x + x\^2 - 6\ y + y\^2\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Expand[\((v + b)\) . \((v + b)\)]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(13 + 4\ x + x\^2 + 6\ y + y\^2\)], "Output"] }, Closed]], Cell["Writing sums", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(\(a = Range[100];\)\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(\(b = Table[1, {Length[a]}];\)\)], "Input", CellAutoOverwrite->False], Cell["Som van alle getallen tot 100", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(a . b\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(5050\)], "Output"] }, Closed]], Cell["Som van alle kwadraten", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(a . a\)], "Input"], Cell[BoxData[ \(338350\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(a\^\(\(2\)\(\ \)\) . b\)], "Input"], Cell[BoxData[ \(338350\)], "Output"] }, Closed]], Cell["Som van alle derdemachten", "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(a\^\(\(2\)\(\ \)\) . a\)], "Input"], Cell[BoxData[ \(25502500\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Dot product of matrices", "Subsection", CellAutoOverwrite->False], Cell["Check", "Text", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"3", "7", "2"}, { StyleBox["2", FontColor->RGBColor[1, 0, 1]], StyleBox["0", FontColor->RGBColor[1, 0, 1]], StyleBox["4", FontColor->RGBColor[1, 0, 1]]}, {"3", "6", \(-5\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "1", StyleBox["2", FontColor->RGBColor[1, 0, 1]], "9"}, {"2", "4", StyleBox[\(-3\), FontColor->RGBColor[1, 0, 1]], "1"}, {"3", "6", StyleBox[\(-5\), FontColor->RGBColor[1, 0, 1]], "0"} }], ")"}]}], "//", "MatrixForm"}]], "Input", Editable->False, Evaluatable->False, CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", GridBox[{ {"23", "43", \(-25\), "34"}, {"14", "26", StyleBox[\(-16\), FontColor->RGBColor[1, 0, 1]], "18"}, {"0", \(-3\), "13", "33"} }], ")"}], (MatrixForm[ #]&)]], "Input", Editable->False, Evaluatable->False], Cell["and be careful about the order:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ StyleBox[ RowBox[{"(", GridBox[{ {"2", "0", "4"} }], ")"}], FontColor->RGBColor[0, 1, 1]], ".", RowBox[{"(", GridBox[{ {"9"}, {"1"}, {"3"} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"30"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"9"}, {"1"}, {"3"} }], ")"}], ".", StyleBox[ RowBox[{"(", GridBox[{ {"2", "0", "4"} }], ")"}], FontColor->RGBColor[0, 1, 1]]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"18", "0", "36"}, {"2", "0", "4"}, {"6", "0", "12"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ StyleBox[ RowBox[{"(", GridBox[{ {"3", "7", "2"}, {"2", "0", "4"}, {"3", "6", \(-5\)} }], ")"}], FontColor->GrayLevel[0]], ".", TagBox[ StyleBox[ RowBox[{"(", GridBox[{ {"18", "0", "36"}, {"2", "0", "4"}, {"6", "0", "12"} }], ")"}], FontColor->RGBColor[1, 0, 1]], (MatrixForm[ #]&)]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"80", "0", "160"}, {"60", "0", "120"}, {"36", "0", "72"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ StyleBox[ TagBox[ RowBox[{"(", GridBox[{ {"18", "0", "36"}, {"2", "0", "4"}, {"6", "0", "12"} }], ")"}], (MatrixForm[ #]&)], FontColor->RGBColor[1, 0, 1]], ".", RowBox[{"(", GridBox[{ {"3", "7", "2"}, {"2", "0", "4"}, {"3", "6", \(-5\)} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"162", "342", \(-144\)}, {"18", "38", \(-16\)}, {"54", "114", \(-48\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(% == %%\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \(False\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Matrices allow concise writing of systems.", "Subsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "1", "2"}, {"2", "4", \(-3\)}, {"3", "6", \(-5\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(x + y + 2\ z\)}, {\(2\ x + 4\ y - 3\ z\)}, {\(3\ x + 6\ y - 5\ z\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", "1", "2"}, {"2", "4", \(-3\)}, {"3", "6", \(-5\)} }], ")"}]}], ";", "\n", RowBox[{"X", "=", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], ";", "\n", \(A . X // MatrixForm\)}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(x + y + 2\ z\)}, {\(2\ x + 4\ y - 3\ z\)}, {\(3\ x + 6\ y - 5\ z\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["For a system we have to add a right hand side:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"%", "==", RowBox[{"(", GridBox[{ {"2"}, {"3"}, {"4"} }], ")"}]}], ",", \({x, y, z}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{x \[Rule] \(-3\), y \[Rule] 3, z \[Rule] 1}}\)], "Output"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Solving 2x2 systems", "Section", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["An Example", "Subsubsection"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"3", "5"}, {"1", "3"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"2"}, {"0"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{3\ x + 5\ y}, {x + 3\ y}} \[Equal] {{2}, {0}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[3\ x + 5\ y == 2, y]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{y \[Rule] 1\/5\ \((2 - 3\ x)\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{\(y /. %\), ",", \({x, \(-1\), 3}\), StyleBox[",", FontColor->GrayLevel[0.500008]], StyleBox[\(AspectRatio -> Automatic\), FontColor->GrayLevel[0.500008]], StyleBox[",", FontColor->GrayLevel[0.500008]], StyleBox[\(PlotRange -> {{\(-1\), 3}, {\(-2\), 2}}\), FontColor->GrayLevel[0.500008]]}], "]"}]], "Input", CellAutoOverwrite->False], 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.25 0.25 0.5 0.25 [ [0 .4875 -6 -9 ] [0 .4875 6 0 ] [.125 .4875 -12 -9 ] [.125 .4875 12 0 ] [.375 .4875 -9 -9 ] [.375 .4875 9 0 ] [.5 .4875 -3 -9 ] [.5 .4875 3 0 ] [.625 .4875 -9 -9 ] [.625 .4875 9 0 ] [.75 .4875 -3 -9 ] [.75 .4875 3 0 ] [.875 .4875 -9 -9 ] [.875 .4875 9 0 ] [1 .4875 -3 -9 ] [1 .4875 3 0 ] [.2375 0 -12 -4.5 ] [.2375 0 0 4.5 ] [.2375 .125 -24 -4.5 ] [.2375 .125 0 4.5 ] [.2375 .25 -12 -4.5 ] [.2375 .25 0 4.5 ] [.2375 .375 -24 -4.5 ] [.2375 .375 0 4.5 ] [.2375 .625 -18 -4.5 ] [.2375 .625 0 4.5 ] [.2375 .75 -6 -4.5 ] [.2375 .75 0 4.5 ] [.2375 .875 -18 -4.5 ] [.2375 .875 0 4.5 ] [.2375 1 -6 -4.5 ] [.2375 1 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 0 .5 m 0 .50625 L s [(-1)] 0 .4875 0 1 Mshowa .125 .5 m .125 .50625 L s [(-0.5)] .125 .4875 0 1 Mshowa .375 .5 m .375 .50625 L s [(0.5)] .375 .4875 0 1 Mshowa .5 .5 m .5 .50625 L s [(1)] .5 .4875 0 1 Mshowa .625 .5 m .625 .50625 L s [(1.5)] .625 .4875 0 1 Mshowa .75 .5 m .75 .50625 L s [(2)] .75 .4875 0 1 Mshowa .875 .5 m .875 .50625 L s [(2.5)] .875 .4875 0 1 Mshowa 1 .5 m 1 .50625 L s [(3)] 1 .4875 0 1 Mshowa .125 Mabswid .025 .5 m .025 .50375 L s .05 .5 m .05 .50375 L s .075 .5 m .075 .50375 L s .1 .5 m .1 .50375 L s .15 .5 m .15 .50375 L s .175 .5 m .175 .50375 L s .2 .5 m .2 .50375 L s .225 .5 m .225 .50375 L s .275 .5 m .275 .50375 L s .3 .5 m .3 .50375 L s .325 .5 m .325 .50375 L s .35 .5 m .35 .50375 L s .4 .5 m .4 .50375 L s .425 .5 m .425 .50375 L s .45 .5 m .45 .50375 L s .475 .5 m .475 .50375 L s .525 .5 m .525 .50375 L s .55 .5 m .55 .50375 L s .575 .5 m .575 .50375 L s .6 .5 m .6 .50375 L s .65 .5 m .65 .50375 L s .675 .5 m .675 .50375 L s .7 .5 m .7 .50375 L s .725 .5 m .725 .50375 L s .775 .5 m .775 .50375 L s .8 .5 m .8 .50375 L s .825 .5 m .825 .50375 L s .85 .5 m .85 .50375 L s .9 .5 m .9 .50375 L s .925 .5 m .925 .50375 L s .95 .5 m .95 .50375 L s .975 .5 m .975 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .25 0 m .25625 0 L s [(-2)] .2375 0 1 0 Mshowa .25 .125 m .25625 .125 L s [(-1.5)] .2375 .125 1 0 Mshowa .25 .25 m .25625 .25 L s [(-1)] .2375 .25 1 0 Mshowa .25 .375 m .25625 .375 L s [(-0.5)] .2375 .375 1 0 Mshowa .25 .625 m .25625 .625 L s [(0.5)] .2375 .625 1 0 Mshowa .25 .75 m .25625 .75 L s [(1)] .2375 .75 1 0 Mshowa .25 .875 m .25625 .875 L s [(1.5)] .2375 .875 1 0 Mshowa .25 1 m .25625 1 L s [(2)] .2375 1 1 0 Mshowa .125 Mabswid .25 .025 m .25375 .025 L s .25 .05 m .25375 .05 L s .25 .075 m .25375 .075 L s .25 .1 m .25375 .1 L s .25 .15 m .25375 .15 L s .25 .175 m .25375 .175 L s .25 .2 m .25375 .2 L s .25 .225 m .25375 .225 L s .25 .275 m .25375 .275 L s .25 .3 m .25375 .3 L s .25 .325 m .25375 .325 L s .25 .35 m .25375 .35 L s .25 .4 m .25375 .4 L s .25 .425 m .25375 .425 L s .25 .45 m .25375 .45 L s .25 .475 m .25375 .475 L s .25 .525 m .25375 .525 L s .25 .55 m .25375 .55 L s .25 .575 m .25375 .575 L s .25 .6 m .25375 .6 L s .25 .65 m .25375 .65 L s .25 .675 m .25375 .675 L s .25 .7 m .25375 .7 L s .25 .725 m .25375 .725 L s .25 .775 m .25375 .775 L s .25 .8 m .25375 .8 L s .25 .825 m .25375 .825 L s .25 .85 m .25375 .85 L s .25 .9 m .25375 .9 L s .25 .925 m .25375 .925 L s .25 .95 m .25375 .95 L s .25 .975 m .25375 .975 L s .25 Mabswid .25 0 m .25 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid 0 .75 m .04057 .72566 L .08481 .69911 L .12636 .67418 L .16632 .65021 L .20885 .62469 L .2498 .60012 L .29331 .57401 L .33524 .54886 L .37557 .52466 L .41848 .49891 L .4598 .47412 L .49953 .45028 L .54183 .4249 L .58254 .40048 L .62583 .3745 L .66752 .34949 L .70762 .32543 L .7503 .29982 L .79139 .27517 L .83505 .24897 L .87712 .22373 L .9176 .19944 L .96065 .17361 L 1 .15 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg?ooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo 00;ooooo0ol0003Booooo`00>?ooool00ol0003oooooooooo`07ooooo`Co00001Oooool00ol0003o ooooooooo`3Booooo`00=oooool2o`0000Wooooo00?o0000ooooooooool01_ooool00ol0003ooooo ooooo`3Booooo`00>?ooool00ol0003oooooooooo`07ooooo`Go00001?ooool00ol0003ooooooooo o`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Boooo o`00Boooool00ol0003oooooooooo`3Booooo`00Boooool2o`000?oo ool004_ooooo00?o0000ooooooooool0Uoooool00ol0003oooooooooo`0hooooo`00Boooool00ol0 003oooooooooo`2Eooooo`;o0000>oooool004_ooooo0_l0002Dooooo`;o0000?Oooool004_ooooo 00?o0000ooooooooool0TOooool2o`0003oooooo001;ooooo`03o`000?oooooooooo093ooooo00?o 0000ooooooooool0?oooool004_ooooo00?o0000ooooooooool0S_ooool2o`0004;ooooo001;oooo o`03o`000?oooooooooo08cooooo0_l00014ooooo`00Boooool00ol0003oooooooooo`2;ooooo`03 o`000?oooooooooo04Cooooo001;ooooo`03o`000?oooooooooo08Wooooo0_l00017ooooo`00Booo ool2o`0008Sooooo0_l00019ooooo`00Boooool00ol0003oooooooooo`25ooooo`;o0000Boooool0 04_ooooo00?o0000ooooooooool0Q?ooool00ol0003oooooooooo`1;ooooo`00Boooool00ol0003o ooooooooo`22ooooo`;o0000C_ooool004_ooooo00?o0000ooooooooool0P?ooool2o`00053ooooo 001;ooooo`03o`000?oooooooooo07oooooo00?o0000ooooooooool0D?ooool004_ooooo00?o0000 ooooooooool0OOooool2o`0005?ooooo001;ooooo`;o0000O?ooool2o`0005Gooooo001;ooooo`03 o`000?oooooooooo07[ooooo00?o0000ooooooooool0EOooool004_ooooo00?o0000ooooooooool0 N?ooool2o`0005Sooooo001;ooooo`03o`000?oooooooooo07Kooooo0_l0001Jooooo`00Boooool0 0ol0003oooooooooo`1eooooo`03o`000?oooooooooo05[ooooo001;ooooo`03o`000?oooooooooo 07?ooooo0_l0001Mooooo`00Boooool00ol0003oooooooooo`1booooo`03o`000?oooooooooo05go oooo001;ooooo`;o0000LOooool2o`00063ooooo001;ooooo`03o`000?oooooooooo06kooooo0_l0 001Rooooo`00Boooool00ol0003oooooooooo`1]ooooo`03o`000?oooooooooo06;ooooo001;oooo o`03o`000?oooooooooo06_ooooo0_l0001Uooooo`00Boooool00ol0003oooooooooo`1Yooooo`;o 0000Ioooool003Sooooo0_l00004ooooo`03o`000?oooooooooo00;ooooo0ol00005ooooo`03o`00 0?oooooooooo06Sooooo00?o0000ooooooooool0Ioooool003Oooooo00Co0000oooooooooooo0000 1oooool01Ol0003ooooooooooooooooo000000Cooooo00?o0000ooooooooool0I_ooool2o`0006[o oooo000`ooooo`Go00000_ooool01?l0003oooooooooool0000;ooooo`03o`000?oooooooooo00;o oooo0ol0001Tooooo`;o0000K?ooool003Oooooo00Co0000oooooooooooo00002oooool00ol0003o ooooooooo`02ooooo`03o`000?oooooooooo06;ooooo0_l0001^ooooo`00=oooool01?l0003ooooo ooooool00007ooooo`Co00001Oooool00ol0003oooooooooo`1Qooooo`03o`000?oooooooooo06ko oooo000gooooo`04o`000?ooooooooooo`0000Oooooo00?o0000ooooooooool01_ooool00ol0003o ooooooooo`1Oooooo`;o0000LOooool003Sooooo0_l00008ooooo`Go00001?ooool00ol0003ooooo ooooo`1Mooooo`;o0000Loooool004_ooooo00?o0000ooooooooool0G?ooool00ol0003ooooooooo o`1cooooo`00Boooool00ol0003oooooooooo`1Jooooo`;o0000M_ooool004_ooooo0_l0001Ioooo o`;o0000N?ooool004_ooooo00?o0000ooooooooool0Eoooool00ol0003oooooooooo`1hooooo`00 Boooool00ol0003oooooooooo`1Eooooo`;o0000Noooool004_ooooo00?o0000ooooooooool0Dooo ool2o`0007gooooo001;ooooo`03o`000?oooooooooo05;ooooo00?o0000ooooooooool0OOooool0 04_ooooo00?o0000ooooooooool0D?ooool2o`00083ooooo001;ooooo`03o`000?oooooooooo04oo oooo00?o0000ooooooooool0P?ooool004_ooooo0_l0001>ooooo`;o0000Poooool004_ooooo00?o 0000ooooooooool0Boooool2o`0008Gooooo001;ooooo`03o`000?oooooooooo04[ooooo00?o0000 ooooooooool0QOooool004_ooooo00?o0000ooooooooool0B?ooool2o`0008Sooooo001;ooooo`03 o`000?oooooooooo04Kooooo0_l0002:ooooo`00Boooool00ol0003oooooooooo`15ooooo`03o`00 0?oooooooooo08[ooooo001;ooooo`03o`000?oooooooooo04?ooooo0_l0002=ooooo`00Boooool2 o`0004;ooooo0_l0002?ooooo`00Boooool00ol0003oooooooooo`10ooooo`03o`000?oooooooooo 08oooooo001;ooooo`03o`000?oooooooooo03kooooo0_l0002Booooo`001oooool3o`0001[ooooo 0_l00004ooooo`03o`000?oooooooooo00;ooooo0ol0000Iooooo`03o`000?oooooooooo01Wooooo 0_l00004ooooo`03o`000?oooooooooo00;ooooo0ol0000Eooooo`;o00000oooool3o`0001Wooooo 0ol00004ooooo`03o`000?oooooooooo00;ooooo0ol0000Iooooo`Go00006?ooool5o`0000?ooooo 00?o0000ooooooooool00_ooool3o`0001[ooooo0ol00003ooooo`002?ooool00ol0003ooooooooo o`0Hooooo`04o`000?ooooooooooo`0000Oooooo00Go0000ooooooooooooooooo`00000Hooooo`03 o`000?oooooooooo01Sooooo00Co0000oooooooooooo00001oooool01Ol0003ooooooooooooooooo 000001?ooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`0Iooooo`03o`000?oooooo oooo00Oooooo00Go0000ooooooooooooooooo`00000Iooooo`04o`000?ooooooooooo`0001Wooooo 00Co0000oooooooooooo00001oooool01Ol0003ooooooooooooooooo000001Sooooo00Go0000oooo ooooooooooooo`000002ooooo`001Ol00003ooooo`03o`000?oooooooooo017ooooo1Ol00002oooo o`04o`000?ooooooooooo`0000_ooooo00?o0000ooooooooool05_ooool00ol0003oooooooooo`0H ooooo`04o`000?ooooooooooo`0000_ooooo00?o0000ooooooooool03oooool2o`0000Oooooo00?o 0000ooooooooool06Oooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo01Sooooo00?o 0000ooooooooool06_ooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo01[ooooo0Ol0 0001ooooo`7ooooo0008ooooo`03o`000?oooooooooo01Sooooo00Co0000oooooooooooo00002ooo ool00ol0003oooooooooo`0Fooooo`03o`000?oooooooooo01Sooooo00Co0000oooooooooooo0000 2oooool00ol0003oooooooooo`0>ooooo`03o`000?oooooooooo00Oooooo00?o0000ooooooooool0 6Oooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo01Wooooo00?o0000ooooooooool0 6_ooool00ol0003oooooooooo`0:ooooo`03o`000?oooooooooo01Sooooo0_l00003ooooo`002?oo ool00ol0003oooooooooo`0Hooooo`04o`000?ooooooooooo`0000Oooooo1?l0000Iooooo`;o0000 6Oooool01?l0003oooooooooool00007ooooo`Co00003oooool2o`0000[ooooo00?o0000oooooooo ool06Oooool00ol0003oooooooooo`07ooooo`Co00006Oooool01Ol0003ooooooooooooooooo0000 01Sooooo00Go0000ooooooooooooooooo`000007ooooo`Co00007Oooool1o`00007ooooo0Oooool0 00Oooooo0_l0000Jooooo`04o`000?ooooooooooo`0000Oooooo00?o0000ooooooooool06_ooool0 0ol0003oooooooooo`0Hooooo`04o`000?ooooooooooo`0000Oooooo00?o0000ooooooooool03ooo ool00ol0003oooooooooo`09ooooo`;o00006_ooool2o`0000Wooooo00?o0000ooooooooool06_oo ool01Ol0003ooooooooooooooooo000001Sooooo00Go0000ooooooooooooooooo`000007ooooo`03 o`000?oooooooooo01[ooooo00Go0000ooooooooooooooooo`000002ooooo`002?ooool00ol0003o ooooooooo`0Iooooo`;o00002?ooool5o`0001Sooooo00?o0000ooooooooool06Oooool2o`0000So oooo1Ol0000;ooooo`;o00003Oooool00ol0003oooooooooo`0Iooooo`03o`000?oooooooooo00Oo oooo1Ol0000Iooooo`?o00006_ooool3o`0000Sooooo1Ol0000Iooooo`?o00000oooool004_ooooo 00?o0000ooooooooool0?ooool2o`00017ooooo00?o0000ooooooooool0d_ooool003Oooooo 00?o0000ooooooooool04Oooool00ol0003oooooooooo`3Booooo`00=Oooool2o`0001Cooooo00?o 0000ooooooooool0d_ooool003?ooooo0_l0000Fooooo`;o0000doooool0037ooooo0_l0000Hoooo o`03o`000?oooooooooo0=;ooooo000_ooooo`;o00006_ooool00ol0003oooooooooo`3Booooo`00 ;_ooool00ol0003oooooooooo`0Jooooo`03o`000?oooooooooo0=;ooooo000/ooooo`;o00007Ooo ool00ol0003oooooooooo`3Booooo`00:_ooool2o`0001oooooo00?o0000ooooooooool0d_ooool0 02Sooooo0_l0000Qooooo`03o`000?oooooooooo0=;ooooo000Vooooo`;o00008oooool2o`000=?o oooo000Uooooo`03o`000?oooooooooo02?ooooo00?o0000ooooooooool0d_ooool002?ooooo0_l0 000Vooooo`03o`000?oooooooooo0=;ooooo000Qooooo`;o0000:?ooool00ol0003oooooooooo`3B ooooo`008?ooool00ol0003oooooooooo`0Xooooo`03o`000?oooooooooo0=;ooooo000Nooooo`;o 0000:oooool00ol0003oooooooooo`3Booooo`007?ooool2o`0002gooooo00?o0000ooooooooool0 d_ooool001_ooooo00?o0000ooooooooool0;Oooool2o`000=?ooooo000Iooooo`;o0000Oooool2o`000=?ooooo000>ooooo`;o0000>oooool00ol0003oooooooooo`3Booooo`00 3?ooool2o`0003gooooo00?o0000ooooooooool0d_ooool000_ooooo00?o0000ooooooooool0?Ooo ool00ol0003oooooooooo`3Booooo`002Oooool2o`0003Sooooo0ol00005ooooo`03o`000?oooooo oooo0=;ooooo0007ooooo`;o0000>oooool00ol0003oooooooooo`04ooooo`03o`000?oooooooooo 0=;ooooo0006ooooo`03o`000?oooooooooo03_ooooo00?o0000ooooooooool01?ooool3o`000=;o oooo0014ooooo`03o`000?oooooooooo00Cooooo00?o0000ooooooooool0d_ooool004Cooooo00?o 0000ooooooooool01?ooool00ol0003oooooooooo`3Booooo`00@oooool2o`0000Kooooo00?o0000 ooooooooool0d_ooool004Cooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`3Boooo o`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Booo ool2o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo 0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo 001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;oooo o`;o0000doooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0 d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool0 04_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo 0_l0003Cooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3B ooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00 Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool2 o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;o oooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo000g ooooo`?o00001?ooool00ol0003oooooooooo`02ooooo`?o00001Oooool00ol0003oooooooooo`3B ooooo`00>?ooool00ol0003oooooooooo`07ooooo`05o`000?ooooooooooooooool000001?ooool0 0ol0003oooooooooo`3Booooo`00>?ooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo 00;ooooo0ol0003Booooo`00>?ooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo00;o oooo00?o0000ooooooooool0d_ooool003Sooooo00?o0000ooooooooool01oooool4o`0000Gooooo 00?o0000ooooooooool0d_ooool003Oooooo0_l00009ooooo`03o`000?oooooooooo00Kooooo00?o 0000ooooooooool0d_ooool003Sooooo00?o0000ooooooooool01oooool5o`0000Cooooo00?o0000 ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000oooooooo ool0d_ooool004_ooooo0_l0003Cooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool0 0ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003o ooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003ooooooooo o`3Booooo`00Boooool2o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03 o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oo oooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo 0=;ooooo001;ooooo`;o0000doooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o 0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000oooo ooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0 d_ooool004_ooooo0_l0003Cooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0 003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00@_ooool5o`0000Cooooo 00?o0000ooooooooool0d_ooool004?ooooo00Co0000oooooooooooo00001?ooool00ol0003ooooo ooooo`3Booooo`00A?ooool00ol0003oooooooooo`04ooooo`03o`000?oooooooooo0=;ooooo0015 ooooo`03o`000?oooooooooo00?ooooo0ol0003Booooo`00@_ooool01Ol0003ooooooooooooooooo 00000=Wooooo0012ooooo`05o`000?ooooooooooooooool00000fOooool004?ooooo0ol0003Joooo o`00oooooolQooooo`00\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-1.08635, -2.06477, 0.0143886, \ 0.0143886}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[x + 3\ y == 0, y]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{y \[Rule] \(-\(x\/3\)\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{\(y /. %\), ",", \({x, \(-1\), 3}\), StyleBox[",", FontColor->GrayLevel[0.500008]], StyleBox[\(AspectRatio -> Automatic\), FontColor->GrayLevel[0.500008]], StyleBox[",", FontColor->GrayLevel[0.500008]], StyleBox[ RowBox[{"PlotRange", "->", RowBox[{"{", StyleBox[\({\(-1\), 3}, {\(-2\), 2}\), FontColor->GrayLevel[0.500008]], "}"}]}], FontColor->GrayLevel[0.500008]]}], "]"}]], "Input", CellAutoOverwrite->False], 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.25 0.25 0.5 0.25 [ [0 .4875 -6 -9 ] [0 .4875 6 0 ] [.125 .4875 -12 -9 ] [.125 .4875 12 0 ] [.375 .4875 -9 -9 ] [.375 .4875 9 0 ] [.5 .4875 -3 -9 ] [.5 .4875 3 0 ] [.625 .4875 -9 -9 ] [.625 .4875 9 0 ] [.75 .4875 -3 -9 ] [.75 .4875 3 0 ] [.875 .4875 -9 -9 ] [.875 .4875 9 0 ] [1 .4875 -3 -9 ] [1 .4875 3 0 ] [.2375 0 -12 -4.5 ] [.2375 0 0 4.5 ] [.2375 .125 -24 -4.5 ] [.2375 .125 0 4.5 ] [.2375 .25 -12 -4.5 ] [.2375 .25 0 4.5 ] [.2375 .375 -24 -4.5 ] [.2375 .375 0 4.5 ] [.2375 .625 -18 -4.5 ] [.2375 .625 0 4.5 ] [.2375 .75 -6 -4.5 ] [.2375 .75 0 4.5 ] [.2375 .875 -18 -4.5 ] [.2375 .875 0 4.5 ] [.2375 1 -6 -4.5 ] [.2375 1 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 0 .5 m 0 .50625 L s [(-1)] 0 .4875 0 1 Mshowa .125 .5 m .125 .50625 L s [(-0.5)] .125 .4875 0 1 Mshowa .375 .5 m .375 .50625 L s [(0.5)] .375 .4875 0 1 Mshowa .5 .5 m .5 .50625 L s [(1)] .5 .4875 0 1 Mshowa .625 .5 m .625 .50625 L s [(1.5)] .625 .4875 0 1 Mshowa .75 .5 m .75 .50625 L s [(2)] .75 .4875 0 1 Mshowa .875 .5 m .875 .50625 L s [(2.5)] .875 .4875 0 1 Mshowa 1 .5 m 1 .50625 L s [(3)] 1 .4875 0 1 Mshowa .125 Mabswid .025 .5 m .025 .50375 L s .05 .5 m .05 .50375 L s .075 .5 m .075 .50375 L s .1 .5 m .1 .50375 L s .15 .5 m .15 .50375 L s .175 .5 m .175 .50375 L s .2 .5 m .2 .50375 L s .225 .5 m .225 .50375 L s .275 .5 m .275 .50375 L s .3 .5 m .3 .50375 L s .325 .5 m .325 .50375 L s .35 .5 m .35 .50375 L s .4 .5 m .4 .50375 L s .425 .5 m .425 .50375 L s .45 .5 m .45 .50375 L s .475 .5 m .475 .50375 L s .525 .5 m .525 .50375 L s .55 .5 m .55 .50375 L s .575 .5 m .575 .50375 L s .6 .5 m .6 .50375 L s .65 .5 m .65 .50375 L s .675 .5 m .675 .50375 L s .7 .5 m .7 .50375 L s .725 .5 m .725 .50375 L s .775 .5 m .775 .50375 L s .8 .5 m .8 .50375 L s .825 .5 m .825 .50375 L s .85 .5 m .85 .50375 L s .9 .5 m .9 .50375 L s .925 .5 m .925 .50375 L s .95 .5 m .95 .50375 L s .975 .5 m .975 .50375 L s .25 Mabswid 0 .5 m 1 .5 L s .25 0 m .25625 0 L s [(-2)] .2375 0 1 0 Mshowa .25 .125 m .25625 .125 L s [(-1.5)] .2375 .125 1 0 Mshowa .25 .25 m .25625 .25 L s [(-1)] .2375 .25 1 0 Mshowa .25 .375 m .25625 .375 L s [(-0.5)] .2375 .375 1 0 Mshowa .25 .625 m .25625 .625 L s [(0.5)] .2375 .625 1 0 Mshowa .25 .75 m .25625 .75 L s [(1)] .2375 .75 1 0 Mshowa .25 .875 m .25625 .875 L s [(1.5)] .2375 .875 1 0 Mshowa .25 1 m .25625 1 L s [(2)] .2375 1 1 0 Mshowa .125 Mabswid .25 .025 m .25375 .025 L s .25 .05 m .25375 .05 L s .25 .075 m .25375 .075 L s .25 .1 m .25375 .1 L s .25 .15 m .25375 .15 L s .25 .175 m .25375 .175 L s .25 .2 m .25375 .2 L s .25 .225 m .25375 .225 L s .25 .275 m .25375 .275 L s .25 .3 m .25375 .3 L s .25 .325 m .25375 .325 L s .25 .35 m .25375 .35 L s .25 .4 m .25375 .4 L s .25 .425 m .25375 .425 L s .25 .45 m .25375 .45 L s .25 .475 m .25375 .475 L s .25 .525 m .25375 .525 L s .25 .55 m .25375 .55 L s .25 .575 m .25375 .575 L s .25 .6 m .25375 .6 L s .25 .65 m .25375 .65 L s .25 .675 m .25375 .675 L s .25 .7 m .25375 .7 L s .25 .725 m .25375 .725 L s .25 .775 m .25375 .775 L s .25 .8 m .25375 .8 L s .25 .825 m .25375 .825 L s .25 .85 m .25375 .85 L s .25 .9 m .25375 .9 L s .25 .925 m .25375 .925 L s .25 .95 m .25375 .95 L s .25 .975 m .25375 .975 L s .25 Mabswid .25 0 m .25 1 L s 0 0 m 1 0 L 1 1 L 0 1 L closepath clip newpath .5 Mabswid 0 .58333 m .04057 .56981 L .08481 .55506 L .12636 .54121 L .16632 .52789 L .20885 .51372 L .2498 .50007 L .29331 .48556 L .33524 .47159 L .37557 .45814 L .41848 .44384 L .4598 .43007 L .49953 .41682 L .54183 .40272 L .58254 .38915 L .62583 .37472 L .66752 .36083 L .70762 .34746 L .7503 .33323 L .79139 .31954 L .83505 .30498 L .87712 .29096 L .9176 .27747 L .96065 .26312 L 1 .25 L s % End of Graphics MathPictureEnd \ \>"], "Graphics", ImageSize->{288, 288}, ImageMargins->{{62, 0}, {0, 0}}, ImageRegion->{{0, 1}, {0, 1}}, ImageCache->GraphicsData["Bitmap", "\<\ CF5dJ6E]HGAYHf4PAg9QL6QYHg?ooool00ol0003oooooooooo`0;ooooo`03o`000?oooooooooo 00;ooooo0ol0003Booooo`00>?ooool00ol0003oooooooooo`07ooooo`Co00001Oooool00ol0003o ooooooooo`3Booooo`00=oooool2o`0000Wooooo00?o0000ooooooooool01_ooool00ol0003ooooo ooooo`3Booooo`00>?ooool00ol0003oooooooooo`07ooooo`Go00001?ooool00ol0003ooooooooo o`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Boooo o`00Boooool00ol0003oooooooooo`3Booooo`00Boooool2o`000=?ooooo001;ooooo`03o`000?oo oooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo 0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo 001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`;o0000doooool004_ooooo00?o0000oooo ooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0 d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool0 04_ooooo00?o0000ooooooooool0d_ooool004_ooooo0_l0003Cooooo`00Boooool00ol0003ooooo ooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3B ooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00 Boooool00ol0003oooooooooo`3Booooo`00Boooool2o`000=?ooooo001;ooooo`03o`000?oooooo oooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;o oooo0013ooooo`?o00001Oooool00ol0003oooooooooo`3Booooo`00A?ooool00ol0003ooooooooo o`04ooooo`03o`000?oooooooooo0=;ooooo000looooo`Go00000oooool00ol0003oooooooooo`04 ooooo`?o0000cOooool2o`0000?ooooo0014ooooo`03o`000?oooooooooo00Cooooo00?o0000oooo ooooool0b_ooool3o`0000Gooooo0014ooooo`03o`000?oooooooooo00Cooooo00?o0000oooooooo ool0aoooool3o`0000Sooooo0013ooooo`;o00001_ooool00ol0003oooooooooo`34ooooo`?o0000 2oooool004Cooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`32ooooo`;o00003_oo ool004_ooooo00?o0000ooooooooool0_oooool3o`00013ooooo001;ooooo`03o`000?oooooooooo 0;cooooo0ol0000Cooooo`00Boooool2o`000;[ooooo0ol0000Fooooo`00Boooool00ol0003ooooo ooooo`2fooooo`?o00006Oooool004_ooooo00?o0000ooooooooool0/oooool3o`0001cooooo001; ooooo`03o`000?oooooooooo0;3ooooo0ol0000Oooooo`00Boooool00ol0003oooooooooo`2]oooo o`?o00008_ooool004_ooooo00?o0000ooooooooool0Z_ooool3o`0002Gooooo001;ooooo`03o`00 0?oooooooooo0:Oooooo0ol0000Xooooo`00Boooool2o`000:Gooooo0ol0000[ooooo`00Boooool0 0ol0003oooooooooo`2Qooooo`?o0000;_ooool004_ooooo00?o0000ooooooooool0Woooool2o`00 037ooooo001;ooooo`03o`000?oooooooooo09cooooo0ol0000cooooo`00Boooool00ol0003ooooo ooooo`2Iooooo`?o0000=_ooool004_ooooo00?o0000ooooooooool0U_ooool3o`0003Wooooo001; ooooo`03o`000?oooooooooo09?ooooo0ol0000looooo`00Boooool2o`00097ooooo0ol0000ooooo o`00Boooool00ol0003oooooooooo`2=ooooo`?o0000@_ooool004_ooooo00?o0000ooooooooool0 R_ooool3o`0004Gooooo001;ooooo`03o`000?oooooooooo08Oooooo0ol00018ooooo`00Boooool0 0ol0003oooooooooo`24ooooo`?o0000Boooool004_ooooo00?o0000ooooooooool0POooool3o`00 04kooooo001;ooooo`03o`000?oooooooooo07kooooo0ol0001Aooooo`00Boooool2o`0007_ooooo 1?l0001Dooooo`00Boooool00ol0003oooooooooo`1fooooo`Co0000F?ooool004_ooooo00?o0000 ooooooooool0Loooool3o`0005cooooo001;ooooo`03o`000?oooooooooo073ooooo0ol0001Ooooo o`00Boooool00ol0003oooooooooo`1]ooooo`?o0000H_ooool003Sooooo0_l00004ooooo`03o`00 0?oooooooooo00;ooooo0ol00005ooooo`03o`000?oooooooooo06[ooooo0ol0001Uooooo`00=ooo ool01?l0003oooooooooool00007ooooo`05o`000?ooooooooooooooool000001?ooool00ol0003o ooooooooo`1Wooooo`?o0000J?ooool0033ooooo1Ol00002ooooo`04o`000?ooooooooooo`0000_o oooo00?o0000ooooooooool00_ooool3o`0006Cooooo0ol0001[ooooo`00=oooool01?l0003ooooo ooooool0000;ooooo`03o`000?oooooooooo00;ooooo00?o0000ooooooooool0HOooool3o`0006ko oooo000gooooo`04o`000?ooooooooooo`0000Oooooo1?l00005ooooo`03o`000?oooooooooo05ko oooo0ol0001aooooo`00=oooool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo00Ko oooo00?o0000ooooooooool0Foooool3o`0007Cooooo000hooooo`;o00002?ooool5o`0000Cooooo 00?o0000ooooooooool0F?ooool3o`0007Oooooo001;ooooo`03o`000?oooooooooo05Gooooo0ol0 001jooooo`00Boooool00ol0003oooooooooo`1Booooo`?o0000OOooool004_ooooo0_l0001@oooo o`?o0000P?ooool004_ooooo00?o0000ooooooooool0COooool2o`0008?ooooo001;ooooo`03o`00 0?oooooooooo04[ooooo0ol00025ooooo`00Boooool00ol0003oooooooooo`17ooooo`?o0000R?oo ool004_ooooo00?o0000ooooooooool0A?ooool3o`0008_ooooo001;ooooo`03o`000?oooooooooo 047ooooo0ol0002>ooooo`00Boooool00ol0003oooooooooo`0nooooo`?o0000TOooool004_ooooo 0_l0000looooo`?o0000U?ooool004_ooooo00?o0000ooooooooool0>?ooool3o`0009Oooooo001; ooooo`03o`000?oooooooooo03Gooooo0ol0002Jooooo`00Boooool00ol0003oooooooooo`0aoooo o`Co0000WOooool004_ooooo00?o0000ooooooooool0;_ooool3o`000:7ooooo001;ooooo`03o`00 0?oooooooooo02_ooooo0ol0002Tooooo`00Boooool00ol0003oooooooooo`0Xooooo`?o0000Yooo ool004_ooooo0_l0000Vooooo`?o0000Z_ooool004_ooooo00?o0000ooooooooool08_ooool3o`00 0:gooooo001;ooooo`03o`000?oooooooooo01oooooo0ol0002`ooooo`001oooool3o`0001[ooooo 0_l00004ooooo`03o`000?oooooooooo00;ooooo0ol0000Iooooo`03o`000?oooooooooo01Wooooo 0_l000000ooooooo0000o`000002o`0000Cooooo0ol0000Jooooo`?o00006Oooool3o`0000Cooooo 00?o0000ooooooooool00_ooool3o`0001Wooooo1Ol0000Hooooo`Go00000oooool00ol0003ooooo ooooo`02ooooo`?o00006_ooool3o`0000?ooooo0008ooooo`03o`000?oooooooooo01Sooooo00Co 0000oooooooooooo00001oooool01Ol0003ooooooooooooooooo000001Sooooo00?o0000oooooooo ool06?ooool4o`0000Oooooo00Go0000ooooooooooooooooo`00000Jooooo`03o`000?oooooooooo 01Wooooo00?o0000ooooooooool01oooool01Ol0003ooooooooooooooooo000001Wooooo00Co0000 oooooooooooo00006Oooool01?l0003oooooooooool00007ooooo`05o`000?ooooooooooooooool0 00006?ooool01Ol0003ooooooooooooooooo000000;ooooo0005o`0000?ooooo00?o0000oooooooo ool04Oooool5o`0000;ooooo00Co0000oooooooooooo00002oooool00ol0003oooooooooo`0Foooo o`03o`000?oooooooooo01Kooooo0ol00002ooooo`03o`000?oooooooooo00Wooooo00?o0000oooo ooooool06?ooool00ol0003oooooooooo`0Iooooo`03o`000?oooooooooo00_ooooo00?o0000oooo ooooool06?ooool00ol0003oooooooooo`0Jooooo`03o`000?oooooooooo00_ooooo00?o0000oooo ooooool06_ooool1o`00007ooooo0Oooool000Sooooo00?o0000ooooooooool06?ooool01?l0003o ooooooooool0000;ooooo`03o`000?oooooooooo01Kooooo00?o0000ooooooooool05?ooool2o`00 00;ooooo00Co0000oooooooooooo00002oooool00ol0003oooooooooo`0Hooooo`03o`000?oooooo oooo01Wooooo00?o0000ooooooooool02oooool00ol0003oooooooooo`0Iooooo`03o`000?oooooo oooo01[ooooo00?o0000ooooooooool02_ooool00ol0003oooooooooo`0Hooooo`;o00000oooool0 00Sooooo00?o0000ooooooooool06?ooool01?l0003oooooooooool00007ooooo`Co00006Oooool2 o`0001;ooooo0ol00004ooooo`04o`000?ooooooooooo`0000Oooooo1?l0000Kooooo`03o`000?oo oooooooo01Wooooo00?o0000ooooooooool01oooool4o`0001Wooooo00Go0000oooooooooooooooo o`00000Hooooo`05o`000?ooooooooooooooool000001oooool4o`0001gooooo0Ol00001ooooo`7o oooo0007ooooo`;o00006_ooool01?l0003oooooooooool00007ooooo`03o`000?oooooooooo01[o oooo00?o0000ooooooooool03_ooool3o`0000Oooooo00Co0000oooooooooooo00001oooool00ol0 003oooooooooo`0Kooooo`;o00006_ooool2o`0000Wooooo00?o0000ooooooooool06_ooool01Ol0 003ooooooooooooooooo000001Sooooo00Go0000ooooooooooooooooo`000007ooooo`03o`000?oo oooooooo01[ooooo00Go0000ooooooooooooooooo`000002ooooo`002?ooool00ol0003ooooooooo o`0Iooooo`;o00002?ooool5o`0001Sooooo00?o0000ooooooooool02oooool3o`0000_ooooo0_l0 0008ooooo`Go00006_ooool00ol0003oooooooooo`0Iooooo`03o`000?oooooooooo00Oooooo1Ol0 000Iooooo`?o00006_ooool3o`0000Sooooo1Ol0000Iooooo`?o00000oooool004_ooooo00?o0000 ooooooooool02?ooool3o`000ooo ool00ol0003oooooooooo`3Booooo`002_ooool3o`0003kooooo0_l0003Cooooo`001oooool3o`00 047ooooo00?o0000ooooooooool0d_ooool000Kooooo00?o0000ooooooooool0@_ooool00ol0003o ooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003ooooooooo o`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Boooo o`00Boooool2o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oo oooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo000hooooo`;o00001?ooool00ol0 003oooooooooo`02ooooo`?o00001Oooool00ol0003oooooooooo`3Booooo`00=oooool01?l0003o ooooooooool00007ooooo`05o`000?ooooooooooooooool000001?ooool00ol0003oooooooooo`3B ooooo`00=oooool01?l0003oooooooooool0000;ooooo`03o`000?oooooooooo00;ooooo00?o0000 ooooooooool0d_ooool003Oooooo00Co0000oooooooooooo00002oooool00ol0003oooooooooo`02 ooooo`?o0000d_ooool003Oooooo00Co0000oooooooooooo00001oooool4o`0000Gooooo00?o0000 ooooooooool0d_ooool003Oooooo00Co0000oooooooooooo00001oooool00ol0003oooooooooo`06 ooooo`03o`000?oooooooooo0=;ooooo000hooooo`;o00002?ooool5o`0000Cooooo00?o0000oooo ooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0 d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo0_l0003Cooooo`00Boooool00ol0 003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003ooooo ooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3B ooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool2o`000=?ooooo001;ooooo`03o`00 0?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooo oooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;o oooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`;o0000doooool004_ooooo00?o0000 ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000oooooooo ool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_oo ool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo0_l0003Cooooo`00Boooool00ol0003o ooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003ooooooooo o`3Booooo`00@oooool3o`0000Gooooo00?o0000ooooooooool0d_ooool004Cooooo00?o0000oooo ooooool01?ooool00ol0003oooooooooo`3Booooo`00A?ooool00ol0003oooooooooo`04ooooo`?o 0000d_ooool004Cooooo00?o0000ooooooooool01?ooool00ol0003oooooooooo`3Booooo`00A?oo ool00ol0003oooooooooo`04ooooo`03o`000?oooooooooo0=;ooooo0013ooooo`;o00001_ooool0 0ol0003oooooooooo`3Booooo`00A?ooool00ol0003oooooooooo`04ooooo`03o`000?oooooooooo 0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo 001;ooooo`;o0000doooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000oooo ooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0 d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool0 04_ooooo0_l0003Cooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003ooooo ooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3B ooooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00 Boooool2o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooo oooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;o oooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001; ooooo`;o0000doooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000oooooooo ool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_oo ool003Oooooo0ol00004ooooo`03o`000?oooooooooo00;ooooo0ol00005ooooo`03o`000?oooooo oooo0=;ooooo000hooooo`03o`000?oooooooooo00Oooooo00Go0000ooooooooooooooooo`000004 ooooo`03o`000?oooooooooo0=;ooooo000hooooo`03o`000?oooooooooo00_ooooo00?o0000oooo ooooool00_ooool3o`000=;ooooo000hooooo`03o`000?oooooooooo00_ooooo00?o0000oooooooo ool00_ooool00ol0003oooooooooo`3Booooo`00>?ooool00ol0003oooooooooo`07ooooo`Co0000 1Oooool00ol0003oooooooooo`3Booooo`00=oooool2o`0000Wooooo00?o0000ooooooooool01_oo ool00ol0003oooooooooo`3Booooo`00>?ooool00ol0003oooooooooo`07ooooo`Go00001?ooool0 0ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003o ooooooooo`3Booooo`00Boooool2o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001; ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03 o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oo oooooooo0=;ooooo001;ooooo`;o0000doooool004_ooooo00?o0000ooooooooool0d_ooool004_o oooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o 0000ooooooooool0d_ooool004_ooooo00?o0000ooooooooool0d_ooool004_ooooo00?o0000oooo ooooool0d_ooool004_ooooo0_l0003Cooooo`00Boooool00ol0003oooooooooo`3Booooo`00Booo ool00ol0003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0 003oooooooooo`3Booooo`00Boooool00ol0003oooooooooo`3Booooo`00Boooool00ol0003ooooo ooooo`3Booooo`00Boooool2o`000=?ooooo001;ooooo`03o`000?oooooooooo0=;ooooo001;oooo o`03o`000?oooooooooo0=;ooooo001;ooooo`03o`000?oooooooooo0=;ooooo0012ooooo`Go0000 1?ooool00ol0003oooooooooo`3Booooo`00@oooool01?l0003oooooooooool00004ooooo`03o`00 0?oooooooooo0=;ooooo0014ooooo`03o`000?oooooooooo00Cooooo00?o0000ooooooooool0d_oo ool004Gooooo00?o0000ooooooooool00oooool3o`000=;ooooo0012ooooo`05o`000?oooooooooo ooooool00000fOooool004;ooooo00Go0000ooooooooooooooooo`00003Iooooo`00@oooool3o`00 0=[ooooo003oooooob7ooooo0000\ \>"], ImageRangeCache->{{{0, 287}, {287, 0}} -> {-1.08635, -2.06477, 0.0143886, \ 0.0143886}}], Cell[BoxData[ TagBox[\(\[SkeletonIndicator] Graphics \[SkeletonIndicator]\), False, Editable->False]], "Output"] }, Closed]], Cell["Animate these graphics to see the intersection at", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"3", "5"}, {"1", "3"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"2"}, {"0"} }], ")"}]}], ",", \({x, y}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{x \[Rule] 3\/2, y \[Rule] \(-\(1\/2\)\)}}\)], "Output"] }, Closed]], Cell["But not all systems have solutions:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"2", "5"}, {"1", \(5/2\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"2"}, {"0"} }], ")"}]}], ",", \({x, y}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({}\)], "Output"] }, Closed]], Cell["Other systems behave differently:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"2", "5"}, {"1", \(5/2\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"2"}, {"1"} }], ")"}]}], ",", \({x, y}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\<\"Equations may not give \ solutions for all \\\"solve\\\" variables. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ \({{x \[Rule] 1 - \(5\ y\)\/2}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"2", "5"}, {"1", \(5/2\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"2"}, {"1"} }], ")"}]}], ",", \({x}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{x \[Rule] \(-\(1\/2\)\)\ \((\(-2\) + 5\ y)\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"2", "5"}, {"1", \(5/2\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"2"}, {"1"} }], ")"}]}], ",", \({y}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{y \[Rule] \(-\(2\/5\)\)\ \((\(-1\) + x)\)}}\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Exercise", "Subsubsection", CellAutoOverwrite->False], Cell["Draw the corresponding lines for this system", "Text", FontWeight->"Bold"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Matrix of a system", "Section", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["An Example", "Subsubsection"], Cell["In our system the following expression is 0 :", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"3", "5"}, {"1", "3"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"} }], ")"}]}], "-", RowBox[{"(", GridBox[{ {"2"}, {"0"} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\(-2\) + 3\ x + 5\ y\)}, {\(x + 3\ y\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Elimination by row operations", "Subsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", GridBox[{ {\(-1\), "3"} }], ")"}], StyleBox[".", FontColor->RGBColor[1, 0, 0]], "%"}], "]"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(2 + 4\ y\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", GridBox[{ {\(-3\), "5"} }], ")"}], ".", "%%"}], "]"}], "//", "MatrixForm"}]], "Input",\ CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(6 - 4\ x\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell["Exercise", "Subsubsection", CellAutoOverwrite->False], Cell["Repeat this for another system", "Text", FontWeight->"Bold"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Solving 3x3 systems", "Subsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["An Example", "Subsubsection"], Cell["Write the system in the following manner:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "1", "2"}, {"2", "4", \(-3\)}, {"3", "6", \(-5\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"9"}, {"1"}, {"0"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{x + y + 2\ z}, {2\ x + 4\ y - 3\ z}, {3\ x + 6\ y - 5\ z}} \[Equal] {{9}, {1}, {0}}\)], "Output"] }, Closed]], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", "1", "2"}, {"2", "4", \(-3\)}, {"3", "6", \(-5\)} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{"R", "=", RowBox[{"(", GridBox[{ {"9"}, {"1"}, {"0"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"A", ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "\[Equal]", "R"}]], "Input"], Cell[BoxData[ \({{x + y + 2\ z}, {2\ x + 4\ y - 3\ z}, {3\ x + 6\ y - 5\ z}} \[Equal] {{9}, {1}, {0}}\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Elimination by row operations", "Subsubsection", CellAutoOverwrite->False], Cell["In our system the following expression is 0 :", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "1", "2"}, {"2", "4", \(-3\)}, {"3", "6", \(-5\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "-", RowBox[{"(", GridBox[{ {"9"}, {"1"}, {"0"} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(\(-9\) + x + y + 2\ z\)}, {\(\(-1\) + 2\ x + 4\ y - 3\ z\)}, {\(3\ x + 6\ y - 5\ z\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["Combining makes x disappear:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"new1", "=", RowBox[{"First", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", GridBox[{ {\(-2\), "1", "0"} }], ")"}], ".", "%"}], "]"}], "]"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({17 + 2\ y - 7\ z}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"new2", "=", RowBox[{"First", "[", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", GridBox[{ {\(-3\), "0", "1"} }], ")"}], ".", "%%"}], "]"}], "]"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({27 + 3\ y - 11\ z}\)], "Output"] }, Closed]], Cell["We get a 2x2 system in y and z that can be solved", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[{new1 == 0, new2 == 0}, {y, z}]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{y \[Rule] 2, z \[Rule] 3}}\)], "Output"] }, Closed]], Cell["and obtain x by substitution:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(\(-9\) + x + y + 2\ z == 0 /. %\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({\(-1\) + x \[Equal] 0}\)], "Output"] }, Closed]], Cell["This is the Solve result:", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "1", "2"}, {"2", "4", \(-3\)}, {"3", "6", \(-5\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "==", RowBox[{"(", GridBox[{ {"9"}, {"1"}, {"0"} }], ")"}]}], ",", \({x, y, z}\)}], "]"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{x \[Rule] 1, y \[Rule] 2, z \[Rule] 3}}\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ Complete elimination by row operations on a square matrix with \ added column\ \>", "Subsubsection", CellAutoOverwrite->False], Cell["Given B the extended matrix:", "Text", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{"B", "=", RowBox[{"(", GridBox[{ {"1", "1", "2", "9"}, {"2", "4", \(-3\), "1"}, {"3", "6", \(-5\), "0"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell["\<\ Corresponds to a system with all right hand sides equal zero:\ \>", \ "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"B", ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"}, {"1"} }], ")"}]}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {\(9 + x + y + 2\ z\)}, {\(1 + 2\ x + 4\ y - 3\ z\)}, {\(3\ x + 6\ y - 5\ z\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["Make a line with no more x :", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {\(-2\), "1", "0"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "1", "2", "9"}, {"2", "4", \(-3\), "1"}, {"3", "6", \(-5\), "0"} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2", \(-7\), \(-17\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["Keep the first line and make two lines without x :", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {\(-2\), "1", "0"}, {\(-3\), "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "1", "2", "9"}, {"2", "4", \(-3\), "1"}, {"3", "6", \(-5\), "0"} }], ")"}]}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", "2", \(-7\), \(-17\)}, {"0", "3", \(-11\), \(-27\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["Eliminating y and z is done by", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "11", \(-7\)}, {"0", "3", \(-2\)} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", "1", "0", "2"}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["Substituing y and z in the first line, gives x ", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", \(-1\), \(-2\)}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "1"}, {"0", "1", "0", "2"}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Total executed", "Subsubsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", \(-1\), \(-2\)}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "11", \(-7\)}, {"0", "3", \(-2\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {\(-2\), "1", "0"}, {\(-3\), "0", "1"} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "1"}, {"0", "1", "0", "2"}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"operations", "=", RowBox[{ RowBox[{"(", GridBox[{ {"1", \(-1\), \(-2\)}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "11", \(-7\)}, {"0", "3", \(-2\)} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {\(-2\), "1", "0"}, {\(-3\), "0", "1"} }], ")"}]}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{2, \(-17\), 11}, {\(-1\), 11, \(-7\)}, {0, 3, \(-2\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(operations // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", \(-17\), "11"}, {\(-1\), "11", \(-7\)}, {"0", "3", \(-2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(operations . A // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["We have a solution!", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(operations . R // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1"}, {"2"}, {"3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \({x, y, z} = Flatten[operations . R]\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({1, 2, 3}\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["This method is not uniquely determined", "Subsubsection", CellAutoOverwrite->False], Cell[TextData[{ "We start over more ", StyleBox["systematically", FontWeight->"Bold", FontColor->RGBColor[1, 0, 0]], ", by placing a nonzero coefficient on the left by switching rows. " }], "Text", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{"B", "=", RowBox[{"(", GridBox[{ {"1", "1", "2", "9"}, {"2", "4", \(-3\), "1"}, {"3", "6", \(-5\), "0"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"2", \(-1\), "0"}, {"3", "0", \(-1\)} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", \(-2\), "7", "17"}, {"0", \(-3\), "11", "27"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(\(-1\)/2\), "0"}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"2", \(-1\), "0"}, {"3", "0", \(-1\)} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", "1", \(-\(7\/2\)\), \(-\(17\/2\)\)}, {"0", \(-3\), "11", "27"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "3", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(\(-1\)/2\), "0"}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"2", \(-1\), "0"}, {"3", "0", \(-1\)} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", "1", \(-\(7\/2\)\), \(-\(17\/2\)\)}, {"0", "0", \(1\/2\), \(3\/2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "2"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "3", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(\(-1\)/2\), "0"}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"2", \(-1\), "0"}, {"3", "0", \(-1\)} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", "1", \(-\(7\/2\)\), \(-\(17\/2\)\)}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[TextData[{ "We obtain a system that is \"superdiagonal ", StyleBox["triangular", FontColor->RGBColor[1, 0, 0]], "\" with entries all 1 on the diagonal.\nWe have ", StyleBox[" z", FontWeight->"Bold"], " , substitute to obtain ", StyleBox["y", FontWeight->"Bold"], " and finally obtain ", StyleBox["x", FontWeight->"Bold"], " . \nAll row operations multiply to a \"subdiagonal triangular\" matrix:" }], "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"operations", "=", RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "2"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "3", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(\(-1\)/2\), "0"}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"2", \(-1\), "0"}, {"3", "0", \(-1\)} }], ")"}]}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{1, 0, 0}, {\(-1\), 1\/2, 0}, {0, 3, \(-2\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(operations // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {\(-1\), \(1\/2\), "0"}, {"0", "3", \(-2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["\<\ Back substituting can be written using row operations. \ Rowoperations also modify the right hand side column.\ \>", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(operations . B // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "1", "2", "9"}, {"0", "1", \(-\(7\/2\)\), \(-\(17\/2\)\)}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", \(-1\), "0"}, {"0", "1", \(7/2\)}, {"0", "0", "1"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", \(11\/2\), \(35\/2\)}, {"0", "1", "0", "2"}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", \(\(-11\)/2\)}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0", "1"}, {"0", "1", "0", "2"}, {"0", "0", "1", "3"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["Eventually we have multiplied by", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", \(-1\), "0"}, {"0", "1", \(7/2\)}, {"0", "0", "1"} }], ")"}], ".", RowBox[{"(", GridBox[{ {"1", "0", \(\(-11\)/2\)}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", "operations"}], "//", "MatrixForm"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", \(-17\), "11"}, {\(-1\), "11", \(-7\)}, {"0", "3", \(-2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["This is the inverse matrix of A :", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(% . A // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ \(Inverse[A] // MatrixForm\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2", \(-17\), "11"}, {\(-1\), "11", \(-7\)}, {"0", "3", \(-2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Another example. ", "Subsubsection", CellAutoOverwrite->False], Cell["Repeat using", "Text"], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"2", \(-1\), "1"}, {"1", "2", \(-1\)}, {"5", "0", "1"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{"R", "=", RowBox[{"(", GridBox[{ {"3"}, {"4"}, {"5"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"B", "=", TagBox[ RowBox[{"(", GridBox[{ {"2", \(-1\), "1", "3"}, {"1", "2", \(-1\), "4"}, {"5", "0", "1", "5"} }], ")"}], (MatrixForm[ #]&)]}], ";"}], "\n"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {\(1/2\), "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"1", "2", \(-1\), "4"}, {"5", "0", "1", "5"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"1", \(-1\), "0"}, {"1", "0", \(\(-1\)/5\)} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"0", \(-\(5\/2\)\), \(3\/2\), \(-\(5\/2\)\)}, {"0", \(-\(1\/2\)\), \(3\/10\), \(1\/2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(\(-2\)/5\), "0"}, {"0", "0", "1"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"0", "1", \(-\(3\/5\)\), "1"}, {"0", \(-\(1\/2\)\), \(3\/10\), \(1\/2\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "1", "2"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"0", "1", \(-\(3\/5\)\), "1"}, {"0", "0", "0", "2"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["\<\ We lost all information about z . Since the right hand side is not zero, we conclude there is no solution to \ this system.\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"A", ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "==", "R"}], ",", \({x, y, z}\)}], "]"}]], "Input"], Cell[BoxData[ RowBox[{\(General::"ivar"\), \(\(:\)\(\ \)\), "\<\"\\!\\(3\\) is not a \ valid variable. \\!\\(\\*ButtonBox[\\\"More\[Ellipsis]\\\", \ ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"General::ivar\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ \(Solve[False, {1, 2, 3}]\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Another example. ", "Subsubsection", CellAutoOverwrite->False], Cell["Repeat this method starting with", "Text", CellAutoOverwrite->False], Cell[BoxData[ \(x =. ; y =. ; z =. ;\)], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"2", \(-1\), "1"}, {"1", "2", \(-1\)}, {"5", "0", "1"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{"R", "=", RowBox[{"(", GridBox[{ {"3"}, {"4"}, {"10"} }], ")"}]}], ";"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"B", "=", TagBox[ RowBox[{"(", GridBox[{ {"2", \(-1\), "1", "3"}, {"1", "2", \(-1\), "4"}, {"5", "0", "1", "10"} }], ")"}], (MatrixForm[ #]&)]}], ";"}], "\n"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {\(1/2\), "0", "0"}, {"0", "1", "0"}, {"0", "0", "1"} }], ")"}], ".", "B"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"1", "2", \(-1\), "4"}, {"5", "0", "1", "10"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"1", \(-1\), "0"}, {"1", "0", \(\(-1\)/5\)} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"0", \(-\(5\/2\)\), \(3\/2\), \(-\(5\/2\)\)}, {"0", \(-\(1\/2\)\), \(3\/10\), \(-\(1\/2\)\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", \(\(-2\)/5\), "0"}, {"0", "0", "1"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"0", "1", \(-\(3\/5\)\), "1"}, {"0", \(-\(1\/2\)\), \(3\/10\), \(-\(1\/2\)\)} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", GridBox[{ {"1", "0", "0"}, {"0", "1", "0"}, {"0", "1", "2"} }], ")"}], ".", "%"}], "//", "MatrixForm"}]], "Input"], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", \(-\(1\/2\)\), \(1\/2\), \(3\/2\)}, {"0", "1", \(-\(3\/5\)\), "1"}, {"0", "0", "0", "0"} }], "\[NoBreak]", ")"}], Function[ BoxForm`e$, MatrixForm[ BoxForm`e$]]]], "Output"] }, Closed]], Cell["\<\ We lost all information on z, but since the right hand side is zero \ too we conclude that we have solutions with all values of z . Solve gives a warning for this :\ \>", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"A", ".", RowBox[{"(", GridBox[{ {"x"}, {"y"}, {"z"} }], ")"}]}], "==", "R"}], ",", \({x, y, z}\)}], "]"}]], "Input"], Cell[BoxData[ RowBox[{\(Solve::"svars"\), \(\(:\)\(\ \)\), "\<\"Equations may not give \ solutions for all \\\"solve\\\" variables. \\!\\(\\*ButtonBox[\\\"More\ \[Ellipsis]\\\", ButtonStyle->\\\"RefGuideLinkText\\\", ButtonFrame->None, \ ButtonData:>\\\"Solve::svars\\\"]\\)\"\>"}]], "Message"], Cell[BoxData[ \({{x \[Rule] 2 - z\/5, y \[Rule] 1 + \(3\ z\)\/5}}\)], "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Another example. ", "Subsubsection", CellAutoOverwrite->False], Cell["Repeat this method starting with", "Text", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"A", "=", RowBox[{"(", GridBox[{ {"1", "td", "d"}, {"2", "3", "4"}, {"1", "4", "3"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{1, td, d}, {2, 3, 4}, {1, 4, 3}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"R", "=", RowBox[{"(", GridBox[{ {"h"}, {"t"}, {"e"} }], ")"}]}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{h}, {t}, {e}}\)], "Output"] }, Closed]], Cell[TextData[{ "where ", StyleBox[" td d h t e", FontWeight->"Bold"], " are the 5 digits in your student card (or five last digits (or the \ last digits in a phone number) . Write" }], "Text"], Cell[CellGroupData[{ Cell[BoxData[ \(B\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{2, \(-1\), 1, 3}, {1, 2, \(-1\), 4}, {5, 0, 1, 10}}\)], "Output"] }, Closed]], Cell["and proceed.", "Text"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Conclusions", "Section"], Cell[TextData[{ "By row operations on a matrix we can reduce it to a form in which each \ line stepwise has a leading 1,\nlines with zeroes are grouped below, \na \ column with leading 1 has only zeroes below\nSuch form is called reduced \ echelon form [", StyleBox["Rowreduce", FontColor->RGBColor[1, 0, 0]], "d Echelon Form].\nThe product of all executed operations is the inverse of \ a square matrix if it exists." }], "Subsubsection", CellAutoOverwrite->False], Cell["\<\ If we do not require columns to have zeroes below their leading 1 \ , but merely a superdiagonal matrix , this can be achieved by multiplication \ with a subdiagonal matrix for all row operations. \ \>", "Subsubsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["\<\ This technique is called Gauss elimination. It is a fast method for \ solving linear systems. Look it up in the Help:\ \>", "Subsubsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ \(\(?RowReduce\)\)], "Input", CellAutoOverwrite->False], Cell[BoxData[ RowBox[{"\<\"RowReduce[m] gives the row-reduced form of the matrix \ m.\"\>", " ", ButtonBox[ StyleBox["More\[Ellipsis]", "SR"], ButtonData:>"RowReduce", Active->True, ButtonStyle->"RefGuideLink"]}]], "Print", CellTags->"Info3309768262-4283419"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Exercises", "Section", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell["1. Execute the above method for the following matrices B ", \ "Subsubsection", CellAutoOverwrite->False], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", GridBox[{ {"1", "b"}, {"a", "1"} }], ")"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{1, {1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}}, {{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}, 1}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", GridBox[{ {\(-10\), "6", "12", "28"}, {\(-5\), "6", \(-5\), \(-1\)} }], ")"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{\(-10\), 6, 12, 28}, {\(-5\), 6, \(-5\), \(-1\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", GridBox[{ {"0", "7", "12"}, {"6", "12", "28"}, {"6", \(-5\), \(-1\)} }], ")"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{0, 7, 12}, {6, 12, 28}, {6, \(-5\), \(-1\)}}\)], "Output"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"(", GridBox[{ {"0", "0", \(-2\), "0", "7", "12"}, {"2", "4", \(-10\), "6", "12", "28"}, {"2", "4", \(-5\), "6", \(-5\), \(-1\)} }], ")"}]], "Input", CellAutoOverwrite->False], Cell[BoxData[ \({{0, 0, \(-2\), 0, 7, 12}, {2, 4, \(-10\), 6, 12, 28}, {2, 4, \(-5\), 6, \(-5\), \(-1\)}}\)], "Output"] }, Closed]], Cell[TextData[{ "and control your result by ", StyleBox["RowReduce.\n", FontWeight->"Bold"], "Compute the inverse of the matrix if it exists." }], "Text", CellAutoOverwrite->False] }, Closed]], Cell["\<\ 2. Count the number of additions and multiplications to execute \ this RowReduce method.\ \>", "Subsubsection", CellAutoOverwrite->False] }, Closed]] }, Open ]] }, FrontEndVersion->"5.0 for Macintosh", ScreenRectangle->{{0, 1114}, {0, 746}}, ScreenStyleEnvironment->"Presentation", WindowSize->{734, 668}, WindowMargins->{{-1, Automatic}, {Automatic, 26}}, Magnification->1 ] (******************************************************************* 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->{ "Info3309768262-4283419"->{ Cell[96291, 3276, 314, 9, 70, "Print", CellTags->"Info3309768262-4283419"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info3309768262-4283419", 99963, 3400} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 86, 1, 58, "Subtitle"], Cell[1865, 56, 81, 4, 124, "Subsubtitle"], Cell[CellGroupData[{ Cell[1971, 64, 73, 1, 77, "Section"], Cell[2047, 67, 178, 6, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[2250, 77, 171, 6, 65, "Subsection"], Cell[CellGroupData[{ Cell[2446, 87, 250, 7, 76, "Input"], Cell[2699, 96, 45, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[2781, 102, 147, 4, 30, "Input"], Cell[2931, 108, 45, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[3013, 114, 66, 2, 30, "Input"], Cell[3082, 118, 36, 1, 70, "Output"] }, Closed]], Cell[3133, 122, 64, 1, 36, "Text"], Cell[CellGroupData[{ Cell[3222, 127, 66, 2, 36, "Input"], Cell[3291, 131, 45, 1, 70, "Output"] }, Closed]], Cell[3351, 135, 64, 1, 36, "Text"], Cell[CellGroupData[{ Cell[3440, 140, 94, 2, 36, "Input"], Cell[3537, 144, 64, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[3638, 150, 94, 2, 30, "Input"], Cell[3735, 154, 64, 1, 70, "Output"] }, Closed]], Cell[3814, 158, 56, 1, 36, "Text"], Cell[3873, 161, 80, 2, 36, "Input"], Cell[3956, 165, 91, 2, 36, "Input"], Cell[4050, 169, 45, 0, 42, "Text"], Cell[CellGroupData[{ Cell[4120, 173, 66, 2, 36, "Input"], Cell[4189, 177, 38, 1, 70, "Output"] }, Closed]], Cell[4242, 181, 38, 0, 36, "Text"], Cell[CellGroupData[{ Cell[4305, 185, 38, 1, 36, "Input"], Cell[4346, 188, 40, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[4423, 194, 55, 1, 33, "Input"], Cell[4481, 197, 40, 1, 70, "Output"] }, Closed]], Cell[4536, 201, 41, 0, 36, "Text"], Cell[CellGroupData[{ Cell[4602, 205, 55, 1, 39, "Input"], Cell[4660, 208, 42, 1, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[4751, 215, 73, 1, 37, "Subsection"], Cell[4827, 218, 49, 1, 42, "Text"], Cell[4879, 221, 920, 27, 74, "Input", Evaluatable->False], Cell[5802, 250, 345, 11, 74, "Input", Evaluatable->False], Cell[6150, 263, 75, 1, 42, "Text"], Cell[CellGroupData[{ Cell[6250, 268, 378, 13, 74, "Input"], Cell[6631, 283, 199, 6, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[6867, 294, 378, 13, 68, "Input"], Cell[7248, 309, 269, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[7554, 322, 604, 19, 68, "Input"], Cell[8161, 343, 274, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[8472, 356, 540, 17, 68, "Input"], Cell[9015, 375, 288, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[9340, 388, 68, 2, 30, "Input"], Cell[9411, 392, 39, 1, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[9499, 399, 92, 1, 37, "Subsection"], Cell[CellGroupData[{ Cell[9616, 404, 381, 13, 74, "Input"], Cell[10000, 419, 287, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[10324, 432, 440, 14, 164, "Input"], Cell[10767, 448, 287, 8, 70, "Output"] }, Closed]], Cell[11069, 459, 90, 1, 42, "Text"], Cell[CellGroupData[{ Cell[11184, 464, 280, 9, 74, "Input"], Cell[11467, 475, 80, 1, 70, "Output"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[11608, 483, 68, 1, 77, "Section"], Cell[CellGroupData[{ Cell[11701, 488, 35, 0, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[11761, 492, 389, 15, 54, "Input"], Cell[12153, 509, 81, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[12271, 515, 87, 2, 36, "Input"], Cell[12361, 519, 68, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[12466, 525, 466, 11, 56, "Input"], Cell[12935, 538, 22600, 597, 70, 4121, 364, "GraphicsData", "PostScript", \ "Graphics"], Cell[35538, 1137, 130, 3, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[35705, 1145, 84, 2, 36, "Input"], Cell[35792, 1149, 61, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[35890, 1155, 597, 15, 56, "Input"], Cell[36490, 1172, 20993, 577, 70, 4126, 364, "GraphicsData", "PostScript", \ "Graphics"], Cell[57486, 1751, 130, 3, 70, "Output"] }, Closed]], Cell[57631, 1757, 93, 1, 42, "Text"], Cell[CellGroupData[{ Cell[57749, 1762, 513, 17, 54, "Input"], Cell[58265, 1781, 77, 1, 70, "Output"] }, Closed]], Cell[58357, 1785, 79, 1, 42, "Text"], Cell[CellGroupData[{ Cell[58461, 1790, 517, 17, 54, "Input"], Cell[58981, 1809, 36, 1, 70, "Output"] }, Closed]], Cell[59032, 1813, 77, 1, 42, "Text"], Cell[CellGroupData[{ Cell[59134, 1818, 517, 17, 54, "Input"], Cell[59654, 1837, 298, 4, 70, "Message"], Cell[59955, 1843, 63, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[60055, 1849, 514, 17, 54, "Input"], Cell[60572, 1868, 82, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[60691, 1874, 514, 17, 54, "Input"], Cell[61208, 1893, 79, 1, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[61336, 1900, 61, 1, 36, "Subsubsection"], Cell[61400, 1903, 82, 1, 42, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[61531, 1910, 65, 1, 49, "Section"], Cell[CellGroupData[{ Cell[61621, 1915, 35, 0, 58, "Subsubsection"], Cell[61659, 1917, 91, 1, 42, "Text"], Cell[CellGroupData[{ Cell[61775, 1922, 451, 16, 54, "Input"], Cell[62229, 1940, 247, 7, 69, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[62525, 1953, 79, 1, 37, "Subsection"], Cell[CellGroupData[{ Cell[62629, 1958, 314, 10, 36, "Input"], Cell[62946, 1970, 207, 6, 52, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[63190, 1981, 247, 8, 36, "Input"], Cell[63440, 1991, 207, 6, 52, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[63684, 2002, 61, 1, 58, "Subsubsection"], Cell[63748, 2005, 68, 1, 42, "Text"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[63865, 2012, 71, 1, 37, "Subsection"], Cell[CellGroupData[{ Cell[63961, 2017, 35, 0, 58, "Subsubsection"], Cell[63999, 2019, 85, 1, 42, "Text"], Cell[CellGroupData[{ Cell[64109, 2024, 476, 18, 74, "Input"], Cell[64588, 2044, 132, 2, 70, "Output"] }, Closed]], Cell[64735, 2049, 252, 8, 74, "Input"], Cell[64990, 2059, 216, 8, 74, "Input"], Cell[CellGroupData[{ Cell[65231, 2071, 200, 7, 74, "Input"], Cell[65434, 2080, 132, 2, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[65615, 2088, 82, 1, 36, "Subsubsection"], Cell[65700, 2091, 91, 1, 42, "Text"], Cell[CellGroupData[{ Cell[65816, 2096, 544, 19, 74, "Input"], Cell[66363, 2117, 305, 8, 89, "Output"] }, Closed]], Cell[66683, 2128, 75, 1, 42, "Text"], Cell[CellGroupData[{ Cell[66783, 2133, 288, 8, 36, "Input"], Cell[67074, 2143, 52, 1, 36, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[67163, 2149, 289, 8, 36, "Input"], Cell[67455, 2159, 53, 1, 36, "Output"] }, Closed]], Cell[67523, 2163, 100, 1, 42, "Text"], Cell[CellGroupData[{ Cell[67648, 2168, 98, 2, 36, "Input"], Cell[67749, 2172, 62, 1, 36, "Output"] }, Closed]], Cell[67826, 2176, 75, 1, 42, "Text"], Cell[CellGroupData[{ Cell[67926, 2181, 92, 2, 36, "Input"], Cell[68021, 2185, 57, 1, 36, "Output"] }, Closed]], Cell[68093, 2189, 69, 1, 42, "Text"], Cell[CellGroupData[{ Cell[68187, 2194, 615, 20, 74, "Input"], Cell[68805, 2216, 75, 1, 36, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[68929, 2223, 139, 4, 58, "Subsubsection"], Cell[69071, 2229, 73, 1, 42, "Text"], Cell[69147, 2232, 267, 8, 74, "Input"], Cell[69417, 2242, 87, 3, 42, "Text"], Cell[CellGroupData[{ Cell[69529, 2249, 224, 8, 94, "Input"], Cell[69756, 2259, 295, 8, 70, "Output"] }, Closed]], Cell[70066, 2270, 73, 1, 42, "Text"], Cell[CellGroupData[{ Cell[70164, 2275, 367, 11, 74, "Input"], Cell[70534, 2288, 220, 6, 70, "Output"] }, Closed]], Cell[70769, 2297, 96, 1, 42, "Text"], Cell[CellGroupData[{ Cell[70890, 2302, 432, 13, 74, "Input"], Cell[71325, 2317, 296, 8, 70, "Output"] }, Closed]], Cell[71636, 2328, 79, 1, 42, "Text"], Cell[CellGroupData[{ Cell[71740, 2333, 268, 8, 74, "Input"], Cell[72011, 2343, 281, 8, 70, "Output"] }, Closed]], Cell[72307, 2354, 96, 1, 42, "Text"], Cell[CellGroupData[{ Cell[72428, 2359, 267, 8, 74, "Input"], Cell[72698, 2369, 281, 8, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[73028, 2383, 67, 1, 36, "Subsubsection"], Cell[CellGroupData[{ Cell[73120, 2388, 588, 18, 74, "Input"], Cell[73711, 2408, 281, 8, 89, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[74029, 2421, 577, 18, 74, "Input"], Cell[74609, 2441, 90, 1, 36, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[74736, 2447, 85, 2, 36, "Input"], Cell[74824, 2451, 281, 8, 89, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[75142, 2464, 89, 2, 36, "Input"], Cell[75234, 2468, 266, 8, 89, "Output"] }, Closed]], Cell[75515, 2479, 63, 1, 42, "Text"], Cell[CellGroupData[{ Cell[75603, 2484, 89, 2, 36, "Input"], Cell[75695, 2488, 236, 8, 89, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[75968, 2501, 96, 2, 36, "Input"], Cell[76067, 2505, 43, 1, 36, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[76159, 2512, 92, 1, 58, "Subsubsection"], Cell[76254, 2515, 239, 7, 42, "Text"], Cell[76496, 2524, 267, 8, 74, "Input"], Cell[CellGroupData[{ Cell[76788, 2536, 267, 8, 74, "Input"], Cell[77058, 2546, 290, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[77385, 2559, 430, 13, 74, "Input"], Cell[77818, 2574, 307, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[78162, 2587, 584, 18, 74, "Input"], Cell[78749, 2607, 312, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[79098, 2620, 738, 23, 98, "Input"], Cell[79839, 2645, 302, 8, 70, "Output"] }, Closed]], Cell[80156, 2656, 481, 15, 86, "Text"], Cell[CellGroupData[{ Cell[80662, 2675, 727, 23, 74, "Input"], Cell[81392, 2700, 80, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[81509, 2706, 85, 2, 36, "Input"], Cell[81597, 2710, 277, 8, 70, "Output"] }, Closed]], Cell[81889, 2721, 162, 4, 64, "Text"], Cell[CellGroupData[{ Cell[82076, 2729, 89, 2, 36, "Input"], Cell[82168, 2733, 302, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[82507, 2746, 268, 8, 74, "Input"], Cell[82778, 2756, 293, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[83108, 2769, 243, 7, 74, "Input"], Cell[83354, 2778, 281, 8, 70, "Output"] }, Closed]], Cell[83650, 2789, 76, 1, 42, "Text"], Cell[CellGroupData[{ Cell[83751, 2794, 441, 13, 74, "Input"], Cell[84195, 2809, 281, 8, 70, "Output"] }, Closed]], Cell[84491, 2820, 78, 1, 42, "Text"], Cell[CellGroupData[{ Cell[84594, 2825, 80, 2, 36, "Input"], Cell[84677, 2829, 266, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[84980, 2842, 85, 2, 36, "Input"], Cell[85068, 2846, 281, 8, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[85398, 2860, 70, 1, 36, "Subsubsection"], Cell[85471, 2863, 28, 0, 42, "Text"], Cell[85502, 2865, 252, 8, 74, "Input"], Cell[85757, 2875, 216, 8, 74, "Input"], Cell[85976, 2885, 334, 10, 98, "Input"], Cell[CellGroupData[{ Cell[86335, 2899, 237, 7, 74, "Input"], Cell[86575, 2908, 304, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[86916, 2921, 245, 7, 74, "Input"], Cell[87164, 2930, 347, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[87548, 2943, 242, 7, 74, "Input"], Cell[87793, 2952, 332, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[88162, 2965, 233, 7, 74, "Input"], Cell[88398, 2974, 311, 8, 70, "Output"] }, Closed]], Cell[88724, 2985, 148, 4, 64, "Text"], Cell[CellGroupData[{ Cell[88897, 2993, 300, 10, 74, "Input"], Cell[89200, 3005, 270, 4, 70, "Message"], Cell[89473, 3011, 57, 1, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[89579, 3018, 70, 1, 36, "Subsubsection"], Cell[89652, 3021, 76, 1, 42, "Text"], Cell[89731, 3024, 53, 1, 36, "Input"], Cell[89787, 3027, 252, 8, 74, "Input"], Cell[90042, 3037, 217, 8, 74, "Input"], Cell[90262, 3047, 335, 10, 98, "Input"], Cell[CellGroupData[{ Cell[90622, 3061, 237, 7, 74, "Input"], Cell[90862, 3070, 305, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[91204, 3083, 245, 7, 74, "Input"], Cell[91452, 3092, 352, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[91841, 3105, 242, 7, 74, "Input"], Cell[92086, 3114, 337, 8, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[92460, 3127, 233, 7, 74, "Input"], Cell[92696, 3136, 311, 8, 70, "Output"] }, Closed]], Cell[93022, 3147, 191, 4, 86, "Text"], Cell[CellGroupData[{ Cell[93238, 3155, 300, 10, 74, "Input"], Cell[93541, 3167, 298, 4, 70, "Message"], Cell[93842, 3173, 83, 1, 70, "Output"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[93974, 3180, 70, 1, 36, "Subsubsection"], Cell[94047, 3183, 76, 1, 42, "Text"], Cell[CellGroupData[{ Cell[94148, 3188, 215, 7, 74, "Input"], Cell[94366, 3197, 68, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[94471, 3203, 184, 7, 74, "Input"], Cell[94658, 3212, 49, 1, 70, "Output"] }, Closed]], Cell[94722, 3216, 209, 6, 64, "Text"], Cell[CellGroupData[{ Cell[94956, 3226, 62, 2, 36, "Input"], Cell[95021, 3230, 87, 1, 70, "Output"] }, Closed]], Cell[95123, 3234, 28, 0, 42, "Text"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[95212, 3241, 30, 0, 77, "Section"], Cell[95245, 3243, 478, 10, 163, "Subsubsection"], Cell[95726, 3255, 259, 5, 100, "Subsubsection"], Cell[CellGroupData[{ Cell[96010, 3264, 178, 4, 79, "Subsubsection"], Cell[CellGroupData[{ Cell[96213, 3272, 75, 2, 36, "Input"], Cell[96291, 3276, 314, 9, 70, "Print", CellTags->"Info3309768262-4283419"] }, Closed]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[96666, 3292, 56, 1, 77, "Section"], Cell[CellGroupData[{ Cell[96747, 3297, 114, 2, 58, "Subsubsection"], Cell[CellGroupData[{ Cell[96886, 3303, 142, 5, 54, "Input"], Cell[97031, 3310, 850, 11, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[97918, 3326, 177, 5, 54, "Input"], Cell[98098, 3333, 85, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[98220, 3339, 188, 6, 74, "Input"], Cell[98411, 3347, 80, 1, 70, "Output"] }, Closed]], Cell[CellGroupData[{ Cell[98528, 3353, 243, 6, 74, "Input"], Cell[98774, 3361, 132, 2, 70, "Output"] }, Closed]], Cell[98921, 3366, 192, 6, 64, "Text"] }, Closed]], Cell[99128, 3375, 149, 4, 57, "Subsubsection"] }, Closed]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)