Integración con Wolfram|Alpha

Listas y matrices 

In[1]:=

X MatrixForm[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "unit matrix 7", WolframAlphaClient`Private`boxes$$ = RowBox[{"IdentityMatrix", "[", "7", "]"}], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{118., {11., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]

Out[1]//MatrixForm=

In[2]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "random matrix 5", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Output", "{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}, "ExtrusionOpen" -> False}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ FormBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox[ TemplateBox[{"\"random \"", TagBox[ RowBox[{"5", " ", "5"}], HoldForm], "\" matrix\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {1, 1}, "Rows" -> {{0.2}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], TraditionalForm], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "RandomLookup", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> "", "primary" -> "true"}, { XMLElement[ "moutput", {}, { "{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{"(", "", GridBox[{{ "0.21723029498080781`", "0.3192198291417565`", "0.12510412267996918`", "0.11419106379574107`", "0.212967324403891`"}, { "0.064866078192797`", "0.36283678384160334`", "0.20885724950313267`", "0.3486990513346304`", "0.6377208881104905`"}, { "0.5567909827242434`", "0.6887723071757315`", "0.7692519135310318`", "0.12813805169984693`", "0.3905008402850012`"}, { "0.8760816939214733`", "0.6834533783612793`", "0.860838432137973`", "0.5978226986551036`", "0.2774968085024099`"}, { "0.1452109823855825`", "0.23461363502258203`", "0.7125507968476714`", "0.7710422434774173`", "0.9394937400207461`"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> Center], "", ")"}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Dimensions", "scanner" -> "RandomLookup", "id" -> "Dimensions", "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Dimensions[{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{"5", StyleBox["\" (rows)\"", GrayLevel[0.6], StripOnInput -> False], "\" * \"", "5", StyleBox["\" (columns)\"", GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], pod4$$ = XMLElement[ "pod", {"title" -> "Matrix plot", "scanner" -> "RandomLookup", "id" -> "MatrixPlot", "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "MatrixPlot[{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}]"}], XMLElement[ "moutput", {}, { "{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJwBbQKS/SFib1JlAwAAAAUAAAAFAAAAAwAAAMDafwrRZOw/IEAfXsNN6j+4 nGmbla3hP1KEDI2VEu0/LYSwatN76T/Mpoly96reP/XusBCyCe0/i8M2CwqB 4D/lOnWve+ByP+gTm0UA/u0/V0u19AlE3z8ojy/pK5dpPwAAAAAAAPA/nJmb mZuZ2z8AAAAAAAAAALjx7rNkR+8/BDqQCKfq3D88YCJjzmFSP1gFJNkeS+w/ 7JCBjgIv4T903qFU+J53P4UFxRPW5u4/Z7Dd8fCa3T/kquyvJP9bP1kqw9s9 rOs/xa/Fm1WE4j9o2cMmmYWnP8lmUkarJu0/Nl89Ejj76D/rTu5kkF3cP8aC Nfu+4us/6hvwaK9y4z9s8wqTpmi6P9v2KV2Jmew/dkrlFG3n4D9nkZV/Pqt1 P7vUdPgItu0/I+2XNW7H3z8nk24HaixtP188z0kzPew/7B27H6B96j+WZlfW ZTbiP/8BYdEYcOw/WzjCItLc5T+2dD+zXRnQP4iKdlqdves/noAqosQX6z+J xonSAu/jP/iTU0BVnew/SEfwB6Si5j/IdNp8aiPTPysBtkgxruw/22ZIMB31 6T9kyJbNLrDgPzV+RtUwwew/6ZGU3XI/5z9Y4WouKYzVPwqGWrvUsus/Oz3Y 6Qe64T/wlLkHeWl7Pxq9STK+6uw/ur7Cw/Wr6T/EEZnCJb7fP2Pd6nKv7+w/ mtbKrsUK6D+qXZNu26vYPz8bQ7fCH+w/FOaqbjGh6j+1LGcoEZziP6qVwgic /Os/LxIDMKnL6j/y1dDTdRXjP5uc041pzOw/HmegnZrQ6T8Ad1DV0UfgP6pH Mp0= "], {{0, 0}, {5, 5}}, {0, 1}], Frame -> True, FrameLabel -> {None, None}, FrameTicks -> {{{{4.5, FormBox["1", TraditionalForm]}, {3.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}, {1.5, FormBox["4", TraditionalForm]}, {0.5, FormBox["5", TraditionalForm]}}, {{4.5, FormBox["1", TraditionalForm]}, {3.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}, {1.5, FormBox["4", TraditionalForm]}, {0.5, FormBox["5", TraditionalForm]}}}, {{{0.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}, {3.5, FormBox["4", TraditionalForm]}, {4.5, FormBox["5", TraditionalForm]}}, {{0.5, FormBox["1", TraditionalForm]}, {1.5, FormBox["2", TraditionalForm]}, {2.5, FormBox["3", TraditionalForm]}, {3.5, FormBox["4", TraditionalForm]}, {4.5, FormBox["5", TraditionalForm]}}}}, ImageSize -> NCache[ Rational[275, 3], 91.66666666666667]], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod5$$ = XMLElement[ "pod", {"title" -> "Determinant", "scanner" -> "RandomLookup", "id" -> "Determinant", "position" -> "500", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Det[{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}]"}], XMLElement["moutput", {}, {"0.004807122030836514"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["0.004807122030836514`", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], pod6$$ = XMLElement[ "pod", {"title" -> "Trace", "scanner" -> "RandomLookup", "id" -> "Trace", "position" -> "600", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Tr[{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}]"}], XMLElement["moutput", {}, {"2.8866354310292928"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["2.8866354310292928`", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], pod7$$ = XMLElement[ "pod", {"title" -> "Condition number", "scanner" -> "RandomLookup", "id" -> "ConditionNumber", "position" -> "700", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["188.4748201617429`", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], pod8$$ = XMLElement[ "pod", {"title" -> "Inverse", "scanner" -> "RandomLookup", "id" -> "Inverse", "position" -> "800", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Inverse[{{0.21723029498080781, 0.3192198291417565, \ 0.12510412267996918, 0.11419106379574107, 0.212967324403891}, \ {0.064866078192797, 0.36283678384160334, 0.20885724950313267, \ 0.3486990513346304, 0.6377208881104905}, {0.5567909827242434, \ 0.6887723071757315, 0.7692519135310318, 0.12813805169984693, \ 0.3905008402850012}, {0.8760816939214733, 0.6834533783612793, \ 0.860838432137973, 0.5978226986551036, 0.2774968085024099}, \ {0.1452109823855825, 0.23461363502258203, 0.7125507968476714, \ 0.7710422434774173, 0.9394937400207461}}]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{"(", "", GridBox[{{"26.831578984549825`", RowBox[{"-", "16.892399386065044`"}], RowBox[{"-", "1.647921711501063`"}], RowBox[{"-", "4.436729878636248`"}], "7.379590999028975`"}, { RowBox[{"-", "18.932007001752254`"}], "14.10548799644275`", "1.0760613303681685`", "4.117438526726742`", RowBox[{"-", "6.946554385236047`"}]}, { RowBox[{"-", "9.496373939979856`"}], "3.5243982861161944`", "1.9134363798136587`", "1.1032207394086417`", RowBox[{"-", "1.360843345184208`"}]}, { RowBox[{"-", "12.301182371753137`"}], "8.429098731213777`", RowBox[{"-", "1.4382902633104733`"}], "3.919109493895583`", RowBox[{"-", "3.4928910248860867`"}]}, {"17.87861525156925`", RowBox[{"-", "10.502339170544358`"}], RowBox[{"-", "0.2848346763399575`"}], RowBox[{"-", "4.395606839233819`"}], "5.557243264399355`"}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> Center], "", ")"}], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, aux3$$ = { True, False, {False}}, aux4$$ = {True, False, {False}}, aux5$$ = { True, False, {False}}, aux6$$ = {True, False, {False}}, aux7$$ = { True, False, {False}}, aux8$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "8", "datatypes" -> "RandomNumber", "timedout" -> "", "timing" -> "0.451", "parsetiming" -> "0.199", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 4, 21, 3, 6.2808185`8.550591216352109}, "Line" -> 92, "SessionID" -> 22923772711736059799}, Typeset`showpods$$ = {1, 2, 3, 4, 5, 6, 7, 8}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Output", "{{0.21723029498080781, 0.3192198291417565, 0.12510412267996918, \ 0.11419106379574107, 0.212967324403891}, {0.064866078192797, \ 0.36283678384160334, 0.20885724950313267, 0.3486990513346304, \ 0.6377208881104905}, {0.5567909827242434, 0.6887723071757315, \ 0.7692519135310318, 0.12813805169984693, 0.3905008402850012}, \ {0.8760816939214733, 0.6834533783612793, 0.860838432137973, \ 0.5978226986551036, 0.2774968085024099}, {0.1452109823855825, \ 0.23461363502258203, 0.7125507968476714, 0.7710422434774173, \ 0.9394937400207461}}"}, Typeset`open$$ = False, Typeset`newq$$ = "random matrix 5"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, { pod1$$, pod2$$, pod3$$, pod4$$, pod5$$, pod6$$, pod7$$, pod8$$}, { aux1$$, aux2$$, aux3$$, aux4$$, aux5$$, aux6$$, aux7$$, aux8$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{386., {132., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$, pod4$$, pod5$$, pod6$$, pod7$$, pod8$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[2]=

Remítase al resultado anterior usando Out (%).

In[3]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "eigenvalues %2", Typeset`newq$$ = "eigenvalues %2", Typeset`chosen$$ = "Eigenvalues[Out[2]]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = True}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], ButtonBox[ TagBox[ TooltipBox[ StyleBox["\<\"»\"\>", StripOnInput->False, LineColor->RGBColor[1, 0.5, 0], FrontFaceColor->RGBColor[1, 0.5, 0], BackFaceColor->RGBColor[1, 0.5, 0], GraphicsColor->RGBColor[1, 0.5, 0], FontColor->RGBColor[1, 0.5, 0]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "InterpretationAssumptions"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "InterpretationAssumptions"]], "Tooltip"]& ], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>( WolframAlphaClient`Private`open$\ 1209 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "eigenvalues %2", Defer[ Eigenvalues[ Out[2]]], "Fast parse"]; WolframAlphaClient`Private`open$1209 = False), ContentPadding->False, Evaluator->Automatic, Method->"Queued"], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], WolframAlphaClient`Private`open$\ 1209 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "eigenvalues %2", Defer[ Eigenvalues[ Out[2]]], "Fast parse"]; WolframAlphaClient`Private`open$1209 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Eigenvalues", "[", "%2", "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Eigenvalues", "[", "%2", "]"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"Eigenvalues", "[", "%2", "]"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ ShowStringCharacters -> True, "StandardForm", 12, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]", "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = True}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], ButtonBox[ TagBox[ TooltipBox[ StyleBox["\<\"»\"\>", StripOnInput->False, LineColor->RGBColor[1, 0.5, 0], FrontFaceColor->RGBColor[1, 0.5, 0], BackFaceColor->RGBColor[1, 0.5, 0], GraphicsColor->RGBColor[1, 0.5, 0], FontColor->RGBColor[1, 0.5, 0]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "InterpretationAssumptions"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "InterpretationAssumptions"]], "Tooltip"]& ], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>( WolframAlphaClient`Private`open$\ 1209 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "eigenvalues %2", Defer[ Eigenvalues[ Out[2]]], "Fast parse"]; WolframAlphaClient`Private`open$1209 = False), ContentPadding->False, Evaluator->Automatic, Method->"Queued"], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], WolframAlphaClient`Private`open$\ 1209 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "eigenvalues %2", Defer[ Eigenvalues[ Out[2]]], "Fast parse"]; WolframAlphaClient`Private`open$1209 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Eigenvalues", "[", "%2", "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Eigenvalues", "[", "%2", "]"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"Eigenvalues", "[", "%2", "]"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ ShowStringCharacters -> True, "StandardForm", 12, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]", "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{Deployed -> True}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[WolframAlphaClient`Private`open$1209], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[3]=

In[2]:=

X Column[Eigenvalues[Table[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "5 random numbers", WolframAlphaClient`Private`boxes$$ = RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", "5"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Function", "word" -> "random number", "count" -> "2", "Values" -> {{ "name" -> "RandomReal", "desc" -> "RandomReal", "input" -> "*FunClash.random+number-_*RandomReal.\ RandomInteger-"}, { "name" -> "RandomInteger", "desc" -> "RandomInteger", "input" -> "*FunClash.random+number-_*RandomInteger.\ RandomReal-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{158., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), {k, 5}]]]

Out[2]=

In[3]:=

X \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "5 random numbers", WolframAlphaClient`Private`boxes$$ = RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", "5"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Function", "word" -> "random number", "count" -> "2", "Values" -> {{ "name" -> "RandomReal", "desc" -> "RandomReal", "input" -> "*FunClash.random+number-_*RandomReal.\ RandomInteger-"}, { "name" -> "RandomInteger", "desc" -> "RandomInteger", "input" -> "*FunClash.random+number-_*RandomInteger.\ RandomReal-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{158., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)/\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "5 random numbers", WolframAlphaClient`Private`boxes$$ = RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", "5"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Function", "word" -> "random number", "count" -> "2", "Values" -> {{ "name" -> "RandomReal", "desc" -> "RandomReal", "input" -> "*FunClash.random+number-_*RandomReal.\ RandomInteger-"}, { "name" -> "RandomInteger", "desc" -> "RandomInteger", "input" -> "*FunClash.random+number-_*RandomInteger.\ RandomReal-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{158., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\) + \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "5 random numbers", WolframAlphaClient`Private`boxes$$ = RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", "5"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Function", "word" -> "random number", "count" -> "2", "Values" -> {{ "name" -> "RandomReal", "desc" -> "RandomReal", "input" -> "*FunClash.random+number-_*RandomReal.\ RandomInteger-"}, { "name" -> "RandomInteger", "desc" -> "RandomInteger", "input" -> "*FunClash.random+number-_*RandomInteger.\ RandomReal-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{158., {12., 17.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[3]=

In[4]:=

X ListPlot[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "60 random numbers", WolframAlphaClient`Private`boxes$$ = RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", "}"}], ",", " ", "60"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "Function", "word" -> "random number", "count" -> "2", "Values" -> {{ "name" -> "RandomReal", "desc" -> "RandomReal", "input" -> "*FunClash.random+number-_*RandomReal.\ RandomInteger-"}, { "name" -> "RandomInteger", "desc" -> "RandomInteger", "input" -> "*FunClash.random+number-_*RandomInteger.\ RandomReal-"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{165., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), PlotRange -> All, Filling -> Axis]

Out[4]=

In[5]:=

X ListLinePlot[Abs[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Fourier 1,2,1,4,2,3,5,2,3,5,2,3", WolframAlphaClient`Private`boxes$$ = RowBox[{"Fourier", "[", RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "1", ",", " ", "4", ",", " ", "2", ",", " ", "3", ",", " ", "5", ",", " ", "2", ",", " ", "3", ",", " ", "5", ",", " ", "2", ",", " ", "3"}], "}"}], "]"}], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{350., {25., 30.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)], Mesh -> All, PlotRange -> All]

Out[5]=

In[6]:=

X ListLinePlot[Transpose[{\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "1,2,3,4,5,6,7,8,9", WolframAlphaClient`Private`boxes$$ = RowBox[{"{", RowBox[{"1", ",", " ", "2", ",", " ", "3", ",", " ", "4", ",", " ", "5", ",", " ", "6", ",", " ", "7", ",", " ", "8", ",", " ", "9"}], "}"}], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{224., {25., 30.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "2,4,1,2,4,6,3,5,5", WolframAlphaClient`Private`boxes$$ = RowBox[{"{", RowBox[{"2", ",", " ", "4", ",", " ", "1", ",", " ", "2", ",", " ", "4", ",", " ", "6", ",", " ", "3", ",", " ", "5", ",", " ", "5"}], "}"}], WolframAlphaClient`Private`allassumptions$$ = {}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{224., {25., 30.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)}], Mesh -> All]

Out[6]=