Integração com o Wolfram|Alpha

Estilos gráficos

Todos os passos são executados em sequência para efetivar as mudanças do passo anterior.

\!\(\*

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]}, "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[

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]\)

\!\(\*

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[

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[

FormBox[

TagBox[

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]}, "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[

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[

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]\)

\!\(\*

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[{"AbsoluteThickness", "[", "3", "]"}], ",", "#1"}], "}"}],

"&"}], ",",

TagBox[

GridBox[{{

StyleBox["%", SpanMaxSize -> Automatic, StripOnInput -> False]}, {

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[

RowBox[{"MapAt", "[",

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[

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]\)

\!\(\*

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[

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[

FormBox[

TagBox[

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]}, "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]}, "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[

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[

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]\)

\!\(\*

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[

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]}, "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[

RowBox[{"Show", "[",

RowBox[{

RowBox[{"Graphics", "[",

RowBox[{"Circle", "[", "]"}], "]"}], ",",

RowBox[{"Frame", "->", "True"}]}], "]"}],

ShowStringCharacters -> True], {FontSize -> 11}]}, {

StyleBox["\"Out[1]=\"", {

FontSize -> 8, FontColor -> GrayLevel[0.35]}],

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]\)