(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 29036, 880] NotebookOptionsPosition[ 23749, 750] NotebookOutlinePosition[ 25495, 801] CellTagsIndexPosition[ 25452, 798] WindowTitle->ColumnSpace | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Find an orthonormal basis of the column space of a matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7755573315317745`*^9, 3.7755573330619273`*^9}, { 3.7755574008797083`*^9, 3.77555741890351*^9}, {3.775557481365756*^9, 3.775557481973817*^9}, 3.775557970905242*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[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->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ColumnSpace\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ColumnSpace\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ColumnSpace"], BoxID -> "ColumnSpace", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", " ", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7755564040020304`*^9, 3.7755564280734377`*^9}, { 3.775557385606181*^9, 3.7755573970103216`*^9}, 3.775557928158242*^9}, CellLabel->"In[26]:=", CellID->128356893], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["10"]], ",", FractionBox["3", SqrtBox["10"]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", SqrtBox["10"]], ",", RowBox[{"-", FractionBox["1", SqrtBox["10"]]}]}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7755564125348835`*^9, 3.7755564285534854`*^9}, 3.7755573986684875`*^9, 3.7755581652102423`*^9}, CellLabel->"Out[26]=", CellID->278307433] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->15820591], Cell["Find another basis of the column space of a matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7755573315317745`*^9, 3.7755573330619273`*^9}, { 3.7755574008797083`*^9, 3.775557439356556*^9}, 3.775557970948242*^9, { 3.775558169660242*^9, 3.7755581707632422`*^9}}, CellID->590597822], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[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->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ColumnSpace\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ColumnSpace\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ColumnSpace"], BoxID -> "ColumnSpace", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", " ", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7755564040020304`*^9, 3.7755564280734377`*^9}, { 3.775557385606181*^9, 3.7755573970103216`*^9}, {3.775557442418862*^9, 3.775557443789999*^9}, 3.775557928166242*^9}, CellLabel->"In[27]:=", CellID->492564323], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7755564125348835`*^9, 3.7755564285534854`*^9}, 3.7755573986684875`*^9, 3.775557444243044*^9, 3.775558172653242*^9}, CellLabel->"Out[27]=", CellID->540139034] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->574378971], Cell["Find the dimension of the column space of a matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7755573315317745`*^9, 3.7755573330619273`*^9}, { 3.7755574008797083`*^9, 3.775557439356556*^9}, {3.775557587323351*^9, 3.775557600170635*^9}, {3.7755577673382425`*^9, 3.775557771140242*^9}, 3.775557971035242*^9}, CellID->8283839], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[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->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ColumnSpace\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ColumnSpace\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ColumnSpace"], BoxID -> "ColumnSpace", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", " ", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7755564040020304`*^9, 3.7755564280734377`*^9}, { 3.775557385606181*^9, 3.7755573970103216`*^9}, {3.775557442418862*^9, 3.775557443789999*^9}, {3.7755575836799865`*^9, 3.775557583971016*^9}, 3.775557928183242*^9, {3.7755583219772425`*^9, 3.7755583245642424`*^9}}, CellLabel->"In[29]:=", CellID->19373477], Cell[BoxData["2"], "Output", TaggingRules->{}, CellChangeTimes->{{3.7755564125348835`*^9, 3.7755564285534854`*^9}, 3.7755573986684875`*^9, 3.775557444243044*^9, 3.7755575845610743`*^9, 3.775558325233242*^9}, CellLabel->"Out[29]=", CellID->217153771] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->18268477], Cell[TextData[{ "Get a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["ParametricRegion", "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/ParametricRegion", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " representation of the column space of a matrix:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7755573315317745`*^9, 3.7755573330619273`*^9}, { 3.7755574008797083`*^9, 3.7755574679774175`*^9}, {3.7755576861632423`*^9, 3.7755577315192423`*^9}, 3.775557970992242*^9}, CellID->759067626], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[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->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ColumnSpace\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ColumnSpace\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ColumnSpace"], BoxID -> "ColumnSpace", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", " ", "\"\\""}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7755564040020304`*^9, 3.7755564280734377`*^9}, { 3.775557385606181*^9, 3.7755573970103216`*^9}, {3.775557442418862*^9, 3.775557443789999*^9}, {3.7755575743870573`*^9, 3.775557578120431*^9}, { 3.7755576967602425`*^9, 3.775557698155242*^9}, 3.7755579281752424`*^9}, CellLabel->"In[28]:=", CellID->156539146], Cell[BoxData[ RowBox[{"ParametricRegion", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[FormalX]", "1"], "+", RowBox[{"2", " ", SubscriptBox["\[FormalX]", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", SubscriptBox["\[FormalX]", "1"]}], "+", RowBox[{"4", " ", SubscriptBox["\[FormalX]", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[FormalX]", "1"], ",", SubscriptBox["\[FormalX]", "2"]}], "}"}]}], "]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7755564125348835`*^9, 3.7755564285534854`*^9}, 3.7755573986684875`*^9, 3.775557444243044*^9, 3.7755576987232423`*^9, 3.775558179362242*^9}, CellLabel->"Out[28]=", CellID->209914531] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->161150609], Cell["Get all properties of the column space of a matrix:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7755573315317745`*^9, 3.7755573330619273`*^9}, { 3.7755574008797083`*^9, 3.775557439356556*^9}, {3.775557587323351*^9, 3.775557600170635*^9}, 3.7755579710762424`*^9}, CellID->61448351], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[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->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ColumnSpace\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ColumnSpace\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ColumnSpace"], BoxID -> "ColumnSpace", Selectable->False], "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}], ",", " ", "All"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7755564040020304`*^9, 3.7755564280734377`*^9}, { 3.775557385606181*^9, 3.7755573970103216`*^9}, {3.775557442418862*^9, 3.775557443789999*^9}, {3.7755575836799865`*^9, 3.775557583971016*^9}, 3.775557928193242*^9}, CellLabel->"In[30]:=", CellID->784987519], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Region\"\>", "\[Rule]", RowBox[{"ParametricRegion", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[FormalX]", "1"], "+", RowBox[{"2", " ", SubscriptBox["\[FormalX]", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", SubscriptBox["\[FormalX]", "1"]}], "+", RowBox[{"4", " ", SubscriptBox["\[FormalX]", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[FormalX]", "1"], ",", SubscriptBox["\[FormalX]", "2"]}], "}"}]}], "]"}]}], ",", RowBox[{"\<\"Basis\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}]}], "}"}]}], ",", RowBox[{"\<\"OrthonormalBasis\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["10"]], ",", FractionBox["3", SqrtBox["10"]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["3", SqrtBox["10"]], ",", RowBox[{"-", FractionBox["1", SqrtBox["10"]]}]}], "}"}]}], "}"}]}], ",", RowBox[{"\<\"Dimension\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7755564125348835`*^9, 3.7755564285534854`*^9}, 3.7755573986684875`*^9, 3.775557444243044*^9, 3.7755575845610743`*^9, 3.775558331482242*^9}, CellLabel->"Out[30]=", CellID->147877114] }, Open ]] }, Open ]], Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->281538624] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell[TextData[{ "The input matrix to ", Cell[BoxData[ StyleBox["ColumnSpace", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " need not be square:" }], "Text", TaggingRules->{"AttachedInlineCell" -> CellObject[341153]}, CellChangeTimes->{{3.7755573315317745`*^9, 3.7755573330619273`*^9}, { 3.7755574008797083`*^9, 3.775557439356556*^9}, {3.775557587323351*^9, 3.775557600170635*^9}, {3.7755582454132423`*^9, 3.775558282087242*^9}, 3.8297483710718284`*^9}, CellID->97225934], Cell[BoxData[ RowBox[{ RowBox[{"mat", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "4"}], "}"}]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.775556378101441*^9, 3.7755564009147215`*^9}, { 3.7755573666352844`*^9, 3.7755573698066015`*^9}, {3.775557657030242*^9, 3.775557660650242*^9}}, CellLabel->"In[1]:=", CellID->216628608], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SquareMatrixQ", "[", "mat", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.775557641033242*^9, 3.7755576460502424`*^9}}, CellLabel->"In[2]:=", CellID->509188880], Cell[BoxData["False"], "Output", TaggingRules->{}, CellChangeTimes->{{3.775557646724242*^9, 3.7755576634302425`*^9}, 3.775558365441242*^9}, CellLabel->"Out[2]=", CellID->886204095] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ FrameBox[ PaneBox[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->0.65 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["\<\"ColumnSpace\"\>", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->0.9 Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], Background->RGBColor[0.968627, 0.976471, 0.984314], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 1}}, FrameStyle->RGBColor[0.831373, 0.847059, 0.85098], RoundingRadius->4], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "\"ColumnSpace\""}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["ColumnSpace"], BoxID -> "ColumnSpace", Selectable->False], "[", "mat", "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7755564040020304`*^9, 3.7755564280734377`*^9}, 3.775557928202242*^9}, CellLabel->"In[3]:=", CellID->130054746], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"Region\"\>", "\[Rule]", RowBox[{"ParametricRegion", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["\[FormalX]", "1"], "+", RowBox[{"2", " ", SubscriptBox["\[FormalX]", "2"]}]}], ",", RowBox[{ RowBox[{"5", " ", SubscriptBox["\[FormalX]", "1"]}], "+", RowBox[{"6", " ", SubscriptBox["\[FormalX]", "2"]}]}], ",", RowBox[{ RowBox[{"3", " ", SubscriptBox["\[FormalX]", "1"]}], "+", RowBox[{"4", " ", SubscriptBox["\[FormalX]", "2"]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[FormalX]", "1"], ",", SubscriptBox["\[FormalX]", "2"]}], "}"}]}], "]"}]}], ",", RowBox[{"\<\"Basis\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "5", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "6", ",", "4"}], "}"}]}], "}"}]}], ",", RowBox[{"\<\"OrthonormalBasis\"\>", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", SqrtBox["35"]], ",", SqrtBox[ FractionBox["5", "7"]], ",", FractionBox["3", SqrtBox["35"]]}], "}"}], ",", RowBox[{"{", RowBox[{ FractionBox["13", SqrtBox["210"]], ",", RowBox[{"-", SqrtBox[ FractionBox["5", "42"]]}], ",", RowBox[{"2", " ", SqrtBox[ FractionBox["2", "105"]]}]}], "}"}]}], "}"}]}], ",", RowBox[{"\<\"Dimension\"\>", "\[Rule]", "2"}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7755564125348835`*^9, 3.7755564285534854`*^9}, { 3.7755576487082424`*^9, 3.775557665035242*^9}, 3.775558365500242*^9}, CellLabel->"Out[3]=", CellID->489430740] }, Open ]] }, Closed]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"ColumnSpace | Example Notebook", FrontEndVersion->"12.3 for Linux x86 (64-bit) (April 22, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "12.3 for Linux x86 (64-bit) (April 22, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"], $CellContext`ClosingSaveDialog -> False ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[624, 23, 168, 7, 70, "Subsection",ExpressionUUID->"bb39b483-d1d5-463b-a4ad-6dd16bd6da5e", CellID->462042388], Cell[795, 32, 305, 5, 70, "Text",ExpressionUUID->"33eb68d5-a76b-49b2-bedd-7b0309829984", CellID->13078159], Cell[CellGroupData[{ Cell[1125, 41, 2062, 58, 70, "Input",ExpressionUUID->"d1f88af5-e2cc-48b9-bce0-e3548777ed4d", CellID->128356893], Cell[3190, 101, 543, 20, 70, "Output",ExpressionUUID->"491380eb-617d-4246-9ab4-26731053d6eb", CellID->278307433] }, Open ]], Cell[CellGroupData[{ Cell[3770, 126, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"08bba85a-cbb5-4221-8119-436a4f57216d", CellID->15820591], Cell[3916, 132, 302, 5, 70, "Text",ExpressionUUID->"c8673169-0d18-49ed-858b-3b15623ed4f1", CellID->590597822], Cell[CellGroupData[{ Cell[4243, 141, 2100, 59, 70, "Input",ExpressionUUID->"8b09fe0b-94a5-4b26-90b3-c67d944cda04", CellID->492564323], Cell[6346, 202, 376, 11, 70, "Output",ExpressionUUID->"e3ba70d9-c1ca-4caa-afec-665194474354", CellID->540139034] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6771, 219, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"92179f52-6c31-4f59-aea5-5b7a4983e03a", CellID->574378971], Cell[6918, 225, 350, 6, 70, "Text",ExpressionUUID->"c04b340b-f5de-408b-9da2-5a507758c25f", CellID->8283839], Cell[CellGroupData[{ Cell[7293, 235, 2206, 60, 70, "Input",ExpressionUUID->"762e3229-31b4-486c-80c8-17aeb80479ce", CellID->19373477], Cell[9502, 297, 261, 6, 70, "Output",ExpressionUUID->"0140850a-eccd-48d4-81a4-52a8443d697a", CellID->217153771] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[9812, 309, 143, 4, 70, "ExampleDelimiter",ExpressionUUID->"1304d212-5bf0-4e64-896f-96f8ca48fefc", CellID->18268477], Cell[9958, 315, 821, 23, 70, "Text",ExpressionUUID->"321a88ef-ef75-417e-bcbc-37541a630203", CellID->759067626], Cell[CellGroupData[{ Cell[10804, 342, 2203, 60, 70, "Input",ExpressionUUID->"8e86d337-a090-451f-8be5-fc1b34aef17a", CellID->156539146], Cell[13010, 404, 768, 23, 70, "Output",ExpressionUUID->"c4818740-6467-4b77-a9a4-786d60a522e7", CellID->209914531] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13827, 433, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"0e801d59-229e-463a-ad03-79f070f22814", CellID->161150609], Cell[13974, 439, 301, 5, 70, "Text",ExpressionUUID->"724b84f4-d3f3-405b-9c08-a6abe9f70935", CellID->61448351], Cell[CellGroupData[{ Cell[14300, 448, 2142, 60, 70, "Input",ExpressionUUID->"c9bb0001-ff9a-4115-a160-a549210d1ce0", CellID->784987519], Cell[16445, 510, 1642, 51, 70, "Output",ExpressionUUID->"ec53538d-b32e-4126-95bb-34caf79650d7", CellID->147877114] }, Open ]] }, Open ]], Cell[18114, 565, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"be5ebf9c-3165-4ceb-8e8e-2763fdbf3783", CellID->281538624] }, Open ]], Cell[CellGroupData[{ Cell[18295, 574, 159, 7, 70, "Subsection",ExpressionUUID->"7124c984-c6a9-46fa-8001-514fe26722c9", CellID->964056545], Cell[18457, 583, 524, 12, 70, "Text",ExpressionUUID->"2464a926-9032-485e-b89d-5ba60afd3527", CellID->97225934], Cell[18984, 597, 519, 16, 70, "Input",ExpressionUUID->"ea62265b-0a27-422b-a535-a9e259501647", CellID->216628608], Cell[CellGroupData[{ Cell[19528, 617, 198, 5, 70, "Input",ExpressionUUID->"15cdc607-b0cd-452f-a5f9-b8bbe197d075", CellID->509188880], Cell[19729, 624, 188, 5, 70, "Output",ExpressionUUID->"20d90b26-d4e0-4f41-8a4b-ade5f52500fa", CellID->886204095] }, Open ]], Cell[CellGroupData[{ Cell[19954, 634, 1805, 50, 70, "Input",ExpressionUUID->"75567797-cafb-46e9-99f3-305e82e3088b", CellID->130054746], Cell[21762, 686, 1959, 60, 70, "Output",ExpressionUUID->"4eec9f4d-270c-4e1c-b059-c2ffa275e9b5", CellID->489430740] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)