Integration with Wolfram|Alpha

Probability and Statistics 

In[1]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "pie chart {25, 35, 10, 17, 29, 14, 21, 31}", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "PieChart", "Pie chart", 1, 1, "Input", "PieChart[{25, 35, 10, 17, 29, 14, 21, 31}]"}, "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[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"pie chart\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TagBox[ RowBox[{"{", RowBox[{ TagBox["25", HoldForm], ",", TagBox["35", HoldForm], ",", TagBox["10", HoldForm], ",", TagBox["17", HoldForm], ",", TagBox["29", HoldForm], ",", TagBox["14", HoldForm], ",", TagBox["21", HoldForm], ",", TagBox["31", HoldForm]}], "}"}], HoldForm]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 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" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Pie chart", "scanner" -> "Plot", "id" -> "PieChart", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, {"PieChart[{25, 35, 10, 17, 29, 14, 21, 31}]"}], XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TemplateBox[{ GraphicsBox[{ EdgeForm[ RGBColor[0.59, 0.615, 0.71]], RGBColor[1., 0.885115, 0.509773], DiskBox[{0, 0}, 1, {0, 1.2083048667653051`}], RGBColor[0.959274, 0.715663, 0.430045], DiskBox[{0, 0}, 1, {1.2083048667653051`, 2.2785177487574324`}], RGBColor[0.90045, 0.509331, 0.420844], DiskBox[{0, 0}, 1, {2.2785177487574324`, 3.279684638362971}], RGBColor[0.882353, 0.806806, 0.66154], DiskBox[{0, 0}, 1, {3.279684638362971, 4.142759543195332}], RGBColor[0.693034, 0.814481, 0.536202], DiskBox[{0, 0}, 1, {4.142759543195332, 4.867742463254515}], RGBColor[0.675563, 0.816068, 0.79678], DiskBox[{0, 0}, 1, {4.867742463254515, 5.454633398540521}], RGBColor[1., 0.885115, 0.509773], DiskBox[{0, 0}, 1, {5.454633398540521, 5.9379553452466425`}], RGBColor[0.959274, 0.715663, 0.430045], DiskBox[{0, 0}, 1, {5.9379553452466425`, 6.283185307179587}], RGBColor[0.59, 0.615, 0.71], PointBox[{0.8229838658936564, 0.5680647467311558}], PointBox[{-0.17175905309127612`, 0.9851389890168738}], PointBox[{-0.9350162426854147, 0.35460488704253584`}], PointBox[{-0.8421008849228117, -0.5393200344991994}], PointBox[{-0.2056599030859361, -0.9786235252959553}], PointBox[{0.43388373911755873`, -0.9009688679024188}], PointBox[{0.8326664226872067, -0.5537748897605327}], PointBox[{0.9851389890168738, -0.171759053091276}], LineBox[ NCache[{{0.43388373911755873`, -0.9009688679024188}, { Rational[21, 20], -0.9009688679024188}, { 1.15, -0.9009688679024188}}, {{ 0.43388373911755873`, -0.9009688679024188}, { 1.05, -0.9009688679024188}, { 1.15, -0.9009688679024188}}]], LineBox[ NCache[{{0.8326664226872067, -0.5537748897605327}, { Rational[21, 20], -0.5537748897605327}, { 1.15, -0.5537748897605327}}, {{ 0.8326664226872067, -0.5537748897605327}, { 1.05, -0.5537748897605327}, { 1.15, -0.5537748897605327}}]], LineBox[ NCache[{{0.9851389890168738, -0.171759053091276}, { Rational[21, 20], -0.171759053091276}, {1.15, -0.171759053091276}}, {{ 0.9851389890168738, -0.171759053091276}, { 1.05, -0.171759053091276}, { 1.15, -0.171759053091276}}]], LineBox[ NCache[{{0.8229838658936564, 0.5680647467311558}, { Rational[21, 20], 0.5680647467311558}, {1.15, 0.5680647467311558}}, {{ 0.8229838658936564, 0.5680647467311558}, {1.05, 0.5680647467311558}, {1.15, 0.5680647467311558}}]], LineBox[ NCache[{{-0.2056599030859361, -0.9786235252959553}, { Rational[-21, 20], -0.9786235252959553}, {-1.15, \ -0.9786235252959553}}, {{-0.2056599030859361, -0.9786235252959553}, \ {-1.05, -0.9786235252959553}, {-1.15, -0.9786235252959553}}]], LineBox[ NCache[{{-0.8421008849228117, -0.5393200344991994}, { Rational[-21, 20], -0.5393200344991994}, {-1.15, \ -0.5393200344991994}}, {{-0.8421008849228117, -0.5393200344991994}, \ {-1.05, -0.5393200344991994}, {-1.15, -0.5393200344991994}}]], LineBox[ NCache[{{-0.9350162426854147, 0.35460488704253584`}, { Rational[-21, 20], 0.35460488704253584`}, {-1.15, 0.35460488704253584`}}, {{-0.9350162426854147, 0.35460488704253584`}, {-1.05, 0.35460488704253584`}, {-1.15, 0.35460488704253584`}}]], LineBox[ NCache[{{-0.17175905309127612`, 0.9851389890168738}, { Rational[-21, 20], 0.9851389890168738}, {-1.15, 0.9851389890168738}}, {{-0.17175905309127612`, 0.9851389890168738}, {-1.05, 0.9851389890168738}, {-1.15, 0.9851389890168738}}]], InsetBox[ FormBox[ StyleBox["17", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[6, 5], -0.9009688679024188}, { 1.2, -0.9009688679024188}], {-1, 0}], InsetBox[ FormBox[ StyleBox["14", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[6, 5], -0.5537748897605327}, { 1.2, -0.5537748897605327}], {-1, 0}], InsetBox[ FormBox[ StyleBox["10", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[6, 5], -0.171759053091276}, {1.2, -0.171759053091276}], {-1, 0}], InsetBox[ FormBox[ StyleBox["35", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[6, 5], 0.5680647467311558}, {1.2, 0.5680647467311558}], {-1, 0}], InsetBox[ FormBox[ StyleBox["21", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[-6, 5], -0.9786235252959553}, {-1.2, -0.9786235252959553}], { 1, 0}], InsetBox[ FormBox[ StyleBox["25", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[-6, 5], -0.5393200344991994}, {-1.2, -0.5393200344991994}], { 1, 0}], InsetBox[ FormBox[ StyleBox["29", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[-6, 5], 0.35460488704253584`}, {-1.2, 0.35460488704253584`}], {1, 0}], InsetBox[ FormBox[ StyleBox["31", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False], TraditionalForm], NCache[{ Rational[-6, 5], 0.9851389890168738}, {-1.2, 0.9851389890168738}], {1, 0}]}, ImageSize -> {Automatic, 120}, { Background -> None, ImageSize -> {Automatic, 120}, LabelStyle -> Automatic, RotateLabel -> False, AlignmentPoint -> Center, AspectRatio -> Automatic, Axes -> False, AxesLabel -> None, AxesOrigin -> Automatic, AxesStyle -> {}, Background -> None, BaselinePosition -> Automatic, BaseStyle -> {}, ColorOutput -> Automatic, ContentSelectable -> Automatic, CoordinatesToolOptions -> Automatic, DisplayFunction :> $DisplayFunction, Epilog -> {}, FormatType :> TraditionalForm, Frame -> False, FrameLabel -> None, FrameStyle -> {}, FrameTicks -> Automatic, FrameTicksStyle -> {}, GridLines -> None, GridLinesStyle -> {}, ImageMargins -> 0., ImagePadding -> All, ImageSize -> Automatic, ImageSizeRaw -> Automatic, LabelStyle -> {}, Method -> Automatic, PlotLabel -> None, PlotRange -> Automatic, PlotRangeClipping -> False, PlotRangePadding -> Automatic, PlotRegion -> Automatic, PreserveImageOptions -> Automatic, Prolog -> {}, RotateLabel -> True, Ticks -> Automatic, TicksStyle -> {}, TicksStyle -> {}}], TagBox[ GridBox[{{ GraphicsBox[{ RGBColor[1., 0.885115, 0.509773], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"35", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox[ "\"19.2\"", 19.230769230769234`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[0.959274, 0.715663, 0.430045], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"31", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox[ "\"17.0\"", 17.032967032967033`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[0.90045, 0.509331, 0.420844], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"29", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox[ "\"15.9\"", 15.934065934065933`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[0.882353, 0.806806, 0.66154], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"25", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox[ "\"13.7\"", 13.736263736263737`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[0.693034, 0.814481, 0.536202], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"21", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox[ "\"11.5\"", 11.538461538461538`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[0.675563, 0.816068, 0.79678], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"17", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox["\"9.3\"", 9.340659340659341, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[1., 0.885115, 0.509773], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"14", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox["\"7.7\"", 7.6923076923076925`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}, { GraphicsBox[{ RGBColor[0.959274, 0.715663, 0.430045], RectangleBox[{0, 0}]}, ImageSize -> 13, BaselinePosition -> (Center -> Center)], StyleBox[ TemplateBox[{"10", "\" \"", StyleBox[ RowBox[{"\"(\"", "", TemplateBox[{ TagBox[ InterpretationBox["\"5.5\"", 5.4945054945054945`, AutoDelete -> True], NumberForm[#, {3, 1}]& ], "\"%\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.3}}}], "Grid"]}, "Labeled", DisplayFunction -> (FormBox[ GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], TraditionalForm]& ), InterpretationFunction -> (RowBox[{ StyleBox["Labeled", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{#, ",", #2, ",", StyleBox["Right", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited]}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Plot", "timedout" -> "", "timing" -> "1.48", "parsetiming" -> "1.261", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 10, 13, 14.0929703`8.901577487657233}, "Line" -> 43, "SessionID" -> 22924091242354433769}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "PieChart", "Pie chart", 1, 1, "Input", "PieChart[{25, 35, 10, 17, 29, 14, 21, 31}]"}, Typeset`open$$ = False, Typeset`newq$$ = "pie chart {25, 35, 10, 17, 29, 14, 21, 31}"}, 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->{329., {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[1]=

In[2]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "median 98.17, 112.3, 102.6, 94.3, 108.1", Typeset`newq$$ = "median 98.17, 112.3, 102.6, 94.3, 108.1", Typeset`chosen$$ = "Median[{98.17, 112.3, 102.6, 94.3, 108.1}]"}, 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$\ 18368 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "median 98.17, 112.3, 102.6, 94.3, 108.1", Defer[ Median[{98.17, 112.3, 102.6, 94.3, 108.1}]], "Fast parse"]; WolframAlphaClient`Private`open$\ 18368 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Median", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Median", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], 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[{"Median", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}]], "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$\ 18368 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "median 98.17, 112.3, 102.6, 94.3, 108.1", Defer[ Median[{98.17, 112.3, 102.6, 94.3, 108.1}]], "Fast parse"]; WolframAlphaClient`Private`open$\ 18368 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Median", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Median", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], 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[{"Median", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}]], "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$18368], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[2]=

In[3]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "standard deviation 98.17, 112.3, 102.6, 94.3, 108.1", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "StandardDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}, "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[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"standard deviation\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TagBox[ RowBox[{"{", RowBox[{"98.17`", ",", "112.3`", ",", "102.6`", ",", "94.3`", ",", "108.1`"}], "}"}], HoldForm]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 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" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Statistics", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "StandardDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}], XMLElement["moutput", {}, {"7.273835301957282"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["7.273835301957282`", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "standard deviation", "count" -> "2"}, { XMLElement[ "value", { "name" -> "StandardDeviation", "desc" -> "sample standard deviation", "input" -> "*C.standard+deviation-_*StandardDeviation-"}, \ {}], XMLElement[ "value", { "name" -> "PopulationStandardDeviation", "desc" -> "population standard deviation", "input" -> "*C.standard+deviation-_*\ PopulationStandardDeviation-"}, {}]}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Probability", "timedout" -> "", "timing" -> "1.352", "parsetiming" -> "1.238", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 10, 18, 2.5153558`8.153174408901009}, "Line" -> 51, "SessionID" -> 22924091242354433769}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "StandardDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}, Typeset`open$$ = False, Typeset`newq$$ = "standard deviation 98.17, 112.3, 102.6, 94.3, 108.1"}, 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->{406., {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["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "quartile deviation 98.17, 112.3, 102.6, 94.3, 108.1", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "QuartileDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "QuartileDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"quartile deviation\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TagBox[ RowBox[{"{", RowBox[{"98.17`", ",", "112.3`", ",", "102.6`", ",", "94.3`", ",", "108.1`"}], "}"}], HoldForm]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 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" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Statistics", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "QuartileDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}], XMLElement["moutput", {}, {"5.9737499999999955"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["5.9737499999999955`", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], 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.567", "parsetiming" -> "0.443", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 10, 18, 31.7928672`9.254904600592647}, "Line" -> 52, "SessionID" -> 22924091242354433769}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "QuartileDeviation[{98.17, 112.3, 102.6, 94.3, 108.1}]"}, Typeset`open$$ = False, Typeset`newq$$ = "quartile deviation 98.17, 112.3, 102.6, 94.3, 108.1"}, 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->{406., {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[4]=

In[5]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "variance {21.3, 38.4, 12.7, 41.6}", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "Variance[{21.3, 38.4, 12.7, 41.6}]"}, "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[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"variance\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TagBox[ RowBox[{"{", RowBox[{"21.3`", ",", "38.4`", ",", "12.7`", ",", "41.6`"}], "}"}], HoldForm]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 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" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Statistics", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Variance[{21.3, 38.4, 12.7, 41.6}]"}], XMLElement["moutput", {}, {"190.36666666666667"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["190.36666666666667`", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "variance", "count" -> "2"}, { XMLElement[ "value", { "name" -> "Variance", "desc" -> "sample variance", "input" -> "*C.variance-_*Variance-"}, {}], XMLElement[ "value", { "name" -> "PopulationVariance", "desc" -> "population variance", "input" -> "*C.variance-_*PopulationVariance-"}, {}]}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Probability", "timedout" -> "", "timing" -> "0.509", "parsetiming" -> "0.42", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 10, 18, 54.6230332`9.48995065458383}, "Line" -> 53, "SessionID" -> 22924091242354433769}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "Variance[{21.3, 38.4, 12.7, 41.6}]"}, Typeset`open$$ = False, Typeset`newq$$ = "variance {21.3, 38.4, 12.7, 41.6}"}, 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->{274., {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[5]=

In[6]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "skewness 98.17, 112.3, 102.6, 94.3, 108.1", Typeset`newq$$ = "skewness 98.17, 112.3, 102.6, 94.3, 108.1", Typeset`chosen$$ = "Skewness[{98.17, 112.3, 102.6, 94.3, 108.1}]"}, 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$\ 19252 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "skewness 98.17, 112.3, 102.6, 94.3, 108.1", Defer[ Skewness[{98.17, 112.3, 102.6, 94.3, 108.1}]], "Fast parse"]; WolframAlphaClient`Private`open$\ 19252 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Skewness", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Skewness", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], 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[{"Skewness", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}]], "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$\ 19252 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "skewness 98.17, 112.3, 102.6, 94.3, 108.1", Defer[ Skewness[{98.17, 112.3, 102.6, 94.3, 108.1}]], "Fast parse"]; WolframAlphaClient`Private`open$\ 19252 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Skewness", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Skewness", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}], 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[{"Skewness", "[", RowBox[{"{", RowBox[{"98.17", ",", " ", "112.3", ",", " ", "102.6", ",", " ", "94.3", ",", " ", "108.1"}], "}"}], "]"}]], "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$19252], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[6]=

In[7]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "kurtosis {21.3, 38.4, 12.7, 41.6}", Typeset`newq$$ = "kurtosis {21.3, 38.4, 12.7, 41.6}", Typeset`chosen$$ = "Kurtosis[{21.3, 38.4, 12.7, 41.6}]"}, 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$\ 19370 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "kurtosis {21.3, 38.4, 12.7, 41.6}", Defer[ Kurtosis[{21.3, 38.4, 12.7, 41.6}]], "Fast parse"]; WolframAlphaClient`Private`open$\ 19370 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Kurtosis", "[", RowBox[{"{", RowBox[{"21.3", ",", " ", "38.4", ",", " ", "12.7", ",", " ", "41.6"}], "}"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Kurtosis", "[", RowBox[{"{", RowBox[{"21.3", ",", " ", "38.4", ",", " ", "12.7", ",", " ", "41.6"}], "}"}], "]"}], 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[{"Kurtosis", "[", RowBox[{"{", RowBox[{"21.3", ",", " ", "38.4", ",", " ", "12.7", ",", " ", "41.6"}], "}"}], "]"}]], "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$\ 19370 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "kurtosis {21.3, 38.4, 12.7, 41.6}", Defer[ Kurtosis[{21.3, 38.4, 12.7, 41.6}]], "Fast parse"]; WolframAlphaClient`Private`open$\ 19370 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"Kurtosis", "[", RowBox[{"{", RowBox[{"21.3", ",", " ", "38.4", ",", " ", "12.7", ",", " ", "41.6"}], "}"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"Kurtosis", "[", RowBox[{"{", RowBox[{"21.3", ",", " ", "38.4", ",", " ", "12.7", ",", " ", "41.6"}], "}"}], "]"}], 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[{"Kurtosis", "[", RowBox[{"{", RowBox[{"21.3", ",", " ", "38.4", ",", " ", "12.7", ",", " ", "41.6"}], "}"}], "]"}]], "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$19370], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[7]=

In[8]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "poisson distribution 0.5", Typeset`newq$$ = "poisson distribution 0.5", Typeset`chosen$$ = "PoissonDistribution[0.5]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 7681 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "poisson distribution 0.5", Defer[ PoissonDistribution[0.5]], "Fast parse"]; WolframAlphaClient`Private`open$\ 7681 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], 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[{"PoissonDistribution", "[", "0.5", "]"}]], "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, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 7681 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "poisson distribution 0.5", Defer[ PoissonDistribution[0.5]], "Fast parse"]; WolframAlphaClient`Private`open$\ 7681 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], 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[{"PoissonDistribution", "[", "0.5", "]"}]], "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$7681], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[8]=

In[9]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "probability density function poisson distribution 0.5", Typeset`newq$$ = "probability density function poisson distribution 0.5", Typeset`chosen$$ = "PDF[PoissonDistribution[0.5], x]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 7821 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "probability density function poisson distribution \ 0.5", Defer[ PDF[ PoissonDistribution[0.5], x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 7821 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], ",", " ", "x"}], "]"}], 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[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], ",", " ", "x"}], "]"}]], "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, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 7821 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "probability density function poisson \ distribution 0.5", Defer[ PDF[ PoissonDistribution[0.5], x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 7821 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], ",", " ", "x"}], "]"}], 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[{"PDF", "[", RowBox[{ RowBox[{"PoissonDistribution", "[", "0.5", "]"}], ",", " ", "x"}], "]"}]], "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$7821], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[9]=

In[10]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "cumulative distribution function gaussian 2, 4", Typeset`newq$$ = "cumulative distribution function gaussian 2, 4", Typeset`chosen$$ = "CDF[NormalDistribution[2, 4], x]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 7960 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "cumulative distribution function gaussian 2, 4", Defer[ CDF[ NormalDistribution[2, 4], x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 7960 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], 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[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}]], "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, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 7960 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "cumulative distribution function gaussian 2, 4", Defer[ CDF[ NormalDistribution[2, 4], x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 7960 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], 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[{"CDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}]], "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$7960], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[10]=

In[11]:=

X \!\(\* NamespaceBox["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "probability density function gaussian 2, 4", Typeset`newq$$ = "probability density function gaussian 2, 4", Typeset`chosen$$ = "PDF[NormalDistribution[2, 4], x]"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 8097 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "probability density function gaussian 2, 4", Defer[ PDF[ NormalDistribution[2, 4], x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 8097 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], 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[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}]], "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, WolframAlphaClient`Private`assumptionsQ$$ = 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$\ 8097 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "probability density function gaussian 2, 4", Defer[ PDF[ NormalDistribution[2, 4], x]], "Fast parse"]; WolframAlphaClient`Private`open$\ 8097 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}], 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[{"PDF", "[", RowBox[{ RowBox[{"NormalDistribution", "[", RowBox[{"2", ",", " ", "4"}], "]"}], ",", " ", "x"}], "]"}]], "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$8097], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[11]=

In[12]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "probability of 2 heads in 5 coin flips", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "ProbabilityOfOccurrence", "Probability of occurrence", 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[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"sequence of coin flips\"", { 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" -> {2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], StyleBox[ TagBox[ GridBox[{{ StyleBox["\"number of heads\"", { GrayLevel[0.6]}], "2"}, { StyleBox["\"number of tails\"", { GrayLevel[0.6]}], "3"}}, GridBoxBackground -> { "Columns" -> {None, None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 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, Editable -> True], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Probability of occurrence", "scanner" -> "Statistics", "id" -> "ProbabilityOfOccurrence", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ TemplateBox[{"0.3125`", "\"\[TildeTilde]\"", StyleBox[ FractionBox["1", TagBox["3.2", TagBoxWrapper["StringBoxes" -> "3.2"]]], ScriptLevel -> 0, StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, "\[ThinSpace]", #2, "\[ThinSpace]", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\" \""}], "]"}]& )]}, { StyleBox[ RowBox[{"\"(\"", "", "\"assuming a fair coin\"", "", "\")\""}], 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,numberdata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "Show computation", "input" -> "Probability of occurrence_Show computation"}, \ {}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Distribution of number of heads", "scanner" -> "Statistics", "id" -> "DistributionOfNumberOfHeads/successes", "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "ListPlot[{Tooltip[{{0, 1/32}, {1, 5/32}, {2, 5/16}, {3, \ 5/16}, {4, 5/32}, {5, 1/32}}], Tooltip[{{2, 5/16}}]}, Filling -> If[ \ !StringQ[2], {1 -> Axis, 2 -> {Axis, Directive[Red, \ Thickness[0.007]]}}, Axis], Frame -> True, FrameLabel -> \ {Style[StringJoin[\"number of \", \"heads\"], \"Label\", 10], \ Style[\"probability\", \"Label\", 10]}]"}], XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TemplateBox[{ GraphicsBox[ GraphicsComplexBox[CompressedData[" 1:eJxTTMoPSmViYGCQAGIQjQoW2EPoD1D6CJRmcIBQV6B8DjS+gAOqehEHVPPQ 9ePiwwE6Hw3A3IdLPQcaXwCNL4LGhwH6+x8AAtgadw== "], {{{}, {}, {}, {}, {}, { Directive[{ Opacity[0.2], Hue[0.67, 0.6, 0.6]}], LineBox[{11, 1}], LineBox[{12, 2}], LineBox[{13, 3}], LineBox[{14, 4}], LineBox[{15, 5}], LineBox[{16, 6}]}, {}, { Directive[ RGBColor[1, 0, 0], Thickness[0.007]], LineBox[{9, 7}], LineBox[{10, 8}]}}, {{}, { Hue[0.67, 0.6, 0.6], PointBox[{17, 18, 19, 20, 21, 22}]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ RGBColor[1, 0, 0], PointSize[Large]], PointBox[{23, 24}]}, {}}, { TagBox[ TooltipBox[{ Opacity[0.], PointBox[1]}, RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "32"]}], "}"}]], Annotation[#, {0, Rational[1, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[2]}, RowBox[{"{", RowBox[{"1", ",", FractionBox["5", "32"]}], "}"}]], Annotation[#, {1, Rational[5, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[3]}, RowBox[{"{", RowBox[{"2", ",", FractionBox["5", "16"]}], "}"}]], Annotation[#, {2, Rational[5, 16]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[4]}, RowBox[{"{", RowBox[{"3", ",", FractionBox["5", "16"]}], "}"}]], Annotation[#, {3, Rational[5, 16]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[5]}, RowBox[{"{", RowBox[{"4", ",", FractionBox["5", "32"]}], "}"}]], Annotation[#, {4, Rational[5, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[6]}, RowBox[{"{", RowBox[{"5", ",", FractionBox["1", "32"]}], "}"}]], Annotation[#, {5, Rational[1, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[7]}, RowBox[{"{", RowBox[{"2", ",", FractionBox["5", "16"]}], "}"}]], Annotation[#, {2, Rational[5, 16]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[8]}, RowBox[{"{", RowBox[{"2", ",", FractionBox["5", "16"]}], "}"}]], Annotation[#, {2, Rational[5, 16]}, "Tooltip"]& ]}}], { AspectRatio -> NCache[ GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, False}, AxesOrigin -> NCache[{ Rational[5, 2], 0}, {2.5, 0}], BaseStyle -> {CellBaseline -> Baseline}, Frame -> True, FrameLabel -> { FormBox[ StyleBox["\"number of heads\"", "Label", 10, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox["\"probability\"", "Label", 10, StripOnInput -> False], TraditionalForm]}, FrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10], ImageSize -> 200, LabelStyle -> { FontFamily -> "Verdana", FontSize -> 10}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{0.1, 0.1}, {0, Scaled[0.1]}}, TicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10]}], StyleBox[ RowBox[{"\"(\"", "", "\"assuming a fair coin\"", "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", GrayLevel[0.5], FontSize -> 10, StripOnInput -> False]}, "Labeled", DisplayFunction -> (FormBox[ GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, Alignment -> {Left, Inherited}, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], TraditionalForm]& ), InterpretationFunction -> (RowBox[{ StyleBox["Labeled", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{#, ",", #2, ",", RowBox[{"(", "", GridBox[{{ StyleBox["Bottom", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], StyleBox["Left", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited]}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> Center], "", ")"}]}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod4$$ = XMLElement[ "pod", {"title" -> "Other probability results", "scanner" -> "Statistics", "id" -> "OtherProbabilityResults", "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ TagBox[ PaneBox["\"\"", BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Center}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TagBox[ PaneBox["\"probability\"", BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Center}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]]}, { TagBox[ PaneBox[ TemplateBox[{"\"less than \"", "2", "\" \"", "\"heads\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TagBox["0.1875", TagBoxWrapper["StringBoxes" -> "0.1875"]]}, { TagBox[ PaneBox[ TemplateBox[{"2", "\" or less \"", "\"heads\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TagBox["0.5", TagBoxWrapper["StringBoxes" -> "0.5"]]}, { TagBox[ PaneBox[ TemplateBox[{"\"more than \"", "2", "\" \"", "\"heads\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TagBox["0.5", TagBoxWrapper["StringBoxes" -> "0.5"]]}, { TagBox[ PaneBox[ TemplateBox[{"2", "\" or more \"", "\"heads\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TagBox["0.8125", TagBoxWrapper["StringBoxes" -> "0.8125"]]}}, GridBoxAlignment -> { "Columns" -> {Left, Left}, "Rows" -> {{Baseline}}, "ItemsIndexed" -> {{1, 1} -> {Center, Bottom}, { 1, 2} -> {Center, Bottom}}}, AutoDelete -> False, GridBoxBackground -> { "Columns" -> {None, None}, "Rows" -> {None, None}}, GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, FrameStyle -> GrayLevel[0.84], BaselinePosition -> Automatic, AllowScriptLevelChange -> False], "Grid"], LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, StripOnInput -> False]}, { StyleBox[ RowBox[{"\"(\"", "", "\"assuming a fair coin\"", "", "\")\""}], 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,numberdata"}]}]}], pod5$$ = XMLElement[ "pod", {"title" -> "Stated frequencies", "scanner" -> "Statistics", "id" -> "StatedFrequencies", "position" -> "500", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ GridBox[{{ TagBox[ PaneBox[ TemplateBox[{"\"fraction of \"", "\"heads\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TemplateBox[{ TagBox[ FractionBox["2", "5"], HoldForm], "\"=\"", "0.4`"}, "Row", DisplayFunction -> ( RowBox[{#, "\[ThinSpace]", #2, "\[ThinSpace]", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\" \""}], "]"}]& )]}, { TagBox[ PaneBox[ TemplateBox[{"\"fraction of \"", "\"tails\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], TemplateBox[{ TagBox[ FractionBox["3", "5"], HoldForm], "\"=\"", "0.6`"}, "Row", DisplayFunction -> ( RowBox[{#, "\[ThinSpace]", #2, "\[ThinSpace]", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\" \""}], "]"}]& )]}}, GridBoxAlignment -> { "Columns" -> {Left, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {None, None}}, GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, FrameStyle -> GrayLevel[0.84], BaselinePosition -> Automatic, AllowScriptLevelChange -> False], "Grid"], LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, StripOnInput -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], pod6$$ = XMLElement[ "pod", {"title" -> "Expected total", "scanner" -> "Statistics", "id" -> "StatisticsForNumberOfHeads/successes", "position" -> "600", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FractionBox["5", "2"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More statistics", "input" -> "Expected total_More statistics"}, {}]}]}], aux1$$ = {True, False, {False}}, aux2$$ = {True, False, {False}}, aux3$$ = {True, False, {False}}, aux4$$ = {True, False, {False}}, aux5$$ = {True, False, {False}}, aux6$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "6", "datatypes" -> "Probability", "timedout" -> "", "timing" -> "0.887", "parsetiming" -> "0.668", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 11, 0, 23, 19.3268549`9.038736123455099}, "Line" -> 238, "SessionID" -> 22927196902227628400}, Typeset`showpods$$ = {1, 2, 3, 4, 5, 6}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "ProbabilityOfOccurrence", "Probability of occurrence", 1, 1, "Content"}, Typeset`open$$ = False, Typeset`newq$$ = "probability of 2 heads in 5 coin flips"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$, pod3$$, pod4$$, pod5$$, pod6$$}, { aux1$$, aux2$$, aux3$$, aux4$$, aux5$$, aux6$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{229., {28., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$, pod4$$, pod5$$, pod6$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[12]=

In[13]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "5 coin flips", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "DistributionOfNumberOfHeads/successes", "Distribution of number of heads", 1, 1, "Input", "ListPlot[{Tooltip[{0, 1/32}], Tooltip[{1, 5/32}], \ Tooltip[{2, 5/16}], Tooltip[{3, 5/16}], Tooltip[{4, 5/32}], \ Tooltip[{5, 1/32}]}, Filling -> If[ !StringQ[\"Unspecified\"], {1 -> \ Axis, 2 -> {Axis, Directive[Red, Thickness[0.007]]}}, Axis], Frame -> \ True, FrameLabel -> {Style[StringJoin[\"number of \", \"heads\"], \ \"Label\", 10], Style[\"probability\", \"Label\", 10]}]"}, "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[ TagBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"sequence of coin flips\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], "5"}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, 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, Editable -> True], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Distribution of number of heads", "scanner" -> "Statistics", "id" -> "DistributionOfNumberOfHeads/successes", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "ListPlot[{Tooltip[{0, 1/32}], Tooltip[{1, 5/32}], \ Tooltip[{2, 5/16}], Tooltip[{3, 5/16}], Tooltip[{4, 5/32}], \ Tooltip[{5, 1/32}]}, Filling -> If[ !StringQ[\"Unspecified\"], {1 -> \ Axis, 2 -> {Axis, Directive[Red, Thickness[0.007]]}}, Axis], Frame -> \ True, FrameLabel -> {Style[StringJoin[\"number of \", \"heads\"], \ \"Label\", 10], Style[\"probability\", \"Label\", 10]}]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{ GraphicsBox[ GraphicsComplexBox[{{0., 0.03125}, {1., 0.15625}, {2., 0.3125}, {3., 0.3125}, {4., 0.15625}, {5., 0.03125}, {0., 0.}, {1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.}, {0., 0.03125}, {1., 0.15625}, {2., 0.3125}, {3., 0.3125}, {4., 0.15625}, {5., 0.03125}}, {{{}, {}, {}, {}, { Directive[{ Opacity[0.2], Hue[0.67, 0.6, 0.6]}], LineBox[{7, 1}], LineBox[{8, 2}], LineBox[{9, 3}], LineBox[{10, 4}], LineBox[{11, 5}], LineBox[{12, 6}]}}, {{}, { Hue[0.67, 0.6, 0.6], PointBox[{13, 14, 15, 16, 17, 18}]}, {}}, { TagBox[ TooltipBox[{ Opacity[0.], PointBox[1]}, RowBox[{"{", RowBox[{"0", ",", FractionBox["1", "32"]}], "}"}]], Annotation[#, {0, Rational[1, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[2]}, RowBox[{"{", RowBox[{"1", ",", FractionBox["5", "32"]}], "}"}]], Annotation[#, {1, Rational[5, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[3]}, RowBox[{"{", RowBox[{"2", ",", FractionBox["5", "16"]}], "}"}]], Annotation[#, {2, Rational[5, 16]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[4]}, RowBox[{"{", RowBox[{"3", ",", FractionBox["5", "16"]}], "}"}]], Annotation[#, {3, Rational[5, 16]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[5]}, RowBox[{"{", RowBox[{"4", ",", FractionBox["5", "32"]}], "}"}]], Annotation[#, {4, Rational[5, 32]}, "Tooltip"]& ], TagBox[ TooltipBox[{ Opacity[0.], PointBox[6]}, RowBox[{"{", RowBox[{"5", ",", FractionBox["1", "32"]}], "}"}]], Annotation[#, {5, Rational[1, 32]}, "Tooltip"]& ]}}], { AspectRatio -> NCache[ GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, False}, AxesOrigin -> NCache[{ Rational[5, 2], 0}, {2.5, 0}], BaseStyle -> {CellBaseline -> Baseline}, Frame -> True, FrameLabel -> { FormBox[ StyleBox["\"number of heads\"", "Label", 10, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox["\"probability\"", "Label", 10, StripOnInput -> False], TraditionalForm]}, FrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10], ImageSize -> 200, LabelStyle -> { FontFamily -> "Verdana", FontSize -> 10}, PlotRange -> {All, All}, PlotRangeClipping -> True, PlotRangePadding -> {{0.1, 0.1}, {0, Scaled[0.1]}}, TicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10]}], StyleBox[ RowBox[{"\"(\"", "", "\"assuming a fair coin\"", "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, FontFamily -> "Verdana", GrayLevel[0.5], FontSize -> 10, StripOnInput -> False]}, "Labeled", DisplayFunction -> (FormBox[ GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"]}, { ItemBox[#2, Alignment -> {Left, Inherited}, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> { "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], TraditionalForm]& ), InterpretationFunction -> (RowBox[{ StyleBox["Labeled", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{#, ",", #2, ",", RowBox[{"(", "", GridBox[{{ StyleBox["Bottom", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], StyleBox["Left", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited]}}, RowSpacings -> 1, ColumnSpacings -> 1, RowAlignments -> Baseline, ColumnAlignments -> Center], "", ")"}]}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Probability results", "scanner" -> "Statistics", "id" -> "ProbabilityResults", "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ TagBox[ PaneBox[ TemplateBox[{"\"all \"", "\"heads\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], StyleBox[ TagBox[ TagBox[ RowBox[{ TagBox["3.125", TagBoxWrapper["StringBoxes" -> "3.125"]], " ", StyleBox["\"%\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], "Quantity", SyntaxForm -> "a"], Identity], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}, { TagBox[ PaneBox[ TemplateBox[{"\"all \"", "\"tails\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], StyleBox[ TagBox[ TagBox[ RowBox[{ TagBox["3.125", TagBoxWrapper["StringBoxes" -> "3.125"]], " ", StyleBox["\"%\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], "Quantity", SyntaxForm -> "a"], Identity], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}, { TagBox[ PaneBox[ TemplateBox[{ "2", "\" \"", "\"heads\"", "\" and \"", "3", "\" \"", "\"tails\""}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5, " ", #6, " ", #7}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], StyleBox[ TagBox[ TagBox[ RowBox[{ TagBox["31.25", TagBoxWrapper["StringBoxes" -> "31.25"]], " ", StyleBox["\"%\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], "Quantity", SyntaxForm -> "a"], Identity], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}, { TagBox[ PaneBox[ TemplateBox[{"\"at least one \"", "\"head\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], StyleBox[ TagBox[ TagBox[ RowBox[{ TagBox["96.88", TagBoxWrapper["StringBoxes" -> "96.88"]], " ", StyleBox["\"%\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], "Quantity", SyntaxForm -> "a"], Identity], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}, { TagBox[ PaneBox[ TemplateBox[{"\"at least one \"", "\"tail\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], BaseStyle -> {{ BaselinePosition -> Baseline, FontColor -> GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, LinebreakAdjustments -> {1, 10, 10000, 0, 100}, TextAlignment -> Left}, BaselinePosition -> Baseline], TagBoxWrapper["Label"]], StyleBox[ TagBox[ TagBox[ RowBox[{ TagBox["96.88", TagBoxWrapper["StringBoxes" -> "96.88"]], " ", StyleBox["\"%\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], "Quantity", SyntaxForm -> "a"], Identity], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> { "Columns" -> {Left, Right}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {None, None}}, GridBoxFrame -> { "Columns" -> {{True}}, "Rows" -> {{True}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, FrameStyle -> GrayLevel[0.84], BaselinePosition -> Automatic, AllowScriptLevelChange -> False], "Grid"], LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, StripOnInput -> False]}, { StyleBox[ RowBox[{"\"(\"", "", "\"assuming a fair coin\"", "", "\")\""}], 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,numberdata,quantitydata"}]}]}], pod4$$ = XMLElement[ "pod", {"title" -> "Expected total", "scanner" -> "Statistics", "id" -> "StatisticsForNumberOfHeads/successes", "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FractionBox["5", "2"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More statistics", "input" -> "Expected total_More statistics"}, {}]}]}], pod5$$ = XMLElement[ "pod", {"title" -> "Probability of x heads", "scanner" -> "Statistics", "id" -> "None", "position" -> "500", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ TemplateBox[{ FractionBox[ TemplateBox[{"5", "x"}, "Binomial"], "32"], StyleBox["\" for \"", GrayLevel[0.5], StripOnInput -> False], StyleBox["x", GrayLevel[0.5], StripOnInput -> False], StyleBox["\" = \"", GrayLevel[0.5], StripOnInput -> False], StyleBox["\"0\"", GrayLevel[0.5], StripOnInput -> False], StyleBox["\",...,\"", GrayLevel[0.5], StripOnInput -> False], StyleBox["5", GrayLevel[0.5], StripOnInput -> False]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3, " ", #4, " ", #5, " ", #6, " ", #7}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}], "}"}], "]"}]& )]}, { StyleBox[ RowBox[{"\"(\"", "", "\"assuming a fair coin\"", "", "\")\""}], 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}}}, AllowScriptLevelChange -> False], "Column"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {"text" -> "(n m) is the binomial coefficient"}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Binomial.html", "text" -> "Documentation", "title" -> "Mathematica"}, {}], XMLElement[ "link", { "url" -> "http://functions.wolfram.com/GammaBetaErf/\ Binomial", "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], XMLElement[ "link", { "url" -> "http://mathworld.wolfram.com/BinomialCoefficient.\ html", "text" -> "Definition", "title" -> "MathWorld"}, {}]}]}]}], pod6$$ = XMLElement[ "pod", {"title" -> "Example", "scanner" -> "Statistics", "id" -> "Example", "position" -> "600", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ GraphicsBox[{{}, {{ InsetBox[ GraphicsBox[{{ GrayLevel[0.5], Opacity[0.5], DiskBox[{0, 0}, 1]}, { InsetBox[ FormBox[ StyleBox["\"T\"", Bold, 16, StripOnInput -> False], TraditionalForm], {0, 0}]}}, ImageSize -> 30], { 16.25, -15.75}, ImageScaled[{0.5, 0.5}], {30, 30.}], InsetBox[ GraphicsBox[{{ GrayLevel[0.5], Opacity[0.5], DiskBox[{0, 0}, 1]}, { InsetBox[ FormBox[ StyleBox["\"T\"", Bold, 16, StripOnInput -> False], TraditionalForm], {0, 0}]}}, ImageSize -> 30], { 48.75, -15.75}, ImageScaled[{0.5, 0.5}], {30, 30.}], InsetBox[ GraphicsBox[{{ GrayLevel[0.5], Opacity[0.5], DiskBox[{0, 0}, 1]}, { InsetBox[ FormBox[ StyleBox["\"T\"", Bold, 16, StripOnInput -> False], TraditionalForm], {0, 0}]}}, ImageSize -> 30], { 81.25, -15.75}, ImageScaled[{0.5, 0.5}], {30, 30.}], InsetBox[ GraphicsBox[{{ GrayLevel[0.5], Opacity[0.5], DiskBox[{0, 0}, 1]}, { InsetBox[ FormBox[ StyleBox["\"T\"", Bold, 16, StripOnInput -> False], TraditionalForm], {0, 0}]}}, ImageSize -> 30], { 113.75, -15.75}, ImageScaled[{0.5, 0.5}], {30, 30.}], InsetBox[ GraphicsBox[{{ GrayLevel[0.5], Opacity[0.5], DiskBox[{0, 0}, 1]}, { InsetBox[ FormBox[ StyleBox["\"T\"", Bold, 16, StripOnInput -> False], TraditionalForm], {0, 0}]}}, ImageSize -> 30], { 146.25, -15.75}, ImageScaled[{0.5, 0.5}], {30, 30.}]}}, {}}, ImageSize -> {174.5, 43.5}, PlotRangePadding -> {6, 5}, ContentSelectable -> True], 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}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "6", "datatypes" -> "Probability", "timedout" -> "", "timing" -> "0.426", "parsetiming" -> "0.179", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 9, 53, 5.595192`8.500389969534103}, "Line" -> 19, "SessionID" -> 22924091242354433769}, Typeset`showpods$$ = {1, 2, 3, 4, 5, 6}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "DistributionOfNumberOfHeads/successes", "Distribution of number of heads", 1, 1, "Input", "ListPlot[{Tooltip[{0, 1/32}], Tooltip[{1, 5/32}], Tooltip[{2, \ 5/16}], Tooltip[{3, 5/16}], Tooltip[{4, 5/32}], Tooltip[{5, 1/32}]}, \ Filling -> If[ !StringQ[\"Unspecified\"], {1 -> Axis, 2 -> {Axis, \ Directive[Red, Thickness[0.007]]}}, Axis], Frame -> True, FrameLabel \ -> {Style[StringJoin[\"number of \", \"heads\"], \"Label\", 10], \ Style[\"probability\", \"Label\", 10]}]"}, Typeset`open$$ = False, Typeset`newq$$ = "5 coin flips"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$, pod3$$, pod4$$, pod5$$, pod6$$}, { aux1$$, aux2$$, aux3$$, aux4$$, aux5$$, aux6$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{415., {132., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$, pod4$$, pod5$$, pod6$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[13]=