Integration with Wolfram|Alpha

Linguistics 

In[1]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "Everything should be made as simple as possible", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Content"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, 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[ TagBox[ FormBox[ FormBox[ StyleBox["\"Everything should be made as simple as possible,...\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, StripOnInput -> False], TraditionalForm], TraditionalForm], Format[#, TraditionalForm]& ], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Data", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell["...But not simpler."], TextCell["...But not simpler."]]}, { StyleBox[ RowBox[{"\"(\"", "", "\"according to Albert Einstein\"", "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", GrayLevel[0.5], FontSize -> 10, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {"computabledata,formatteddata"}]}]}], aux1$$ = {True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Miscellaneous", "timedout" -> "", "timing" -> "0.474", "parsetiming" -> "0.359", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 14, 29, 12.6047713`8.853109926707894}, "Line" -> 18, "SessionID" -> 22924201434736041020}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {"Result", "Result", 1, 1, "Content"}, Typeset`open$$ = False, Typeset`newq$$ = "Everything should be made as simple as possible"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$}, {aux1$$, aux2$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{308., {28., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[1]=

In[2]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "speak \"Everything should be made as simple as possible, but not \ simpler.\"", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Input", "Input interpretation", 1, 1, "Input", "Speak[\"Everything should be made as simple as possible, \ but not simpler.\"]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Speak[\"Everything should be made as simple as possible, \ but not simpler.\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"Speak", "[", TagBox[ GridBox[{{ StyleBox["\"Everything should be made as simple as possible, but not \ simpler.\"", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"expression\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], Speak[ "Everything should be made as simple as possible, but \ not simpler."]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Speak.html", "text" -> "Mathematica definition of Speak"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Example", "scanner" -> "MInput", "id" -> "Example", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Speak[\"Everything should be made as simple as possible, \ but not simpler.\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox["\"In[1]:=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ RowBox[{"Speak", "[", "\"Everything should be made as simple as \ possible, but not simpler.\"", "]"}], ShowStringCharacters -> True], { FontSize -> 11}]}, {"", ""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "1.087", "parsetiming" -> "0.961", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 3, 17, 21, 3.744579`8.325977978378758}, "Line" -> 68, "SessionID" -> 22923116152010405280}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Input", "Input interpretation", 1, 1, "Input", "Speak[\"Everything should be made as simple as possible, but \ not simpler.\"]"}, Typeset`open$$ = False, Typeset`newq$$ = "speak \"Everything should be made as simple as possible, but not \ simpler.\""}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$}, {aux1$$, aux2$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{416., {105., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

In[3]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "find the hamming distance between goat and moat", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "HammingDistance[\"goat\", \"moat\"]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"HammingDistance[\"goat\", \"moat\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"HammingDistance", "[", RowBox[{ TagBox[ GridBox[{{ StyleBox["\"goat\"", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"string\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], ",", TagBox[ GridBox[{{ StyleBox["\"moat\"", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"string\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"]}], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], HammingDistance["goat", "moat"]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ HammingDistance.html", "text" -> "Mathematica definition of HammingDistance"}, \ {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "MInput", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> "", "primary" -> "true"}, { XMLElement["minput", {}, {"HammingDistance[\"goat\", \"moat\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ StyleBox["1", ShowStringCharacters -> True], Graphics3DBoxOptions -> {Boxed -> False}, StripOnInput -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "0.924", "parsetiming" -> "0.814", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 3, 10, 28, 27.2101888`9.187306470692727}, "Line" -> 77, "SessionID" -> 22922952456426429016}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "HammingDistance[\"goat\", \"moat\"]"}, Typeset`open$$ = False, Typeset`newq$$ = "find the hamming distance between goat and moat"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$}, {aux1$$, aux2$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{316., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[3]=

In[4]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "_al__a__", Typeset`newq$$ = "_al__a__", Typeset`chosen$$ = "DictionaryLookup[_~~\"al\"~~_~~_~~\"a\"~~_~~_]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], 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$\ 1322 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "_al__a__", Defer[ DictionaryLookup[ StringExpression[ Blank[], "al", Blank[], Blank[], "a", Blank[], Blank[]]]], "Fast parse"]; WolframAlphaClient`Private`open$\ 1322 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"DictionaryLookup", "[", RowBox[{"_", "~~", "\"\<al\>\"", "~~", "_", "~~", "_", "~~", "\"\<a\>\"", "~~", "_", "~~", "_"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"DictionaryLookup", "[", RowBox[{"_", "~~", "\<\"al\"\>", "~~", "_", "~~", "_", "~~", "\<\"a\"\>", "~~", "_", "~~", "_"}], "]"}], 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[{"DictionaryLookup", "[", RowBox[{"_", "~~", "\"al\"", "~~", "_", "~~", "_", "~~", "\"a\"", "~~", "_", "~~", "_"}], "]"}]], "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]"} }, 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}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], 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$\ 1322 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "_al__a__", Defer[ DictionaryLookup[ StringExpression[ Blank[], "al", Blank[], Blank[], "a", Blank[], Blank[]]]], "Fast parse"]; WolframAlphaClient`Private`open$\ 1322 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"DictionaryLookup", "[", RowBox[{"_", "~~", "\<\"al\"\>", "~~", "_", "~~", "_", "~~", "\<\"a\"\>", "~~", "_", "~~", "_"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"DictionaryLookup", "[", RowBox[{"_", "~~", "\<\"al\"\>", "~~", "_", "~~", "_", "~~", "\<\"a\"\>", "~~", "_", "~~", "_"}], "]"}], 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[{"DictionaryLookup", "[", RowBox[{"_", "~~", "\"al\"", "~~", "_", "~~", "_", "~~", "\"a\"", "~~", "_", "~~", "_"}], "]"}]], "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]"} }, 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$1322], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[4]=

In[5]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "count \"ab\" in asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "StringCount[\"asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs\", \ \"ab\"]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "StringCount[\"asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs\", \ \"ab\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"StringCount", "[", RowBox[{ TagBox[ GridBox[{{ StyleBox["\"asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs\"", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"string\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], ",", TagBox[ GridBox[{{ StyleBox["\"ab\"", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"pattern\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"]}], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], StringCount[ "asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs", "ab"]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ StringCount.html", "text" -> "Mathematica definition of StringCount"}, \ {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "MInput", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> "", "primary" -> "true"}, { XMLElement[ "minput", {}, { "StringCount[\"asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs\", \ \"ab\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ StyleBox["3", ShowStringCharacters -> True], Graphics3DBoxOptions -> {Boxed -> False}, StripOnInput -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "0.7", "parsetiming" -> "0.593", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 14, 28, 37.3972509`9.325414566301685}, "Line" -> 16, "SessionID" -> 22924201434736041020}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "StringCount[\"asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs\", \ \"ab\"]"}, Typeset`open$$ = False, Typeset`newq$$ = "count \"ab\" in asfjsoabdfgikjsdiopjdabropgjgpdofjgdpabdfs"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$}, {aux1$$, aux2$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{365., {88., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[5]=