Интеграция с Wolfram|Alpha

Получение интерактивной трехмерной графики 

In[1]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "caffeine 3d structure", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "3DStructure:ChemicalData", "3D structure", 1, 1, "Content"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ FormBox[ TagBox[ FormBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox[ TagBox["\"caffeine\"", Identity], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], "\"3D structure\""}}, 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" -> {1, 1, 1}, "Rows" -> {{0.2}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], TraditionalForm], TraditionalForm], Format[#, TraditionalForm]& ], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "3D structure", "scanner" -> "Data", "id" -> "3DStructure:ChemicalData", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ Graphics3DBox[{ Specularity[ GrayLevel[1], 100], EdgeForm[None], AbsoluteThickness[3], GraphicsComplex3DBox[CompressedData[" 1:eJwtUw1MjWEUbjSzpFmrlaYisVBrLSqUDmlJqHvLvbdbrtv9q/une2+XWmRC wxgLtSkjN6GttaIhjLOYyVKYxNIoK3+Zv/IXm/d9j7N9O9v7nfec53nO887R FEr1k9zc3CLZN5l9fxq/PF4fEgffw3KPdJRp8KwtwaNvUQHcHmcHX+3YV88O 5GkYzSNThVObZil1Wjm+mx81tckzHdx4vFXjgy4WO4xQnXTQ8mZiLcx0l3lF eEvAgzf4rcbtPs0pgwuVeK72zuwWRxIEV3yQXFXl0ZwQPWVpLip1y1+m+2bB qORqUIU5HC7cTYs90AqwRHUt1dN7NbiSL3/7q9sIbyYY8KpMlOe03hpVhaCV Hyg3Is1V0P25BsKbBrgH759JrpaigceIFQQelwbKqxjgfbHEuygPBd4hNQyW soLKQqr/aofFu67Abo0vcNhBVQaws/J6hQUXMNnG9xtxIHRKeZVWQby6nSB0 8zOC4Hs0DllVWG6xhXJPPulWYiHd4nWkS2kG1Jxg0erEz+c58XRkKEt9Nhhh DQfUYyc8XkWk15AC+fiwUD1wOqV7rdC57ebpgE8xIHDNsAOHaessJry4jubW GUifCSPxPmgi3lIjzS930t6v6NHvefePzKIsYNUfJBkmFDguOfCYPxO6LBXq fkaNNA8HApd5+aJNqFjadm9bgAbaeb27lXg8Ssb+XztNN5wKfMFz2zLkLmnc KoWxv09K3l1U4s/M1w2179V4h/PaHQGr1MMPQ6KVKPY/bxNy1xQ0KIDDrY8v wLJE5ojbeSD2O20liP2bUv/rZwZ+vT8vGxy8Xh0DXOauli1wMtrVFnshAY5+ 3JG4JGgz4Oip+PDZUhQ4OuQo3sFwBvnjsBaF8cIkKPq1R+EKLlSjgd5Dupb4 ekmIv1YGx7kuvZuht4S9kDE58nUfceWTL4a0NDdAQr55Zac9vdDTvelxKPCP G1DgVeiIr/sWFPo/05DPgrPJhwkOrAuIHAiVZZMP/PUgcpeNfLLLAVgWGJd/ KAVFHzZH9FHa4KlsNPJ6Sjj5IMcCUv5jwAnFEXOCxyyJIHDXGED4b6GZ+nmY 8IaTbb5DQ7hldiQ/5eNvvl6zjHyYZSY8JYXkk0op/ANM5hbS "], { RGBColor[0.65, 0.7, 0.7], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 24.], RGBColor[0.4, 0.4, 0.4], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], RGBColor[0.291989, 0.437977, 0.888609], SphereBox[3, 32.], SphereBox[4, 32.], SphereBox[5, 32.], SphereBox[6, 32.], RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], RGBColor[0.65, 0.7, 0.7], CylinderBox[{38, 15}, 15.], CylinderBox[{39, 16}, 15.], CylinderBox[{40, 17}, 15.], CylinderBox[{41, 18}, 15.], CylinderBox[{42, 19}, 15.], CylinderBox[{43, 20}, 15.], CylinderBox[{44, 21}, 15.], CylinderBox[{45, 22}, 15.], CylinderBox[{46, 23}, 15.], CylinderBox[{47, 24}, 15.], RGBColor[0.4, 0.4, 0.4], CylinderBox[{25, 9}, 15.], CylinderBox[{26, 10}, 15.], CylinderBox[{27, 8}, 15.], CylinderBox[{28, 10}, 15.], CylinderBox[{29, 12}, 15.], CylinderBox[{30, 7}, 15.], CylinderBox[{31, 11}, 15.], CylinderBox[{32, 13}, 15.], CylinderBox[{33, 9}, 15.], CylinderBox[{34, 10}, 15.], CylinderBox[{35, 14}, 15.], CylinderBox[{36, 8}, 15.], CylinderBox[{37, 11}, 15.], CylinderBox[{7, 8}, 15.], CylinderBox[{7, 9}, 15.], CylinderBox[{11, 38}, 15.], CylinderBox[{12, 39}, 15.], CylinderBox[{12, 40}, 15.], CylinderBox[{12, 41}, 15.], CylinderBox[{13, 42}, 15.], CylinderBox[{13, 43}, 15.], CylinderBox[{13, 44}, 15.], CylinderBox[{14, 45}, 15.], CylinderBox[{14, 46}, 15.], CylinderBox[{14, 47}, 15.], RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{3, 27}, 15.], CylinderBox[{3, 28}, 15.], CylinderBox[{3, 29}, 15.], CylinderBox[{4, 30}, 15.], CylinderBox[{4, 31}, 15.], CylinderBox[{4, 32}, 15.], CylinderBox[{5, 33}, 15.], CylinderBox[{5, 34}, 15.], CylinderBox[{5, 35}, 15.], CylinderBox[{6, 36}, 15.], CylinderBox[{6, 37}, 15.], RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 25}, 15.], CylinderBox[{2, 26}, 15.]}]}, Boxed -> False, Lighting -> "Neutral", Method -> {"ShrinkWrap" -> True}, ViewPoint -> {1.3, -2.4, -2.}, ImageSize -> 289.7480032635577], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "Show space filling", "input" -> "3D structure_Show space filling"}, {}]}]}], aux1$$ = {True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["sources", {"count" -> "1"}, { XMLElement[ "source", { "url" -> "http://www.wolframalpha.com/sources/\ ChemicalDataSourceInformationNotes.html", "text" -> "Chemical data"}, {}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Chemical", "timedout" -> "", "timing" -> "1.058", "parsetiming" -> "0.485", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 15, 9, 44, 42.298582`9.378900683115923}, "Line" -> 1, "SessionID" -> 22929706105552034726}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "3DStructure:ChemicalData", "3D structure", 1, 1, "Content"}, Typeset`open$$ = False, Typeset`newq$$ = "caffeine 3d structure"}, 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->{149., {26., 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$$ = "3_1, 6_3, 8_3, 8_1 knot", Typeset`newq$$ = "3_1, 6_3, 8_3, 8_1 knot", Typeset`chosen$$ = "{KnotData[\"Trefoil\"], KnotData[{\"Knot\", {6, 3}}], KnotData[{\ \"Knot\", {8, 3}}], KnotData[{\"Knot\", {8, 1}}]}"}, 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$\ 20328 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "3_1, 6_3, 8_3, 8_1 knot", Defer[{ KnotData["Trefoil"], KnotData[{"Knot", {6, 3}}], KnotData[{"Knot", {8, 3}}], KnotData[{"Knot", {8, 1}}]}], "Fast parse"]; WolframAlphaClient`Private`open$\ 20328 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"KnotData", "[", "\"\<Trefoil\>\"", "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"\<Knot\>\"", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"\<Knot\>\"", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"\<Knot\>\"", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"KnotData", "[", "\<\"Trefoil\"\>", "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "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[{"{", RowBox[{ RowBox[{"KnotData", "[", "\"Trefoil\"", "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"Knot\"", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"Knot\"", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"Knot\"", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "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, 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$\ 20328 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "3_1, 6_3, 8_3, 8_1 knot", Defer[{ KnotData["Trefoil"], KnotData[{"Knot", {6, 3}}], KnotData[{"Knot", {8, 3}}], KnotData[{"Knot", {8, 1}}]}], "Fast parse"]; WolframAlphaClient`Private`open$\ 20328 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"KnotData", "[", "\<\"Trefoil\"\>", "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"{", RowBox[{ RowBox[{"KnotData", "[", "\<\"Trefoil\"\>", "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\<\"Knot\"\>", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "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[{"{", RowBox[{ RowBox[{"KnotData", "[", "\"Trefoil\"", "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"Knot\"", ",", " ", RowBox[{"{", RowBox[{"6", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"Knot\"", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "3"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"KnotData", "[", RowBox[{"{", RowBox[{"\"Knot\"", ",", " ", RowBox[{"{", RowBox[{"8", ",", " ", "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$20328], BaseStyle->(Deployed -> True), ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->(Deployed -> True), DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[2]=

In[18]:=

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

Out[18]=

In[22]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "bucky ball 3d structure", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "3DStructure:ChemicalData", "3D structure", 1, 1, "Content"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ FormBox[ TagBox[ FormBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox[ TagBox["\"buckminsterfullerene\"", Identity], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], "\"3D structure\""}}, 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" -> {1, 1, 1}, "Rows" -> {{0.2}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], TraditionalForm], TraditionalForm], Format[#, TraditionalForm]& ], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "3D structure", "scanner" -> "Data", "id" -> "3DStructure:ChemicalData", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ Graphics3DBox[{ Specularity[ GrayLevel[1], 100], EdgeForm[None], AbsoluteThickness[3], GraphicsComplex3DBox[CompressedData[" 1:eJwtVA1MU1cU7pgOZMb9hAERo5AJA50xuilWVA6si4KbWrStQGlLaSkt/Xnv 9dVtjC0xG5n/hBizn2xji8uCEckwLGOLYScghmz+TU3QTGJYonOihi2Z2bAx 3ne/3uSlvfede875fs4r8MZq/Gkmk2mdeJ4Uz6bJtqy+9EbKHD+qrN/XROuN Pz+q9Iqx9gfJPDC2a8hdSe9m9W2c9KqkGgEmHy3qmLIOHoqROG3LKgqQZ+yO /ULVeLk83+AhI13mZR3voy5y/VQ1N+3pbVwzuLBjqlCnB8XOzuETGj3/Af/y 9egSMtK3DTSTsX09u4pKxOt/B1L3+9wkdsVORwy/6WEq3Vvhuemx4f37Tv5G lBuPB5FnUKEy5fyeS64CtncfP3HVnc0yrnIX+gp4SMaPBFjieVtBPUucRkT6 Tq2eJR8zLjLatebrZMBaOFqH/U4bjeZ/p7X021ne69GAx+anoe75yyd6t6Ov kwkKz/n/q0B8AXBPBuncWbH2qFT41O4jr+URm4zVE2YD5cYKN8n9xVYy0hb3 ejijd0Gdb2QH3xXlO47Hge96K8l9WYjBi49m2ectOzlRSFLPcYU/+1QscwR6 ZSVwnu7gPx8e+/tSJJ+lvt0J1ElaSMbPIZb5kwGWPrCp5Cu7sfVg5zYqXyUU DG9Av6d08JXrZMnHdJhk/7+FoM8zTSxxJhXk+9yPOgdqwX9OlCWfs4tQ54so 8mW4WfI/EwSuPAV8LfbDl10ay/s/W6nnzObSvSsqUG9KB79PNIC/dpWajTXk R/xbtfDHUY3qDEAdDuDt94L3Yz70uUOjpR9lXzv/kpU/eeOFA9WhXJa8/ZDy x3QYvljrAZ+LQqj3sgIc/Tr4+c9Ot6/1zjiXvYg5GdZ4bprIbHagj1+98NPN MMs+D7XifHMTeOxvgQ/rVOj/cCsXCLt1jdZA10QCfli6BL57L4L5zXQDx9lW 6MIpXotL4NvbUeDJCWMetoRQp9qHfHke9HMrAH8JH8m5r2nEnNpswHs6zhLX nQS/81fRiox2C2/xPrvT/CphrvbHkb+vPuUvF/qaFQJ/91UWrvo4+kcl/LDc AR23a+Dxex90eW4Ty/trdNy/0gA9cxqQ924L4iMK6t1vQL9rrfhe7dO56157 +aovS6BraSHwPkjgnjWRulfPovuBsW8d4OH3OL4LykrocjkAXqoVzLsS4aQY ozeH7fD5hz7U/SfGUo+JZl4TsARj08lyGT/mwnuvnooPceiUfjhXt4CP1Rrw 1jbCx+YmnD9S+TFvZaeF "], { RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.], SphereBox[22, 34.], SphereBox[23, 34.], SphereBox[24, 34.], SphereBox[25, 34.], SphereBox[26, 34.], SphereBox[27, 34.], SphereBox[28, 34.], SphereBox[29, 34.], SphereBox[30, 34.], SphereBox[31, 34.], SphereBox[32, 34.], SphereBox[33, 34.], SphereBox[34, 34.], SphereBox[35, 34.], SphereBox[36, 34.], SphereBox[37, 34.], SphereBox[38, 34.], SphereBox[39, 34.], SphereBox[40, 34.], SphereBox[41, 34.], SphereBox[42, 34.], SphereBox[43, 34.], SphereBox[44, 34.], SphereBox[45, 34.], SphereBox[46, 34.], SphereBox[47, 34.], SphereBox[48, 34.], SphereBox[49, 34.], SphereBox[50, 34.], SphereBox[51, 34.], SphereBox[52, 34.], SphereBox[53, 34.], SphereBox[54, 34.], SphereBox[55, 34.], SphereBox[56, 34.], SphereBox[57, 34.], SphereBox[58, 34.], SphereBox[59, 34.], SphereBox[60, 34.], RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 4}, 15.], CylinderBox[{2, 5}, 15.], CylinderBox[{2, 6}, 15.], CylinderBox[{3, 7}, 15.], CylinderBox[{3, 8}, 15.], CylinderBox[{4, 9}, 15.], CylinderBox[{4, 10}, 15.], CylinderBox[{5, 10}, 15.], CylinderBox[{5, 11}, 15.], CylinderBox[{6, 12}, 15.], CylinderBox[{6, 13}, 15.], CylinderBox[{7, 14}, 15.], CylinderBox[{7, 15}, 15.], CylinderBox[{8, 13}, 15.], CylinderBox[{8, 16}, 15.], CylinderBox[{9, 14}, 15.], CylinderBox[{9, 17}, 15.], CylinderBox[{10, 18}, 15.], CylinderBox[{11, 19}, 15.], CylinderBox[{11, 20}, 15.], CylinderBox[{12, 19}, 15.], CylinderBox[{12, 21}, 15.], CylinderBox[{13, 22}, 15.], CylinderBox[{14, 23}, 15.], CylinderBox[{15, 16}, 15.], CylinderBox[{15, 24}, 15.], CylinderBox[{16, 25}, 15.], CylinderBox[{17, 26}, 15.], CylinderBox[{17, 27}, 15.], CylinderBox[{18, 27}, 15.], CylinderBox[{18, 28}, 15.], CylinderBox[{19, 29}, 15.], CylinderBox[{20, 28}, 15.], CylinderBox[{20, 30}, 15.], CylinderBox[{21, 22}, 15.], CylinderBox[{21, 31}, 15.], CylinderBox[{22, 32}, 15.], CylinderBox[{23, 26}, 15.], CylinderBox[{23, 33}, 15.], CylinderBox[{24, 33}, 15.], CylinderBox[{24, 34}, 15.], CylinderBox[{25, 32}, 15.], CylinderBox[{25, 35}, 15.], CylinderBox[{26, 36}, 15.], CylinderBox[{27, 37}, 15.], CylinderBox[{28, 38}, 15.], CylinderBox[{29, 30}, 15.], CylinderBox[{29, 39}, 15.], CylinderBox[{30, 40}, 15.], CylinderBox[{31, 39}, 15.], CylinderBox[{31, 41}, 15.], CylinderBox[{32, 42}, 15.], CylinderBox[{33, 43}, 15.], CylinderBox[{34, 35}, 15.], CylinderBox[{34, 44}, 15.], CylinderBox[{35, 45}, 15.], CylinderBox[{36, 46}, 15.], CylinderBox[{36, 47}, 15.], CylinderBox[{37, 38}, 15.], CylinderBox[{37, 46}, 15.], CylinderBox[{38, 48}, 15.], CylinderBox[{39, 49}, 15.], CylinderBox[{40, 48}, 15.], CylinderBox[{40, 50}, 15.], CylinderBox[{41, 42}, 15.], CylinderBox[{41, 51}, 15.], CylinderBox[{42, 45}, 15.], CylinderBox[{43, 44}, 15.], CylinderBox[{43, 47}, 15.], CylinderBox[{44, 52}, 15.], CylinderBox[{45, 53}, 15.], CylinderBox[{46, 54}, 15.], CylinderBox[{47, 55}, 15.], CylinderBox[{48, 56}, 15.], CylinderBox[{49, 50}, 15.], CylinderBox[{49, 51}, 15.], CylinderBox[{50, 57}, 15.], CylinderBox[{51, 58}, 15.], CylinderBox[{52, 53}, 15.], CylinderBox[{52, 59}, 15.], CylinderBox[{53, 58}, 15.], CylinderBox[{54, 55}, 15.], CylinderBox[{54, 56}, 15.], CylinderBox[{55, 59}, 15.], CylinderBox[{56, 57}, 15.], CylinderBox[{57, 60}, 15.], CylinderBox[{58, 60}, 15.], CylinderBox[{59, 60}, 15.]}]}, Boxed -> False, Lighting -> "Neutral", Method -> {"ShrinkWrap" -> True}, ViewPoint -> {1.3, -2.4, -2.}, ImageSize -> 299.0760382559991], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "Show space filling", "input" -> "3D structure_Show space filling"}, {}]}]}], aux1$$ = {True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "bucky ball", "count" -> "2"}, { XMLElement[ "value", { "name" -> "Chemical", "desc" -> "a chemical compound", "input" -> "*C.bucky+ball-_*Chemical-"}, {}], XMLElement[ "value", { "name" -> "Graph", "desc" -> "a graph", "input" -> "*C.bucky+ball-_*Graph-"}, {}]}]}], XMLElement["sources", {"count" -> "1"}, { XMLElement[ "source", { "url" -> "http://www.wolframalpha.com/sources/\ ChemicalDataSourceInformationNotes.html", "text" -> "Chemical data"}, {}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Chemical", "timedout" -> "", "timing" -> "1.303", "parsetiming" -> "0.554", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 14, 21, 19, 40.1076858`9.35580248411758}, "Line" -> 21, "SessionID" -> 22929442041562797755}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "3DStructure:ChemicalData", "3D structure", 1, 1, "Content"}, Typeset`open$$ = False, Typeset`newq$$ = "bucky ball 3d structure"}, 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->{176., {26., 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[22]=