New in Wolfram
Mathematica
8: Free-Form Linguistic Input
◄
previous
|
next
►
Integration with Wolfram|Alpha
Graphics Styling
All steps are executed in sequence in order to apply style changes to the previous step.
In[7]:=
X
\!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "plot sin x in dark brown with light orange filling", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "Show[Plot[Sin[x], {x, -6.6, 6.6}, PlotStyle -> \ Darker[Brown], {Filling -> Axis, FillingStyle -> Lighter[Orange]}]]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Show[Plot[Sin[x], {x, -6.6, 6.6}, PlotStyle -> \ Darker[Brown], {Filling -> Axis, FillingStyle -> \ Lighter[Orange]}]]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"Show", "[", StyleBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"plot\"", {LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], RowBox[{"sin", "(", "x", ")"}]}}, 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" -> " | "]], ShowStringCharacters -> False, StripOnInput -> False], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], Show[ Plot[ Sin[x], {x, -6.6, 6.6}, PlotStyle -> Darker[Brown], { Filling -> Axis, FillingStyle -> Lighter[Orange]}]]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Show.html", "text" -> "Mathematica definition of Show"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "MInput", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> "", "primary" -> "true"}, { XMLElement[ "minput", {}, { "Show[Plot[Sin[x], {x, -6.6, 6.6}, PlotStyle -> \ Darker[Brown], {Filling -> Axis, FillingStyle -> \ Lighter[Orange]}]]"}], XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ StyleBox[ StyleBox[ GraphicsBox[ GraphicsComplexBox[CompressedData[" 1:eJxdmnk0lG/4/+0pYTZrlLWQaKVQ92MNUUK02EO0WbKlspZkq6QNaSGkIoUk 3DdCScgayb6bmcdu7L/nc873+/3jN3/MnPs8c+7luq/rer/ec0baycPchYON jQ0Sb/99Rpw2t3R1FUdBofySxhNNcG5+2kLIVgyd4I6pq418D8/a9O+4clAU KaGfPn6WtWDIWTCtZ6cIGlg3mMno/Af8vRV+xisKowvZTr+dUwcB9+G7tdN8 Qkh0T33JlPE4eAN3n3dmp6GLfueNrd8xgfGabF94DwWNLV58UreGA5YuB9/I NzKy0g+6ttbKBCXKkg1niknoXIPrQvSrcbBcyNe9rCGIwm81NCDRIZDlYGXl KMuPmrt1PL8UdgEfyjXVY8J8KF+sy7F9tg6om2uWJHbyIiX5BjsT65dwW4dP OPcPHmT4SLB8KawRkiaMVn9FcqGFjb1V71x6oRBpoWOLBQfyzm6tGRMcgQYB 0hP3dNnQtgWpXX5pdNjbWXMFCizDyFz6rxB/HN47pR+Q1DcPg+/xakgM43Dn 1NzgbttpeCxG/q3JJAOSDn1RKWpnwEkere+5eaPwSqH7lej7g9DMRlCki9UP fVtIQhk72qGLxNH7WZF/YOPcTgGnRgRP2Fo6rlUiGLdpy8Q0PwJOhaGeqpwI 7Nh2xly9sx2Ef7rQF6nYDp6Ayz4HsUHgWfYpUORLP8j7hF0a0WMCnnDcfm56 FOQGn8AL7k6DJamOh2doTKAiJKr+9cM8sMwr21rchYOiuFQhru3LQDx/Mp33 Eg7mNFO0byuzYT8ufEoV/kUHPun3hDkPcGA3b4cY6luOAFbYsJq0Nxf2XTzC LSK3F5iJVG6WusWDRZ2aUtGKbAY5kuvMy77xYgJj3pu8TDJA7996E92uDZjB ZOWf7pifcP5u6aAmYyNm2lfCxq3xD9IKyDWtCoKYvp9nF/fAIOSomdVQfE7C zK6/nRlTHIcrkwlq+xEZ01hYpzhay4RjtMOhHJ0UzO7L75cLazgse1CsWjJA xfIaNoYkjDFh8pEBzh+cQti1P+NyrRfHoYN9vWaloDBGPRCs/vHAEBS+/Kv8 urAItkkl37vuWDdsyL/hcWuPKGZypT1+5s4v6HNqMjjooBj2xqS3zDwsCfxP PWD/Uw/gkKJsc0mvGLL6DlPCmqth9njS5wPvhdGjI/jOPo8+UNr590hFohCK ThlYfJA3Aqw5HTe9i6ChAU1exQkNBgi03751xpOKzt2auxSdjoOX0g/m8s0p aE/gWIX8FxycLrzLeImRUanyyVsZ1xgg5ebvLQxlEirpTT6XLDEKmjbmiquq CiABXeXWtv4+IOHSjUYzuZEAfvD6ofEOSAl5SZ+7xIkCpV6eqWcMQBW9WJeT R9jRJTtbjjvxY7BgiCdrwngVRnLbV749xYT7N/H6vWctQC1v0jc4g8Me+c2q w89nocfKtqgeTRwmf3+zuk5+EgYmRgrQROlQ5xr596v8UchOpp2h8Q7Dx+SF IFVaL3ywePFw7OEe+Hj0V5yySC/Io8t1bTHuAelX2ybiy0dBMos0wk8eBlX0 xXihU5Og7vufLisjOvCsUaMeeDELDtTJK3Bp4WDmt216N2MB7PRkGXfM4sCC 09Nkvc4q8J1RGDlizwT7vESUK3ezYwPJ4i0N38dAAa14a/wJTiznRVHEQfVB IGfamvXiGjdWTttkoLa7E/DIjliv5xPAHHN45pwu98EI87VjNWIkzN9ks3VS 8Qhks6ss/KBKxkJtIyi4PgP6cDLPSB6lYN0eS+EH83Bo1Rz6x96Biq0WTwWv +4LDbI8GMV0fGmZxPHnojS8DBrW0b6m+I4SNxAn+IG0YhV9dj65JPRDG/K+Y OLFE++FKu/T5qd9imG+YLFTrrwR9ZRo0ipw4yimejcger4fGmS07+HEif1Ii nnAW9oDEbWF82/uE0It8b5aHxjBQkWdNH/tBQ3U2132MzekgXlDVUPkLFQ3I 32aYH8SB370z9OSnFJSwhXyLPIEDxVXD5W9hZBR+vMzX9wATZJ+c90/zIaE0 tezi7Z5jYMSpa1koXwCJmr6lRN4ZAK+2KL2a38+D/h656XC7shWSC319nZY4 UeOi3h6/ff1QRklXSqueHdmTwtw+2I3Cl+Ny+uvd16DQWDNPxH0G3Hh91KeA cwliyC7LrRqHhTDXQrtsDi5Rvaw/vcahq62Zt6T2FGQ7mnPnsTADvrEZDM6u HoeSIuYd/hdGILfLrqv/zPthjafyi/TtfVDlxpK6IXcXUBQq2XqH2Qmed77a 7RY6DHTveNJzvQeBWeqvgW8HJ0ALd3iJseo4IMkbsLMez4CaD5JnYgqZ4P50 0WXTehaYneyvtFzFAc+P9bkRaiugyP7oJ9I8Ezxq7VBLz2HDFMoVdt1tHwcP bdNTjKs5sMLnbds7moaAwEjXRM8cF3ZQ8rtw+d9uEHSqKUXmOj823GHGznWv B97bwZu/L1sQ+y0usWPVZhiyJ/xbuDhMwkaiwetpIzosDNT+obSOgoWKtm/5 bYHDFz4Dyrs2U7GhqutG9xlEfEKr5EKUaRi7gKeBrC4TxpK6yd8NhLDV76xb 7UZjUKA/TvLKcWFsX0zHKc28AVj4dL1v4W0x7HHrMcUHzl8ARdVJ2/WCMPLP +eqtTRsAfff3xZyxEEJUg1SLRcExENL7Q4dXj4Yivr/MH+ZkAqecbVzFClSk xOnfFTiMg9qPNWz1fBQUvH82/+gZHMR4t3YFrZKQ3k95I4cUOpBwtL57oUYQ VXfb7oh8Mwxohr/ORvdwoONl5hMpMUNQw64ty6eaDWW+dOnakTUOa3tHBP4o r8DveGQsY4kJnYu2+qcxWDD8j2yNJdGfeWOiNsQGzUDfXYazSllM2LiHM3qK dwKGeMXeXJobg09oKez52/vB1TcPvWz5+sB74Y05JZx0EHPWUVQyfgRoqSlo u/pMgRtSuT5lGAPUe2yTD8ycAzMCBjNqKTiw/sDW5bVxCXw4VGBpXYmDFwdb h6NN14CM+h3cPp0BmvkspQfy2bHfVZpvF5JGQSx9mTTxVADLk/R0+LlvAOrF BVZetSFhm5oTy+zZx+Dqtvf+M/5kTP3y9k3JEkyoGpPIFHxIwa5R1vd/Ju5v 494tN+NeUbE6r7+XE5xw+Nq2Q4CnmIYNPhpMVAon+qO4hr2yhDjWbmFrXDBX B/bGGezV0hdHJkqRI1dnf8MnEVMjc4Ii6ELXN7OsrG7Aa3pivItbGDXJ2Xq7 eQ8B8QLdnpdjNMQXNlZ1tnEcpAzvPGX4j4qOfcPlKhaYoKcanCOVUBCvmYvG n2UckF6+Dm9NJSP5jcVGR2OYoEBng1zIExK6mPuhKpF/HEzxz15azxJAta3u BoKWg2Dgen38aggPYlwwehaR0QxJzd0HRHW4UEr3uxobsz4oIZmysoPMgfR2 BL57WDQChZmf4oVYa9AmhmvizhYG9FM+PaNxZwmyPbxnUJ6Kw7SYJRfm8Xm4 O77M99pPHP7MkFVWqJ+ClcF5lTciGdDG9Jh1XgMddukXfPWkjsLiOFO/vd4D UKY9LlFXqB+qmG+vhBN/weUdXDBX8C+QiItsanQYAqHff2koPR0ASiuXNh1w wEGZ/G3njw/HgEOjaUAbdQYcHLzACjnPBA43R825MBYIeq4de2caBz1vrc5W flgGodGP9hxTw4HBHa1i4cts2MmCnYEbrOmAKyypY2sIB+b7vdQj7/EwCN/X Tw3N48I+Tbc+nfvdA4pmDHVy9vJjZ4Jm7vXt6oaNkzEg4oIg1lx+KSAhdQhy 5LiLH6kgYU68qZQzpePwtNp4cG4/GYvWrbWUFcJh5TehNrEVCmatuPqFbwmH xVHaWSm8NIyeLbbrbRIT0rJ7owzlhTC7H394eLrHoLp0jnLyTmEsg45dq7k6 CB9dvRGY5CSGWdj5NBjLfwAO/MHLx2KEEXd3FU+KXj8w+8x7UdBfCLGdba7V cB0FF72FVE+70FCSoaGMZyoDXL6tKPTHhIp+tjZlUGpxoDaWfU1HlYI4xl7e J9/FwRWhPa73tpDRRwUu2iCJAR4lll4hryehPQP5uUOuI4DqrK6gvY0T/bqg VRKJBuHe47sjXdezI0E9PeVZ6XGoPeBvM/B1BX5NPj/xKIcJ684/nlO4sgBv NwzKOa/icOZks4SG4CwUaclMn59nQvWgVr2VRxMwM0leoTJ6HIqu7fvuKd0H to5G7iXv6AVK3yePKfSPAe8G03i7lmEQep88VjI0CWw+Vpn4/KADKUnV5FNy c8CKthxr6oWDrdqq5Qo3FsHYM1PwuA8HgVKyiTXVqyDc5uUGnIcJbpbmp1v6 sGPfD300bdk3Bmpue+ddNxfAInsrt4qf6IcuE8UbZDRJGHqqbe/hNArXdA48 abQgY1vDfFPYCxiw8bDe60deFIxfcldQVwsOd900U/EPpWLmx/V288TjMMv1 RILcExo2IS7OvcDGgFKL750F58Uws4Uzj928aoBOwrt1qxk0tHm3o8TNGjqI UN+hTnpIRVc0+2Qm/XCw8ZS/l6IfBZU2DJwNaseBzhm6zydHMvodqSMZ3cUA yqMP55fbV2H4A9dug0UGfPUzYHZX0CLs+Mx9+HwfDmunzmkn7JyDgbwDeL0v DtmpNwopnyZhT1ELT0kSHfIZDmhe+jkBdliecr6HxgHyPxQlKjELnuI6M26r TFDuFBP1yG4BXPkk5iFO+C3loeLVw8UrwETnhrtdDhOwXT3eHsdHxviQrGpk LR0Kw8eUNCUKxmHNY9QdicNrcp/CDAEVe1D8Ziy2DYefAo48dzSjYe0nxuNF exkwwSzIqkCGhgp6x0u0bJjAqk1++jkXFeUfenzyKwsHTteGbp0ZIaNDLToU hiQOrLpPlf18tgxnCy9WPz6Ew8X1BfNb3Fhw/3Er7/vzOJSAGKubMQ1f+nge fWDOhHMdh54IcEyDPVqT9WI5DBBUviU7UXkeXHJ45JxXjoPILY0LRUlLQGXD 1zxZQh9WN0pbCyeTseYsz5ZnV5kwpmFC/U4hBct0XbQrJ+pzqJ/R/rqCiqWs XBsoVcKhs0bVKSNtcSzVVOPMr8LfwNbHRO/3CXFUe+NMx83pRghnQ6ouSIkg ub1cjg3fugDqPvS3UEQYfZlw3F7ONwTuBbm3Gi/RkGpXytHEu+MgrSnX0Qqn oix/W53DzUzwsD9XrqaOgtZvmkiIJeJ/c8risH0eGb3D+GTff2SCos/UxUtZ JLRJUlZk66lx4H82ZGu4mCBKovpu2/p5EERsl+HjeM2D5q0yUtc9aoKkPprE FRcu1Fl7WvnT31745NER+tbdHMixZdJX0HUEZn4u6fy1hQ2Rg97lSPXT4bub lL0rP5dgyqqORl4cDsWvSOF6ifPwSHn92fsdOFw14b+zQ3gaOqna7d9QyoAF +ly66icYUMGvdHHMeRQ+Sf07080+CLU3cOW03O6H2VoV0deGOoAC0rQIluwA Ha5LspENgyDj3lgLQ3EAeJy0/navkQlslFTqWvTHAO+b33uqf08DcKJLzhNj gupatkp71jyYzNWvcRrDgankjeKBS8vg+5P+6BJzHKQ4MVaPmrJhDzxkL7M9 oAMt2iNWgg0HxmNG+zo6NwwO2bjIH3/AhbkZnOWw0OkFJ8s5E2ZJ/NiBt4EC 0updcNqi/qaKsSBW+UgmPk5vCIYV5yhp5JKw2x/7SJq+45BAsb8zv8lYvXbE VbUpJvxzUUU5jk7BruM1jglEPzskuEZ/P0fFdjbSjpz4RjxfdqqOpAlhkgmc Ep1bx6EJBvJ2SgljVrYB/n4dg/CWu/rKRjMxTJS90LCNJwPcvs7f8S1ZGA0G DL7r7ugD64ynzoxGCiGj8hPDDgKjoE9DU57Tj4a829QCVT0ZwOdKluSQHRXd veEH4otwQOeWPrCMUZCCqKOD+WscDLn2KortJCP/QKeL2GEGSBT8brQmTkKe Etn6ReUjgOJ9cUOyMSdi47O7umw9CHNruv3sldhR1lziTtm/Y/C6Cwg/z7kK L+eYHG+8xYScFcfUxvMXoKKiklnmIg7Pg4XX96xn4e2p7WxKm4ixLHrJ0TUB 01b/5a82jsOTM6Fvjyb3gr/PB20Vi3vAyAvnF//Mx8B2GZksOZ9hIAciSkef T4Lceh7NG1F08H36o7VR3yxIs9DhzrPGQewdg7039y2Cl81WzQEM4jz3jaZH b64C7EyYmfxeJuh87DoaY8GOBa17HrkrZAy4ndjBU6EigMlMKXQE9vVBP2m7 HX5KJMxNZ2SDPWkUhpgFZ5Zpk7GKTf075YMZMFX+KVuHPQWL1fBzMKjCoZ6y e/i4JxV7Td+f/DAdh8rjlLY9ETTM4TF/uL8WAwqMnRsOGRDDPErPlFps/w4K bRpX0gtpKFmMtmZ3l+BQ2WywOYOKHDHJK44EL5f5jKr036ag2FRFefYhHBS8 S9yv5U1GKRGJHOz8TOB63nZzuPQalBh+OC9YzYBtsrv2zaBFuM8de7hK6IlO e0zNWMAc/HHRazvXXRzuLXQVEl2chL5jl28adNBh9uxJ0tObE+DcP6PSxYBx 4Ha0XJ+3YwZ8foE+h3YygdLb1OVJ4QWwxUbmLIvoH0+t+63PXV0Bx7aATj2i v4REPB69sUDCjLOjhR1j6HA4mX5pWJSCFR04BGI9cBhX+7OtWIWKJQuePfei H4dqK7x9nodoGK9r0nkTKhNuEEszsd9DQyWHw0VEdxF1W5G+9F6Yivxu2wc5 TOJA5PFJXaFFMqqt837ZQPjP+w7SI8cHl2EYEH10dTMOVZ0uq/dlseDbfsOo O8s4jH/tEqqmNgO72V83PQpmwqeRny5qfJ0CIge43QWuMsDWp6nuUWNzQGu3 SnN4Lg4mzo1eELZcApfgQ6OljzgIEj93jjuKjFU5W68cN2FCu2z9B7XpFExo TOPE/CwOF6J5VMU/UbGIfHnt/MM4tFAK6SxSEccEpKfpVYkN4MlSjpnGTyoa OxcwVy2Bg+3vfr2xektBu6qXSrLncaDd/DIvwGAJlkYcufmmAIcq6a2dj9fP w6vk/Wl/Cb/P0mzsybzNAo8tNAtVFwl+0ti5IX16GZyKQXFQBAd3Tj6SuzxL xrbYK2x8vw+HHyVWQl/zUzGOkN4he2J/bkmZG2s0qGjpQLAO318chNZplUZK Ev7rUsZGF4IHeM5+2GfnswIHZoQc5lqJ+FC6C1x3LsDeJ7rs04R/CjB42+Pu OgfKlIf46yNxUMoSMfv1bRG8EeF2VWvBAdt53MginILRK+9mcRH3ublTvZ0j nood+NDx8vQ1HIYceafCEU5FF55Y/lwj+M/qIHeehzMFnVVlqkXV4ODSFZTv obkInff5DGfRcWi1Ubfw4Mgs/DE8kyF6GodnxH1FNdMXAB99+1LREg70e3U+ O2hRsLwPJ49UPifOdz1xR/MxKsYu++/l6R84NBtPG7s/RUGm9QZtUSs4kLCL T9S3WoYv1b4817ch+Dh35bOtPAsy3/76c3ECh63jSVNZl+eB/nOvkOrfOJBu K7pt378EDgVz7m+MwMHXqaRO/RoKts/IIU6UiIev8ca2NgtxzOuMh7NVSyPw PnesdpOdOGq9k6JN9m6C5jsM96UriKDX3UGKW453AYk3e5peSwkj0lBa94+2 QVDjdP34c04h5MJ8uhZ6aRykG0252LKoKGnU4fEzxASek+c5M9ooqOgwe+oy UV+HNm1/k1pMRse1l3lEK5lAy1t00PkTCX2R3E/dHDQONASqODAlQcQRe+uy 7MggaA07Us35mQdVZO2byd1I6LO7aqyUPxcy0Rfk/PuiF1pZvDqbqsOB3Avl E3ZqjsD5xx6uObvYUMDbOWPqNzqs+sC0sGMswWj3IhH7cByeGPq4x7N0Hob/ k9NV6MXh4y1h6h8OTMNX1fTJmTYG7C/rKgx4zIBxrH/y3LGjkCdbJi/faBCm cn/JiEb9kLlL0OOUYwcoWnco4WtqOzjQtLfWKXIQVOwLOJk/2Q8oPLVPiqOZ wMnjg8BWyTFgk/CADD9Mg8TmF1vTlZhg0XNjUGzzPNCB2851D+CAy4rk7mOy DOLqM1O2Eb7MuF5falyLDTNQci89/IEOTto+WFdrzIG5OJbsaJIfAUkeW1W+ hHFhJM8WU0pgL1BQ7C0WXduI8Q692vyv8B/kuuWZEXZAEDtAq1QMpA1BnYrG j7sySdi9zk0Zf46NQ1r4WKTwDzLGEFL99LebCXtRkZXhAAXLSZXyiibyIeS3 bVw+g4q98b1wpbyNCTXSUgcVNgphYr3eOM14HLYeW8daFBHGYrq6K3Q2DMHr jgmllQZimPtUTd0u51dAPK/ZcC1NGCmJXneKfN0HnKjDFq33hdDOHvGzhb0j QGLL0RfWQTT00qTtUv0JBvAfHZNmnKMiW+G70d0fcFBF7RBpN6KghK61P3dy cPDibmG07X4yOrr+zpePjgwgUVO7d06WhLhGsudGcUKfFyKuGdlwIq2v/26K yQ5Cz9tqzL8a7Ojy4OUmgc9jUGxr6qMd21ahW8UIhc+TCTfj261M2hZg6oWg pAWCh19/jB77em0WXnkiPNa8HYecc3vNbrFPwniTwUN1s+OQxdz2rORUL2B/ Dk4ahveAw/wphoUbxsDGC6bnmnWGwexDlBl8fRJkXPDOUD1PBxLdPvu0y2YB duHht83GOEA7zBm55EUgNyv9fIHo98k1nc+vnl0FB9Ko5YtGTBDJBTco6rJj V2/fFfuSNgbUizeoDkkIYOtGuC48y+yDq1+yD0nJkLBzax90Pg2NQMz61c4v +8mYofiyYIsTA8Yk6GYvWVGw/HGe2bslODQNmX3/2o2KWfd6WFA+4PDSe68A zRuEHmVIhZ4+xYA8fd8yD/wVw2R0m3eHr6sG09hgwBKiobrT7K4ULzq4+5Sp K/+BijaZzA++MSH2G/aKH92joMSgimzrcRx4tnglhgSS0WG5r4nXZJmAa3vZ LgN9Qp+Tozc/fMeAU8f4T5zoW4RlznNtrDoc3jDZIij8bA4GST8IfZeIw19R fysSJafgErubYwGLDoNNHiyqOBL6nDCd42I5DooP3JRl+zIDNDNnMr7XMIHd sZz8LdMs8Cz3Z6Uf0T/M7vlxzVuvgPOVojrMQSbAYou8fCdIWF6rQ4v3BTps 4Hu8aT2JgtXHGhxfdiTqW+okh/9WKvZZFhP5N4JDf3guPGAfDRsw18sP386E +isF1Z80aciiqm1HmTgT2B8YXsvbQkV3/pQsldJxMJVGlpnioKC5MquQTiIe KtK3lmjrVyC+OV8mlB+HxnHG1rq1LEir3fpjL8G3v0RZlY6nZ6D93qu8qg+Z 8Hw3w6rh8RRg25rcqWrLAIE3XQ6H/ZgDoZhXh1QmDuQ2zsrp7VwC9V/v/Ako JvqjdBS+HELGPuS1kr/tZUIDyQmM+YyC+ZFUpbZO4ZCjJ/5UcxYVO6vm/ffc CWJ9mX/PrsiLY6Pllru1+BpAkteEpXYzFb03T3yWwEfoYVFE5J48CrKJVV+6 T+itDVtQc/u5JSj5+WNz4Hscuou5S1fsmIeSzlvylssJnuv597T1LAtEtmJQ mdBzpSsVBfsal4Ftsdb5I9tw4F2NNd6lk7HkLv7SPHkcFnveeWfPTcWa3qft DGTh8AJ5lPRbl4qiQ+U5e5qI9Tpnk122UlBdBsrkDcdBmizNSPrJCtTvDwx5 UMGEeYe+tlYfX4BNefl7vYj+U7vrUqmj/hwIAgy34zeI+CfLrl96sQjmup6+ VevEweifp/M+gRRM7lBLP+zEocLOb5wld6gYb2BA23QEDsPL6LvXx1BRs6rU l+/EeruOlMabXKKgCzyv3c0bCT/7PLmlwWYR3lb05m4YxuH94JZlt41z8OmK brSeG8FzpSG/3cIWAOyj9BUReqtixnAO20PBwtfsR54n4NC7YevJuMNUTKnG 83hhA8FHjoPMJ0sUxMA+R/kQev5l89x73sBlKMg2NlBsisOef+1tpQYseE66 L1tvBodKbbYNr0zngS5pNTeU4AXLa1VYLFwCpsomIjXxRHwcDaLOlVGwLuG9 IsUrOLyo4/7knrE4xvl7lk/3cCMoamHpMyop6HnGac/QVRx0r8VmifnNQ/Yz +SXWTThMUJjl2y3BAuNKV/ca4DioE33F3jxDwRhnJ/1pxHxeK+5i3SeoKMf3 8MnUChyMPLoiHJWwAJ9Oubb+JPjy9KDGNatTi0BbT5H95AgOigqY5oVuFGwh xTfJgajnIdedZjzBFFSLBXAI9OCgeN5S6MHzRRiW8K7iKnEfczxPdL9pLIBM Pbuk9v/8eAB4z6FOxe6qm5j9/YfDU6au8+n8VGT1p/IowXOAphYvEnqHBcsT f9EsCL/U+L43Op5vHsTtv/bFnvBrviBpMCuHgl2TcPfYvkDwUArt59VXFFQv 0X1PZQYH3x5Xbbv2lgWMPoq6xy/j4M13T+txISrGL7U4WjyJQxd5N96KXVS0 4GWrndBL8O8Qx2NuwQUYfP905CiRb6JLesm7YihYysl7n94R/cH88MBDAfFF KBM+1rZI8JSCn7s9f80CePr6/DfxBcJP+zoPRY1SUGlU2p5VIv5Zt6SfLHOy 4I72RrYNBO+FsXXQPt2dBzv6Jz/c+oODxvBJFbkmCmYlUlfSRqwXZJ4jtMVW HFPp1nDjOtsElnvMSNpO4qi6r0Rnf24TlPjx9mKFsggadE+3EBbpAjX8Ksck 5IVRxmR8T1rJIBhp5r77Y50QOnjs6x4jm3GQeZMy0rNMReKnKlZjC5jANqDa W6iTgi5X1GMLRPyTcoQ7KhEZccyv7ZGoY4Lr9Ymnez6TkLdwjKXrvXGQ1D/i mbJbEB30T1QMYhsCQSoOr7kQD8oIHoV91Y3w3rti/flgLnR69OjDo+G9sCDX 9HmvMQc6fHU5JFF+BG6ONNz+QoMNyaT3Zlnl0WFzVWe/wOoSNC+4Swu9gcOp Lcsttxrm4ajM82dqAzgciCyO8zoyDdV3eqt9GmDAxbWfV54WMuCB0N+7R1+M Qq09VQ9eXBqEjuynnMo6+2Gccr7D980d4LZENivHtR243TkuZeY8CKjFOZxX WvpBvw1PuLkbExgkZimk8I4BnigfNs0X00DU+u3YvS1MQNONP51WPg94DL+h XuL+7adOgWLNZfCvJ/vwG1eCL7indn7Zy4a9MuM1KC2lgyF2yt1hbQ5MyChs 76aDI8B4IWL3pUAuLLpRraHlYS+413nsuNLcRixFZOVS+NV/MEayrFB5lyC2 4YXN9JHlQfjKYMDvfSoJ+5UxpTStNQ4ji6B9xjdCr382O/gSfmRojO2ifA8F 85oIeN1E5MOL3fz2B0ap2GqAav+hXiYcn6+YYa0TwqpGgm/fPDMOk6zHxXqo whiF65g8j8wQDPins0VGRwy7LKd5rpDyAgwc2x8i8UYYxaV7icKoPkAK6K03 eSSEXmuFPtv3cwRo3G/7FxpGQ32r2m89DBkgQI4vzfMiFbkElaf/eIuDvES1 24ePUlC+w07dC3k4WJFNKw7WIiN70UetxZcZwHbbsSwvBRI6unpo0JxnFMRr 0fZKuXAik3vPDUJ5B2H9YK+iuC47yr1QLNiRNgbdeE5ICR5YhbUym88xnZlw O7f40PLwAvyoY0q9PEf4dXpzzO/YWdjlHZvJ3EPUs71HhgF1Ek5eDXHjWEeH hvRFId/9veDaW/PFYtce4FdRlPx6aBTsEgjsXlMcBnZl/57VnJ8ERternzef ooOq5hNyJR9mgbW/9GYZXRx0rLX9+L62AITi9y2uTOOA5brVr8x8FVCplwY+ WTJBl8aFTfMa7Jj855tLjQVjIMXjasU8VQBj37QNRkf3QR0e68OzkiTsjN5k Zd7vEfii49PM3r1krGE2u8LHkgHZakVvxZhTsHfB7hqLhUS/yNKsCHOmYkkB gf+e5RH6ISBtBANo2NnvIzkJ5xiQw+7K+ketYpjz2UrqRd8qQPp0uUC+koZu 17I3lDjSwb1mgarMPCp6feGUOUWf8L/r166rPKQgsnD7ru8MHNS62/58FURG EWdrX0eqMIE535Wv26zXYKaOHEXqOQOuuSwNcE8vQvHCPfw6P3EoHuGWuz1n DtoFyUrpvSDGM0KbbFSnIN8hl5bCdQw44v8Bv3psAhx1mRwe0R4HrqoulOuZ M4Bf3GagqIwJAqT3xav1soDJVO/vBaK/vVVGHYcOrwBZa067e0wmeEGq3Tc5 TsKcqA/MKk/ToZ7uxamnfBTs63T+8gLhb5ONU0QsZagYp7STtuE4Dp9IiVgu 76Rh1+Mjr7uqM6GTB8bdBWio8497ibMgEzj4rAvbL0dFby1aDu0aI/Rs++X7 DusoiCJS36xgiYMb7Oq35sRX4HpHRkENFw6t0/YPT3eyYMZCya5WgrfOm2u7 +V+cgQo1GXHoORM2beAz2RQxBRQqvJM2HGMAuUADtdXCOWDfaV6ulUrwVVcg +5nNS2BiqHFpCeEgJS3pU8B1Mtb5Vd+sQoEJiywrRYKfEn5o1vIlB9H/121o v5ybTsWYpo9GBQi/bZASvVovJY5lFfpFv4uoB8nvSG3f/lDRvNPr55ADJ3i6 f/5lIQW9GLL8+p3gAXfhi85RAUtQY/JvVU4mDnksPlb8AfPw79ZwR7NqYr6P Z/0Yx1mAn26m7EHo4S1B/tgbZctgQPnEiS4VHAytCr2RGiFjfrdqtwVL4hAl 1pdpsVMxPmkJgWZCDy+arH9gaUhFQSoPHvE34MDorPnGZiUKMnQ74y91h+An zqpGjqwVyFV3wi3zCxOWWb5xDXBagIhnibZMxM9v29H3//bOgTel/MDBHwcb Pd4Mku8SfkWonBHYjQM7kkcdtx8FczRoKXdqJ/jw9AaxxFtUrGFIsz82Boc3 lzfmx9yjIu+1oEVPgtc2N4pzfPWioBxJsYmlFhw8zI9yCb20CBWj7UNUBnGo 8mXz86DNc7AvtuH4Zg8cZt7jyQ72XACnDC3ygoh8e3W7XJOqSsGq/+QtN8YR +1u8eOmCLhXTWf4is7cZh5bJ3F4SbFSUXxdnqkzwLO9ahvpY9DJsb/vz76AB DhnT1ec8rFnwltbAleVZHDbXHoKbD84D7IDMwtsqHFw2NZFMe78EmnK6c6Oe 4ED06SZHVjHhn97n9DUS/ONWKrJA1xfHVnK/HaWxNYJMmxP5Z2ooaKRgn/wm Qk+vH2gzUY2ch3vn7Id523CYvRg4YriBBTrjRUJGCL/QpDMinDtBwSSKWm4P ErzlvT8qyek0Fd2eV+dQhTiYe+eYrvF6AQ7Ffbn6cwmHPp+R9aXDi+BAj+75 ZSL/VZgVikbOxH6UHvCcqyH2z4iBPuEUFB+3W35TP07wgO5r3Q+LMPODbIgp cR+kdkmpvwoLYOQvnW+F2N+dV7fKu3dTsZjX2sN1PQTPRUZcVaJQUYn0nkM+ RD+UMQnJ2JXIgrt5m/KDifWvp5YHCizNAX3z2rccBTgY8/Ms1nxLwaqqvvK8 JvzxIXkvjZF0CtqT6qbHMYeDLncTrvinLDDwM1jcl8jv7KmCi9/JVMxq6/CN 59M4dHWIjDJQoyJmofxG5y4cxCxPbC3YsgBHH9x5v0boXcxu8SvltynYC61H hnQiHxxsG+Wh0iJ0OLIJDDAJfTDENeUKF4Dxb57RIOJ+j3646SbApKC2eO6B k0R+FCYJKrynsWBd7ehPE+L7ynNFnKrB8+BVlFGcOpFvBl+ruPPrKJjxnzP1 //2eEVhn63ftpDimGJ6MaUg0gbDzAgn7myiowGGl9A8Rr56UiJd+Q/Ng31tl 4fxhHHQ+8tG+MELBrq8X5pZe+y++B6uSqhag/d3Z005EvaWfqSUlyS6Cq2l6 Wr8Ivta7odjOy70AlpO4Xv4k5rNbrbqxaxMVzclMkOWI51oBNtXxX1nwEs5/ 35PIh8ZB8fO2ryhYZPycjQzhB0T3KIlV5lCQeWbU0h6CLykCJ0ugLwtI8PTr lrNw8NlA93HYeip2MGu97Cqhn+kKvwxEtBfg2fOPwiv+O9+dbH0pk0W4XOzQ dHSMyCf64szxhAWQNWC6UEfwsPnWyotC8xTk/PyyQAIxbqwePyygxoJFwSry 5wk/uVPJ61NrJQWL3+i+dOM//3o0uTWojIJG4zf5I8L/1DDP0OdYFKzn+spu aaI+/obcimgPX4BlZze5vCHO07mXcu69yQJQXHtFjiPOf5Ji4Cu7nooW7dPf SxP+cZ1U2u2GABbULAjO5CTix8ZbJSCeR8G65c/GRhG8n1WJHXEuYQHXsBev bhPreTXQ1p1YZUHRrLr7H4jzCaT1h839XQBsuUJ344j5TDT0nNcNUlCi+vHK wP/ibSJx8kEbsf+CU6eWie+HtbLllzuKYzMHKdfz3jSBS9b3W55JiyG2/3lF 1YXbJ8is/78xW8/7rFSjydL/HY4k1f25K7Me+98x/6JtQbm02P+N//f/vP/f +P+e/z8PRce9 "], {{{ EdgeForm[], RGBColor[1, 0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333]], GraphicsGroupBox[{ PolygonBox[{{697, 702, 1, 515, 364, 242, 150, 87, 51, 2}}], PolygonBox[CompressedData[" 1:eJwV0TtMUwEchfHW3QePWa2CSJ/sWmBGooLtZFlQGEjQRK1KXBhIBK1UwcHB BUJ5hDioQKvRTRgpaKKTJkoXB1+DCQkLvzt8Oec7/6S3t430X++9diAUCoUx g/fkHU7pLTiq33c8iJf8Bs7jjH3OFsUmL+I0jtnHbYfwit/EBZy1l2wxVPlj tOK4fcJ2GK/5reDzbWWexnd+EWnbPI9jiz/BZdsH3oXfPIqI7QE/ghU+wDf1 DPLBd+EVvR0/gufxr/oV9PB2vqAnMKb/ktv2Yf2znsOUvhekPaev67PynCzI /8G7yz/u92SNL8sh+UyGg/dDzP2EfGh/LuvkqPwpX8hV90FZ5SWZlUW5K28H v4v+Ru/AuP5P7tjz+jf9Knp5B1/Uk/jIgz/8i96Had7HN/Ru/OVxnLQVeD3W +B302N7yTtT4JXTalngKn/hTJNBkf2RrQJnfRQZJNLtN2htR4SPIIoU27AN8 wlAQ "]], PolygonBox[CompressedData[" 1:eJwl0TlPlGEYheEZaBGRRaVAgR+gokEpQEEWpRMSQDsWBbXQQMImaDEoJHSE BHAhsogmhqgQK03YsYAOKsBCK0QLCjrZvL5Y3DnnPk8x+d5Jq35Y+iAqFAqF MY6v5Ati9aOI0Rsdd/XXqEQ24nDErcltTx9CFXJwxt5vT8Esj+AYYu3Ntn19 GNW4jLP2AfspzPEOxAe/b2+xHegjqEGR7aMtE2v8Cs7ZnvPTmOf3+Ip+E095 GZ/SC/CLN/Mfei0Sgm/hrfqhPhp8B1/iN3CbX+Of9Ivo1Lflur1eX9ffyUrZ K/dkrluG/kIflKkyIv/ID3LB/b5c5W/lLdkj/8rP8pl7uZzmw7JQdssdOSG3 3FvkT/5e1sk+eSgTg7fWH4X//6lP9E35JnhvfVkvwR1+nU/ol7DBG/iGXoU8 fp6/1NOwyDtRYZvhRfjNk4L/ytbGwxjjtSi2TfIsfOdXccH2iqfjG+/CcSTY 221RwXvwOuTjBBLdHtujg3fmd1GAk0jGP11vU20= "]]}]}, { EdgeForm[], RGBColor[1, 0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333]], GraphicsGroupBox[{ PolygonBox[{{701, 703, 50, 696, 514, 665, 363, 485, 636, 241, 333, 455, 606, 149, 212, 304, 426, 577, 86, 122, 185, 277, 399, 550, 49}}], PolygonBox[CompressedData[" 1:eJwV0DtMU2EAhuGiFGgrq6C4OCGKAxcBZaLFVRI04AXFkBBYpHgJC6IwMDCQ oKJgAWNiYmIoxMnEFpRRNx1QmJiExIFBuToQnzO8+b73+89Jzn9OdiSbew6F QqEcvMVHkkGhfgT1aMcr/MMDD8acx/QhLOGE7QXO2i/wW5jBPu7bo/aoPojP KLE9R7n9PF9BNZ/HRdtNPo093LNFbBF9Awm+iCu2x7xV/45u/okf18dxhtcF 366vopf/5Jv6sF4l59Cot9l39FG9Sb6RX+VtOeUsLdf5gNzlKXmXF8gC/kEe BHeSnfKdXJN9wXvO38s/fETG5Wu5IC/LR8F/0sf0FvkNXfqi/bc+pB+Tz3Ba rw3+r76CJP/BK/U0EvwGv6R/QTtPBXdDL8/n+fovNPAsmm0DfAHF/CnKbDV8 GRV8FnHbdf4S20ja8mx5+kNkUWR7glP2c/waJrGFHnvYHtb7kcHR4N4otVfz q5jAX9yx59pz9cP4D3jcUJ4= "]], PolygonBox[CompressedData[" 1:eJwt0jlMk3EAhvFCPJFVlEtBRHAXocVVkGvBBXErDkpLkTDpwKFcyjGZOBhF 0QE8SbAusgADCO2mmwrBhcSSOJgwmfj7EoYn7/u8/69pvqM02t2ayA6FQll4 j89kEeX6WbSgB/PIddEIip2X8Wbcxgccsw+jyNkZPoU0ztteImJv4t37/5Nj G0KhvZRPIoVK2wzC9ka+hUv8E1psCX5VT+MGf8eP6vdRwEv4Lf0X7vJd3qCv oJ1P8Ov6N8T5Bs8Ev9cr5DP5QtbIBmdJ+Y8/klE5K7/LXrkZ3Lv8w0dlrZyW Sdksu5wvyD0+JVvlK5mSHfKt8x29Xz8in8h7Ml+edhaSj3HTto07esb8Vx/X r8hlXNPH7e36V8T4Oj+nP0d1cC3/iQj/iCZbnL/BYT6Ik7ZT/Dfq+RLabA/5 F5QH94eLtnr+A2G+gEZbjL/GIT6AE7Zi/gBrwfcUPF9U2et4J+ZwMHgGyLMX 8TGsosz2FBfsl4P3ilkcsPXhuL2QF+A/WX5R2w== "]]}]}, {}, {}}, {{}, {}, { Hue[0.67, 0.6, 0.6], RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], LineBox[CompressedData[" 1:eJwl1nfcTgUchvEXKSVbEcreWyhb9h6vvbdSMjJD2XvvvVdRUaSsrOxCpUiT ElHaiub39+mPy31f93l43uc855xXzq59E/skSUhI2Js0ISEymeyt/KwvQCs8 DHPCTn8kk3cE+tNe94u+EK1RGvnts+z3YxcfjuSBPd7oV30R2qAMCthn2zNh Nx+BOwN7X9tv+mK0RTXbZltJfMjLoqBtDs+MPfw5JNp288dwmd8V2Prxm/oS dOLHeCO049X5S3opfMT78vN6RzzCC/G5+gMYrV+Te+2P62f0lpil35LP25vp e/RVspqcLH+WW+U3jg+WX/AXZQ85X/4jd8gUjqeQ/fkS+Xt8rvh7/CW5lHeW x/la2VhOlzdle8dq6C/rD2O8fkOes/fTP9Y74VFemM/Ts+At/gR/T2+Fkbw5 36tXxxV+d2B7hv+hL0MH1LS9YiuN87wcitjm86zYx0fhnsA+wHZLX46OKI+i 9gX2bNjPRyNlYB9ou62viO8NFXAvUmGX46llmtj0QV77p74yzhEqIm281rHB jv2lr0IXVEIx+0L7gzjAxyAdUtuH2P7WV6MrKqO4fZH9IRzkY5E+3t8+1PaP vgbdUMu2xVYGH/MqKGFbzLPjEO/F39dbYxxvwd/Sa+AqH8K/1HsiQ3wW/qz+ r742Pgc/wZugO6/Nt+plMUH/QV6w99cv6BtlZzlX/iWrOlZSX6IvlznkGHld viLfdvxJ+QHfINvI2fK23C7HO95S7uOrZU05Rf4iX5XfOj5UXuSb5ONygfxX ZoxzrQ+LB0/cN/oVuS7Ot35Sb4oevA5/Ne5FfMKf4Z/oXeI+56XivtBz4jCf EM8u235eC9f4ffFd2YbzJFjPe6Ku7bW4J/BpPGfimWdbxnPhCJ+I+5HBPsKW NM5H3P/x7EAmZHTsOXuyOM9xP8W9iMx4ALsdzyKzxs+iP+91d+CFuA7iPkJp +3Jbbhzlk5At3ts+0pY8nhnxncT1hTL2FbY8OMYn48H4eeyjbHfGeedPoZ5t Gy+Hz+JaQVnbSp4Xx/kUtLYd4LVxnT8Un8E2mt+Fzbw36tu28/L4PL4jPGJb xfPhRLwvP6u3xVTehh/U64Trv8rv7M/ql/QnsDB+2SB7nDc5xrY0novxXJJX 4zkY95j+TlwvMlHOiGel3Ba/mxxvIF/nK2UFOVH+KLfEs9fxAfLTOP+yq5wn /5avy7qOPypX8xUyvxwrv5Mn4/PrH+rtMI235Yf0uvieD+Nf6b2Qg2fhY/W7 8TLvzt/Vm6EPb8h36BXxZXxXKGdbwwvgHT4dOeP6sY+z3RP3KO8b3wXK29fa CuJdPgO54vqJ+9SWMj477xfnBrnjWnFsgv1ebI3nRPwsyIO82ON4Ppk/rgN9 otelins77kE0QgX7OlshnOIzUQDZ7ZNsqfFanG80RkX7elthnOazUBA57JNt aeI75APj37e9wSvhIm+CSrYNvAjO8NloF88qXg83eKE4V7YpPG08q3gPfkpv jkHxs/A39cq4FO/HP9O7xXOHV+Yb9aIYp38v37M/rX+kt8cc/c9Ie3v9sL5G 1o/rQv4Wnz2ew44Pl1/H/SOflItkkvh8KBzflZxqXybTyVHx/IzrJa7jeFbJ 0/Hcki3kTPmHHBznRd+pV8Ek/Sf5lX2Q/rneHYm8Cn9BL4b3eR9+Tu+AubwD P6I3wI+8SFwntmk8PXbwIWhq28Wr4mveDFVtL/Li+IDPQ9G4luzTbRnwBh+K 5igW15hjM+wZ8WY8B9ACxVEi4f//l5aU+eRMr7kPO+P+Qks8Zt9kK4GzfD46 2o7yhviJj+CX9aewWE8a3ztKOfYftOlKIQ== "]]}}}], { AspectRatio -> NCache[ GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, BaseStyle -> {CellBaseline -> Baseline}, FrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10], LabelStyle -> { FontFamily -> "Verdana", FontSize -> 10}, Method -> {"AxesInFront" -> True}, PlotRange -> {{-6.6, 6.6}, {-0.9999998464014627, 0.9999985917009981}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}, TicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10]}], ShowStringCharacters -> True], Graphics3DBoxOptions -> {Boxed -> False}, StripOnInput -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "2"}, { XMLElement[ "assumption", { "type" -> "SubCategory", "word" -> "brown", "count" -> "2"}, { XMLElement[ "value", { "name" -> "{Mathematica, Brown}", "desc" -> "basic brown", "input" -> "*DPClash.ColorE.brown-_**Mathematica.Brown--"},\ {}], XMLElement[ "value", { "name" -> "{HTML, Brown}", "desc" -> "HTML brown", "input" -> "*DPClash.ColorE.brown-_**HTML.Brown--"}, {}]}], XMLElement[ "assumption", { "type" -> "SubCategory", "word" -> "orange", "count" -> "2"}, { XMLElement[ "value", { "name" -> "{Mathematica, Orange}", "desc" -> "basic orange", "input" -> "*DPClash.ColorE.orange-_**Mathematica.Orange--\ "}, {}], XMLElement[ "value", { "name" -> "{HTML, Orange}", "desc" -> "HTML orange", "input" -> "*DPClash.ColorE.orange-_**HTML.Orange--"}, \ {}]}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "1.527", "parsetiming" -> "1.268", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 16, 8, 22, 35.6296151`9.304386024471535}, "Line" -> 5, "SessionID" -> 22930108647438038912}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "Show[Plot[Sin[x], {x, -6.6, 6.6}, PlotStyle -> Darker[Brown], \ {Filling -> Axis, FillingStyle -> Lighter[Orange]}]]"}, Typeset`open$$ = False, Typeset`newq$$ = "plot sin x in dark brown with light orange filling"}, 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->{407., {108., 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[7]=
In[8]:=
X
\!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "add red dashed grid lines", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Input", "Input interpretation", 1, 1, "Input", "Show[%, GridLines -> Automatic, GridLinesStyle -> \ Directive[Red, Dashed]]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Show[%, GridLines -> Automatic, GridLinesStyle -> \ Directive[Red, Dashed]]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"Show", "[", RowBox[{ TagBox[ GridBox[{{ StyleBox["%", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"graphics\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], ",", TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox["\"grid lines\"", ShowStringCharacters -> False, StripOnInput -> False], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox["\"automatic\"", ShowStringCharacters -> False, StripOnInput -> False]}, { StyleBox[ StyleBox["\"grid lines style\"", ShowStringCharacters -> False, StripOnInput -> False], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox[ TemplateBox[{ StyleBox[ StyleBox[ FormBox[ TagBox[ FormBox[ FormBox[ TemplateBox[{"\"red\"", StyleBox[ RowBox[{"\"(\"", "", "\"color\"", "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", "\" \""}], "]"}]& )], TraditionalForm], TraditionalForm], Format[#, TraditionalForm]& ], TraditionalForm], ShowStringCharacters -> False, StripOnInput -> False], ShowStringCharacters -> False, StripOnInput -> False], StyleBox["\"dashed\"", ShowStringCharacters -> False, StripOnInput -> False]}, "Row", DisplayFunction -> (RowBox[{#, " | ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", "\" | \""}], "]"}]& )], ShowStringCharacters -> False, StripOnInput -> False]}}, 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" -> " | "]]}], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], Show[ Out[], GridLines -> Automatic, GridLinesStyle -> Directive[Red, Dashed]]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Show.html", "text" -> "Mathematica definition of Show"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Example", "scanner" -> "MInput", "id" -> "Example", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Show[Graphics[Circle[]], GridLines -> Automatic, \ GridLinesStyle -> Directive[Red, Dashed]]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox["\"In[1]:=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Circle", "[", "]"}], "]"}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"GridLinesStyle", "->", RowBox[{"Directive", "[", RowBox[{"Red", ",", "Dashed"}], "]"}]}]}], "]"}], ShowStringCharacters -> True], {FontSize -> 11}]}, { StyleBox["\"Out[1]=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ GraphicsBox[ CircleBox[{0, 0}], { GridLines -> Automatic, GridLinesStyle -> Directive[ RGBColor[1, 0, 0], Dashing[{Small, Small}]]}], ShowStringCharacters -> True], GraphicsBoxOptions -> {ImageSize -> 120}, Graphics3DBoxOptions -> { Boxed -> False, ImageSize -> 120}, { FontSize -> 11}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "SubCategory", "word" -> "red", "count" -> "2"}, { XMLElement[ "value", { "name" -> "{Mathematica, Red}", "desc" -> "basic red", "input" -> "*DPClash.ColorE.red-_**Mathematica.Red--"}, \ {}], XMLElement[ "value", { "name" -> "{HTML, Red}", "desc" -> "HTML red", "input" -> "*DPClash.ColorE.red-_**HTML.Red--"}, {}]}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "0.71", "parsetiming" -> "0.525", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 16, 8, 23, 1.5966151`7.95577521873039}, "Line" -> 8, "SessionID" -> 22930108647438038912}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Input", "Input interpretation", 1, 1, "Input", "Show[%, GridLines -> Automatic, GridLinesStyle -> \ Directive[Red, Dashed]]"}, Typeset`open$$ = False, Typeset`newq$$ = "add red dashed grid lines"}, 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->{332., {68., 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[8]=
In[9]:=
X
\!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "set line thickness 3", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Input", "Input interpretation", 1, 1, "Input", "MapAt[{AbsoluteThickness[3], #1} & , %, 1]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, {"MapAt[{AbsoluteThickness[3], #1} & , %, 1]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", "#1"}], "}"}], "&"}], ",", TagBox[ GridBox[{{ StyleBox["%", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"graphics\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], ",", "1"}], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], MapAt[{ AbsoluteThickness[3], #}& , Out[], 1]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ MapAt.html", "text" -> "Mathematica definition of MapAt"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Example", "scanner" -> "MInput", "id" -> "Example", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "MapAt[{AbsoluteThickness[3], #1} & , Graphics[Circle[]], \ 1]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox["\"In[1]:=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ RowBox[{"MapAt", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", "#1"}], "}"}], "&"}], ",", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", "]"}], "]"}], ",", "1"}], "]"}], ShowStringCharacters -> True], {FontSize -> 11}]}, { StyleBox["\"Out[1]=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ GraphicsBox[{ AbsoluteThickness[3], CircleBox[{0, 0}]}], ShowStringCharacters -> True], GraphicsBoxOptions -> {ImageSize -> 120}, Graphics3DBoxOptions -> { Boxed -> False, ImageSize -> 120}, { FontSize -> 11}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "0.935", "parsetiming" -> "0.681", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 3, 10, 34, 11.1857888`8.8012415742691}, "Line" -> 87, "SessionID" -> 22922952456426429016}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Input", "Input interpretation", 1, 1, "Input", "MapAt[{AbsoluteThickness[3], #1} & , %, 1]"}, Typeset`open$$ = False, Typeset`newq$$ = "set line thickness 3"}, 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->{311., {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[9]=
In[10]:=
X
\!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "change background to light yellow+light gray", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Input", "Input interpretation", 1, 1, "Input", "Show[%, Background -> RGBColor[0.8333333333333333, \ 0.8333333333333333, 0.5]]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Show[%, Background -> RGBColor[0.8333333333333333, \ 0.8333333333333333, 0.5]]"}], XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"Show", "[", RowBox[{ TagBox[ GridBox[{{ StyleBox["%", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"graphics\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], ",", TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox["\"background\"", ShowStringCharacters -> False, StripOnInput -> False], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox[ StyleBox[ FormBox[ TagBox[ FormBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"color\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TemplateBox[{ StyleBox["\"red\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", "0.8300000000000001`"}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], TemplateBox[{ StyleBox["\"green\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", "0.8300000000000001`"}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )], TemplateBox[{ StyleBox["\"blue\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", "0.5`"}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None, None, None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], 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, 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], ShowStringCharacters -> False, StripOnInput -> False], ShowStringCharacters -> False, StripOnInput -> False]}}, 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" -> " | "]]}], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], Show[ Out[], Background -> RGBColor[ 0.8333333333333333, 0.8333333333333333, 0.5]]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Show.html", "text" -> "Mathematica definition of Show"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Example", "scanner" -> "MInput", "id" -> "Example", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Show[Graphics[Circle[]], Background -> \ RGBColor[0.8333333333333333, 0.8333333333333333, 0.5]]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox["\"In[1]:=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Circle", "[", "]"}], "]"}], ",", RowBox[{"Background", "->", RowBox[{"RGBColor", "[", RowBox[{"0.8333333333333333`", ",", "0.8333333333333333`", ",", "0.5`"}], "]"}]}]}], "]"}], ShowStringCharacters -> True], {FontSize -> 11}]}, { StyleBox["\"Out[1]=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ GraphicsBox[ CircleBox[{0, 0}], { Background -> RGBColor[ 0.8333333333333333, 0.8333333333333333, 0.5]}], ShowStringCharacters -> True], GraphicsBoxOptions -> {ImageSize -> 120}, Graphics3DBoxOptions -> { Boxed -> False, ImageSize -> 120}, { FontSize -> 11}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "2"}, { XMLElement[ "assumption", { "type" -> "SubCategory", "word" -> "yellow", "count" -> "2"}, { XMLElement[ "value", { "name" -> "{Mathematica, Yellow}", "desc" -> "basic yellow", "input" -> "*DPClash.ColorE.yellow-_**Mathematica.Yellow--\ "}, {}], XMLElement[ "value", { "name" -> "{HTML, Yellow}", "desc" -> "HTML yellow", "input" -> "*DPClash.ColorE.yellow-_**HTML.Yellow--"}, \ {}]}], XMLElement[ "assumption", { "type" -> "SubCategory", "word" -> "gray", "count" -> "2"}, { XMLElement[ "value", { "name" -> "{Mathematica, Gray}", "desc" -> "basic gray", "input" -> "*DPClash.ColorE.gray-_**Mathematica.Gray--"}, \ {}], XMLElement[ "value", { "name" -> "{HTML, Gray}", "desc" -> "HTML gray", "input" -> "*DPClash.ColorE.gray-_**HTML.Gray--"}, {}]}]}]} , Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "1.188", "parsetiming" -> "1.014", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 8, 12, 12, 43.4135805`9.390200477278741}, "Line" -> 50, "SessionID" -> 22925844959973191216}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Input", "Input interpretation", 1, 1, "Input", "Show[%, Background -> RGBColor[0.8333333333333333, \ 0.8333333333333333, 0.5]]"}, Typeset`open$$ = False, Typeset`newq$$ = "change background to light yellow+light gray"}, 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->{345., {88., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)
Out[10]=
In[11]:=
X
\!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "add frame", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Input", "Input interpretation", 1, 1, "Input", "Show[%, Frame -> True]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "MInput", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Show[%, Frame -> True]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ StyleBox[ RowBox[{"Show", "[", RowBox[{ TagBox[ GridBox[{{ StyleBox["%", SpanMaxSize -> Automatic, StripOnInput -> False]}, { StyleBox[ StyleBox[ RowBox[{"\"(\"", "", StyleBox["\"graphics\"", ShowStringCharacters -> False, StripOnInput -> False], "", "\")\""}], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], {FontSize -> 11}, ShowStringCharacters -> False, StripOnInput -> False]}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{Automatic}}, "Rows" -> {{0}}}, BaselinePosition -> 1], "Grid"], ",", TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox["\"frame\"", ShowStringCharacters -> False, StripOnInput -> False], { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox["\"true\"", ShowStringCharacters -> False, StripOnInput -> False]}}, 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" -> " | "]]}], "]"}], ShowStringCharacters -> True, SpanMaxSize -> 1], Show[ Out[], Frame -> True]& , Editable -> False, Selectable -> False], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["infos", {"count" -> "1"}, { XMLElement["info", {}, { XMLElement[ "link", { "url" -> "http://reference.wolfram.com/mathematica/ref/\ Show.html", "text" -> "Mathematica definition of Show"}, {}]}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Example", "scanner" -> "MInput", "id" -> "Example", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Show[Graphics[Circle[]], Frame -> True]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ StyleBox["\"In[1]:=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Circle", "[", "]"}], "]"}], ",", RowBox[{"Frame", "->", "True"}]}], "]"}], ShowStringCharacters -> True], {FontSize -> 11}]}, { StyleBox["\"Out[1]=\"", { FontSize -> 8, FontColor -> GrayLevel[0.35]}], StyleBox[ StyleBox[ GraphicsBox[ CircleBox[{0, 0}], {Frame -> True}], ShowStringCharacters -> True], GraphicsBoxOptions -> {ImageSize -> 120}, Graphics3DBoxOptions -> { Boxed -> False, ImageSize -> 120}, { FontSize -> 11}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Right}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "0.603", "parsetiming" -> "0.362", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 16, 8, 23, 12.5476151`8.851136144610402}, "Line" -> 11, "SessionID" -> 22930108647438038912}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Input", "Input interpretation", 1, 1, "Input", "Show[%, Frame -> True]"}, Typeset`open$$ = False, Typeset`newq$$ = "add frame"}, 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->{190., {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[11]=