(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 58805, 1663] NotebookOptionsPosition[ 49138, 1437] NotebookOutlinePosition[ 49446, 1452] CellTagsIndexPosition[ 49403, 1449] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellID->462042388], Cell["Test some two-dimensional vectors for linear independence:", "Text", CellChangeTimes->{{3.778933335363954*^9, 3.7789333531847363`*^9}}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7"}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[23]:=", CellID->30327999], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789333931557326`*^9}, CellLabel->"Out[23]=", CellID->281059643] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->237513338], Cell["\<\ Test some three-dimensional vectors for linear independence :\ \>", "Text", CellChangeTimes->{{3.7789333599824157`*^9, 3.778933374178835*^9}}, CellID->400679295], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[24]:=", CellID->184883105], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789333949389105`*^9}, CellLabel->"Out[24]=", CellID->359704376] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->3421394], Cell["This set of vectors is linearly dependent:", "Text", CellChangeTimes->{{3.7789333599824157`*^9, 3.778933374178835*^9}, { 3.778933464496866*^9, 3.7789334772321396`*^9}, {3.779128444718413*^9, 3.7791284450689745`*^9}}, CellID->199719796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"1", ",", "3", ",", RowBox[{"-", "2"}]}], "}"}]}], ",", RowBox[{"b", "=", RowBox[{"{", RowBox[{"2", ",", "1", ",", RowBox[{"-", "3"}]}], "}"}]}], ",", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "5", ",", RowBox[{"-", "1"}]}], "}"}]}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.778933453946811*^9, 3.7789334551149282`*^9}, { 3.778933734984912*^9, 3.778933791594572*^9}}, CellLabel->"In[34]:=", CellID->49881138], Cell[BoxData["False"], "Output", CellChangeTimes->{ 3.778933406162033*^9, 3.7789334555639725`*^9, {3.778933766090022*^9, 3.778933792299643*^9}}, CellLabel->"Out[34]=", CellID->419610228] }, Open ]], Cell["\<\ Confirm that the third vector can be written as a linear combination of the \ first two:\ \>", "Text", CellChangeTimes->{{3.7789333599824157`*^9, 3.778933374178835*^9}, { 3.778933464496866*^9, 3.7789334772321396`*^9}, {3.7789338219246054`*^9, 3.778933858421254*^9}}, CellID->3957132], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"2", "a"}], "-", "b"}], "\[Equal]", "c"}]], "Input", CellChangeTimes->{{3.778933749607374*^9, 3.77893375316173*^9}, { 3.7789337972451377`*^9, 3.778933812429656*^9}}, CellLabel->"In[36]:=", CellID->50396049], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7789337556209755`*^9, {3.7789338074071536`*^9, 3.7789338128757005`*^9}}, CellLabel->"Out[36]=", CellID->102016220] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->6806877], Cell[TextData[{ Cell[BoxData[ StyleBox["LinearlyIndependent", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " works with any number of vectors of any dimension:" }], "Text", CellChangeTimes->{{3.778933335363954*^9, 3.7789333531847363`*^9}, { 3.7789345429667025`*^9, 3.778934569720377*^9}}, CellID->91942375], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "2", ",", " ", "8", ",", " ", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7789345734367485`*^9, 3.7789345894323483`*^9}}, CellLabel->"In[58]:=", CellID->151060850], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789333931557326`*^9, 3.7789345901564207`*^9}, CellLabel->"Out[58]=", CellID->245411142] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Scope", "Subsection", CellID->964056545], Cell[TextData[{ "For vectors with symbolic parameters, ", Cell[BoxData[ StyleBox["LinearlyIndependent", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " may return a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ConditionalExpression", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/ConditionalExpression", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ":" }], "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.7789330998694067`*^9, 3.778933153053725*^9}, {3.778933495593975*^9, 3.778933495999016*^9}, {3.779128467188957*^9, 3.7791284684159985`*^9}}, CellID->649685796], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"4", ",", " ", "7", ",", " ", "h"}], "}"}]}], "}"}], "]"}]], "Input", CellLabel->"In[27]:=", CellID->102372153], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{"True", ",", RowBox[{"h", "\[NotEqual]", "6"}]}], "]"}]], "Output", CellChangeTimes->{3.7789334819246087`*^9}, CellLabel->"Out[27]=", CellID->158829441] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "e", ",", "f"}], "}"}], ",", RowBox[{"{", RowBox[{"g", ",", "h", ",", "i"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{3.7789328959470167`*^9}, CellLabel->"In[17]:=", CellID->836153427], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{"True", ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "c"}], " ", "e", " ", "g"}], "+", RowBox[{"b", " ", "f", " ", "g"}], "+", RowBox[{"c", " ", "d", " ", "h"}], "-", RowBox[{"a", " ", "f", " ", "h"}], "-", RowBox[{"b", " ", "d", " ", "i"}], "+", RowBox[{"a", " ", "e", " ", "i"}]}], "\[NotEqual]", "0"}]}], "]"}]], "Output", CellChangeTimes->{3.778932898067229*^9}, CellLabel->"Out[17]=", CellID->743876347] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->290937824], Cell[TextData[{ "A ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["True", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/True", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "/", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["False", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/False", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " result may be obtained by giving values to the parameters:" }], "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.77893350754217*^9, 3.778933529412357*^9}, {3.778933610504465*^9, 3.77893361235165*^9}}, CellID->104088577], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "x", ",", "x"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "x", ",", "x"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.778933162266646*^9, 3.7789331645148706`*^9}}, CellLabel->"In[18]:=", CellID->435768177], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{"True", ",", RowBox[{"x", "\[NotEqual]", "0"}]}], "]"}]], "Output", CellChangeTimes->{3.7789331658790073`*^9}, CellLabel->"Out[18]=", CellID->299178876] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "/.", RowBox[{"{", RowBox[{"x", "->", "2"}], "}"}]}]], "Input", CellChangeTimes->{{3.778933162266646*^9, 3.7789331645148706`*^9}}, CellLabel->"In[19]:=", CellID->188464206], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789331681802373`*^9}, CellLabel->"Out[19]=", CellID->14196296] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->593438337], Cell["LinearlyIndependent accepts vectors with complex components:", "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.77893350754217*^9, 3.778933529412357*^9}, {3.7789336394413586`*^9, 3.778933663495764*^9}}, CellID->15950221], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"2", "+", "I"}]}], "}"}], ",", RowBox[{"{", RowBox[{"I", ",", RowBox[{"-", "1"}]}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7789336530597205`*^9, 3.77893365395481*^9}}, CellLabel->"In[31]:=", CellID->234533403], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789336019466095`*^9, 3.77893366595901*^9}, CellLabel->"Out[31]=", CellID->469666924] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Properties and Relations", "Subsection", CellID->754506620], Cell["\<\ A set of vectors is linearly independent if and only if the rank of the row \ matrix composed of the vectors equals the length of the vectors:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, 3.7791284985746813`*^9, { 3.7791285440958586`*^9, 3.7791285441868377`*^9}}, CellID->712692948], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"IdentityMatrix", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.778934282048613*^9, 3.7789342946248703`*^9}}, CellLabel->"In[68]:=", CellID->218488255], Cell[BoxData["True"], "Output", CellChangeTimes->{3.778933875707983*^9, 3.7789342952149296`*^9, 3.778934769834387*^9}, CellLabel->"Out[69]=", CellID->466868] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"MatrixRank", "[", "mat", "]"}], "\[Equal]", RowBox[{ RowBox[{"Dimensions", "[", "mat", "]"}], "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}]], "Input", CellChangeTimes->{{3.7789341994003487`*^9, 3.778934206736082*^9}, { 3.7789342985652647`*^9, 3.77893432772318*^9}, {3.7789347391803217`*^9, 3.7789347439728007`*^9}}, CellLabel->"In[70]:=", CellID->65314419], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7789342072661357`*^9, {3.7789343205284605`*^9, 3.778934328264234*^9}, { 3.7789347445388575`*^9, 3.7789347710705104`*^9}}, CellLabel->"Out[70]=", CellID->603778247] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->37623628], Cell["\<\ A set of vectors is linearly independent if and only if the rank of the row \ matrix composed of the vectors has a zero-dimensional null space:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, {3.778935076711071*^9, 3.778935093519752*^9}, {3.7791285490112815`*^9, 3.77912854920228*^9}}, CellID->306676826], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"HilbertMatrix", "[", "3", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.7789344082782345`*^9, 3.7789344211245193`*^9}}, CellLabel->"In[53]:=", CellID->346365067], Cell[BoxData["True"], "Output", CellChangeTimes->{3.778933875767989*^9, 3.778934421672574*^9}, CellLabel->"Out[54]=", CellID->184471202] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceFunction", "[", "\"\\"", "]"}], "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.778934429345341*^9, 3.7789344704464507`*^9}}, CellLabel->"In[57]:=", CellID->686687782], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.778934452989705*^9, 3.778934470928499*^9}}, CellLabel->"Out[57]=", CellID->81849909] }, Open ]], Cell["Or, alternatively:", "Text", CellChangeTimes->{{3.7789353423126287`*^9, 3.77893537212661*^9}}, CellID->590522185], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", RowBox[{"NullSpace", "[", "mat", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7789352627796764`*^9, 3.77893527181758*^9}}, CellLabel->"In[76]:=", CellID->58397377], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.778935267424141*^9, 3.778935272375636*^9}}, CellLabel->"Out[76]=", CellID->350047408] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->76187205], Cell["\<\ A set of vectors is linearly independent if and only if the rank of the row \ matrix composed of the vectors has a non-zero determinant:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, {3.778935076711071*^9, 3.778935093519752*^9}, {3.778935762427636*^9, 3.7789357731827116`*^9}, { 3.7791285274011965`*^9, 3.7791285289917283`*^9}}, CellID->86156109], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"ToeplitzMatrix", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", "mat", "]"}]}], "Input", CellChangeTimes->{{3.7789356458379784`*^9, 3.778935656876082*^9}, { 3.7789356913735313`*^9, 3.778935708042198*^9}}, CellLabel->"In[86]:=", CellID->137027042], Cell[BoxData["True"], "Output", CellChangeTimes->{3.7789357094463387`*^9}, CellLabel->"Out[87]=", CellID->632014370] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Det", "[", "mat", "]"}], "\[Equal]", "0"}]], "Input", CellChangeTimes->{{3.7789357136547594`*^9, 3.7789357280692005`*^9}}, CellLabel->"In[88]:=", CellID->48398168], Cell[BoxData["False"], "Output", CellChangeTimes->{3.778935728851279*^9}, CellLabel->"Out[88]=", CellID->312476630] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->415380141], Cell["\<\ A set of vectors is linearly independent if and only if its row-reduced form \ has a no zeros along its diagonal:\ \>", "Text", CellChangeTimes->{{3.778934062021612*^9, 3.7789341791043196`*^9}, { 3.7789342331287217`*^9, 3.7789342426926775`*^9}, {3.778934341516559*^9, 3.7789343749979067`*^9}, {3.778934498258232*^9, 3.7789345025556617`*^9}, { 3.7789347319525986`*^9, 3.7789347339327965`*^9}, {3.7789348610625086`*^9, 3.7789348896613684`*^9}, {3.778934935675969*^9, 3.778934941278529*^9}, { 3.7789349928056817`*^9, 3.7789350003654375`*^9}, {3.778935076711071*^9, 3.778935093519752*^9}, {3.7789354533097277`*^9, 3.778935472187615*^9}, { 3.7789355085942554`*^9, 3.778935520192415*^9}, {3.779128557297573*^9, 3.7791285574805746`*^9}}, CellID->674643678], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "8", ",", "9"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res", "=", RowBox[{"RowReduce", "[", "mat", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res", "//", "MatrixForm"}]}], "Input", CellChangeTimes->{{3.778935215617961*^9, 3.778935215618961*^9}, { 3.7789353817345705`*^9, 3.7789354071161084`*^9}, {3.778935487517148*^9, 3.7789354965810537`*^9}}, CellLabel->"In[82]:=", CellID->371653160], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "0", RowBox[{"-", "1"}]}, {"0", "1", "2"}, {"0", "0", "0"} }, GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7789354076251593`*^9, 3.7789354971221085`*^9}, CellLabel->"Out[84]//MatrixForm=", CellID->269621298] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Diagonal", "[", "res", "]"}]], "Input", CellChangeTimes->{{3.7789354780862045`*^9, 3.7789354848338795`*^9}}, CellLabel->"In[85]:=", CellID->84620982], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.7789354987772737`*^9}, CellLabel->"Out[85]=", CellID->650691353] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", "mat", "]"}]], "Input", CellChangeTimes->{{3.7789352474971485`*^9, 3.7789352564490433`*^9}, { 3.7789354433667336`*^9, 3.778935444264823*^9}}, CellLabel->"In[81]:=", CellID->229928941], Cell[BoxData["False"], "Output", CellChangeTimes->{3.7789338758279953`*^9, 3.7789352570821066`*^9, 3.7789354447128677`*^9}, CellLabel->"Out[81]=", CellID->216980590] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->23507828], Cell["The zero vector is linearly dependent on every other vector:", "Text", CellChangeTimes->{{3.778933895321944*^9, 3.7789339021176233`*^9}, { 3.778933991942605*^9, 3.778934023285739*^9}}, CellID->10977427], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"a", ",", "b"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{3.77893328512093*^9}, CellLabel->"In[46]:=", CellID->464117689], Cell[BoxData["False"], "Output", CellChangeTimes->{{3.778934026173028*^9, 3.778934041453556*^9}}, CellLabel->"Out[46]=", CellID->79683403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", CellID->133009029], Cell[TextData[{ Cell[BoxData[ StyleBox["LinearlyIndependent", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " will not evaluate if the vectors do not all have the same length:" }], "Text", CellChangeTimes->{{3.778932902153637*^9, 3.7789329162900505`*^9}, { 3.77893350754217*^9, 3.778933529412357*^9}, {3.7789336394413586`*^9, 3.778933663495764*^9}, {3.7789339437447863`*^9, 3.7789339848348947`*^9}}, CellID->237561448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.7789339252939415`*^9, 3.778933928714283*^9}, { 3.778933960737485*^9, 3.778933967845196*^9}}, CellLabel->"In[41]:=", CellID->106578310], Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ StyleBox[ StyleBox[ FrameBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->Rational[10, 13] Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ StyleBox["\<\"LinearlyIndependent\"\>", "ResourceFunctionLabel"], ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited]} }]], "ResourceFunctionFrame"], FrameBoxOptions->{Background->GrayLevel[0.5, 0.15], BaseStyle->{ "StandardForm", LineSpacing -> {0, 0}, LineBreakWithin -> False}, FrameMargins->{{3, 3}, {0, 0}}, FrameStyle->Directive[ GrayLevel[0.5, 0.35], AbsoluteThickness[0.5]], RoundingRadius->4}, GridBoxOptions->{FrameStyle->GrayLevel[1, 0], GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0.25}}, "Rows" -> {-0.1, {}, 0}}}], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"LinearlyIndependent\""}], ResourceFunction["LinearlyIndependent"], BoxID -> "LinearlyIndependent", Selectable->False], "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "5"}], "}"}]}], "}"}], "]"}]], "Output", CellChangeTimes->{3.7789339294023523`*^9, 3.7789339685652676`*^9}, CellLabel->"Out[41]=", CellID->729939135] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 56, 1, 70, "Subsection",ExpressionUUID->"bfe990c7-ff4e-4f37-962b-1048a93c9bc2", CellID->462042388], Cell[639, 25, 161, 2, 70, "Text",ExpressionUUID->"7d11ee48-e000-4abc-ae54-e74dbaf8b587", CellID->13078159], Cell[CellGroupData[{ Cell[825, 31, 2011, 52, 70, "Input",ExpressionUUID->"fd05d648-a4ca-465c-9be2-89277177d323", CellID->30327999], Cell[2839, 85, 119, 3, 70, "Output",ExpressionUUID->"aa30bd26-3b00-410f-8b30-93612aec413e", CellID->281059643] }, Open ]], Cell[CellGroupData[{ Cell[2995, 93, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"31b60af0-8824-4816-a75d-3e5f16775e8a", CellID->237513338], Cell[3123, 98, 173, 4, 70, "Text",ExpressionUUID->"d1cc77e9-fbfa-47de-9b0f-7958a861b612", CellID->400679295], Cell[CellGroupData[{ Cell[3321, 106, 2103, 54, 70, "Input",ExpressionUUID->"7625d7eb-296d-4872-a859-1cc2356e3d01", CellID->184883105], Cell[5427, 162, 119, 3, 70, "Output",ExpressionUUID->"e071f6b4-6780-4640-8594-1c06960de987", CellID->359704376] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5595, 171, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"da0c5f63-a54e-43e3-a315-9146b8e1c9a1", CellID->3421394], Cell[5721, 176, 248, 4, 70, "Text",ExpressionUUID->"921f1327-58b1-4e45-a246-0e0b0329410f", CellID->199719796], Cell[CellGroupData[{ Cell[5994, 184, 2369, 62, 70, "Input",ExpressionUUID->"8abfbfad-4bf0-4b43-a91a-4a29cb232adb", CellID->49881138], Cell[8366, 248, 195, 5, 70, "Output",ExpressionUUID->"5f0ad3ed-ee36-4e60-b03c-23999acb9dc6", CellID->419610228] }, Open ]], Cell[8576, 256, 300, 7, 70, "Text",ExpressionUUID->"bc085cf6-dfb1-4d41-abcc-c7e715f06613", CellID->3957132], Cell[CellGroupData[{ Cell[8901, 267, 257, 7, 70, "Input",ExpressionUUID->"7143346f-e8ee-4aab-a2bb-6c743810a804", CellID->50396049], Cell[9161, 276, 172, 4, 70, "Output",ExpressionUUID->"4d41bf52-41dc-4521-b869-499257d753c7", CellID->102016220] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9382, 286, 123, 3, 70, "ExampleDelimiter",ExpressionUUID->"9dcf3b22-57c7-4e42-b29e-d4d22de2c49c", CellID->6806877], Cell[9508, 291, 351, 9, 70, "Text",ExpressionUUID->"04e31190-e2c1-432a-841d-e738012791c5", CellID->91942375], Cell[CellGroupData[{ Cell[9884, 304, 2135, 54, 70, "Input",ExpressionUUID->"b6ce1d6f-d48d-4a5a-84d6-f8091ee429ce", CellID->151060850], Cell[12022, 360, 143, 3, 70, "Output",ExpressionUUID->"a5098ffb-80dd-4f19-bd9a-9300b60b7d6a", CellID->245411142] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[12226, 370, 47, 1, 70, "Subsection",ExpressionUUID->"26d4758d-a30e-42f1-9ebc-2608ff27218f", CellID->964056545], Cell[12276, 373, 963, 27, 70, "Text",ExpressionUUID->"023c97b6-a139-4f5e-bcac-5ff329c5d18a", CellID->649685796], Cell[CellGroupData[{ Cell[13264, 404, 2187, 58, 70, "Input",ExpressionUUID->"98ba290a-ed9c-4ebb-b435-5e712374b947", CellID->102372153], Cell[15454, 464, 223, 6, 70, "Output",ExpressionUUID->"023423ec-f816-4ffb-a51a-9fd851734c47", CellID->158829441] }, Open ]], Cell[CellGroupData[{ Cell[15714, 475, 2147, 55, 70, "Input",ExpressionUUID->"a486e6bc-2fd3-4de9-b5bf-77ba025744c8", CellID->836153427], Cell[17864, 532, 527, 15, 70, "Output",ExpressionUUID->"d3cd3cb5-9639-429e-8e3b-a38a51f780fb", CellID->743876347] }, Open ]], Cell[CellGroupData[{ Cell[18428, 552, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"3d715666-ca3f-4bca-8490-39c79890dd52", CellID->290937824], Cell[18556, 557, 1225, 38, 70, "Text",ExpressionUUID->"e2d401b6-7c70-46c8-b220-61f1256f970e", CellID->104088577], Cell[CellGroupData[{ Cell[19806, 599, 2100, 53, 70, "Input",ExpressionUUID->"036020ea-9766-4e9f-a049-19c784ff8562", CellID->435768177], Cell[21909, 654, 223, 6, 70, "Output",ExpressionUUID->"5a6f5c41-71ef-4ba9-9e6e-3b000825555a", CellID->299178876] }, Open ]], Cell[CellGroupData[{ Cell[22169, 665, 210, 6, 70, "Input",ExpressionUUID->"eb1486a1-a48a-4872-bbf2-9a410d072be0", CellID->188464206], Cell[22382, 673, 118, 3, 70, "Output",ExpressionUUID->"67cb10a8-8a34-40a0-b297-5404059a5afb", CellID->14196296] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22549, 682, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"768d74af-fba9-4467-bec6-b33bbcf2a605", CellID->593438337], Cell[22677, 687, 262, 4, 70, "Text",ExpressionUUID->"21a16137-1dc9-49c6-9d80-4b2120f843f7", CellID->15950221], Cell[CellGroupData[{ Cell[22964, 695, 2128, 55, 70, "Input",ExpressionUUID->"ffbaf2a7-541b-4a4f-9137-a2fd7fd32752", CellID->234533403], Cell[25095, 752, 140, 3, 70, "Output",ExpressionUUID->"75130b39-cfb4-49a1-9250-8dc9fd3722a9", CellID->469666924] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25296, 762, 66, 1, 70, "Subsection",ExpressionUUID->"02f2a358-a722-4027-8c3a-67e509001310", CellID->754506620], Cell[25365, 765, 694, 11, 70, "Text",ExpressionUUID->"12b481c3-a29d-42e3-a2b9-175dcadddf7b", CellID->712692948], Cell[CellGroupData[{ Cell[26084, 780, 2050, 51, 70, "Input",ExpressionUUID->"6c5f707d-09dc-4e26-91b9-f9e6284ea28d", CellID->218488255], Cell[28137, 833, 163, 4, 70, "Output",ExpressionUUID->"66c8cfdd-f0bf-4143-aff4-4f27662a7bf5", CellID->466868] }, Open ]], Cell[CellGroupData[{ Cell[28337, 842, 420, 10, 70, "Input",ExpressionUUID->"0163bfb6-ddac-40ef-96ec-33342c42235e", CellID->65314419], Cell[28760, 854, 224, 5, 70, "Output",ExpressionUUID->"3f7f7a67-8bea-4771-8ce4-e8fae10cfab3", CellID->603778247] }, Open ]], Cell[CellGroupData[{ Cell[29021, 864, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"99582605-cb8a-4a45-943a-4fd629a5e0d2", CellID->37623628], Cell[29148, 869, 709, 11, 70, "Text",ExpressionUUID->"e39da9c0-498c-4fa0-bd10-836736d3bb77", CellID->306676826], Cell[CellGroupData[{ Cell[29882, 884, 2048, 50, 70, "Input",ExpressionUUID->"d7755b95-3bb2-46c6-a248-f554264951d4", CellID->346365067], Cell[31933, 936, 139, 3, 70, "Output",ExpressionUUID->"58003711-993f-48a6-b306-a20084719ae7", CellID->184471202] }, Open ]], Cell[CellGroupData[{ Cell[32109, 944, 228, 6, 70, "Input",ExpressionUUID->"2748f329-277e-4986-86c6-50111655e2c7", CellID->686687782], Cell[32340, 952, 137, 3, 70, "Output",ExpressionUUID->"f9910516-bdf4-48b1-bc8b-c5b8ea79d365", CellID->81849909] }, Open ]], Cell[32492, 958, 121, 2, 70, "Text",ExpressionUUID->"669eee42-cc6a-4492-af67-00ba2710588b", CellID->590522185], Cell[CellGroupData[{ Cell[32638, 964, 207, 5, 70, "Input",ExpressionUUID->"ecc3ace4-137b-455f-9202-99645f8e0819", CellID->58397377], Cell[32848, 971, 138, 3, 70, "Output",ExpressionUUID->"e83fbe10-2f21-47bb-b5cd-090f77e037c2", CellID->350047408] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[33035, 980, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"908e3a73-2fcd-440c-af67-c7eca7e4d445", CellID->76187205], Cell[33162, 985, 755, 12, 70, "Text",ExpressionUUID->"1ca4825f-e4fc-4c33-abba-9db076b79d02", CellID->86156109], Cell[CellGroupData[{ Cell[33942, 1001, 2101, 52, 70, "Input",ExpressionUUID->"ec2966e9-b4ec-4825-9810-3a96c5be325f", CellID->137027042], Cell[36046, 1055, 119, 3, 70, "Output",ExpressionUUID->"121e4302-6827-4dfe-8c2e-e0add6e350d0", CellID->632014370] }, Open ]], Cell[CellGroupData[{ Cell[36202, 1063, 201, 5, 70, "Input",ExpressionUUID->"860aeff5-3507-4de9-92d7-03d75bdcc741", CellID->48398168], Cell[36406, 1070, 118, 3, 70, "Output",ExpressionUUID->"2f562ef0-9093-4db2-8045-026bbc97e814", CellID->312476630] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36573, 1079, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"f166d731-6459-43c0-b081-d8c61818b2c5", CellID->415380141], Cell[36701, 1084, 781, 13, 70, "Text",ExpressionUUID->"a5388237-79fa-4a31-8f33-f9f6675d8950", CellID->674643678], Cell[CellGroupData[{ Cell[37507, 1101, 707, 20, 70, "Input",ExpressionUUID->"1046c0e2-289a-4ede-9a32-864323e7a20f", CellID->371653160], Cell[38217, 1123, 660, 20, 70, "Output",ExpressionUUID->"ba7f4b71-6b83-467b-8bdb-242be702f7f5", CellID->269621298] }, Open ]], Cell[CellGroupData[{ Cell[38914, 1148, 176, 4, 70, "Input",ExpressionUUID->"98a37969-a63b-48fd-9702-01f34a399f97", CellID->84620982], Cell[39093, 1154, 171, 5, 70, "Output",ExpressionUUID->"99caf906-3391-4b0b-b086-9a641c42d8ce", CellID->650691353] }, Open ]], Cell[CellGroupData[{ Cell[39301, 1164, 1986, 48, 70, "Input",ExpressionUUID->"e3011665-9c48-424a-bc33-5b962ae3e556", CellID->229928941], Cell[41290, 1214, 171, 4, 70, "Output",ExpressionUUID->"38612cd3-1f8d-433f-b82a-3df67d01250e", CellID->216980590] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41510, 1224, 124, 3, 70, "ExampleDelimiter",ExpressionUUID->"af033ad2-d0a9-4fb3-83d1-380ae4670254", CellID->23507828], Cell[41637, 1229, 212, 3, 70, "Text",ExpressionUUID->"b53ba51a-36d5-4151-850d-dc2336adc929", CellID->10977427], Cell[CellGroupData[{ Cell[41874, 1236, 2053, 53, 70, "Input",ExpressionUUID->"175872ca-ba5f-46aa-a9f1-1bed6569692e", CellID->464117689], Cell[43930, 1291, 141, 3, 70, "Output",ExpressionUUID->"86e42f92-8b22-409e-9d45-64205525a1f2", CellID->79683403] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[44120, 1300, 125, 3, 70, "ExampleDelimiter",ExpressionUUID->"a6354eb5-8b7c-45d0-847e-e0cdb2c51da9", CellID->133009029], Cell[44248, 1305, 465, 10, 70, "Text",ExpressionUUID->"1e5bace0-6a2f-455c-b724-ee42e9079f61", CellID->237561448], Cell[CellGroupData[{ Cell[44738, 1319, 2205, 56, 70, "Input",ExpressionUUID->"a2df3055-61cf-4502-a055-d740925b4131", CellID->106578310], Cell[46946, 1377, 2152, 55, 70, "Output",ExpressionUUID->"ba870520-e77c-435a-9d23-d72ef47148c8", CellID->729939135] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)