Integración con Wolfram|Alpha

Ejemplos básicos 

Para usar entrada de forma libre, presione al comienzo de una celda de entrada. Cuando aparezca , comience a escribir como lo diría.

In[1]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "sum integers from 1 to 100", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Sum", 1, 1, "Input", "Sum[i, {i, 1, 100}]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Sum", "scanner" -> "Sum", "id" -> "Result", "position" -> "100", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Sum[i, {i, 1, 100}]"}], XMLElement["moutput", {}, {"5050"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{ FormBox[ TagBox[ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "100"], "i"}], HoldForm], TraditionalForm], "==", "5050"}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Partial sums", "scanner" -> "Sum", "id" -> "PartialSums", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "ListLinePlot[Accumulate[Table[i, {i, 1, 100}]]]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ GraphicsBox[{{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJxd001IVFEYh/FTq5ZDtYhooSEhMcSU32Z51NHKrCa1yURi0iSQQAwrJMRT GU1holY6muloVvZlU0JEuLi0buGipUgLFy5cDLVxVZb/p4UzII8/3nkP93Ln pje2VjdvNsZc/Pv3r/okizfWWGVLSndQH82g2+m+lO/l0F20iKbRUrpbdRUb z3XH8R4cwpm4Bu9VvbDdtP6PX7b1Kdd1ngboBbpfTWvCB9RIM87i/Es4m/Nb MPf54zLOVeOtOI/vt+F8zruCC9RQOy5Uk1e5n4Ocd93+Wf/gSAffP6QGbuDD qq8TF9MualXnKI7eZF6ixm4xx4nbzEvV+W7mePUO8zI18y5zHIkyD3I/95jj 5fvMy9X8Hua47wFzfifJXubY38f8iLqEHY73Mz/K9QwwxxkPmR9TV7DDnx8x r1Sjj/V8HG4YZM7vNntIz6sL+2LMq7h+7PD3YZ73CXluhDmefsLzx7FR5ifV nqecf0rtHmOO3Thz3iMbp/gr/v+eVUyoHv6GzWm1dpJ9vIgdbnnGPl7FplqN TrGPdz5nH89gDwdfsM97v4AtvvaSfbx1mn2cwKZWDb1iH//EDg++Zh8XvWH/ jLqELe59yz4ufMc+XsYmrMZm2MeV79nHv7GH6xPsn1U/YYu3fWAft2EPz2NT pwY+so/7scO/sIfDs+yfU7/M2jX6FdtD "]]}}}, {AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {1, 0}, BaseStyle -> {CellBaseline -> Baseline}, FrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10], ImageSize -> 200, LabelStyle -> { FontFamily -> "Verdana", FontSize -> 10}, PlotRange -> {{0., 100.}, {0., 5050.}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}, Ticks -> {Automatic, Automatic}, TicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10]}], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Sum", "timedout" -> "", "timing" -> "0.644", "parsetiming" -> "0.527", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 4, 14, 11, 17.4373194`8.994054665403047}, "Line" -> 2, "SessionID" -> 22923629961230013544}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Sum", 1, 1, "Input", "Sum[i, {i, 1, 100}]"}, Typeset`open$$ = False, Typeset`newq$$ = "sum integers from 1 to 100"}, 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->{183., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[1]=

In[2]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "expand (a+b)^5", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "Expand[(a + b)^5]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"expand\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "b"}], ")"}], "5"], ScriptLevel -> 0, 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" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Expand", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Expand[(a + b)^5]"}], XMLElement[ "moutput", {}, { "a^5 + 5 a^4 b + 10 a^3 b^2 + 10 a^2 b^3 + 5 a b^4 + b^5"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ RowBox[{ SuperscriptBox["a", "5"], "+", RowBox[{"5", " ", SuperscriptBox["a", "4"], " ", "b"}], "+", RowBox[{"10", " ", SuperscriptBox["a", "3"], " ", SuperscriptBox["b", "2"]}], "+", RowBox[{"10", " ", SuperscriptBox["a", "2"], " ", SuperscriptBox["b", "3"]}], "+", RowBox[{"5", " ", "a", " ", SuperscriptBox["b", "4"]}], "+", SuperscriptBox["b", "5"]}]}, { StyleBox["\"(6 terms)\"", GrayLevel[0.6], StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "Show steps", "input" -> "Result_Show steps"}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "Expand", "timedout" -> "", "timing" -> "0.579", "parsetiming" -> "0.44", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 14, 33, 20.8085892`9.070817571119646}, "Line" -> 22, "SessionID" -> 22924201434736041020}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "Expand[(a + b)^5]"}, Typeset`open$$ = False, Typeset`newq$$ = "expand (a+b)^5"}, 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->{156., {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[2]=

In[3]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "factor -2 a+2 x+a x-x^2+a x^2-x^3", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Results", 1, 1, "Input", "Factor[-2 a + 2 x + a x - x^2 + a x^2 - x^3]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"factor\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], StyleBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", RowBox[{"2", " ", "x"}], "+", RowBox[{"a", " ", "x"}], "-", SuperscriptBox["x", "2"], "+", RowBox[{"a", " ", SuperscriptBox["x", "2"]}], "-", SuperscriptBox["x", "3"]}], ScriptLevel -> 0, 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" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Factor", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Factor[-2 a + 2 x + a x - x^2 + a x^2 - x^3]"}], XMLElement["moutput", {}, {"(a - x) (-1 + x) (2 + x)"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "-", "1"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", "2"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], 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" -> "Factor", "timedout" -> "", "timing" -> "1.295", "parsetiming" -> "1.15", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 5, 14, 38, 18.6123666`9.022376538126643}, "Line" -> 35, "SessionID" -> 22924201434736041020}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Results", 1, 1, "Input", "Factor[-2 a + 2 x + a x - x^2 + a x^2 - x^3]"}, Typeset`open$$ = False, Typeset`newq$$ = "factor -2 a+2 x+a x-x^2+a x^2-x^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->{356., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[3]=

In[4]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "pi 200 digits", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Input", "Input", 1, 1, "Input", "N[Pi, 200]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"N[Pi, 200]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\[Pi]", {LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TemplateBox[{"200", StyleBox["\"digits\"", 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}], "}"}], ",", "\" \""}], "]"}]& )]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Numeric", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "moutput", {}, { "3.1415926535897932384626433832795028841971693993751058209749\ 4459230781640628620899862803482534211706798214808651328230664709384460\ 9550582231725359408128481117450284102701938521105559644622948954930381\ 96"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox["3.\ 1415926535897932384626433832795028841971693993751058209749445923078164\ 0628620899862803482534211706798214808651328230664709384460955058223172\ 5359408128481117450284102701938521105559644622948954930381964428810975\ 665933446128475648842`200.", TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,numberdata"}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "2", "datatypes" -> "", "timedout" -> "", "timing" -> "0.377", "parsetiming" -> "0.223", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 10, 22, 53, 53.3332893`9.479573213972623}, "Line" -> 42, "SessionID" -> 22927196902227628400}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Input", "Input", 1, 1, "Input", "N[Pi, 200]"}, Typeset`open$$ = False, Typeset`newq$$ = "pi 200 digits"}, 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->{106., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[4]=

In[5]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "solve 2a-b=3, a+b+c=1, c-b=6", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Input", "Solve[{2 a - b == 3, a + b + c == 1, -b + c == 6}, {a, b, \ c}]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"solve\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], StyleBox[ TagBox[ GridBox[{{ TagBox[ RowBox[{ RowBox[{ RowBox[{"2", " ", "a"}], "-", "b"}], "==", "3"}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{"a", "+", "b", "+", "c"}], "==", "1"}], HoldForm]}, { TagBox[ RowBox[{ RowBox[{"c", "-", "b"}], "==", "6"}], HoldForm]}}, GridBoxBackground -> { "Columns" -> {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}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Solve", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> "", "primary" -> "true"}, { XMLElement[ "minput", {}, { "Solve[{2 a - b == 3, a + b + c == 1, -b + c == 6}, {a, b, \ c}]"}], XMLElement["moutput", {}, {"{{a -> 1/5, b -> -13/5, c -> 17/5}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{ RowBox[{"a", "==", FractionBox["1", "5"]}], RowBox[{"b", "==", RowBox[{"-", FractionBox["13", "5"]}]}], RowBox[{"c", "==", FractionBox["17", "5"]}]}, "Row", DisplayFunction -> (RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], 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" -> "Solve", "timedout" -> "", "timing" -> "2.285", "parsetiming" -> "2.128", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 7, 1, 15, 35.3443792`9.3008952516733}, "Line" -> 26, "SessionID" -> 22925019874934388130}, Typeset`showpods$$ = {1, 2}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Input", "Solve[{2 a - b == 3, a + b + c == 1, -b + c == 6}, {a, b, c}]"}, Typeset`open$$ = False, Typeset`newq$$ = "solve 2a-b=3, a+b+c=1, c-b=6"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$}, {aux1$$, aux2$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{392., {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[5]=

In[6]:=

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

Out[6]=

In[7]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "solve x^4-3x^2+1=0", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Results", 1, 4, "Input", "N[Solve[1 - 3 x^2 + x^4 == 0, {x}]]"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}, "ExtrusionOpen" -> False}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"solve\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], TagBox[ RowBox[{ RowBox[{ SuperscriptBox["x", "4"], "-", RowBox[{"3", " ", SuperscriptBox["x", "2"]}], "+", "1"}], "==", "0"}], HoldForm]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " "]], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Results", "scanner" -> "Solve", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "4", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"N[Solve[1 - 3 x^2 + x^4 == 0, {x}]]"}], XMLElement[ "moutput", {}, { "{{x -> -1.618033988749895}, {x -> -0.6180339887498949}, {x \ -> 0.6180339887498949}, {x -> 1.618033988749895}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{ RowBox[{"x", "==", TagBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"1"}]}], "-", SqrtBox["5"]}], ")"}]}], Identity], "\[TildeTilde]", RowBox[{"-", "1.618033988749895`"}]}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", #, "}"}], ",", "\",\""}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"N[Solve[1 - 3 x^2 + x^4 == 0, {x}]]"}], XMLElement[ "moutput", {}, { "{{x -> -1.618033988749895}, {x -> -0.6180339887498949}, {x \ -> 0.6180339887498949}, {x -> 1.618033988749895}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{ RowBox[{"x", "==", TagBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "-", SqrtBox["5"]}], ")"}]}], Identity], "\[TildeTilde]", RowBox[{"-", "0.6180339887498949`"}]}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", #, "}"}], ",", "\",\""}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"N[Solve[1 - 3 x^2 + x^4 == 0, {x}]]"}], XMLElement[ "moutput", {}, { "{{x -> -1.618033988749895}, {x -> -0.6180339887498949}, {x \ -> 0.6180339887498949}, {x -> 1.618033988749895}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{ RowBox[{"x", "==", TagBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ SqrtBox["5"], "-", RowBox[{"1"}]}], ")"}]}], Identity], "\[TildeTilde]", "0.6180339887498949`"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", #, "}"}], ",", "\",\""}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"N[Solve[1 - 3 x^2 + x^4 == 0, {x}]]"}], XMLElement[ "moutput", {}, { "{{x -> -1.618033988749895}, {x -> -0.6180339887498949}, {x \ -> 0.6180339887498949}, {x -> 1.618033988749895}}"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TemplateBox[{ RowBox[{"x", "==", TagBox[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{"1", "+", SqrtBox["5"]}], ")"}]}], Identity], "\[TildeTilde]", "1.618033988749895`"}]}, "Row", DisplayFunction -> (#& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", #, "}"}], ",", "\",\""}], "]"}]& )], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More digits", "input" -> "Results_More digits"}, {}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Root plot", "scanner" -> "Solve", "id" -> "RootPlot", "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement[ "minput", {}, { "Plot[{1 - 3 x^2 + x^4, 0}, {x, -3.23606797749979, \ 3.23606797749979}]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ GraphicsBox[{{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6], AbsoluteThickness[1]], LineBox[CompressedData[" 1:eJw1mnk8VO/3wActtNtKC0mFsiQpVDqXSiqVUKQSkiTZ8hGKSknJEkmSLSQ7 iULqjKWSkGTfKvs6252xL7/7/eP3z8zr/Xqesz/PuffMazZYORpe4qfRaPup j/99L1RVWsGwF6Bbz/aKjYmqEjcyAv3MTAToC3egpcyr7QTNpTb04QoB+ttP 21782aVCCE+dTen24afL7CmvfLNTgdi0z0AtwJufbv637/vYMgVC4+4B3OHJ T3e4LiZu17+VMF+oVO/jzE/fSngdz3u5lUgVnaVtsOCn196vP9ctsJU4oBhn el6Ln17p9tzxWYs84Xa+e2HDGB89x9jzYXmcLNGK9jbf7Pnoeoc+r0wJkCGq yzPzCmz56IlavrHCTjJEyS/WvHRrPnoljdAOM5IhUrtcE56c46PLlxMv+tbI EO4Lvf6e0eeje99hrv+SuoEQPxFoNqzAR6fpWL8/8VOaONGRcVx4iEZPdsjW 9j8tRej0MaMF+mj0xAAxu4yNUsQu1vYRXieNrpF97SofW5KQ4n//uKWFRndP fBi8J0CSGN78uTyhgkaXan9wi1e2jnh0rVpnVyqNXnElbMwW1hKl04xdZ6/Q 6DW345UiTCSI0+anpnnWNHq3z1aJVlkJoh8/Fj+xoNHLXi2JMRpdRSy791D/ qwmNvo/jOtH9bBVhKiRjtV2XRr8z3XjBt3ElMSx+KnDhRhpdbW1GcJy1OCFv 7vbtcsEc5jvOv3bhtQhxbMN+w+jsOYx0eLl31U0RwqV7eXvtmzmcfN6bSDsp QhTZpXC0wufw71BI8eUZYcLgRpuk2PU5FBRqL7xnKkx4PNFxpSvO4bnFM7qN q1YQFSXLNqyOm8W9UvVFsq6LiWzhG2rdz2cxYlWei7HKYiLc4s+hrOBZHG58 0vFreBFhNZvlcPD2LG7auVvko80iYlLzZJGz+SxKH1X10TYXIra+fWpSsW4W 12no3CDPLiT8YyWCbr6YwTCNboHwJwKEE+POK92QGVQkQx6fPS1AnNYayBV+ NIM1nfdz7NYJEDKtBa1v3GcwgN0udSmFnyhceXZLnckMPuF80vjylY8YDIwu U1w5g1EFzY2Cy2nEkVsyU+2h0xix57X1m+QJ+JK/6GKt/zQmO/KTtYcmgOBx Kr76TGPNyfMf7vSNg7pDaWSWyzT+PTHpayk/DpssrHffNZxGYvu7j8rZozC7 P8ljk8g05vcU/U1rJCFn8dZxu5ApjFv0LuPtwhFQ0hOxuPBoClWOL8nXuzQM yfcnvxndnULplpaK6tIhiJ2peL7XeQoNbhJ2r+8NQgDzqvqyk1NoIVauZbes H2x+Z7i9XTGFK/jfHaSf6ILVL7fzxoIn0eJ31juVyTqofWh1WMtvEleIfezi NP6GALen0T7ek5id2rz9w4damD3JO7j02iTSWMnvwKsGOgULwmWOUGzs+Z8u UQ6pboTGsXmTeMfZlndVKhMuWjsHhE5NIM2oh+m3MAnWGcb/beRQ/DbSpmbu JQQpzXtk9Y/iODOBmrUOeL37W/ONzxNIbx4vnLuRjXsNT9yMd5/AuLBGbuOK b8iDOz/7HClOVZwZbynHTKW3G5UuUywouPTmqwqUFhKt/HCK4vkBiZkbq3Ee vWFdleoEPjkwvPyZdy1WKZl/HhseR1aax+oQgWY0F7rGd8xyHC0OeTxbdbET m3w0O+TOjGNTAVvzdG4nGk7P/8h/chxpbX8V/87rQl1mjGs+Qe0v0bFpSuhC 5fqavo3S42j6JYVr19yNs3Fq1ZMdY3hnwn5/zMY+dF/Dl1bfMIb5gXsimq/0 IedplV929RgS0nFlV7L6sPeBjbbN5zF0b78056/Rj9X2Ebm/osfwb+ZOp386 AxijMR2ZfI7af0hTxVJjCCVyym/cMx5DFUnvAyquQxiq8MzYXH8Mba90+57P GsIHUsrLxPaOocWSqx11G4fRYZ7F3dtrx9Dgo+Oc7vwR3FdTevl0yyg+jHwq XZDKwPzDTw5srx1Flu32iqw2BqqWntuwpGIUBU/0lyxdxkTZ97yW4oJRtBUT 6eJzZOKyKLnjSi9GMXJ+yPERMRb+ufxYbZ7pKCpfyojvKWZheGjczLYTo/ik h38hs5GFxz/lfT2rO4rVrntmEkZY+Fnkr+k7tVFsSv2yQESCjTGf1LyshEfR ReK+meAVNp7uP6wbJEjZG1ZZ636LjctELywvnOPhQx6/ZngwG71sH70SZvBQ 8IAosyOXjedEO77QK3iYbyjASZtio9g+Mmi4mOJH7MMRSzhYaStoKlHAQ+5t i+Kdkhzc+1l10PEND9+PH77mq8XBtVf8lq2/z0MDD51Ddz05WPs0qvHITR4u 0JbbSnvEQf/Pb+PcXHhYlsfXq/qcg5OibarVFjxkJGXo5OVwsOWziomXFg/5 u97O7urlYOjAQekUNR7u8lu62pzDwSNiZwfqFHgosnWkaM8sBwuv+N5UXMPD TVKto2vFSXwh1hLbOsrF6cY19zyARANg2i5kcPF9icZu88MkCtrNU93Rw0UX Sx+ZaUMS3VG5zP83F/XXlzdaXyLR1O5ev2Y2FztCYueTD0hc8Szi7aU3XDxy NPxGahCJ5ZjhGRLDxbZfHgWS4SSqizctGQjgYva50gmNRBIZMFIvdp+LjCvK Mf9SSUyy448lbnLR+PQT80NvSVxJV9wecYWLRXs+eh39RGL1oPZkqQUXFe3s 7w6WkPhA3KSUacLF/M7uwUPlJI7a3T11SJeL6zxd1aGWxMxn4VLXtbjYO3n6 c3MDiTb0tL4YNS4mPnrO2dFKYr14g8eoDBcXcLRT5LtIlFG++vzoGi4aRi/3 ftdLopMuLS9OmIu7h8QD+QZJ/GT+rJYnyEX5I2MyoiMkLrqxlXWExsX4lTsD +pkkmgTj0rgxEq1fbhP34ZCY+MZYgccgUV9YdtFfLolsHNA7Quk1j931gZ/a t6/J2ya2ncqTmbnt4DiJj1mi97l1JHbrelx5Pklik2DKq8OVJGqc0lmwaJrE zRv2YUwpiVaXjPx1Zkh00fzdRhZS6wc3a2vPkognbSf1ckgsyl7utmCOxCV2 M6tiUkikGR52DaX4jE/oTjKOki/ue9BDcVKknJFeBIlHfP+Mz1FM5hQ5RQeT eFpknngnxcSPk0Ecqq76PxbKBlAc2NWbdsibqgvfLbdZyl7L1M3vUf+RWMup MdCkWE5MuI9tT2J+1am5vZR/ropJ8w5Zk6icoVEpRPlfcmCPTNRZEisiH/DF UfEtP18DbOpc7QtSGJij4j/336XzukdIdLjGqdxC5Sc1cNLzpTbl7xLfUUke iWOvgyNYGpS/SvZZbVR+D3ze9P6gConed5Zr27BIDGko+B0pR2JQYh63kKpP B+M4mylFopjsfdFWqn7u6z0UI5eSKLH28XvvbhK/qC87wpxH4vvjVyr5/5Eo YpBw+cA0B0UsPjoZUXVJv1MVzxjkoHhT5IOz9SRORFjR93dycJ3Tl4eiv0jU fTvWHtHMwSy9mN0vqDr9/bdh9f5yDgqabalaRtVJafL9rgjkoNtOJ6056vx6 iugbj7znYGl40K3P+ZRf+92Cn7+m7Nkv903NIPFwYsX8YR8O9vGJPSSekRhe dGGjNtUXYrawNbKo+9RdxyXCnTl4U+gLi+FHxT1//S3CgoN09eGgTg8Sc2yu c8KovnLOcM/2eCrPc96CKwbVOMj4mP81zoiq4/NoJVDkoFDkwqcuR0ns/fbN dmANB1dgaM+T3SSu2bLuj9Y4G/NEXfjoK0mUr9L3lWex8dDBVi7/MhJ3OXsp iPazUStjeY30fBINCzpu9DeycZVnzFoG1W/8D79a8fQDG0WCNEXqK6l+dUVW p9+NjUa9N33mUXEILjPpr3Vgo6xmzcfljhxcmeMX9MmGjQJaaXoTFzmoOtnf EnqajROv3NVsj3HQzj/tutYuNs5OBO34KMXB1lSV16E8FrZ8uu9m/ZG6Tcct j3pRfV1jYRvvWiYbxzgh7Ms9LPyk5bz2zCs2iu4htbTqWZib/nxr/QM2Hv2R 19CXy8JhLYUldgZs/Di0W1DLlYU+0Us2q3WwUP2Mf0N1DxN3TqTEn//BxGoB r6mDdUwMUc+ebn7DRJtMR+lPJUyk//o6KHmfieECp+zSYplYIbDCY3YPE7kZ 62f9zjBxxuWMoEoKA3P48zZrVzHw4qFfFsUeI6ic/sf1Xe4IFlyL3scZHcTN c2qiEfeGsNpXJNnoZg/6+76O3mzfhy+FBMqivOuwJdVBf8tMJ1oFZDxjH38L kalb5tGHOnHbtew3KhU5YJba/fF0SyfmGgyRvQdyoTnFTOH+h07st0pel63x AZqSdRf9ce5EgdBLBv+t/gQNSVLlYb3/sN/6TsSQeRn8iq/eT6v5iw9/tFtd LP4JT3aed8s82I79b+i9qfEtIGqtLai6uR2d/K9mHWS2QHjo5si8ee3oaqET krSnFaKZI5+KStvQ5ljBjoLfrZCa4j3/h3Yb/pakCUvwtUOpZFxYn1Yrmllt vuRg8AdG53flSO9qRmLCZHnon3/gofbtQKJ4M+62N3Ed5uuEaau0BjleE7pd UA3btKkTBOjXJ5Vzm/DN2ZeXlWw7YYXnPB0t1Sb0rzkgFc3ohC2Mzb/OKDei BCfC8ze3C8412DJDZetxXTPfv5c9PdDw3VHVTKAe9yyyL+uZ3wsnP7n9t+Fv HY7Ev13EL9sLuon3p7Je1OFU3D2Jt5d6QcUlbmHVkjrUk4jK6+7shXnLmtYv JGtx/Uwoetf1gTffH6vqn7Vo8vTDt1Z2H0xwe14/S6/FL6JueYLL+4HRSips sqlFr+0i6b/0+qEpZbmGdvMvZMZfmVlb2A/pBw8Z3MQaJNTr61yeDoCs5vGn OlE1aFI/pfUpYwBeKZ5qEPKoQQc+xqn6bwMQLnrxXIRqDYpv3bjMYWoAaKUz NXZHf2LPRJHIPotBSJm05/uzqgr79+4e2is9BJNXjlp9yy7Hp33GRL/7MIxm 7lTidyzHVFHBpAuPh4Ek14/vVSpHo5UHliRHD8OwFzcwJ+UbEr5XHqcVD0NH SHRBdPxXPH0iUf0m9b5fUsBc4RpWhvohp4SV/Efg82xza6ZhGWr2xGemvRiB j/vLkgZWlCGzbMGWyeQRyK2K2HshsBSHDf2uL/g2Akn/tG2PPChB97pTcS00 BvgLhaG0Ox03hm9cYX2VAQ+Oe/uf3UXHDF87aL7BgAVyv1IVBxAjfnScl7zP gPHdng2rOj+j3A9ZNZEoBrRZVSoxfhdhe0p1d/p3BtQPx5VeNCjCsOiErRF1 DKh2++9Mc+VHnM0tmz75hwF0fynfsi+FqNp5XWI7lwGvc5zaIj/ko7vm+OTL tUyI2XvQZYVaPiYHbXGc3MSEiK+rBR9kf0CNNfJr5JSZ4N9SssM55T1a+38d GQQmOPCLPz70MhdXfKn1W2vJhMsBA9KfVuVilYB2xqAtEyxWfn6vGvYOWTUX iv2cmGC49XKnZGAOTjFePFO4zYRdhgWaXO9snL9RZvXqSCYsuLp62+xUFlp+ vzChHseE2O30QdHJTJwLcvKRTWJC7eelVjCajmcnV91wecsEe99cyVPcNOz2 UWn8+Z6S1z/bbMdJxYOs9d+nPzJBsznZIJyRTL0XvDn25QslH3tiSfrwG/wZ rt9gUUHJ24x+Kx5MQvm2rrYf1UyII/fDSG8iqq/baLiikQm7Cwcn+XsSUE/d On+ghQm/74S8l+iKR9rN749DOyh7y/4oHfgThw4fDK8a9jABUhb/flcYi9qO L52u9DPBZdeZI3/eR+N41cn6E0NMeF2aVLzo3UssrbsXPp/BhCYDrsaurBf4 ZtzprT+LCYs7tLMt057jHRn/jX84TNh3NVgu8M0zXJTlPMjPo/SNt8XkJzzF WocpgdFRSp/v1pXdsSG4P0nRIX+cCdmbWWvWawRjzNK9ckcmmbCSeCzkpvIY 52pClNKmmHDLTHa8Ut4PTZ98u906zYQu1+LejRvuofuF5HWtM0wIlSpI5al6 I/9XFYHUWSZcMGL6JWx0Q1cMUtWbY4LJiqMV8fL2KPtxQ2oexX9JB6EZUVPU i/K8wqG4xdlJ4LkhAV0FZ51mKW7PcVxwZIc1NHTkf26mOD6RT3ZM3gU6Dn8w vk9xveMPvcManhCQkaE6S9m7H12RV7XxLuirbDpziGKpe9u+uSn4wkX7uvIL lH/5tmFN63c8AqZjis8hyv+TxycGyncHQm8R+s1S8fJWZ81ovHoCqw5far4/ wYSSAMsHS1+Hwhbv1R4tY0wInhNd3pkcBrGagbZzVD7PuXx9/j49HGoq41NI kglbetylH2dHAGv62r4PbCaMmiikXMiNhEUCaluOMCl5rSeFgkUxEJpftKhj gAnKpq9eMS7EgbEk38I/vUwIC5nsabJ8Bbkl+62zuphgOS/DIeNSAhxU6zv+ uY0J5VoL3j2/nAjBxqe6ppso+RsXxu5eeQ1p59t6F9UzYWpA+M7pa2+grtLx 6LNKJlhtvFpGOCZDyWbxPOFySv5cmaCCcwoQx+bHni+l7P10C5lzTYPxvlUL rQsofXmt8cm3soAoEytUSKDO98XlWbuPZEPpxYLg2Cgm6AxnL9nQkA1HU/R8 W54xgTFDfhsZeQsyja2s135M0N3guc9PMhceXSr+9JS6v+tS10ZdS8kFf6vy +9oWTOCofpow2pkHoyclct+bMCH6AC1P+th76I5pdB07yATu5QcKhbfyobAr K/P3eiZUsOQexQkWgMnwZM8ncep+eXzvfRBWAItoS/84LmaC/uMl8UbphZD2 xUxPYZQBCZmhEiOtReC80PYiH9XPUjx/8j+JpsNQqvXkLmsGiEHc9ntddOg5 35CTcJoB3gLOFm5bimF9jp1osx4DjANEPp/LK4YwP+byGEUG0GJOeWypKgFa oWhLKHsETItbmSXTZSCv2pCt7jwCpb7pUu91voBl57+T6hYjoHzE61jKwy8g NTX4hXZiBOb9lkoLFvsKKTeFbrIVRiCr29LmnOI38JCh/affNQwLBPvbeGe/ Q2Jak/X0oWGwc2j7ujf6O1z757Cbb+cwVNXVZN/r+A6OsyHSTRuGIexVwX1h ywrozkhwmp4cApk9jxWVbH6AgaKR3Ya0IdByUL5l7VQFXTF6xUz+IdhtVxh4 paQG3mSPBRMhA2Afncu/tKsGRh31Vr5zH4CYmswb2QK/4LWh4avJCwPAp55g OXbgF5y+k7VdSHkAygUCdvp++wWxNz/vkSvvh9PR59vjKmth/pM1r25z+8Cl hqbU1FAHFYVWH5yVeyF9XxNL/X+/O42Zd2gt64W+9Kzc55L1ELZrZKx1pAfO PTLfa2JdD79LojKC0nvgoE7R0QZ2PXQd4vtTK9cDErk37OqWNMKmoBaZGfFu +Pyc8aZGpxnK5XK2SNX+g0UX2mS+Z7bDynhZ9yMpzcBamRt271c7HFYp22x1 uhnqqx8v2MdtBw4vp0lToBni9u0ZzNHsANYil9UK55pgl1Tk26iyDuCIrs7e sLgRLNtNCKeWP7CNsVLt6/k6aMsYyFws8A8U4zVHbudUwQ7FS5U5yl3gTk+o V92aClf0wgv27ukD6xy3TSZ2vzH3i4OPQewQVP7hWX4o7UG5FWfpeVlD8Mus dsqG0YORZodm19CHwOvNWr8ZiV68y1zv2fN3CCyuNy/uuNaLx1f/cvaUGYZH WlljViv7cMB+h2Xia+q9YdeDcUWrfpQSG4fxtBFwVrcv2dM5iCHm3V7ni0ZA 8nqfooTQEM5LqflYUjkCv3eLkD+3DeGQVop64MgI7P/dLVxzawjzL5ttk9nG oPoAU0hQfBiNPhZJ6ecwwMD1RgHfvhF8aHV3Jjafeo6KfR287MjEX7+uheZQ feKUePGc3hMmrtE2k/tC9ZlEhwzOZDYT09fvODlIPSdsDsozf7KZaOvgYhi5 jgU+YpU1LzRY+FhhU1L3ORbMJX3doPuOhSoXI1kj1iwIljlSIFvCwrrIFXvG 7FlwNvFE5nANC9ctmvkp5MUCm3yFATkGCzP76yeUo1ngeb9N9rQcG2tf+x3z aGeBpt3T55fC2OjWPvPcp4cFCXG21+5T88hacdfOxyMsWDvW5OZLzSvW9y1u xMyw4De74LRSORt5VpqvSiXZMLz8WuKySTZKSA9xl5qzIU2ub3TAhINFJpaw yoYNmr9P5YlS85JlcOMjaQc2HHAXvLTOgYOps6VSO7zZ4BKgX/b9Hgf3tkfp mcawYez8zbdBGRy8EHk8Kr6DDRlnYh1DJzn4VfrWpFkfG/JiVSONqTlY8U2K qSiLDYF2JX+GqDl58t088ft8HGi2Vn0dIU1iWFVh4KVNHDjoYnO9az+1btQ/ JKnEgbHg9hpdfRItW8SPNOzkQOLYMwkvY2ru73NacOgQB3qODBy1tCaxnCZ3 W96OA/rqft40H2rdz7j9rwsHLs6/eJV8SOKzpT57XtzkwC0ffaEPwdTcv6Z9 TCiQA6/mtmpmRZH4PW7R6ZJnHGA/2LunK55EFTmNXM8YDhT9CKvuTSZxZsdT p6EsDuQMtfudzSXRupBenZDPgdU6besqC0isIBiK54o54KK/d8NiJDHi2OGB yloOtJV8MybLSZz97XbIt5UDm2PY7JdVJF4yS3yt1c2BH4s9W4RrSVS9PGeZ yeOARKWyrXULJT+iSLeZpfy5e8ST6KDm7etmUtTAAE+eJLzt/0eizaTfrcbl JFTzzpWd6yGx8k5eS7AECfzVN2yj+kncsbBLQ28Dxca/jd4MkRgZuOI5bSsJ 8v8U93oxSKSJ7ePlq5JwfGR9oySbxMuRV42c95BQsUy25SFJYrX0i7dbDpDg MBk++YlHotqbr8s79UkIu5c8UjRG4ksl7rXIUySIRTnY+k6QyJ+7odLQnITd xq3rV02RaLv7xNbFl0nob/lc7jxN4k/6rYeljiTYe31b9WyGmvcPpfbedCch 4s3d4juzJEZVNR5Qu0vC1y4TT7U5Sp/x/IThRyTQW0JHsyi+0qLK9zqUhG6j M4McimssLC6cf0nCrFq20AzFu/oCP4knkmDl4ylYTXHUtY9rq9NJ6DX3iLxE sQC33+NBHgk1i/Wvl1L27DxXNu37TMn3O+r2Uf7U0A7sGvtKwntX4lsN5e8u P+ewrJ8k1B4dS75NxRO9NJZzuYmEqC3pMSQV77ywSgPpf5T+PuOziuOUvjWT mU0DJEx7fwnZMkrirzi5pSEcEnLmZ3MHqXxqyJ26eniKBIO3ibucqHzHZPh8 55vHheR64UUFVD3mq2XLFS7hAn/P/g1fqHqlKuvMtIlxocJU71clVU+DLXW1 c+uo9Ui19bFUvaOkxr0OKnHByWEqPJ46Hzqr/Y1sd3LBW/et9m/q/PSJrtvy WIsLSf/ND6hqoM6XEFFXc4wLiqObaFLVJDYJ1KaQp7gwu3k25fp3Er1nL95e ac6FyishZEgZdR9Iv63nHLgQ4NVnLVdIokXHzzt9QZQ/mp/eZVL3Y0Gz5elF z7lgI/fghA51f9J+kwpKsVx4sNfpQdQzEkfLVzW6ZHGB9fR6cYIfiYHvLijN /uRCv7zC4VFbyp9MNv+GJi7Uar1++cGC8if5XtP+v1zIMdvrrWVK4qaYN/ce sSh9302Gn+mSWPiQ2SwmzANbT7qqC9UvLO7dzVJfzQO6n1GVwUoqf96ivmYb ePDkSFgvezGVr+vqKnHbeSDoetvfc5SDfedvP1Aw5EGlDL9eTDkHA0yFzx03 40GAZdHDR0UcVDVK2O5sxYNNNYdVdmZz0FvvW9t7Fx70ygolVYZzUGzH8h06 T3ngYJz8hWvBwUKlV4KXXvJA9dK+xlZDDlrI7+jwS+CByojl9rsHOJgmafKo 6h0PjN/pZs6X46COYOwf0zoeWN2OOcboZ6Nju3KAo/goeJ8U6OOzYGODrPt/ 2lKj0P9uIHW9Phv3ORWbi8qNwt5tSuuG1Nm4TMB4+weNUegIyIl/tIyNmfIe DbNnR8F/Vvdm6wcWDl8vlQ6KHwXphV6+C3lMNP60ZJFF2ijYvj6YnVjCxKIF p8ntuaOgN9fBDQlmYsCL/i/1X0ahxvk5+4wcExVw6VXJAUr+16bcx8cZaLfI NC992xiYnlE4Vu85jLVGr2K8NcZAeq/7uKTWMO6OHvQz0B6DFe+Kd6bNDqGQ ipcZ13AMDLQSPJ/cHsLkU/Fze9zGQCLgcbqz+yD2xQ0f/lE0BuX7n+HAwX60 Vr/bMXB4HJINAwM8j3ThYp4yyBqOwx2mq1fyRCfm5LTFWpmNw5NcN3Wp5E6k KWtYttqNg8X04Ucd/J34chOzq/LxONSsHdnyKusv1gqfH8iqGgeap2H+/h+t 6PFz0ZHhekqfhqsrv0grSgfmp8p3jAMxM/Z6r0kLOgiK2b9iUMxQNZJqb0Kh uQpG6PIJeLJNa/P1hnokhjW4/52cAOmqpe5+09XYl9JrnHOG4hS1AsK0CoMu h+UxLCfA4vSv39+yf2BbJ9PtsssE/LWO2rHTtBxvNCdNmD6dAIIVXbz/TjFm fhWb21M/AbT77kk7nr9AyVcsIf4zk/A3yXylOusHKDtLrRS3nIS4y/4OHrwq ILT1ZeSvTMKdYBev9bM/wfrfm93HPaj990vdapbUQuqGC1cjX0wC4XNB5+/e BtCIr6pUbZkEA5EQXVNWBxgmpAZfPDsFhMbwjtaGfrC+3vTS7eIU0DbH0h+6 DsB/+xckP7pKrReLjG4UHYSILkt61s0pyA58M7fZaAj+bFzNnno5BX/vnl91 tWME7BP9DMPapsBCOmjzoRA2+L22Fv9yfho0XtF0eapjYFZ2eKefzTRYJJmX nXgxBspdyqcOO06Du6RviQ5tHBqkJ8Kq7kzDeGLZDPlzHGSjAsUaEqZBIvV7 brDbJJSFvhftG5iGiN/9H5f9mwG+O4IiQm4z4N6qcWvjc36iLmZk+w/vGbBn 5Vjr1vETyZ9qTwb6zcB0rmF6kbAAYTAVFSL8YgaW3HDQTgwUIOLctguvKZoB NauKf5cezSP2XTNbocA/C/36xJbeJwuIm2bpy44FzYKEXFDVjX+LiKAR3muP 8FkwcHc/nrxpMRF3B7SSYmZBJcu4Vc52MfE1qfbqXOYsjC//1SbGWkyIkOPl b3/Owrm/mu1pAkuJ1McH760UnoOIn/nscc3lRFNRx9ifp3Owe0nJvZ0cYWLo hHzwkqg5yNQNc2FIiBCznc6ymolzcJwZLFALIsQmofmnQnPnQOMrOK8OEiEc TynkHKifg0jrZ9rpiqKEwNie98aLaYRgluL0mLMYERn80KlAn0bUxs23bJVc RdynCenKnaQREXq2dT+PrSIcnR+tfXaKRtBqeqQnvVYRB4z8vzqZ04jkTWoV rI5VBGNlwDp5Jxqx5MEWAbsECUInJrg8/CmNsJ64apyyaw0xmB4u7dpCIxLH XLwO+UkSdZKrRv910AjTgGYFjc+SBAY9/3Gii0ak274atuJJEmFOEW4KwxQv bFG+bC1F7FOLrOycoeyZPfZUPrieCP0Y7X5yAx8xMZOrMfRQmthTkVijbMtH mMdo9IC9DGF2oGfKz56PMN2PCwb8ZQjPz5vl/jnxEWY7t0J2igxRmJPk9dSD j7BX+qv+ok+G2P0yeeu4Px8hrysp3Wi9kdhtn36/OIOPqBGRCRO+tInQWJar YUzyEa93eciP35Il1AxL4zy8+Qn5lek5hssUCNcF7xc+9OEnzvl8qL6mqkC8 K0x2CH/AT1iEfWhLOq1AqG4M2vsuiJ9wX+4neD1WgVDhmjYNx/ATm35m7vxP VZFQCGcst0B+ojOlJ17JXImQaVl9W5cmQNitiz1VX7mNYF9dr6xkL0D8//+D /g+FWKuO "]]}, {}}}, { AspectRatio -> NCache[ GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesOrigin -> {0, 0}, BaseStyle -> {CellBaseline -> Baseline}, Epilog -> { AbsolutePointSize[5], Hue[0], { TagBox[ TooltipBox[ PointBox[{-1.618033988749894, 0}], RowBox[{"{", RowBox[{ RowBox[{"-", "1.618033988749894`"}], ",", "0"}], "}"}]], Annotation[#, {-1.618033988749894, 0}, "Tooltip"]& ], TagBox[ TooltipBox[ PointBox[{-0.6180339887498949, 0}], RowBox[{"{", RowBox[{ RowBox[{"-", "0.6180339887498949`"}], ",", "0"}], "}"}]], Annotation[#, {-0.6180339887498949, 0}, "Tooltip"]& ], TagBox[ TooltipBox[ PointBox[{0.6180339887498949, 0}], RowBox[{"{", RowBox[{"0.6180339887498949`", ",", "0"}], "}"}]], Annotation[#, {0.6180339887498949, 0}, "Tooltip"]& ], TagBox[ TooltipBox[ PointBox[{1.6180339887498965`, 0}], RowBox[{"{", RowBox[{"1.6180339887498965`", ",", "0"}], "}"}]], Annotation[#, {1.6180339887498965`, 0}, "Tooltip"]& ]}}, FrameTicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10], ImageSize -> 705., LabelStyle -> { FontFamily -> "Verdana", FontSize -> 10}, PlotRange -> {{-3.23606797749979, 3.23606797749979}, {-1.2499999734503313`, 18.077988916773748`}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Scaled[0.02]}, TicksStyle -> Directive[ FontFamily -> "Times", FontSize -> 10]}], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = { True, False, {False, False, False, False}}, aux3$$ = { True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "3", "datatypes" -> "Solve", "timedout" -> "", "timing" -> "0.822", "parsetiming" -> "0.61", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 3, 1, 34, 46.1604649`9.416845037811974}, "Line" -> 13, "SessionID" -> 22922766104874781044}, Typeset`showpods$$ = {1, 2, 3}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Results", 1, 4, "Input", "N[Solve[1 - 3 x^2 + x^4 == 0, {x}]]"}, Typeset`open$$ = False, Typeset`newq$$ = "solve x^4-3x^2+1=0"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$, pod3$$}, {aux1$$, aux2$$, aux3$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{265., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$}], 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["WolframAlphaQueryParseResults", DynamicModuleBox[{Typeset`q$$ = "factorial 7", Typeset`newq$$ = "factorial 7", Typeset`chosen$$ = "7!"}, PaneSelectorBox[{False-> DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "OrangeSquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"], ImageSizeCache->{10., {3., 8.}}], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], WolframAlphaClient`Private`open$\ 8432 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "factorial 7", Defer[ Factorial[7]], "Fast parse"]; WolframAlphaClient`Private`open$\ 8432 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"7", "!"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"7", "!"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"7", "!"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ ShowStringCharacters -> True, "StandardForm", 12, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}], True-> TagBox[GridBox[{ { DynamicModuleBox[{WolframAlphaClient`Private`show$$ = False}, TagBox[ FrameBox[ TagBox[GridBox[{ { InputFieldBox[Dynamic[Typeset`newq$$], String, Appearance->None, BaseStyle->{"CalculateInput"}, ContinuousAction->True, Enabled->True, FieldSize->{{1, 40}, {1, DirectedInfinity[1]}}], ItemBox[ ButtonBox[ PaneSelectorBox[{True-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource[ "WABitmaps", "OrangeSquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ], False-> TagBox[ TooltipBox[ DynamicBox[FEPrivate`FrontEndResource["WABitmaps", "GraySquarePlus"]], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "ShowAllResults"]], "Tooltip"]& ]}, Dynamic[ WolframAlphaClient`Private`show$$], ImageSize->All], Appearance->None, ButtonFunction:>If[ Or[ CurrentValue["OptionKey"], CurrentValue["AltKey"]], SelectionMove[ ButtonNotebook[], All, ButtonCell, AutoScroll -> False]; NotebookWrite[ ButtonNotebook[], Cell[Typeset`newq$$, "WolframAlphaShort", FormatType -> "TextForm"], All], WolframAlphaClient`Private`open$\ 8432 = True; WolframAlphaClient`Private`extrudeFromFastParse[ "factorial 7", Defer[ Factorial[7]], "Fast parse"]; WolframAlphaClient`Private`open$\ 8432 = False], Evaluator->Automatic, Method->"Queued"], Alignment->Right, StripOnInput->False]}, { PaneBox[ TagBox[ TooltipBox[ ButtonBox[ PaneSelectorBox[{False-> StyleBox[ RowBox[{"7", "!"}], StripOnInput->False, NumberMarks->False], True-> StyleBox[ RowBox[{"7", "!"}], StripOnInput->False, ShowSyntaxStyles->False, NumberMarks->False, FontColor->RGBColor[1, 0.5, 0]]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{ShowStringCharacters -> True}, FrameMargins->0, ImageSize->Automatic], Alignment->Left, Appearance->None, BaseStyle->{}, ButtonFunction:>(SelectionMove[ ButtonNotebook[], All, ButtonCell]; NotebookWrite[ ButtonNotebook[], Cell[ BoxData[ RowBox[{"7", "!"}]], "Input"], All]; SelectionMove[ ButtonNotebook[], After, CellContents]), Evaluator->Automatic, ImageSize->Automatic, Method->"Preemptive"], DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"], StandardForm]]], Annotation[#, Dynamic[ FEPrivate`FrontEndResource["WAStrings", "RemoveResults"]], "Tooltip"]& ], AppearanceElements->{}, BaseStyle->{ ShowStringCharacters -> True, "StandardForm", 12, ScriptLevel -> 0}, ImageSize->{Automatic, {1, 100}}, Scrollbars->{False, Automatic}], "\[SpanFromLeft]"} }, AutoDelete->False, BaselinePosition->{1, 1}, FrameStyle->GrayLevel[0.85], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxDividers->{ "Columns" -> {{False}}, "Rows" -> {False, {True}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], Alignment->Top, Background->Dynamic[ FEPrivate`If[ FEPrivate`And[ FEPrivate`SameQ[ FEPrivate`Head[Typeset`newq$$], String], FEPrivate`UnsameQ[Typeset`q$$, Typeset`newq$$]], RGBColor[1., 0.975, 0.95], GrayLevel[1]]], BaselinePosition->Baseline, FrameStyle->GrayLevel[0.85], ImageSize->Automatic, RoundingRadius->5, StripOnInput->False], EventHandlerTag[{ "MouseEntered" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, True], "MouseExited" :> FEPrivate`Set[ WolframAlphaClient`Private`show$$, False], PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues:>{}]}, { InterpretationBox[ StyleBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEExpressions", "NecklaceAnimator"][20]], AnimatorBoxOptions->{ImageSize->20}], Animator[Appearance -> "Necklace", ImageSize -> 20], BaseStyle->{Deployed -> True}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]}, Dynamic[WolframAlphaClient`Private`open$8432], BaseStyle->{Deployed -> True}, ImageSize->Automatic], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[8]=

Elija un resultado diferente haciendo clic en + en la esquina superior derecha.

In[9]:=

X \!\(\* NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "equation of line slope 2, y-intercept -1", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "Result", "Result", 1, 1, "Output", "y == -1 + 2 x"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}, "ExtrusionOpen" -> False}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TagBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"line\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ StyleBox["\"slope\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", "2"}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]}, { TemplateBox[{ StyleBox[ TemplateBox[{ StyleBox["y", Italic, StripOnInput -> False], "\"-intercept\""}, "Row", DisplayFunction -> (RowBox[{#, " ", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], "]"}]& )], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", RowBox[{"-", "1"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]}}, GridBoxBackground -> { "Columns" -> {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}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], StyleBox[ TagBox[ GridBox[{{"\"Cartesian equation\""}}, GridBoxBackground -> { "Columns" -> {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}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Geometry", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> "", "primary" -> "true"}, { XMLElement["moutput", {}, {"y == -1 + 2 x"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{"y", "==", RowBox[{ RowBox[{"2", " ", "x"}], "-", "1"}]}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Visual representation", "scanner" -> "Geometry", "id" -> "VisualRepresentation", "position" -> "300", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ GraphicsBox[{{{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ AbsoluteThickness[1], RGBColor[0.24720000000000014`, 0.24, 0.6]], LineBox[CompressedData[" 1:eJwt1PlXVGUcgPGZCw4wIFGIQSIeTjjoHOSwpIMofq94KoqtBUEYYJTDsKiA ZFYaCbFoLkWATQMhouEai0yIgMF7GXGQxUCFQByQfRlAhivbvUBU5+2H53z+ g8c6LO4TKcHhcLz/7T8f7UiMyMunEZZP/eAnaTS5SCMsn/KJAfuUbBph+VRr 3spsZCaNsHyqjZuU5phKIyyfUtcnFdRF0gjLpzSfJvdr7GmE5VP6h9NCRdXT CGtA9Uwpc0pUWoTVp3bek3ktUVMoL8RTcLJXjyoVO3x0eXkSdW4xv9H6N48K /tVFrbtmAhV/bBlL8HnU85q/eGaeGhQrOZRyduMqKuPbgcoB8Sh6SE2rp7fo UjsMjgdWHRtGeal/2HW76lBV4QU/u90eRCFOT5qs9hFUXOSu0MS6flThvKEE wrjUglvs/RimFy1Z3e0rT+BQEwpv4cPYHvTFM4FZuGgF+bnk9jjmdSGhpc+U ue8ykkrXts4YdyCFk2HUidOLqL835sk7zk9RvHZbdE42gzKbi8QGT/9ENkfH /ZVl86hU0HFerKxHhQ1bB2TaWXRj/b0X180pdLD+5fxm3gzqq58I9B4oRUty t9+id9LIIr6uhrFIQXWvLw5HemnRiN644YabN0HnUrKVunECRc2v8WV490Cg dC3cvWsMyeSSg3e3PoA7zq0f2kiHkG1EtwKkzTDhlSHY/6gP0a/l2vhVPAbL 3vrygHQ1CreaCD13th1c7tu6j2nakH2aSXD0umfgMV6dHpTZhM5dDPBoXFDD DdM91UXbKxBHpipaHdYLnKSr8YdS5BBxpkluYNsPDp7BKi+XWvip/cDie28M gp//6cl1H7SC1jsMdaiHgBKdWQ492gH+3C7Z/rwR2LcqSpx8vAdOrR4YEp4a A6N1qqa9RgPQ/66/zMN7HOrOFdpl5AyDfkdQzXXXSTApvpPge0wDgRca3g/S mwLFpqz0MuOXEKQK+CxZqoWy8yWDuk1amIzNSvgqaBq6ugWMtowG2ZZUkTnQ YCfWj3M4OQMFcrfizm2vwMPx6+DSmDlwuaywNxPOwBF3aYjQbwH6kFqyaDQL ysRKNGfBwtTZFi9CZw56zC5l6/KWwPTwlxrF6BwIOl+2SR8vQ7WmK+NFwzyc aL/zNspagWYzvVm7moX/5ZDT/qP6NlcYwHLJVEUovf4aA1guaW7c/vzNWwxg ueSuB7XFhgoGsFzyvPMvfq9qGcByyU0mPvnKPgawXFLS8LvogDULWIKkbYTW 4o0sYAnyVFI+f+9mFrAEWSj6vtvDkQUsQbJXI1IcdrOAJUhZskXLyn4WsAQp 7EmvYMJZwBJk9XbelVdRLGAJclBLfz5yhAUsQTpJmt9qSWIBS5CqKnfdhlQW sAQZuLZyUvkdC1iCTHp0lSr/kQUsQZputrx1+wILWIK8lpqZdUvOApYgXXv1 vynIZQFLkPhbLGAJ8h9sh39K "]]}}}, {}, {{ PointBox[{0, -1}], InsetBox[ FormBox[ RowBox[{"(", TemplateBox[{"0", RowBox[{"-", "1"}]}, "Row", DisplayFunction -> (RowBox[{#, ",", #2}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {0, -1}, {-1, 1}]}}}, { AspectRatio -> 1, Axes -> True, AxesLabel -> { FormBox["x", TraditionalForm], FormBox["y", TraditionalForm]}, AxesOrigin -> {0, 0}, ImageSize -> {200, {200}}, PlotRange -> {{-0.8680339887498949, 1.368033988749895}, {-1.618033988749895, 0.6180339887498949}}, PlotRangeClipping -> True, PlotRangePadding -> Scaled[0.01], Ticks -> True}], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, aux3$$ = { True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "SubCategory", "word" -> "equation", "count" -> "2"}, { XMLElement[ "value", { "name" -> "CartesianEquation", "desc" -> "Cartesian equation", "input" -> "*DPClash.GeometryP.equation-_*\ CartesianEquation-"}, {}], XMLElement[ "value", { "name" -> "ParametricCoordinates", "desc" -> "parametric coordinates", "input" -> "*DPClash.GeometryP.equation-_*\ ParametricCoordinates-"}, {}]}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "3", "datatypes" -> "Geometry", "timedout" -> "", "timing" -> "1.834", "parsetiming" -> "1.28", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2010, 11, 4, 14, 21, 8.3868875`8.67617578485855}, "Line" -> 17, "SessionID" -> 22923629961230013544}, Typeset`showpods$$ = {1, 2, 3}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "Result", "Result", 1, 1, "Output", "y == -1 + 2 x"}, Typeset`open$$ = False, Typeset`newq$$ = "equation of line slope 2, y-intercept -1"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$, pod3$$}, {aux1$$, aux2$$, aux3$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{265., {48., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$}], 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$$ = "plane through points (1,2,1), (-2,0,-1), (-3,2,3)", Typeset`opts$$ = { AppearanceElements -> { "Extrusion", "Warnings", "Assumptions", "Pods"}, Asynchronous -> All, Method -> {"ExtrusionChosen" -> { "VisualRepresentation", "Visual representation", 1, 1, "Content"}, "Formats" -> { "cell", "minput", "moutput", "msound", "dataformats"}, "ExtrusionOpen" -> False}}, Typeset`elements$$ = { "Extrusion", "Warnings", "Assumptions", "Pods"}, pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {}], XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ TagBox[ FormBox[ TagBox[ GridBox[{{ StyleBox[ TagBox[ GridBox[{{ StyleBox["\"plane\"", { LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}]}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {2, 2}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], StyleBox[ TagBox[ GridBox[{{ TemplateBox[{ StyleBox["\"through\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", RowBox[{"(", TemplateBox[{"1", "2", "1"}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]}, { TemplateBox[{ StyleBox["\"through\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", RowBox[{"(", TemplateBox[{ RowBox[{"-", "2"}], "0", RowBox[{"-", "1"}]}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]}, { TemplateBox[{ StyleBox["\"through\"", LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, GrayLevel[0.6], StripOnInput -> False], "\" \"", RowBox[{"(", TemplateBox[{ RowBox[{"-", "3"}], "2", "3"}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}]}, "Row", DisplayFunction -> ( RowBox[{#, " ", #2, " ", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], "]"}]& )]}}, GridBoxBackground -> { "Columns" -> {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}, "Rows" -> {{1}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], TagBoxWrapper["Separator" -> " | "]], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod2$$ = XMLElement[ "pod", {"title" -> "Visual representation", "scanner" -> "Geometry", "id" -> "VisualRepresentation", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> True, "string" -> False}, { Cell[ BoxData[ FormBox[ Graphics3DBox[{ GraphicsComplex3DBox[CompressedData[" 1:eJxlnXdYzv/3x9t7iKwkSRHKCNndZY+GmZ2VESHZSnY2WdkKSaIhK6Mlq/JR SkskRXuntNTP93fdz3Pu6777p+t6XOc6r/M6r33e5/W6uy/bMGOFjJSU1ENF KSnZf/8zbo/W0/YpFaSMDW4oG1MpqPYbOjZy7a+o6gjvrBELaogHWbd9kLa/ OAry8fotD+OMSgW9VZ9OHmtYRvJT9DaUlMpUEId8gbqLllJlpeDRC+n1bX/n krxg26LOf1yriUNeuq7948M/agTuGRcNYw99IvmYzR+n6UyrJZ5R4PHb5k0B 2Qk9haN271++MZf4sL8LU2/PzCEOO8XlO9n28CvpVkT2g8NOlCsVsPfTikNJ AvXiQoXJ82sFk9JKlusvjxdAHnzJN7mwRpUAAeRRrz2DTnr/fu1P8qgX+JKH 3e5sCWY94PAPuH5icvsJL15G7Sn49Cv8Y2AU+NwVo6ZIDU8XSNlldsvyCSZ+ ccQ99ZilzFEu5HNC2tSvsHtBfqP6CuXBlZ5ez0858Z78gPYVl4ffYD84/C/u T+ivD5RL1NmWRhz9De2Vc+5Vp6PSnwQDRhZkGM3Jp/aCPPhR39aCXE1uR3AD w7LAv+2qSP7itDDn92NE9AjtRH9AueDQk1hvuDP+TwH1W3Cp7V9+KPvWRE3S zbbq+ZW5nemTtiMCa0ge5YKjn6NccQ493xLedepgUkf1ei1fkjVRPkswsV3p AK/QetLvuGel0bvFOcQh32Gm1ZDbK/Ik9IOL69lb41l6L7KO2hHy6FeWsn2W yizmcZq1cPPvy1b1Ev0cHP0N+q9kmXiZhDYQ91K51++/b18EE716aPttbBQY 7kuRevDhF40jcF/L7Ze6riskDj2QR7mQ/3nxWl/52Xkkj3qhXMgvmP+rb6Re k0S5j2OTBwXdaBZc/HT464/mCpLfMuZYokWbFuJLAq5P3N1QSeWK1xd8Vu5B t8wdX4lDP8oFHxIzdm2SRyvpDzDYtHvDw3/tYu7QvfUwc/gf3P3ciqTeDcXE YSf0g6O+sBMcdn49k+QTMDlZkLFKN+bQ8EqaT6D/9cqdBQ7j84lHlx5dpvXj F8l3zn4xVzmljuyEPPoD+O+icZ6yA1kP7Axt2nZpYf8M0iPO0e7QAw49SuND f9e/zxHkf8tZZDahludDobztVTeNJdOY6+rpd7uhVEkc8yTkMQ/AfuonQk7t XjhD0fxgGXH4GXosza5tL36QQPLg0VOr1mtqJkRt/pbn/n1aBo1T1Atc6+Py t7Lzq4m/VlFeJz01leRRLuYHcT3es5P+7j2cIzHvYR4Q5yi3vPv0v5r5v6PQ juCrfpfqVVypIL6nm23zlu6JVO60ysxYa6X8qCWG8YLLV0JonoG8OIed4Z9z X/5VjiUOe6BfXA/qC/vBMX8+mvF91KBTWaQfvP30KWph33NJHvMw1inIYz0C f68xdMawx+msX7heQA/8CQ49mP/BtZfea04bWEt+gN/QD8GxvmB8wT/i8vAP 7ceE8ugn5B/D4VpG3UqoHcXlUS7WHfA9z41rv9dfjxL3f85ON/fY2cHULrAH nNZBoR6US/tMIUf/hH+um1iHtOhUkp9pHyiUhz/BUS70Y38Ljn4C/eBoL/F2 xz4H6xo49nWYP+EHzBuYH8CxL6J14cXOrZurcmh/Bf2QB0/yND9cYRZN5YIv WZL08v1j36ikv3sejuifJUB9abwI1y/wD1ssBuu6/iEOP9O8IeToJ9ATOHbg 0LfPq6lcsl/of3Dx9QJ+E5fHOBKvL/aHtO8VyqPdsd9Ae4FjPww+pccJd/9J RaSHuFC/uD1oR7QX5FEvrNfgaEfx9RrrL9YRrKeTzl989n2PlCXmecgHfN58 yHiYtKVnm24Lj3SoJXkl7emzN1Ywh7zDeuuOptNkLG/GOnxPqK4nefDXGzYG RK2sI/nVM017PPeXsRwT3hB3o18jyWsrGd4ZuFqWOPYzsL9+o7p90Llq4rAf 9gwob2d24WoBlSuuB/aDwx73mKJrX7LkLM8/+mjnVi5lCXvArduHri6e1kry WydKbdnZTc6yefHnoc8ntJL9aZ5fx8SmMY/eu1fNaH5QFPQ8S399ZMsLOUus F+BLw8xunohmDj0kL+z/kHdVeul5aKcsycNvWfvTZzj1lyF52AkOP8A/ezpa d8jwaCL/QA/sD3/26GfkwVwqV1wP7KRyhfagvR51Lox9c/8P72+FPO1N4/Fn +rW0D0E7ol0gj34I7nuj9KxuKOtBu0MP9pPEhXqwXxXn8IPD2uE2P1VaiKN/ Ujvmhv8MUX5O8uAoF/za4nZjtk+VIj+gv0Heq69Tfo9flYKL2ocMD69SpPZF /wF3WrTt3NGucpbob/tGprwdcVGe/Az53J0h5/bbKRCH/Jjnx5Z9UJDUf7Nh 1YD2kczp3Ccsd45ieYjXcnlqX7T7fofxa/cO5nZHudCDdnmyyvDekBplSz/l rZ0mzVUjeXBVuQN97+upEn/5Q/3z+RAVCXnYM/GBY4L3XQXi5ev35Y99r2h5 oW9Y9N6JimS/bbDDo+O7lSQ4yu0yX72Nf4Yycd3uxTeyV6pSuTi/QH7Tbp8/ J1JYvo1px2l65czhT9gvzt2XvN3QS0+N9INDv2mo92+fM0pUr9CyEftSzSX1 g6Ne6J/oD+LzCdpFXB79ARznWfhZXB58yIKs/KsViqQf/oedkIf/iQvlYT/8 AHn4k7hQHuUayc+QuTVE2RL7CpxHVN57j7hjW0X7DZxPMa6xXmN+WB/zamD2 62aSB/dal9r4aVgjyWPewDwDecwb4G1k1NNvK7AecOiBnYVdDmx8+KWGOM5Z sBP6Mb9hfnB//GtYX50fNJ9gXEMe/Ljy0UUep6WJY76CPMrFvAr94JiXIL9a zy8la2IJ2U/ru3AfgvOsOIc81nfsQ3AOhTw45LFPAId/aF0W6kf7gkMe/sd6 DXlwrNeQhx9onhTKw//gLnf3tpnfn/XAb5BHfwCHfvQfcPgT/Rn9HP4Hl54n GB4So0r2YFxjHEEe45rmJaE8xjX0I16BeRvjGv0E3G7h3YizCgrEUS7kUS7G O/QjXgE94vaAY36DHvDRCvqZl6xZP/YPKBf+hDzmbXD4AfYgXgF/wh46zwp5 u5D3Xe+6qRCH38TlMY9BP+qFcYd1GfaDuz2U2nEgnfvVo/cTMwtDZWh+hjz2 V7T+CuWxT4MfcK6BfsjDD+BYr8ExrsXlUa54f0C54vJoF/jH0+XOqTutUtE4 r+EcOkJ+xN02Hq10nkWcHBznWci/TvqyYNiqRjq/I+4NjrgBzvutcU4XDi1u JXnwLZ21O199KxcNjvNy26HNN3JSmSN+knHV2m3zFJlo6BeXR1yCzu9CeZw3 xTn0I96O+kIP9INDHvF/26b5PcZG/CG/UXxG6AdwfCcChz3i8jgvi9vpMKuq tN4pKQrxMdgDjnM35HXnfu7SfW1CFM7dkPfVSQ6ffieSOPwGTvEZoR7EYcAh j3iLuH/AIT/X+qV8/h5Zsl+8XHDEG8Hb9PrQnLYhheRhT1uD4LVd+2RSXAjl Qp7iRUJ/wg/i8SLUV1we9UW5r/s/d+nyuZn8LF4u4gP4Tgc94PhOB3nEDSie I5RHvAJ8flvLeyqLWA/iDNCDOBLFN4R6EKcS54gz4DsFOOIniDPYPdKPrZbR jEa5OKfHyqt2MNquRhzxB8jDHsQfIA97KD4vLBfxEHDv+xWfthY2k52wB/UF x3cZ8qcw3iIuj/gJxUOE/QfjEd8ZwTHu4Df0Q9QXcX7Ig+O7J+ThB4r/COXh B/Bbo1tvLhrPesChB3Yi/gaOeZjiV0L96D/wQ7TKnCftjslGw2/ifqA4m/A7 Ajj6A+RRLvot9BMX+p++jzyMFSjNUIz2qyvzCluey+Pu07331kslOfRsf7f8 WOaQ7xLyGO8UfxZyjEd8FwDHeMf8c3jtgorwUmUqF3FmcJQrrn/0D4O/mtvZ zo97usyMvKBE5Yrrx/wDHm+5znFniwatL2gvjAtwxBUxjjAvYf6HPOYlcMhj vqU4pNB+Wk+F3yPAoQfzNuyHPOKf4NAvXi7kMb9BHv5BvB0c9UK5s9Q0Ot4s 4HLF9aO9sK+AH8DxnQLy2l29viz/mU3+hzz6D3jPQoMTOatZD9odeiKzzw4e NPsXcehBfxCXrw7+7jZ4WAn1E8hbfJVztjcrJA4/QL+4PPyG7wjg6M/w2/1N 7ae/DlcneXDYA479Bjj6J+Sb/RS+7e6gQPOMeP8Bx3cBcOxbxOUxf2IeQ32h B3F7cOyvxPXs6X1Ur+h+LPUHyGPeg/7Org6VQxYq0vyJeQny9B1H+B0Z+sHx HRnymN/ou61QHvMqOOQxz1M8XyiPeR6cxq+wXqgv2gV+QL0gDz+Db8xc0Weu qSr5U1weHN8RwNEusOeUf8RojU28jqNesAd6sE8Ah//pe5NwHcd3bewTwPE9 HXED/e1eB65/+kNxA4q3COURlwDHOQXydH4XrlPgiNNi3a8dp3Oxy6AmCXnE HxAfgDzO++Ic+hFP/jTBpz53UyvVF/WCPDji4eCIn4jXF/oRtweHnbAf+0DE MSguJJRHHAPcXPBEtvTGv3VKeK7E+ZfWTSFHvAIc51zI0/5cKI9zN+QRb8G5 EvI4t4JjnMJ+ig8I9YAjngA9iPNAHhzyiHtAD/wAeYxT6IE94LAT9QWHfsQ9 UC7aC/E6cPQ3+B8c7S7eD9HPxTnGC/pJdnpwXFySXDT6FcXThPLg+C6DchEf EG9HyFO8VNh/UF98FwBH+1LcQ8jRHxDPB0f/gf/R/6Ef37nA0S7Qj/0/9Ivr QXuBYzwivkRxOaE94PhOAY74mLg84ifoJ3S+FtqD+Dk4/Cwuj3gLxZ2E7QU/ 4PsgOPyMeuFcAHn4B+2I+YriTkI96P/iHPYjDg+O9qK4n5DDD7Af5wjogTz2 b+hXFEcVjkdwxO0xvnAuoziwUB7nQXDII88B+uEHcHF5lEtxY6F+nHcQz4ce cHyPwPwJjnke+sEpTi7Uj3MT5KEf9aV4u9DPqK/4OoJ6geMcgXphnsG6DI7x Cw49kMd+APsZ8XrhHAcOedQXcX7w3fV+u1bIVZH/US72UdCD/Sr0SMgLywWH ftQL3wXA4Tf0B+ih/BbhegoO/0Me+x+ML/Rn6AdHvBoc4wvy0A95zDPgmN8w jqAH4x0c8lhHMA9AHvsBcMhjHoA92B9incI8AD3giDOj3VEu5MGhH+XivAA9 6Ffo/+CIn4PDfopLCznWQehBudCD+Dw41lPxcrFuon1RX3Dx/o9yYQ/8iXKx roGjXMirbasOnH6U7zUktpue22/pryhwp4x1C3y68f0F8A4dv2tdy+Z7B+B2 jvNG9yjj+wUjXJ9eN3Xg/PyMdmuuJPoFCMCTXo3YttKG8/ahB/JbtU7c2bXq ZVTSl3rDdo5JAuWNRrfVvvO9APAR3d0/nC7jvHrob9QzStJ14fsIkIf+sVOO 9HrtGU964AeF+vhKgxVppIfyyu6+9VSakkN89fOJww7+LZeob2HYzI5Hdfh+ BDjOKXV6Vn2NNKvIHm2loIKj+py3Dw75ARbLtdQU2f/gr2efaUm/XEM89sy4 nlWjOE8e/NSr+uyKeZzfDj7LpvZK7Is6Cf8/aK4ttQziPHPYj3519vTD1W4O ecS95Ubdi7aol5A/4PWn9qg653uDL5BOXtZTl/PGUe7UXLX3P904Txv8oM9R xYvXmyXkYc+Etf5KN05+FWjcGHxm2QzOiy51G/7pXMEv4h8d1lm9FXAe9fZh Naq7rDOizofua6cf3CDBV656r1qcxHnU4NCfq927z+CkHEFl8lC7sYLKKP/2 t3wWfeL8bXBaxwNVzLNaiqm/3bIftSc0iPPwwd1bJoWaveR8e3DUt/Gmtsvv LYXE5w8N/E/dh/PtfbcWXblzI4TOZUVXV98wOlFG/Jtcr2B7Aedjg8POPl0r 439sTCf++crGDad1myT0d77lH6C7lPOfwQs+LMmf2vyF+iE4zuNdewzJrfvx Owr+BK85oZniYF9NPMhhyc7EMZynDZ782GvX/YZX1J+hX0r3cN50Dc5zhvxR 58iIfgc4fxsc4ygz6YbR6oxc4pFDSzdt7c55y9Bvs/6zg2NLuQQf1r5JsLoL 338Bh/5+k4Mv3K0oIP3HGxdtCrHgfGb0k61vd7w7MY7zjcG1BP30jf6+Ij+g P8NvzsEe86edryDu9+WAtlTbRAl5xCcvu4X0mhtUT9z22ZUupl04DxnlQl57 +5CIgb3rSP6v/aDEpqWcpw1+KrrEQKHlC9kP7rnt5uoJupwfDg7/fAl49EBr XxaVi3p5BS963tmjmPjG4OJLJwWctww++OrfyToHcyT8H6u7VyXNhu9tgSc+ Ged9xoXvW6FdmuLXDnP/zvnJ4IbZ1xdIlVdKyGNdWD32eoGlwJfKpe9TVdrO Z9a9p/l/cEXnfaOX8H0i8NGZqXdPN34h/2NcB0z4ZJ00mu9bgcM/PuMq34eu +0P8Z90EUy2rVAk9OaN2Dxy7n/OW4bcOT0sK3Mo53xgc9gf0byqumZVM8yf4 vtjKMX+to4kPNFh6cGxrOfkHetC+Cu+iNx2eye11y8P8xykDzmeGnkdb310b b8t54NSfbR0XKm2slrCz3DAsoeR7jcS6gH3sXMvVMinqlcQHrch8HGbOecLg k6Pd3Gbe5rxccJwTZT7d9S/8U8/zs/A8XtJH8324u6wleKOc0rpRepx3Cj3S GY635PQ4/xYcek6/6SCvWSVFemC/7J9J9YZGtVSuyRn33cXmnHeK/tNm5KHV HcsluUX6CMcduzkPGRz6nW8HWLteqib9o0fNXDDLnfNRIQ8/DLa6EOG/v4l4 Vdahfa9Xcl4ueHZQW3unVPYD9ENPiL1c7GjNFirX80SC9JHbMhL++W9KpZe9 POeFghd+8jj+1JvzTlFuWI9Qj/7BnLcJjvzGfpU5z6S6q5Ie5OFs6XTmRu+V 8sQzLWJzO3hw3iY49Axf+0BakKVM/M4D26TVKzhvE/xKhJtHQCnnT6K+Sr2d 7au8OU8SdqI/LKopjiw053oV3/h1p7ct57VCz9ttZ+eflOc8SfBzxXqTcko5 jxE8ee3K+7YenA8J/eHaG8+7DVGW4FYfDOuS3rJ+cMpr6h84//c9BdIP/mHT vqvJVYqWmA+3FY8+0qjO+c+YP9EPg4N6l28d1Ui8v/el8lh3zmOEHsj3cLmU /Cb0D8ljn2OsVGJqPaOK9STGnd3vw3mY0KO8uo+ZXTnnN4Iv7mfc7+FuzveG ntj5XQ5H3uY8RnD0Z9P1IRsmn5Wm+oJXNL2Y524jRfzrnQsrWlfKSugxiuo2 2WAo24N5D/Uy+KxRVvCthriNuZZ7sy7nbWI+PKwS538quEGCQ09yZEKP6051 xOVWFc1r8OE8RnD4eb6jys/3M1uJ65W+ajt/KOclwh6Z8/81eZZLco+D7etL d0tJ1Av6M0ccndv5fTPpN6j8vnfQLs5jhPzqcQd012hwHiw4+pu13C5X81hV KvdrU9+Rl2w5LxF+Nt4zT7/vBc4nBMe4m+CleGyZkgLpuWKafnnSO84zhJ2T 0icUO17gfEhw6LlR22qjdk6J9IArBSY8GmGrSPLhnzLL/sqzfvQT1Guya3rh 9aHKxPM+Ht641JbzqMEfWGkvfjhEWUJPefOu92rvFCX8EOVnbvhWnjnkYedD 26xnp1/JkTzsMUh0veC2S4V4wkXlrZ4enJeI+qL/T5hzf5ZRJveHJMV5RRmp nE8IrnHE12biKs4/hH9o/X3w9W+NHvNSB1up+3qsh/zZLW6rqkh+I+ysGXjP fLMe5xOivulfHne7kcq873yvpTv2tkbNnXxh7yVpzg8Ex77L88sX5+UuaVHz Zv/vj+8b7ui+6+bJazXEbS7tHR/cnu8Vvkp3XbBqbWPUtPcJr65JxUpwynPY lbDoh1ZV1JTytIdvpspEK3vfX6oyifP9wL2mO63oIMd5g+DQE6gQ29y9toDs r5vjsXVhZ84DBIf8ldRh83aolZH9uSrRtV+W8f0+8OGPti6Obv1CesDhnxsd zlaGrfxF9QIfYXX14xa7HOKW/c5qW0/gvEHw7IRRafKeORL+Rz7ArDZZzqtc /hB/eHfj6wNPOQ8QfjBRqAycZuxD+RKQ/znErExrKOf1QX6Qvu5i6Y0JEnpQ 7kFD+6Lwn79JT6jd435BmzhPD364+GflgW69+f4muEKvtT1/RHKeHuobvc/T fcg4HyoX/LCiWcaWzQkS8pSnd62NXpNNgIDkzWIVN/TgvDuU2yGt7J6BVIUE 97M0v/5qPN/7A4f+t0oNvXLPvqRy7Zdti15nmS8hj3OBy6im7W/3fyW+I3+/ gcdGvvcHfidJfeBjW74nDv3QY3LLrJ/hvDziOR71DgtyaiTkT00/9ju/nPPr 0C5vI611ny/nfEK0I+WnlY8bqbgqnfjIDnIF1lactwY9kLf+dKTLPZd4kkd/ Pmy39tjE/e+pnxxpcltW5cl5d9DTeGRnsrR0hYSdRtdK3tydwPmTNN5L+0jP qOC8NXA6fwUXrPx4qIz0gJ9SFRgfcikkbutxq7BmY7WEnnX5dv1sDTm/ziPk 15OPaXLRBQVXfpRv5DxV8MieOzQqhnI+GzjGRcC8xq3t51UTX2GyfZlxKOff hrn8fpYuki8X8frHc4V/esDTtmYcWdWX8+LAvwxTyD++LkFCD8q1fBC9+vPl CioX89jY1dvWpX7LJW68+e9sufGc36tToxVdtI3z1jobBDo0R76Myh8oG5Ej kj+WXbtWdrnDJ5LPVItVPFTJeWuQPxD2PrJuBueVwU6XI/My16r5UJ4SOPTP 2n9smuqJLNI/7F361wu9Ob8L+nX37Ds3wIXz8SAPf+q/HbZzoG8Nyy/rE2Fm znmA4JD/nBZVUda3jvT4DM9Pj97G+WDgn4Iv+bUTyfuCnnGqG6SWiOR9QR7t Mv3UDLUhzr9IHrx5/CCZQ/uLSb5xjEkvxTWcDwZ55RAPqQ8BkRJ+e7Rq3ML7 InmMaN9A18wxlxw5TxV89MP2j8bLcn4pOMavv55n1raLvqQf/OOKyz0mDY0W gKf+fRP8fjLniYFXjxxntjSQ87ugP/lasNmErokS/WFw3xflXw/lSNh5u8G3 zGtikcR4pPwu5dfJn+JzqFzKo/65/Eiv3F/EZ1z+OstUJL+L1sE0+5sWppkS fsserdiQI835rtCjH++lbiKS94V2gX9SZjRsGT8lWYB29H+iP+q4SH4X+JDv 5qN+B3GeGPQ4rfvx4ZU+58tBXnb/yDevRfK7IO/Vc6XTdpH8NMjDnr/Zt60K t38leaOu5/Kr5Di/DrynvX377SJ5ceDwp7HP7eztDcWk33Xi6q+Px3JeGdYv xMlvbd7loKtaSTwm/OHnIZZ8vwz8XVLo4VVd+R4ZOM5l/81zUh5dW0/ztk19 m7GTNTmPC1zuoPEUbTPOBwOHnp3fY43OqLXQ+rjTUXNEazDnoYHnx+4a9OkT 57OB03f5bnX6Md7VZOeC6/EhmRp8jwzc56vMq54i99fAcb57v2/0hicVUpbQ Dzt3b7nfuXJPE5V7zvrxt92+nCcGrj2lZ/tbuzgfDP0z+sHnskiR/C5aF4Tn Bbtllu6VMaqWtE4hz8dp13h9dxXiZV2ezu0nkt8F/v3ot9mXRfK1wFGvXTb9 apUVFahclU33N0iL5I+BU/7VuLRl360VLTEe4Yf23m8Vu1tLEff0b3Kp8OW8 PnDnyNn/rQ9pkGj3h20bV9225Hw8yPd0nftuXHKdBEf7ninO99cO/kPzTIPm 0cDyVZxnBf2Qt+3rMGu9AffnphiXN5HlnE8FDj9fDrtq99FRnrjik7Edd6/i e15oX8rXOlHrfGKIDPFOnVd+PT2U9YOvmGYweaJIXhY4ys2sUT5+PVCBuFO/ wY+uX+D8KHCcc6uNrKRCu6mSneAO8i9D8jKViccNbg5rI3LvDOfNua26tjpL fCT2/6nGiXKfbBUkyv11rCouT4/1oF0oHlL4a5V5jBxxrQnK/nFDOZ8K7fK7 vN2punJJHjWo8tgSkTw0cOg3KBxitsRNlvQr+DkHtBXJs6JzltCfVeonpmyr ZP1Sefk5T1Zxnhj4q6U+7pNE8sTo3IR4r/lQncnmXN/v4efOdukmKd92r1uX /SJ5XBhH6IcTHqebrH7TTOvUG7ODB0eI5FmhP0O+4YfFlOjhzI8duDznnF2t hDz2z5tGSR09b1dF+vd7xqtHVHAeFOR7dIgNdhLJg4IfLvWZ9drQjvOdUK/k DIvq+BzOj8L6MtTWyU2tJ+cvYT16XXW2W7RI/hLksU5FDJK376NUSRz2u9p+ 2ulVXU96wLvW5OwuWFlH8uan5v/wFMl3gnxzzoaHOSL5bPAD9JQt/Gg3KquG 9MDPfxsOXVtULmUJPeC3L3azbDu9leTDjyd0ChTJd4K8R3ZOsaxIXhzkb77U 6zFxN+cpgaM/l/zcfW9NhjKV2/ojvttnkfxYcMhnhPUMf3hGifQ4zz984aNI PhLkze5fczIWyReCPObtUoWww67L5Un++cQTZ2VF8o7QTwQz5qSFa7ZIcIf8 L+XHzJok1rWGv2Ej94nk/YKj3LVVT2Ti01l+caerS7JDOO+I9lG+dsOHi+Rl wc6CSfMNVorkCUPPDqkxcotF8prAV+kPWhCezPlItF91tmzSFskHRrlJmze+ 7COSp4RyL771PHlAJN8JHPVavWVU/+td5cj+s2+rx9qJ5DWhXMo/MdO8UXNa mt6jiBLmBx4V7rdLxDjdPxW+mzHsXl3k2epKQbrR5rAxJblR7/S2tGsXylz8 /VXwhLdTRjwxLKT3IZfFjp6v06dIsPL7leRbbcuirCKlz94/y1z8fVToCSzv E6FSlEXvR8FOt7b9X1amxNF7PuDP7a1X3M6MID3gbfBeqFAP9Mfe3xXUYyu/ LwreaCHd0c8gMmp8b7kfwXdZXvw9UuifgvdRhfpRL3WrIZHrjApJHrzqVH6d a25u1LrhD3pNcbtPXPzdWnCrSbXWiX2qyM/g6y4Yz1lzg9//nDXgpLn6hhyB 1Zh19zxv8fuc4Lfb+N+KGFgX9abNz79tklle/H3OCRb+ub5BDYL9w7unLOmV Lvhsnvqu6Thz8fctwX9KV8mMvpFDfgAfUTp+/I9Yfj/zP0WPzb1UWwTxt9et GFPC71aBr9JX9b+fXCw43q59vymTa4iLvzMJbm8ffkTrBXOU+zKu/OqA13H0 Xgd4pvXQ7Sk1/O4i+Pzp/tnrPhUTh39W+J16dt6git5tAx/8x6jcaloZ8U5b dk6VSvoosNH/1H2FaR2/+yfk6g7XNTNf1ESFR2gf9tj8gLj4+4Ro3/55ra93 FGeRHpRr3+B0oVG7kN6pg57Nme+zTPWq6L4zeIfrJQufTCyLOuq0W6HqCNsj /m4e9EfecWmrpZ9HesCjZzptOxuXFeV9ZLf2ckeWR7/NExsX6CeoF8bRpNOr 7Cqn3xGs3Vl7pJ06c/F38KCnvXaMiuntHHr/BLyr2Dt40DP3+qzlG0PiqB/C zlm3yhyHR9dEKYwpVqx6mkic7n0L9cD/tXuWmR9w5PcAwdtozTZfYhxJ/gG/ 6hD/ZfyBW/TeCOw8snxr/qLUYuKwU+v0nBifKemCQ+9G7qodwBx+g37oOS32 vijk1bcdHax+NYf6f2BhH9k5g6UtvbY8PVngXk3jC3zNvJLBFsr8Ltz6/zpY 6yyXtdxcs/KFUtdGQWNCr6pRw5mLv8MGPVO7nmluPfeH9ENeV61AKvh5M8mD 97ti1bv7kFZqF+jpKf32pn13fjcM47p8aE70+r3VNB7BfXae9n2mzu+AQX9J 5pKhy4v4/S7oV3jjvKZTUDPpofp2P5lwtSe/i2UWJnP+22l5y9OCkvzZG2Ut 3/mtd3s5sZS4+Dtddd7l33yjFS3XWblWHPvL726Bp6Vf6Kkykt+zeu72padj hbKlXt3zvymflS015I/V9fFjLv5+FPTcv3ls1bcofgcM8jLpz8KLjvE7VOA5 fe5U1HZUpfeaYP9k379l10L5vSnwDWczui77Zz/0gz8q+Rsy+ZcU2Q++1rrN 09OGMpbOK3X3nT2dROWKvxMF+6eeX9zz4hEly9y0BzE91Ng/9G6V0B7wsL4H F3V4x++6oN0Dvj/vd+jSHxrvmLdXJ5kuStxTTRzyCwycNZKN+D0o9IecAN82 G4bze0rgS570cL6YK2V56HyxT/kVlhd/Rwjl9rSt6y3Tlt9HAjfYrpRQcPEP yUOPTcDoqFhjfmcGdjoeOn/V50Ez6QFvHz/BvXh0K9kP//f6XWwYOIrf4YHf XuX4ujpa87s3kJedlLHgyXt+jwh8asGbWev/tQvKBXda/Crmp5Yq+R/6fQdv bjOtnarlmfQ510t2hBEXf0cI46u8uchyXb285RkDXavoE/nExd/VAZ+xxU3m bhi/YwO/jVbRuuW3XpY45AfErR7+2ILfwwF/b2q7fsMWWbrfhPWuoZet1O+n WfT+APjsFumpdz9+irrm+TJ8nm8rrY/i75yA+9qa7z3YMY/eD8E6cjp067ro 7/xODuRdl3/N6qNWyO/VLNRU/+TiG3W1KknJvldhVJtKnZcKc2WIUz483qUR 8sP6Y11j+1bxOy1Cnv5hsXuYBb/fcl9L2mnwgZSoXMejfXta1EUN2Hyz1dir NQpc/F0U6Amb/2Fhwog6fhdFyOe1DL449mlN1OBt274t3Mec1k2hPNZB68eB M8/ej6P7TeAvi2Ndi5PSBK+cTqe9O8Drpvg7J/DntJTG1rd+EVGzxdZB8XdF sA5Kd1r6ck8qvwcCvu+toI3Fh2K6hwX9Ga4+diryfnRvC9zkc3r54vI4koed 8c0+obOv5AiCk+02bg/jeom/4wGeNq5je/+L/G4G/C+tsaRDSRi/OwHesdea a/NMquj+O/hv8+To3CFldK8f/j9w3uzYzaGRUW0N/ZUfHVQjTu8V4369kC/b Fei7VyOP9IPbjBs6f0p5Fun/2WXA3F67cqOe3jTouujfuWPQiiKtQHc14uLv JIDrej9yexBcQ/rBN0YfrcmyqiN51OtZi97ifcaFUWpl47OTVyiSvPg7CbAz Y0HxkRsv+b0I6DF+42feXyGP6ot2HHvCQVr2Rxrd18N4HPMiMqj9nkiyEzxc bvzy2BN+AgV/x/r6Ap4fxP2J9rWwnn3cM6GY7tOBTzn3oTLtPb8bAHv2jlub /v5eDt1Xgv5BObUXwvfE0f018N2ClB461WkkDz063o4Lw3z53R7wP2f1HzZk FQts0occOXGC5cXv72Odyq1NuqDTp5HGC9adXTHB+rl9+F4w+KmOw+S//uR7 99CT3S1vmNS/9Qv9HPN2/YOSNhGeSnRvC/zXLXnHwg98Lxs89tuiV4M0VS2P GO5U/r6e5cXvm6PcD3kOM4//s+dieL5Xo60McfF71uBXr92THzSG75NivcgO H+h3zY7vBaPcvs196hIfyVF9wbs4tGSGNsqTPNZNb+PWDyE2apaTNJ6NuT+r kuZJ8femUG7CtPRtOw4okX5wta72LjHxfD8X5SpP62T61VKRONrFea3RqEIX WfIP7X/aX51T/oTvBUP/vpGG9+rU+B0AzKu/jRNG1YfxvV3werF7vphXN2f9 Gl6lw/dJwZ+YpebZefP9dOixEJ4jjPa+8JddxHrE78+CNx1t3DLUo5raEXpG 7K38+P3yH+q34PvE7ttCz/NBqh8yZCqp/0PeI7P90nf7+J0rjN8vNvKPsnYx hx7DKS+fHtXie6yQ/15lmb+/+bfAvDxfNug8y4vfb6VzceGM2Yf/7auhB/Ib v4RMXx3cTPohnyl2nxH9weRp3ZvH09Us2wvnf3Dx+6foD73aSQVK/dvvQT/t MyO2vlFI5PEIPtzpyMnGMfxuA/iUqLabfjfzfVKMr7tDrY9e/NcPNYTzObj4 /U3wewaxz4xMuV7gR7aGVg58xvc0wQ8dGx7j969cc+F6BI795BexuB/2FXUO wWlmNhx3wv4hOHPShBMzOS4E3hwXajhkOcevMH/e2ydXEPeF4z/Yp6399Se9 fQ+OG2C9SBaLV9DvyMyV65Kwms/j6P89NDQTUnT4XIz+02/ETsdPJnyOpvdg p77ruO5BIp3L4IcBFzbVuW4MpXkb+g8I407Qg3aZ7zOt9OwYPtdA3lo4j8Ee yD8aN/XcKSc+Z8HOhL/tv6tm8zkF57t3HybevR7I5xT0T4fC/WcGreBzCub5 B11but515fgV/LyvenRIuzO834afNw1o7OjvwPtA+PmpaYth7mLe76E/hFgv nNd3As8PaPcT6wf8V5rN+zTsczyF6xHmc5wLZG+d0nlTy/s02Gm6bJHr8628 D8H+8ENXRU/tSt4fwk73L7HjP7XwPgR2jpmxMqVUQYXkYecg4X4e/ke7jFPS PDTOhdd3tMsk1Z+O25fxuRL9R064z0F/QLsM3mn9wmszn7PQjhbC/T/6A/rb tOljTH+e4XUQerSF5xrIQ0+3PBV7q5u83qHdO4itF7DfSmyeR/88LrZOoV7y wnZBfVHuSWH7govfl0F/aBfyYbDFD76nDP3nnqiqXu59h+7d0PeUql4TCw9G 0D0y6LmmNr1XpxV8nxrya22cg0/9iaN7QGjfhv/MzsxU5vtr4K8P1O9x1S2k +8jgCuf9pA8bVfE9ZWF/q/LdPPfo9XqyH/YE9QhwDUjNIk7x/GqLCUWBOWQP /CN79Pz3q7/5fjF4ktai5/O/FROHHqNn6aevjOT7gOBhOu5rujZV0D0m8Hrr yTU7Re7Vgn/evqvv8sxi4qiXrt4e2WC9KrofivESuefGy4LedcQhr3/NZ3jc JL7HCr8NcBrVcDcri+4hgs8u2T3i1he+Zwr9C/w1Ex27VNF9TPCF306N2RvO 90ZRbsuJHb73NApJD7hv7ukp/XXyyB7qP9/3qK++n0N+Q3t9PWhRuOTVHfID eDcPxe5Xf0RQO0L/KM//yoxM66he0O8dNPjigrF8Pxryy3eMOPPgBdsPP8RV eL/+NYfvIYJ/vNCrY01jBMlD/8yhXrrxSXwPEXZuWPc47lFcHN1bgfwi2e6G mv/OKeCQP7py02/72enUrzBvGI/3SpypwfcQMW983Lyg4EZUM9UL8s79bkkH GvH9PtLT0Uf616U/JI/+bP1m/6eGg9UkT3Eq9TffNEa0kjz48AvuxzxKpGje wLrmlGKbpielQBxx0Zuurktj0/heG+bJ2FfT+ieG8b02cJnb82OebJIlPeCr Fs11NurF992gP3nt6GdTdFSJwx4Z+2+PV43m+27gj97qPnt/TInud8AP/br2 j72txffOwNv1WjlmwrU/1A/hT4NVaUsH/Tv3gcM/xlfb5wcZ870tyK98vMFM ajTfV8J4bz1p11PhQDX1B/BS2V9BOdp8Pwt6Hpo3Dejbh+/LgLfdV/rd8t95 EPKwP+1CasiZR81ULnj20l+d/hrz/TX4Wc94cvV2C753A7+pH8++V2LD95sg v/2E1WODf+c1yIP/WNk2UUXEz9CTflFlXNs4vk8E+bCvDu+XtMqT3yDvPGGI nm57vrcFPze0Jg2yeMT3fcB17M9rFzewHnAXt/WGJttkKV8L85jjDRM37zF8 vwP8xtj5I1LDsugeB/iP7l32tbbLozwuzCdnPiVvrIvKonsQkP/So6CrjlIh cch/+Ho1uE8631vB/uqdxdFpMn34Xg/4nsc7wrqP4ns34AZyn9tMHFZH+sFv d/8xxOox3xPBPJb+YsDznhFxlKcHPqtk1xP1lFvEMS+V18wuVr+RQ/mWdM59 3yPEKZPvKaBeKwMqimKORpD94PfX7JWZMsCP5KGnbeuFW8GJxcRhz6jCMx9D 0tMoPwrceXxkZNW1HMozwf7TcfXzpQphfC8A/JihWWR83yri8E+Pa9vkNqnn UZ4zeJcLGiVrjQopz5zidZOyhp8fwnn1iNf1GTYlpy6Y8+fBM422f3loxfnz 0PO+dGNyvXEhcZQ7035i8uEIvi8AfkPp+zb/siyyE/5cpCDdZkdtHOVfob+t ryzdOXJbJNUX8l9Vrw8dnZdGfoM/Tyj3rfG4zPnh4N1yHvx36UMx+R/211nK Bf43iuuFci+YhCz+7BFH+VrgOb36rbx1xo/KBc9qvT9ALoHvTcDOj3+vfrbw 5bxu8Ofq8XHa//YJ4LCz7rpaq1Ec511j/iz8FPBk/pU/1K8w750uMb7ysi/n kUJ+vd1SPzMTzruG/KzDZS6zLDnfGPzkhEKFwl9SlHeEeXhpzxkrzQ8pUX4U +K0XWzeb/Mf5kChX1jF+QkhYM/mHzgWLHkRpTuO8R8jH5IddPDCW86uhf7Nr inrhBp7f6Dtv1oY/RQLOg4V88O8uk9Iec94s5mH3KS9vPLRVIz3gy/9ETO/a TpXkod9815uVpw4qkZ3Q/3vRZYe9VpwXCq4j5TviVJM8ycOfP29kSJ/eKEvy 0P/HsvrZ+QTOCwXP9ZZ6eUtdlfyM/VVVfLvB+x6yP8Ff3FlcYdKf8xUx/9xP 791uUxfO2wSfNr1zSK/d1dR/oGdb4IPdpzpyPjz4rajlXbP+reOwE3yzyfOA flf/EKd9bIHl73ZynJ+J/twnP8Np365q4pDXX+IbM1OL8zDBVwuWLNnm/Yfk UW7neTtvr/nF+ZZ0TpRSfJckkldJeUQ73rhrjOU8RnDjjHXnIg4rUT8Hn/9V 48SKp5yPh/ZdG3c+/OJ0zicEn6Ha/dNETW4v6Bnx933z8L/yxNHPnXKcx681 5fsCsD8w6/iuitYKqi/k5Rqvard7Jkflgs+oNxt030WW7AdXaDu/RPoX/16e 5aWU7IdtKwTFussmZyjx763rrPCfMnNIKXHKGxn67ubhHdWCTp16jX70lfPW 1rVznfa+rpI48hN2hlRYLW5TQfzkuabKgvP8e+vi8l7PNAbF9i+icsH7+tbu ejGnVhDdqeLR6Gd3KP+kIeGxi2JBjeB4z4yl+ks5T0/12J6lj2fXCl6Wtkvc YJcuWPR8hMndwvuUtw9elvVKobz9c7JHXE/YG9XbKhoVzIV5DjtNTSIVB5WS /ZA3nNfLwNm0iPicoR0fFR/md8myvT728bjM+XtBpQVKBxcxR30V2sgPP74t T0L+8sUbOu1j68gP8aNS+z/cw+/IgcNOv2m3944KaxAMaHpdk5XyS/Ah55vn hRj+XWxwlBur+dn//bh68g+4ok+nyUn6TSQPew6P75i08mEDyRcvz/tPr5x/ txoc8ou0h/wNvdVMetCvSjWLXk9q2yLBLeyOf2rq3kR6wM/21VpXPr6e6ot8 gJh+egbqqXWkZ3DCmycmw/jdM3H9Ux6vuRwzr5baF9/HPyzxNr47vVYgLfW/ v0pBbfNt9ZiJfL8JHOVafL50YtiGVGqvgYsT7izW+ED3u8HRT45f8+pyu3cW ceRFjNLMOBy/OpE49N+W8oj7Njef+hXkFebLeFa65hGn3zs+caey5EIOjSOU q/B4/2KLLXk83oX5G5Pk+o0KnxFL5aa36aDzyp5/z1dc/oFU8sxTa1Il+O/U W21un88he+DPyAEV9lcXJ5I87JR6eFSw8XcltSPqVbJFdXzITG4vyNe7DL7w 7GcN9Ydj36ZscG7zg+75iveHL7UPBr4cUCoxft3G30syu5wj4f+SrF5KT1Qr eJ4R1mtE5NDbLv1KiV9duNyvaii/4wT9kL/3qbi1g32+RL+Sb91z/6ZLngTv Pnhe4sjpRRLlxst0fDq+ppLqC3nD6rFrlypXEG9RXBGd+IZ/V1d8vNxLnJRv t1fKEv0W4/GGyXRLhWHSlmv2dVVo26FWcPRnYbcZofxOlLh8a5rlYlV/GcsU uZFqhiacH6gd7f/w5R4p0gN5yyDVsYv3sB69Na8/PfLn33sV13PEtVXrf/en wNFvD3Q5nD7/s5ylwtvJmqb/1l/K984a3DdvpazlqENz25qP4d91XfXnyESP VDnikN+qfORU6T89yf+vn3//9N3DzJOG/+xHucfyXEq+PeT3plAv6j/DBp04 cbOZ6gU9T3qmZzVotpA8ynVeZpzRXauF5YV6Qi0H2u26LUN2go9/sD3Yu6uk nZcOtMwz+ecfkhfy3pM2DrD55wfI928yTB1Rx79bCr+hXSpth/5ZLsccfrN+ bj3q5QtFCT+nf00LUrdRkOAzg1y2y79RtBzx//Yokp6IVzZVP+6pWK6ftKq9 4N/+v8ItbkHSL34nChz2fP0VvflMMXP6PVP/n/6TBzGHf1qXmAuSZblc+GG2 T9Gb7dYKxOn3i612zrDzlmd/CvVcH7TUJt9NifRf3Nb7Q9KgLPKbuP7mwPcP Vr5WJHnMMyufyfRafaOZ2j35yaCPm+MT6F6n+HoxzMP3p9OuVgH6G+afXif7 vnbXayI9tK4tGDSo7YMG0gP53VuXz/yo0UJ6IO/zYKvLV3PuJ+BLA7sLKvxk yA/WX4P2XmnNoXtt4NAf4P33xuUyaQnudkdtzfHdUqSffs9987EdRSENZD/m q49qpivtreqJU170GbeBo3ybyX7IH1mq5reka5ME73dFMP63hxTZM2zuvTtW PfldJtgD+clvK+JvqrcQtzgY7jZfgd8dQvsOUNVPjDPhe47i7auxacghS1lu d/jhrOmhbnEprAf1GlQeOH2PriR3Vc4eODlYhsYR7HwS0Fyk9M/P4rxRv3hE 9xWypAf8psBz1dAUtvNkysnYzQv4vR3aN+L3nqRqHrUKYmldRh6F5QwFo/X2 ibxfvWR/ovNBfvcG6zXk87MOjpv5lTnyK3qYqujkr0glPTV+ukZ1n/n38mjf IpS/sM+rfsHkWN4/CO30cP96/7n8tSjxcndeaeye0DkyCvVC3sj5RSO/+kxN IX6qbLJylhf/Dh2t78Jyd+g+cG99cZW4Xs9t2vcc+d0Y2ocI5dfekXqnMoM5 7JHza02etT5PQn6gnu8Ah7M5tL7T7554RnQyMimldRn5D8HGY3Tzx+fTuEb+ g+xZtwlrV+URR7kLlZZ8VFOsoH2R4p/ckQcq+PfUwOl3DdxnV/y2LaJyvT7s 3WSsLE3vA9C+Reh/010dTrbY5JM8/Cw/2aNBwTmP9/NC+XUrr07reDqH9y1C fm7emJxRS1NJP/REb+paI7BJJP5Sb1Fen0n8/oy4/kbbsccze5dSvaDn0uvp msHWRcThz8ujBqkPvHQtivZXwvyT/V8Vv22xuxaFfog8Fo3jsqH3j4aQPfQ7 d4VLuhdNDqF6Gd94+SVFmn8PC5x+RyywZ86rvgnUb1NezDh/+zb/jhg4yu0x ULbD5Gkp3M/DD3UM3sXvlqB/ol69xpctmbmIOex8IJdgVz0rheqVuC3s1ejX /LtRtA8X2invudP/7MJUsr/9a8sHMnr8+1DgsNPy/OAYrXGJEvUtnhpXNC8j lvzWYlEg2CLyPgy4U6DHKCkHfpcD7QU9ZTNMZldPZo5yZcubuz1zypOQDwy+ 6JJ0MkdiHH11fu5kkRhLdoJvDwtzLp6TKiH/q+6c15HjOaSffv/oydRTeSMS SR7jN3RQhnVsch2tX71HhD869YF/54jWcaH89YtHlN8GNxBHf84eu27Cz2vN Aqxf9LuHifnL5wxoonUqb0X8T60m/l0kcMgnnJ7hbWJZT/rtzSNvVrvyuwSw E/aorf09so1PM+l5rV8xLNuO3xmg9R2/Z/r2qlwPN+bw/+UXMUmHB0vTuoPx eG7f7abYXVK0TpXOfRF0bDq/8wCO9p28NSOt7z95cT0GCd5pnfs3UbnwW8TL Q5duBjWQ/eAdu1jInv1UR35waZW6PPEj33MHh/74Dtvfygjq2Q/C+l41v+ob NoTXX/p9K0XztYFBMlQv+P/HSVf9hf/2IZCfpeVVXJvMv2sjLv/medPAbaXS EtzxRE/LY46y5Ic7mzuviBjF7x5AP+xPXptbv061hTj8ECN30k/1n53i/jyv 5z4wXK6C1hG044KOca0nepUSR7u8Gq/Q0XNjtYTfXg/sG//Qlv0JPQ+tntx9 W1FJ/Q31ki+NcE3fVC2xfvmrm45It+P+CfvHfFkaM/ZHjUS/rW//MGJtbg3p Ud4UuuDqcf69S3H709Vs+6+aUiTBtaeZRK6UqSD9mAdC92y4YGlUKsHVDsek ZctUUX0xP2z/+MZRZ1IR789n9S4a9YR/90RcftpF4+xuUhXEod8g3SWyJbuG +iHkvfV2d5/vUk289d24vj//8O/CYFwMHr2obt5Kvu+Pdkd9K07lHJ6i0kLj jn73pNZhwfErzcTRjqG6+dPCrzZTvwIP1rhk+HW75Pjd+HbC5K+mTRLyu2X8 ni1LquN9uJBn5Rzsvft+A9kPPe+uXKvLGF1PHHbmFym7mCXWEaf82Ji6F9dN msie0OBhFVma/Hsl4vKv9WN7hoyqJzuPz9G0GrOWfz8C6++lKM38aSP53XuK p43RPNve7B6dC6Dn51X7uI6+/C4xyjUeOt9yxdXnFN+AH25ZXJ93rjqd5lv0 B/3pTwV/xpfQOkL9/9ppjdaf8fS+KNo3YvfD1KV3+XfGYc+p/qf6Lk7nd95g /5UXreVfzfj3BLGubZ/+pHWcB//eE/SH593MbZ/H71TA/g7mvudTRX5PEOPr p+qLbFeR31GC/W5//BtuG/Lv1MBO5Lec184737s/f18A33ep/HyXnxzPp3ez S9aZHdtSTZx+36Thqq1jXg3vz4Xyh568dKlT4e8OkA/fHb46zpTj9ig3d0D7 NybRdRJ62luYXCu34ng4eNHLCc7D9DgeDj3X7hiVX/Hl+DbyMX4brMotS+a4 NOzJ1EuZ4RJVR/rpHfX8mZOjQzhuj7yRmVJnrjv8s0ecr7j44meAPseT6Xcc HIumya3iuDTkgzz7hBUa83cKyGdlRXeZNzNfgrdVWmNz6SzHk6EnYPzEuY9d OJ6MvJQZDfqu38dzPBl5LMlr1u6wn5cowQ/OTGz7uGsW6QHvMXVDwoQNHN+G /p0XFnTRcUyVKFcrUvXt6DMcf4adDaaNG75trqb2Rb2aE+Q6BOVyPJl+v6DJ a59TNceT6R1s1YDpe5UrJPqhTkHwG+/ZPJ+gn5zNtszu4crfcSBfffRW9u9z ORJ+2NG7yEBNiePP4LsyM/7b0KuIykV94172VJGZni/Bh57f8N28b6mEnv1q m8P6//ODeH3HL3o6xsmkVEKPv3xcZO2/dRn9Dfztru5uz6o4zoz+X1ZUs87L nOPJ4DljTz318+N4L/ygWt9oPcic473wm4rMZAf73RxPhvzYsi8Dy3047gr5 mnZlzes0WiT4uOmeWltXcHwY9ugG+YcN29UqIX8wTuvomRSez1Hux52JptZ+ MhJ6MtdrapbLcLyUfgdqXfQcBTcl2u+Br9pqdEu3iOOZKNev2fTRw6kcX0W5 i4Z4djsnw3FIyvdz6+VeMZD1QN731qieATs5nol+az34b/O2rk1UX7T7cK2Q wxY+HLcEnymQD5APaZCQf/lA06/mFscJod8pxrhZZ4WsBM+2dpKt9+C4Oun/ +tckbQjHJ9E/f8/5vDrg37kG5YJ3XjNH+4Uux0XRD49kHvs7+t+8CnnwH0ej HQ5f57giuI9Bs/qOIRzPhP4HF44EXPKQkrBHecjtbQ1TFMifsP/chHMDR8go Svj5hobzefupHH+GnhPBsm+zk+UkeMFY7w8f/u3/0e70ezdLFieuDeL1Hfp3 H5hwaVgK70OQXxGR0WrTaQTH95C/UTN9did7W47vIa9g05s7o2N0sogjryPv 56q3/ZemSvAh+n4/mgQcr4MeTZPGzNSZ/F0P9sT7D187YAjH8WDPwpmbjzX1 5jge5E9pHVSZaJxAHOVa6P1n6qB4jTjKdR6+quNcW/5eRu8897aJOW6bL8HL 7x+elOvFcTnoWXh2ybKMdXkSvOMhx5/eCvx9jd7BO5TVsPffuQbzIfR/7um+ Kb43x/fAbdoZKTdUclwOfggYMb5NaccsKhd+aGp9alQzleNgkNd8MvaRkzPH GyG/ryht+niHVAk9dz/nfPY8xXE56Mlf0Nm63rpIQn/MvJbz3eU5rgg94zo7 KjsYc/wN+SS2/avmhNtw3BV5LKZLtXQjFDOJI1+lZsPU6HQvjsvRe2K/Gh3T D3K8CHrcugQ969eP42ko18x27LH0wZHEIT/SaHcXmeUc30O5/Qc8jDcSiZuB Z2x8du+ASibpgT0Dr8XE3hSJy0H++m6j6fKDE0g/7CmJKJ1arJ1FfoY9v6Jc IuYvSJXg97Q0jJNTOW4GPc/O5Fi0mZwowfXvGh+6OJXjnNAz+6HeXFORuBn4 +CHaa/uKxMfo/erg13JNazh+i3p91jK8MDmJ42bwg03KlXMOYznuB/n5DvEj t8xNldCTb9sm6YNIPI3eKx6TO/O4SByP3om98XB8lYC/B4HXpqdLqejydx/0 z1zN2vbT+nN8DONre6lB8MUgjrOB7+p8udexT3US+g/m3rUZKfL9CPK/o6dk 5V7j+Bj8ZrK9+IKHSFwLfp7/Mu3JUpE4GL0jOqlhR0+R+B64YciXjR+TOE4F Pvj1naSf9zmuhfpaPBuoOFTA8T16R7Ro8dX1jvw9CPa3nVNb0UUkfgUef7JN lpJI/Ap6zpfdTj+QLCdhf3uFouTIwRynot99MI2v/rqL413grjZF69qIxK+g p1tETP7t+3yuhD8vn7889L4sx6PAD22Z+Z+pSHwJfP6GZTcNXaupHVHur+sD Jnx25fgSrS8DN93/YcvxJfhhlMPXlRY/OI4EOx+4nTo7rJLjSOi33buffz9M JI4ELrW7b/VwkTgS+v+2E3sspWQ5XgT5tWaBoRtE4mmQP9yt/ljKBD5Ho19Z eRrfqOpZKsHtnrfxdxOJs9G76+t6Guh/5zgSyvWJGvl7h02tBJeKVRmtLxJ3 hR4Z76mxQSJxIfhfRdOxokCF442w5453T901IvEiym8c1+Wllkj8B3pklt6O d7fguCu9yz1wQd0AkbgQ7HFZ6Z0+UyT+A/s9H6h7vRKJF9F7mEnaaz3uNZA9 kDePezbutUicit47dZ5jerQfx5mRD7Bdr3Z/zi+OJyAP4fiCN2YrtldL5BGZ L295d7VWMm8wcHfsK6tt1RL5eAF1Zk4DF+RL5FU2d64bq2NWxHliQnnHQtMz RTEcH4D+mhrvnJtjOQ6A79GPvsY01BnyORrfi9tfL/Z5KxVK+sGzutSkT9LP ksgri7sVM0NvK58TwZ/WC7Ta9y2SyHfaHrsp8EwenxOhv+BdVG7j5mqJvDu3 JVLxdhV8TgS331BvtGOVLJ0XkL+x5EiYq4menESejH7F8rkbh4rkCwm5zvyb s054iOTtCP2WXO4X7detSSKvafA7w0nu7koSeSwT7wgGvR2kzHkgQv26Q4JM n56Xl8ifmavz+vxNGwWJfIkeGfN0do3hcw389n2GblhRSp0E19t85PBEcz6n gNvfvL55gjvnOSA/IdE4R6nbP3vE8w3267b76XlOXiJv4fPS5m95UxUk+OlH QUOeruDzCPT3zrQolurK5w58F7jnZj6581OON9L3oHmdDGRMeJ+GOP9x4yNX VxrwPh/fBWQWGD653CVL4rv52Rm3+ulUV0p8/zW+PPtcaYcsie+Sg/s4GW1S 4P0n4syh/SOnumt9l/h+mpA608BlWiTtSyEf1NHcYLhFJO33IP+xe9IA67G/ JL7Pbrq0yEJFlfeT4GV9X/foNiRBQs+n+z9+n3qTLfFdeHqmp6tF2ywad/Q7 4J3Cp3mpZ0l833888efq02otNI/BP58/NO74VcL7E/hzjFTgpfIuvO6jXbo0 BId3HcLrPviZ4svnWnfwdyjYmTe793wvkfUF/lftUz6sU06NxPejSucTamEi 6zj0O9zs718usv6ivtI7exU7W9dKfBf4aHbhUfg2/t4BeY1H2Z16KbcQh3y9 3IFnC0TWBfq9wnkRznk1nH+OuMrxtxkPa2dyHjXiKiVnNbb3rKmUiEuPmRt2 fmmfIok4dlLDdpUTIvnedN/c5HXuzlDOl8a5XutXfoeoGZyXjviAfPi7FTum 10rEmdtcOxz8RJfnQ9iTbmzYzbFMWiLO5qWw1UrLnedD8JYBWk/n6krGu24Y TIhYd05eIq71Md2o04dznEeHcv1V2h0+E8txKtRr//AHFx6rt0jEl+q3P5m3 yI2/g0C+9dM1U5UyjgshHqIf+OGkdTDnlcE/GW+CR4eW8jxJv9N66OfWuzt5 noT8nfsBdxvUOF8O9mxZt3KZ5jmeP6Fncrin4oOz8hJxnqZhr8/2j+X4D+Qt tSoiHnThOA/0z+v3X0RjF54/sQ8//cfaqTyF87Wwj40It9pR+5LzrLCf6Xcr yiNVZB4DV9o3bNRDQaTE+dRqYZ/Vzbd5fob8zeP9dxRqZUnEAZZPvvbmiirP J7AzoFohfLRai8T5a5bd7uDaHZwnQPv5peu23RSZf6BnqdwcO/tSyXNK/6c+ KXNE5iXYc+WE97LmEp6X6F7kf7GfrETmJfodmc3FKvHfayTOWRptBK0Hc2ok 9s8qryau2C/y/Zd+t6jsXLfBIt9PIX9rmN6lftt5/kG5rlOVak+IfCdFfU/9 ycrqPo3vCywO6palZsPvOaMdl8/ZGjJgDL9vjPHu491c8G0iv9eN+ccyyubn 5kX8jgHat0/HHx27TeH3BDCPnRhuXfZtEt/3h55dtQE5OqP4Pj76Q8Ea/wQ1 C34PFv7UNs3aGrZG5F1Zod8UK8aGmfTn+/iQX5hS/t7Jgu/Xo/+UJ9XnfEzl +/Lw5261sx5XA0LpHhz61WrFXrdVt/G9cugJXt1NYfpEvicO+WN+3i/2r+F7 0+gnj5KWyMw9xfdP4QfnQUorTh7n+61ol41TyxaclVWhe6AYj6r5O8I2KqjQ vU74eZyRY2/l03yvE+1YsyvJbIrIvUv4Z3DmgNi/Ivcl4YdOY40PbRN5xwz1 3TjlouN7B77niP7WM6a093cXvueI+n6YMifQ3IbvJ0J+cUPKH9vDfN8Q5d62 CVh1aiHfE0T72gUJdDYp8bs09N0ksfGK0Vm+r4d6HdZuV+nRrEH379AuXbaN 1F/RqkH34FBu/BOdn4tE7tnB/tm9qi16bub7buDXF48ZJruX329B/7futNaq rTW/34J2uTvklHPlAn6nhfLTfC8W9lvE77HQfqz5x+N5W/mdE4wL+4/vvWdP 4PdM0L4/Rmt82T4+k+6DQ48gKPha73f8fgj6lf0b5zF6bvxOCH2nTn7Z084s lO79oVyzQab3NGI/0jseFCcv7e93bi6/ywF7nuVe6lg/gd91QXu9LdNyC+/K 71HAnzWH2ixpv4zfnaBxp77Ry2govy9B/afZb4nBMn5vCv2k8fyuObpL+B0Y lJuo0G7rbSt+5wHyJ74kes5azO8zoP8sH/w37tlhfp8B5d5tHyubMJXfYaC8 l2DLeO2cUHo/AXzRq7v52k/5HQNaH49Hf5l1gt9DQHsdqo/NDl/B7w+Aj+8b XfPhBr8zAP9/sInxeXyW3xNAfxvcNNs224/fPUB/a/Q5o+Kzgt8TQHsdudjN 1G4VvxsAPaq3F7i4RIi8pyrsD0e/bdJ9U87vAMAe56w7Y4/t5Pv+qO8C1Y5T fKr4HjrsMWjZ6Xu+hu/Fw54dg7QH9Xfne/Qo1+Tk5PgO+/leOfqJ+eGmmWbz +P445quSTaVOYwv5Hi54WfHoYyET+V4w+sn9btVyRrv43jH6ydVVVg1rUvhe M/pJQIbLnAElfJ8X/SR/ro7USpH7s9CfPVGuwWYx37eF/f8HM9gAEg== "], {{{ EdgeForm[], Directive[ RGBColor[0.24720000000000014`, 0.24, 0.6]], GraphicsGroup3DBox[{ Polygon3DBox[CompressedData[" 1:eJwt13nYkFMaBvD324tSUlNfKI0SRaVSCW1Uso6vyHWhVPqU9qRNqxjZ2lMq QoW0kAyDytIiTZSlGhFGlhhJGMMI83uu8/1xX/d97vOc5z3vec/21uk9pGRw bpZlJTlZlofXFmXZoPwsO6Mwy/Yqfwj74AeVn+Ef8cNiKonZXJBlh5T/yR+n 3EqbmZLdhr/lfQ+H4ScxX+EJYtriGdAGzha3UPwd+CE5K6jfKOfj9Kl0bbwY KtLV8YNQRK8X8xh9Mn0CPiDXl/AFLFWuxT8eL4Hj6Zq4H7wRL4jP8byXPHc6 7q/8Jn+snKX0o/Ql9I30a/RgOl+OQ5pOxGv4rXi9ol/G7BioAGt4S+W8S87l 9Dx6Ev2zHN9oO0nbHCgvNhc/o31rcb3jmVDMK8Z9YaE2ndQ9RV/DryHP03R3 uhpdUe7ych6F54mtQM/Ht4u5QkxlMVPoG+kmeDL0jPHkzxEndTYX3w+FZfpO MQvwj4wq8lbnV8PT+C/zf+c/iIv5i/F9/Jdwf8nuiDHFh8XcRT/C/5leTV/r uY3wPbCW/yv/UrEnyXN5QRrP/mLq8zvw2kNreFpsO/xUXhqr6+I7illFd6Mb 4rr611RMHfyEclP+v+V8km5J18X3wotyHNG2trgq4ivjhtCZPh2fARfTjfDd 4leI7xZzDDfgP4FPxfWhHvQRs4z3i5x/KGe+6S/ob555oRzro890O3okfh5K 6Ff4y+mT6eH4Y1gR6wWvg670q2LW0z3orfQrdF96VMxBeJc+Bv8Q7eka+DDs pavhc/XpN7pEH19VLqXfkudFuhu9kV5JN6BvxkXes5h3b8xtaMO/JT/Nzc/o mvlpvN/3jgtxc/5E8YvoZvSkMj0LlzMGs2MOKe/X9q/45+grPRX/Fw7Sd+IK 2tYVO42uSNegm0c97Iw9AX8Nb8Rcxwdib6Bvx39Aofh78A3eczV9tRyrlBuL GZGf1spefX4AT1E3gD/I2IyKucqrh3dpN1+fRyuPVj4v+ih2Le9ZeAZu4r8r Lj++ufICeAB28+bi96LOcwpi/4QcOBZ+U3e3XCM8d4jnPhlzGVbBB9qswWM9 b6S8R4vbIKY59OL3Vb6Fnxt94T3MeyTWXeydsYbkn4w/hdd5+0PHO/L3F6Q9 Yz+9AH+ifBP9MR6vLxtiH8Yv4RdizsLbsAN2wgjPPU27k/CH8q7gjVFuqR9j Ym7gdbEm4PF4B3Gd1Rfwb6br0bViDUUO8U/KUVfcKWVrJ/bXP+Ml+IOcNK92 QXvxq/E8fGX0m7465jg+AB9FjGeM1O5z3Ab60HuiPznpW78A7ZSH8ffHXqcf O2IdRr/UNYHm8Dl8AZ/BCnVVjE03vBKq0lfiAdrl6/9APDvOiDi7cFt5S2NP j++Sk8Z5Mdyq7gRtdxamMalJv0WPo0+k347xo6vT/6DPleMx7c7DJXK/Q8/H 5aJ/xudfsa94fi78wVsefYX34Ds4CN/Ec7X/Ho/Dp8g7AR/AfWMu80vxTXH2 yPMgfjSeE+MMc/XnbV77mPva1I/9Bh+Fh6svwo1jjdGn4OOUx9NV4y7gPYZE X3G5svjyeDQeA2OhoTYjcIM4v9UNovPz0h5VSu/T9nR1o+hG+Fd97Ekfwd1x D7gKesO90CvWs77ui30W3x9rk+4QZxd8RHeJda396WJ345c940R6E14H1eit sedFv6BGjKe4K/Bh/CWcH++Ft8NJ9Jv49dwUuxVvivOR3owXet4nnnsRXgSf 0hfj2vH+OSnu2NiXcBX8SpxB9Kt4vrj3eR3xPPjO2FTE7XiPiJmJxyvX0d/3 4tyM+WhadM5NZ/1Z/K/j3FS+gX9+brqzjM7SPn+bmBvi2UXpPtCPPhM/p+46 MX/HreKsiLsYvhYPgWvgsjgf4ozGM4vSOdQaTy9KZ9XZRWmvKs3Ss3uKm4Kv x53gRvriOAPEPRRnBZ4adwP6LDwr3j328IKUcxM9lG6iTVVtq8Z4Qy26GNeO cz5L5RbxvXAzPEPbZ7XtE2cR77a4p2Xprtc7S+dv3O/uyNI5WC/upsa2Mb5K +3H87mXvuF19TlG6Cy2Osw6vEvs0rIR+Yodm6d0KY4/F48vOjuM8f4ucp8ox XWwd/BOvMd7E7yjuOX4n/BV/QuxrwXGPwbvFTIy9l95LtxY3U8y5cZdV3hfz B58f5zR9Ac5Vbi//NtxWeQl/Fv5djlb8rfwj9FlxThSW3W3Ut8L/4zflb+Z/ Sd8aeyK+SP1rsTfEeoem9CV4PV4GS3PSHW8Jr0Xc2bUvkecdfFD7O9V/i7fj nfBW7FPK/WIPx0Xiuoh/M+ZzrAf+nDjnY43CRqikroeYXfgv6hbxZuAF+PnY A6BZYZoTcc/sANNjH4y7j7g8+u6443jeoLx0Do6kp4ofhYfFWRhnXWjvsFf9 1ML0j7Ah7lv05vgnyNK9K/aN18yRy9Qv55+ZpXMtvnmzvLRO36U769ce/Dqc QW/BleG0mBNirqMviDVWkPalbXJeLudQ2BP3FM8dFP8p9HC6nJiacddWHkff p+2tuEvcl+iL4myPd6AHFKQxOV7OXrg4vqW2s+MuRJ8j5io8UP4tvMFiBsS6 owfG3It1GOsn9nX+bv7ksrv6CXK2LEr/R2v5Xcv+mzbSA+gLY1+NfQk/Cnvo ZZFHfXlth+an/6kXcM/CdH9eqm+XibkeLon9I+YjjM1L98xf4FDsv3h+jJWY efhX5f/Efxa+QrkSv2NBWq+V+MPy0744JS+dd7Po58TMif/KmNO56f+lvnL/ vHQ/PDP+W+kf4kzHf8rSPbxrjCldUpDO8055af3WorvG/1PMW7qFb70t5gjU ib0dnx1rIS/dH5ZCzdx051kEx2apn70jD90LD1YuKhur4cbnczyt7E7Ylt8t 1r64o8R3wO/H9437QNwtYl7FesM75L80S/f2ZXB0bvo3/D9h0/le "]], Polygon3DBox[CompressedData[" 1:eJw13AXYdUXVBuDznnP2OZQ0SCtdkkoL0iFKg4B0iSANUtLdIC2IKKh0i4Qo IaEgFirSLSEqimKg/M/9rfmv65vvXWvP7Jo9s2atZz1z5t5pn0327vd6vZeH vV7+9cb5b46JXu+hHHwj8he6Xm+LHF8u+hajXm+n6JtEXz76xtG/N6j6VaLf nPa7pH7r6CtF3yT1d6Z+5+irRr8l9ffl7wy5/owp90Z+MGWmyDOn/DjyD1Km jPy/nHN95Pdzje0jH5RzTx/3envk+l+K/tnUbeX6Hj7tP8ifGyLflvr/Rp4u x+6OvFfKHtHXSt3n0/5/eZ5+6rbM34+kbvP8fSj6IylbRP5Pjn0z8jqRf572 6+a+d0f/dPRZU3dXyjTRN4j+i9RvmL/3Rf96ykqOpX7NyH/N/a5O/cY5/3vR 10rdvKn7cPTlov859f+K/O/83Tb6Nin/irxw3vFnkT+f9k/k/F/lnLWi/yl1 V0WfO+esF/2N6P+OPHWO/TT6jmn/28hP+T7R30n9NdG3zvEbo/88ZfvIX0r9 /umPz6R+69R/Nsd+lLofpnwm8gW55oORN4s8V9p+f1Dfc920/17qfpa/B0X/ cspjkb+YNl+MfE/anZFnfyTH5sz5s6U8HHnP1O/Zq2/m262XY3tF3jvl05Fn zDU/nrZPRX4n8o9ynYNT92j0t6L/sKvxYtx8dVTv5f02TflL5EfT/tS0fz7y 39J+8lG9y0Y5/svIh+b801L/XOovib50nnEU+YzUvxP9vtTPnfaP59h5o/o+ y0R/JvpfI++W+l1z/prRN0v9DDm2b/Qno/9lWONLf+iXC1K/cP6uFX2NlIUi fzr1s0f+cMp6kW/JfdeLvEjqrsv5F0f/UPQZon83+oz5O3X0ZVOWNOdyzkqR F4y8fJ79Y67pe6QsGnnxft3LPRdzzVzvE5GXiHy9vs3fDaNv5JqRr0x9/vWm jPzt1P99VPefKvqakd9Lmc38ib525Hn69SyeaerIq+d5pow8uXeM/Il+PYtn WsY75OILR54r8ndy/XXSZuboM3rmruzJbq0/N8/1t+nqfNfZaFR9tmb0tXvV l//JsQ0iH5hrnTauZ5hG3/Tq2ZZK+Th7lLJ0v+4xY+u7DdiO6J+Nvn7KDpF3 TNk08orNPq2Rv/O6VsrqkXfvSl+j2bsV8nfL6Js3m3db3u9zzR7emGdaO+3z WL1zc3zXCNtGX6d9m8/m/LWiTxd9+pSNI989qPnAHt2W828d1PfxnW6I/s3o c0afzbeKvn5X+oejr5PrPZG/i2Z8fiTlp5EPTP1Jqf9Kyn6Rf5rzT4y8S+p+ lPN/l79Lpu38Kb+M/HDqj0n9dpHvGdY4Np53T7m/X/Pl1Hb+F3K/R7qyz+z0 16If0tX83Dj6bqPqz816tSZYG/43Kttwb+5zZvpj56767pHoZ0efNvdcONf7 dc7/c+Qvp/6A1G8Qfdece1BXz79T9F2iHxz9wF610dY7etctUr996j9IOdz3 ib5d5H1Sf1ivvoFvMSV7Gvn41H8q8sU59nD046IfkvbTDKs/9eufhmUTVkqb vYdlKzbpanwZZxuOaoyZSxu2Y8b8TL0ao8bwVDlvHvY28h+HNZ6Ml89H35E9 z98FUj9f+x6/7Zfs2G8iXzao+bdZ5Lty/o+7sqfs6oU5f/+u1tPVou/A1g3K nm8S/ftpf0BX33er6DuZX238bqc/3C/1n8n13jRXRzVGF21z2Fx8KGWx1L+X Y9em7p6ubPnkufbX0x+XR/9V2t6a+vWj/yf3/3v026O/Yq1LfZf2t0U/LedP kWNzRf9J9DeHZW/1z0dT7u+qkK0l547qPOcPJ+qa1nS+AJ/AWv+tlFejTxb9 jsh35PzJI98T+ayc/2D0BaPPlHtdPq71Zanov2/2+vau/AXXOiPtH+jK9zg+ dZel/b/zPv9Ok+/1yyf6waD8hweiv97Wo7na97VefD1//5D611Mui/yb1K/f +vfK1P86+vTN17ki+onmXdrel3K6NUMfRD4t8mq5/2wpK6f9ibnXFZF/kvoV os/CNkT/k3U+7c9I+18Nyz/gTzwb/Zu5/pXRn0/9pdFPiD5z2izf6q1nD6f+ Y22sXZz637OPvkfqvp3rX9fV+3ivtaLfGP3N9m4njWr8rJv2r1s/os85LP3t 6O+xJ9a75j9+J/W/68qf1Af6YvZcc8PIJ6XtlZF/mWNrRP+Db5v2c7Cp0f8W /Z+RT8rfn+f+v2zvbHwuPlHv4F2+39XY4Dd+Jtd7O/oJ0c/IuVdHnyd/t4w+ V/ptitT9mX3zvtHvzv1ej35U9CP4VJG/k+s8nXv9PuXKfh1TN0Pa357239aP qftTyuWRp889/hH5Outy5MmG9f6zWNdz7orRz46+YPSpo7+Tcnr0eaP/MNeb L+ccH/30tLtmXMfV78SnzTWv0q+9mmPf7dd8ez/ytZGfzznf6ep5Pfe643oO z/PPlBsjP8c/y7X2Svlj5GnH9fzeY53Ib+bYsfzvXPf7eZ5ruppf5tna4/In N2r+J392lnHZKnbsIv5S9IWiT51n+Ubkmdh4/qT1b1w2ztqzYDvn5pTHezWG b4o8Zc6bN3W/iPy2MW6epm7Mf++XnWFvnki5pV/j1Hh9q1/+81IpR0efNc8/ 7uodveuHo9+R57s2+is594q0PyX6Mml/SurnTP3kqXvNehL9MGOwq3Fj/Mye +smiP9HspXuaK+8Pyh6xSy+m7Vs5dlzqPhH5qrzvOvl7R4sfZulq3pq/L/TL P511XLHPCZG/FfmKtHkm1zs79WtEPzv6bdHPi75m9B34sRMVE2wTeZWcd0nk FSPPlLY/Mu+NxWazVsnx76b+mpRPDeo7+B5s2jXmbM75XeSvRj4q/XFV9Jej XxD96GY/nmv1R47qOTzPrSkX8QFSXoj8UsqFvtWg2l8S+ck827vmbsrf3TPl lFzv2tSfn/pjc72X0v7H0Y+J/ljaL5Rj76fdMTn+RuQv5Ni/oh/FjzUW0+6T E2UT2Yh/5tilLZ56LO1nT/vVo7+Wur8Pyz85pVf9fVnqH+3Kn3+r2auV0+aC 6Ivl/Om6sk/rmBvNXp3QVX/q17OjXx/9jV61f2BU9oT9+bu5GPmf+fv56Fu3 NXPnHPuL66XsGPkx/nvkF1P39Zw/f77pedE/mbqDOY6j+lar5/qPRp41x1ds 9vUfwxp/n56oeM968rOu+uPVZu//G/2KNh5+whdq8c5xfEL+YMqyLZ65tNWf 4ftF/0brnxXb86k/05qb+qtTzjEmc91bU/8/Yzby9GmzeeSNzZHIM7LxkQ9K 3UuRt8szfyr6ftEXt1bm2B/0P5sb+Ws59miufWqufXj0j6S82frqmPTH3KPq u7dT5hnVPdxLrPdc5L92ZU/PTXk38t9Szok8vzh8VO+rv805a+fjXT3PKtbs ruJz8bQ1x9qjP62Pz7X+8L3Yo0fb+HlNfJznPTL6L/KMZ6V8NfWL5Pi0rsfP Tf3LqX83dfsbxxP1zvtE/vCo1jPj89nIi48rdj05bW+IfAgbn/N/kHJC5IXT ZiJ/T825b0WeLOV260P0tyMvMar49RXv3PQ/RT449X+OvOuw5t9Xoi/blV1h X55KOSvy6V19X995detN6/8D0/61yJd0td5adw+D9+R6f079oalfytzK8V+n /jcpJ0fe1Jqf+i+mfsHUzzAq+/qR6E/CH1L/kvUn+iJ8gRw7udnfV4yN/P1W e/fH+ZjWdGM3+qp5vsVSXkz7L6XdU6Pyx8W3S6dsyl8dlP+/W9rfl/NniLx4 yhLmbMrc4p2JWmMXGtT6f2L7fveP6nmfif7l9jzWZGvwmWKTceEX++U6G/UL P+LfrdfWh3tGtX66vvv8KPrHh7Wezhd9KnMvf/+W899OWT7yv3LsMuOzzVf+ 1VuemV0cVT37vlT0B6PfxGdJ/XLRH4n+967s1yeiP+x++XtR9G+1a6o/n3/U 7NUtXd3fc2ye9xnm724TtWZZI+8aFL4BD7o9z77ssL7Pwm18n+R5+YMpXc5/ MPV7pO351vBBxZhiRTEjLOZLuecXox+S43uOC/+YJXVb9itegQ8s2uKTu9Pm qNSvYv1LOSLyHtYA45SbPi78ZQfxVr/wqt1H9a19c7GfOW/uL9C+J/twJtsR /d7oyw3L31M/TepWzrGz2ljYdFxj2tg+LGXpyP8YlL+7RFsf3Nf9d+pVjDpz zn8h5++Z+lcjLzAu7G/J6JtF/gv7O1H+5Q/MTX0YfY7mb841rPhg+uhd6r4n BtXXKRvn/A9y7NsThSVuMS68Tvwr3t6Gvc3xDSbKh+aTrpPjW/UKI4WJLjQs f6+fumHO/Zx1PHWH9CpmXrn5B1dZgwblI1wb+eqJ8h3gjnwNPsfOkTfJ9X4d eZfI8+d604lho+8a/XeRPzau+f+F6NtEXiTlFxOFNX4+8nT5u130z00Uvsle /Dbybr5ZV+vJs9H3aPbic+xlvzBF2CL//MjUz9T8U+PzxNaf/Dd9d2j0Q1I+ 5JsNK54WV/P3Jx8UtgpjnWxgEMfnNDdTJsRCw6qfvOlPd7W+sV935X7j/N2H fUyZIvJ8ab9D5FHkDyI/29V8Mq9u5i+w34Pq/xtGhddulvrZmj+59LDiDf72 KPqtadNFPi3HD0p/vZxje6Z+6hy7bVTjwjt6N8fEV76/cXBn6hfMeV+IPoj+ 38gfSlnEep33/9+wcGH48KMpO0XeIcePZ2+NmX5h6MaN8QNrX5RPkbbHpu1f I++ZawxSf1b0T3aFCcIGp037d61nKcPoZ6b+L5FP8u7ReyknDmodsh7xCw+P vEaud0vkUyIv19WaY+3hP/xhVGuYteyQdr1F2MDme+w4LowQzgJvgQ1ekevN En0q/uig8L7P9Mr+7QQvHdV4272tn95v0J7N+rrXsJ7Xc6/QVfsu+mnR/zgq DBOWuYgYK8cGOXZzrndE5NfZumH5RkdH/7i1gU/Tr7VnI8/CRvBh2UC+3Khw S/jlZuYn/yvyailbd4VZwi5hrv+OfJlv2p80bHvnDeqai7X17fOR10+b+VK/ XPTNu8JwYblcS9jkWjn/tjzfOTl35a6e0/Py6Y6MfNygcgNyBKsNyg/nj4/5 v5HXGhU2DSOGFfsOvsf1E+UbGmfG26wp/408HFW+43jfPfI3c//pc3xWa4hz o38y+rbRbx9UfLp72vfafJl3WL70+2nzPp8wxy6OfETkffJSvxlWLCGmeGZQ eNfcvcLXdk7b40eFG6+dYx+CNaT+o5Fn7RcedvKoYsyjcp39Un/iqHDztdJm 6ujHjSrGeTfX3jf6/sYjXyjt94q+76gwQHjzaV3hleaTeQUv3XZU2B0MD5YO nz0i8o79wjOteVv3CyO3Fu6dY/tFPzTHv5TrPz2sWFXM+jdrPEwv+kV8rkFh nLDOQ6Pv2xU+enLknfuFx8IE4ATwAljBc8OK+8R/sC39qn/FLP9pPi1fnE/O 14XXwzPhmivkeb4yKp9PDA77O3RUGBZMFbb6Zs65JPKlKW8YS75Tv46p+5n3 6pePx9cT88FeYbBiwZ9GPyz6zdGfjv4MHCH6H6P/M/qzw8KyYFrvDArDPDby 0b3CNo8YVV4DJjsZvGFYuNp90V9M+yeinxv9yeh/jn5w2h/dL8wN9vZyjj3U q5jU84ixfyx2mKjY2zpsPb5nonJ9fJxTWn/zfY7N33t7FSOIaSVT+UreXz98 wM7n3O/3Cx+9Nff8V683CYOERV7aFR4CFzl9VD6W811npXFhXrCSx5tPflDK jZGv8f37FfP7tmJ8Mav8K3+AX7Alf3JQ/qU+1bcwU9gKjAXGIwe3j77sVW7O PDFf2FN2dcY8wxRpfxcbP6p8xBypmyn6uqPCaI01GBXs9vjUfy3y/mxezl1x VDjPS77juN7feDQuvxb9sUHlr+Sx7ofBdhVfGHPG3tFd+Zp8zr2if6Or7+s7 n5/zj+lqbpgj+4xqDBgL5qi5qo/EsmIefSf/OzFROeLjhvV8g4nCnGHX/x1U Ltk3OsaczzlX9mr8Gsd823Min5uyZ78wQL49HxumdiwMpFdz0FyUj5bHfgFu k2dbs6v8mXzOsuMaH7BuzyABP8O4+hLud2qe7Rzxfa9sIFtoDVog+pz9Wptg Mi/1CpOB1fxjVGuzNXqZca0J1gZrkLVIPkr+TB7tE+Nak6xNN+a6u0Tvjyue 5YPzxa+3LkafVz8OK+cvDyanI7dzyaBirmn1xbDylPKVn2z3nNtz9OoZrFNs vnwRfoC1wBpnrbMmWhtX7leuQs5C7k2Mt3Q7d/22lrqWa7oXjOO4Xvkye6b+ Butc9PmjXzOs/OlSvVpjrbUjGGmvbC7bO0V/0lSctL5aZ+UI5QqtCdaGawd1 L+9xFXyyK1vCpsDHvhV9417ZILbImmPtOSBtLxwX3ibfq422bNjz7Xy2yXf0 PedLmaNfMTrsGaYrdtev+teaz6+Qf50i8sz9ygeu1tVab83/eIRPdfU+3msN 8VZXY8OaNmltG1QuV575W7n/NOOyBdZEa6M10FpoDbWWmufmu/XbOn5DV7aZ PZEPGI/LHplbK1tPU/+dXq2Z1s4zuho/vscB+mdU9pWd3TrttxoU9wIHA+cA ZwN3Axfj12m70LjqtdtqXDgZvEwMI5b58aByz/LidwyLwzC1WGCiuA3rD+va eB74HlPkmvdG3zj6r8Qbg+Ii4CSs3y8bbi14sFe2HT4Jj/ynGK/Fc+I7GLFc g3zjmr3KW684ruf2/BPtnhPGZORVrXWj4iXgJ+BcbNKe7+HImw6KbzEFm5jr PZAy+bj8Kf7bmoPCO1cdFn6w9KDw5VVHhUfBpY5O+yW6wqAOSFky8pypfz31 +0Z/YVR42GrRF43+8qiOq39+os7Zflj4lWu4lmNkWJa22w4LX1gm8qJd4Tt3 RV8v+seizzoqvGdvbXEtRoWHr8sXiHxnV9/Hd9oy9VPm2P3is+i/GVV711t/ UPybBccVn4pTP2du5e/3o3+t9Ym4W/yNg7PdoOJO8edjE8V9kXOfvs0dvvmF 0R/p1Zp/UVd9rK/5BHwDPgPf4Sg+0bDG74XRD4y+X+rPjX5n9MOjf3lUf+l3 t3OWsUb1CkOGJZ/V1fphHVmFbe3K1+HzHJS2x3Zlr2AgsJAju1pfrDOwlEHO +Wqvjqn7MrvZKxtmjeWD8kX3h0um7bLmfK8wxZO7GtPGtnhaXA3H5Kvcm3JE v7Advht/hd8xzDUuyN8n0g97tHuf19a7c9o76p97Wh+wo57FMx3ar2ey/n+7 V8+qj/U1P2vvceG/97f+PqSt57/oFeYIe5TfhlfALb5obMNIetXH+v65QWGl 3vH5yOfl2F29aqMtTFKuiL/Kh+DT8m35nHzPPw4ql+iebxv7g8qd+GaHG9td vRsfl6/re1r3+bHnjut7nZX63Zs9g1vyDXxjWK4+v6rJB47qe/AD+cXn5fyp Uu7oFcYJ64QXyV/Bg+CJ1nxrvxye3OIq3aRQepJNZ9vFCGIF8Y/cCswadg3z h+3zucQMYgW+mJhF7GLMndnG+wupe2VQtsY3eZVtavPBGOWT88WN3dWaT21e 8JfZ+Eei/35Qtl/OyjrGt5bLWm9cvp1YYzrxE59iWDl6uXqY86+jPzUoLBqH gG8ory2+kMPk81sn5TbXbDGfWE9uTI6VLyUPp3/kMPm1YgW5TTng16JPDCs3 jPPh24k9xCswqoVyfPNhYVdHplw0LEwLtmVNmsd9hrVWwbDw9jYaFrbFBs2s X4Zlm2B08nCfGhZ2d0T0C4dl89l+GLZvLxbyva1hH83fzw5rbftKyvnDsoFs oTbaiqWMlZUa5gprFRscyoccFgYBi5Bj/UP00bByr2zq7LnGcFi2Fp9Ajkxu TH798OjnDWsNtBZOypH1i9MjdybGFmu/3Kvc4NotJhWLyg0b04c0n9j4ED+y KT+M/tagcjriST48X14OQdwifhHr4CyIacxBc/Enw7IT7MXvBtVfsP9Jc3tc 441vwX83XuQIzDk2gC3wfXF7Dm/z8/9tsjl8fhvPbC8fmi8NA4A9w6BhA8tF v6VXOU7ji81n49jzF1q8ekyzmWyJGB436aRexfZySqtO1JpqbYVP79ov/Pqw rnISYn8YgFwFzAH2ANOH7S8/LLz6jJQVhhUDigX/06v5I54xV8wZ/iXOp1yg nOBHhoVRwCrgBXLdOBu/970HxeWAEfCR+EawA+NJbMlH46s9NKwYSTz55KAw etwinEXYve+Jm8Jms93HpVzcKxvPvjwwrFhBzCAXxv7s39YEvvap4p9e+Yjs xY+HZTvZ0F8NKicxY1dxqlyFHCkugBycXBxMHI496Aorl6PFLcEpkbuFMcGa Poi+1KhyvHKncppymzBEWOLTE4VVwjRhm/+JvvqofJTF0m6bYfku+EM4Ybhg +A18KnlM+Uy+1q3jwtHgae4HU4Qt/mCicnU4uri9ODm4OWIwGBjsS2wG38Q9 lcOTu+Ozw/hge3x5nCxcGpwaXBsYJCzyN3ygUWGWsEuLglzhUeb8sHISchNy rDsMKw87V/PnjQVjQjyDo4rLhNOEu2q84TlZB81PMaq4WHwsdhXzvxp9MCws QHwj5y/XLz44f1Q8Nzyve/XLqHjjeDAzj4uzhuuH84fLZn3DmxBni3X1sb7G C8QtwXHCWZKzlr+9aVQ4Npz7xa4wBHGyeFnsjuOEe4CDgLuAMy2HwQazxWIU sQoMRK7tulHhinD8OcfFacFtkROWGz4gxxZI3S7Rn+kqRocxw5bF7i+Oyi/m W8t3y09uNawxZCzpc31vzGw3Lh+br81HN37wP+T45fbxweDf8k9yrHKxcvq4 WnLSctNyTHJNz7ExkZ8fVW5Ojk4ulU9oHv1yUL6iHL5cvhy4XLg+1be4lvhe L7RrOFdsgNOJe42DjeuJI41LLZ+HCyqHJ5cHY4G1yHFN3xUPRe7LM3k2MYTr 3TSuOEA8MI5+47jiBPHC+11xPHA7xFRiqwVHhaHDzrcfF59gi2Gt0dbqJcfF CcEF2SHyHOPCiH1D3xInAtcORwdXAuf93X5xlnCX5JTkluR45Xph9rD7v0Zf YFQ5eLl4fLOnRxXTi82fb+MJBxLXA+cD92zaUXH6+QR8AzGL2OXx1E8zKv7+ hsPyIfgSMEJYIYwWN/f6ceW95L/MZzk0ubQncv4qkX84rPXlxNYeRxfOeXSv uLswXrlAOcGD23i2h2CrieobHEpcShxcXFzzC+8K/4ptM1/ts8B5fKDNLxwW HC5cLjlSuVI5VXy1G0eFE8OLzT8YPaweN02uy3zH88cRxRWFccI6cdTgzzha uDc4OLj1OP5P94uTiZvJd8E94m/wYXA0cTWXniiuPV8Ot5P/yKdjj2CRfEq+ pTGNy4iTZqzjCOAKsIlsoxy2XL+codyhGA6WBZMQ21lb5Ork7Kwx8+acfdN2 v5S5I7+SY3tHXjjnHjiunOOcbf65Hs4Y7pgc5Dzj4gjKy8rP4jrioMmzy7fj isEw4YbiKdimGEusdX7T5SxxFZeYqFymtRE3gP2yRr4QfceJ4gjiEsop4iLg JMg1wkDFqhe2+Wqu4hLgFJizMMM5m/8j/yDHjduE4yT3zb8wfzZr18Nx+ke/ OJTzNJuFy4rDxpbJD03TL8zR+rbcuHCs+aJv0NUeGXtl+JyHN98Ul4H/w0eV Uzb++d9yzeaGXLKc8qRc8ahymHx0vjoODS4Nztdso9rjAVPhQ/OlYTz29sBU YCswElw8e3pgJ/hF8A04B74RzAXu9FBrzwazxe+kzNfWUtwhHKLt2rzHPcNB 26jNc/Of/y5mwFHCVcLxWbz5Crg7ODxycewvHAWesl2LJWBD4gUxhVgClwun S0zx+zaecWBminz5qLhG/C1YLZ8eLw4/jq+P4/ts8z/MN5xDXDg5C7kLHDMY mhhCLPGn5l/IeS4WefmuuEc4SHsMa72Tn8URwtViM9lOudwdmq2H9cB8YEFy unK7Jw+Kf8Smsq04ULhQOB0wf1g/fBnngn8m54uLwe5b7/gzYjT58b4xOqz5 aI8M7BMGau8MXwIXE2bPp8AhtZfHnh7cUhxie7HsycItlqPbpdlXuTvxKC7U V9ihcXFMcGF27RX3BAfBng17NXATxMP8YdiB/APOjPY4+Lj4fJknmr9j3bWH 6dHmz3oevhH/FUeYjyTnjoPjOls1Xwq3HMecT7XBuPZl2J/x31HldOzFsidL rmfDce0DsR+E/4WzKA8kHyQeZE+fbOs7e2sPlzyPfI+9Xfa42Mtij4K9CjhO 9qbYo4L7hHOySXs/XBSY+vzNfsoN2AMzaW9gr/YCysHaW3JMr3KzMP6V2vO6 nz2C9t5s2trbs4BbtV/rP3tytJcjsLdEjuG2dh+5B/nVTfuV/9w7dXcOKx96 eIuvbh1W/LJzr/Ye2mO0Sns+e4/sqcBFwkm6rH3XtZo/jOsvP7tVe37r7fL8 sV5x6OAb/LbXm3+O+y6ufq2Nb+MLxgBrEKfCj27OOe/0inMNn4B34DTzYfmy 8A7c7aP5Z+PCO+RxXugVdg9j0t8wQtgTvEOeSb5JvCS+Fv/+rOFnfHk5QZgW nx7GBmt7oFd7X+AnOOJ8fL4+zAX2Ii6Xb7N+y+nJSclNwXOu7lcuTL7Ong55 Pjkq/rs9FPZS4ODDW+BJsL6H2/0mcZr7jaPeFYYESxJnw1t/O6wcFn7xs4PC M3CW5RzFGzBSuOJNDb+C7+D624NpLyZ7h9sqXhA3wAxXbd8flmhPAm7vOu17 4Wjivp7R4tWV0n6qicKk4SXwjYNbfAzLE0/bC3Gk59QXnr9XHHl4yO+GlbPB r/xrrreC9alXeyjE3/ATeVY5lmkaPgHfgP/BM+G3sDSYmnzlU8PKKdpf8N6g Yi85W/tdxGBiYH7KEsPyN+zZgAPAA/DT+T8Ldy0mGRdnCncKRxFX0R41e9Um y/W368p/hifwH3Ab7Tmx98QaY62xJ8ieRXsV7RXCObk5+tWD4qLAH/XnJ1u8 gtOO2y6GF8uLR55p/p943J4Pez/EuGJd8bzvg9OE24RDj0tv/wR+Ew6LHKPc Im6LnJa9i4OGhyqDmk6TsFLxI869GEYsYw8ITj/+FT4XDt4czR/EBcXBkeOT 25N/lA+VQ2Tn5EvlLOQu7pyoeEZOQm7i8onaK2yPkb1GYiixFA4o7uexrb/t JcOjwaexpwxnE3fzGxMVD/l+9jTADGAH9q+uNyw/CZYnZ8Q/uC7t+6PijOJ5 4nvifsvZyt2umvffqqsckbyI/AiuvPwvOy13Oyl/Oi4/kJ8Bu8Q/X31Yfghs E8eUf3Zlzv9fV3tS7E2xvwKfUc7f3kR7EiftTRxXLI0Lt1GLh+Rh5GPgmXwg 2Ir4mG9kDwBeuZw8/Hq+rngW+BYbDCsnJy8mPwafhL/IbYl5xa3PjMqn4EvM Mqo9H8Y3jqC9IPxz3xfn0l4PPjjOJa4l3xznbub2fXB19eeKzT/GvcXBxf18 s+EF4kdcQJxAXEXxGl4kfiS8GEdXLu6ydr7+w/N9u+F7vrfYV84MN9f3xLPC t4IPy+HiAuAErN7iK/EIDiduFHyC/7JJi2dvGRVfUHzyalecPNw7HDxcPZxB 3EQcRVzCj4yLEyrOgaV9FyY3LL7g//MVxXI7NbwDp0+OWG4Y18944u/idA3b fBDby9HJ1X0n1ztlWDGyWFnOlr/PPt/d4h3cDZgh7FCMK9aV04Ofm0/88zva 9XCWxSMXtP6CIfGT7KXaZFycXtxeHF5cXpgBPA9nEZZgTRQnyQlYK+UW8E9w aKxzMFXYqjXN2iaXgJ9hT4+cAg4iLqI9DYuOa88QPpY13FrOhrPLMPG1G75k b5z9f3Lj9kjaK2m/o/3qfDZ+xevNl/PN8EnxSn1Lew7tPYTJweb4zHzn9yaK y2/Om/s4d7iQ8C58KGuMtcb3/dJEfVPfVowuVhfTi+0/mmMHOHdY8SsOLi4u vABu4JvDusS/xgIMQZ1v6tua39u2trAG/FixoRgR1mINEvviqFqb5oq+80Rh aLA08QC8Rb4C99NatVE7X6xpz4z9pgu1Z+bjG9vGON8f5xUf1jtO22IOsQc+ KWxo0VzjyxPF6UXieCll+4nCLGAXz1vzJipmFjubE+aGNtraf4cjDvfAB+dD 87vtVeVbi0nEJvZY2AuB04HbYf++/VPwInul7KnCDRHTie3s/5ir2au9WnwE X+bPyP3KOcg98M/kJh9t+DoMce8W71m/7TEVz/gNBHtP7bGz1w6mClvFf4cv yj/YCyOextX2mxV+u0LOg18lpycXwl7BAy72TbvizMN7Tm3rofmHO4tDe32z h/CHC1P/j672cKzf5r94Tw5B3kaOSm6B7wFvw+nmg7D3+Jp8aL40n60bFq7D l7PnDP7Dp+Jbwfy+0OYfLBDOioOAnwAXtMcXHsRn47u91OarGFWsymfkJ8GV +JJ8aH6ZHCLf2h4VeD1OMHxBjkLeQ85U7gJ+gksmZ3Fq87/lKy5seJEc1FPN X5ObEp/b+wKvkE/k48pdyonyfeXk5eZhTrAnNgxPFl+WbYNh4FTASGEbxr9Y d8lhYVE4O3xM7+BdcHT4iGwQW4QTxof2jX1rPjXfWu5KrlfOR+7nwUHtl5Bv sRfkqzl23bjwXByKs6NfO64139qP8yifCeOH9cshyCXIscm1yZfLjYuBxcLy 6XL5cnZyd9/tVe5bDCQWkqs7v/kcOJU4G3wRMYfYQy5QvhAmABv4+aDwDT43 3/uNNh7F6GL1J9t847PghuAE8WX40L6NbyR35jdb7Gu4us0H+SK5m9vaegaj xUWy5wF2K19kPZWjkauZuyseCT4JXBdGgjOOKw47kf+B78BPcMdhwjgoONWw Yvkm3Hmcc9zzE8a1Zjsm/4RTNFm/ONfwcJw0OTlj0tjkA+LK4AzxDXFC5NBg /rB/9l5uBPefvfN7MPwoOWa5ZhwsOVZz1FwVD/B/7EGwt4K/hQv1QPSpRpVv 2q3ND+9z4rhwFniL3/vgg/PFLx0UH9yYMXYubf6mNe8nDb9gr+ynmrKrPCe8 EibtN17gIrBq+OAczSawDU+0PtfXCzf7Bw/xmwF+O0D8ae22huNr8u/5efw9 fCx44Jxd+dD6i41mq3HwcPHYG/tWX+pVfvulZmPYFvbGem/fNw6efCqOAb8A ziR3BTP3Gw9wGlg6fJIPq8/1vRhZrIw/iusKM4Ix8AH4AuacuXdF899h5n5z CS4ES7enwW+C+C0Qex2OHde6Y/2x3+/kceEW8Au/J+M3KfzWiz1x9sbZIwHD g93xF9h4th5nqov+4a54+/j7qzcfj693+aD46uyrfdc4wvgam44KU4Gl7NoV RgGr+GPzd8RIYiUxhliDf4X7AYeQW4RH4a5e0Ss+lBhLrOV3anA/H23P5FnM X+/s3cWcYk/4wl0ND8CXlg+zV08+R77TNVzLb91s0MYS3h/+nzEld2iPgj0y 5onfkPJbUjAh2JDf9PlUv/Z4wftgnLBhOT7rifyd3C/8V35fjGMfEZ+Ib2TP oHyAPY/yS36jxm/V+Ca+DZ/EviH7h/gqfiPJbyXB8GB5sE17e+xfYvdh5n6j x2/zwNLlYORi7HH1WwI4QrhC67d4XUwmNsMhwiWCDfDl+HQwAvGuvWg4i7iL fH6+v/6wd0nO50Otn25qc5V/jZNgztrDKMDevcVL9ijZqyTGEGvIadjTJK6S 64AfwvP8JpL8shheLD97i+/F4GJxPiRf0h5Ley3FzGJn/r3fSrDH114+e6Tt lT6n+Tf2/OJKnNnqxTT8Qv4hX1icN33rD/Gg35zx2zMwSdgkfBH+uFXDT9lJ 9g8fBidHTsBeZHuQ5QrYRLYRZxUfiE3FRbWnynwXv8Gj52jx8P//phj+J645 W2TfgP0DbJL8nXwgPB7fBt8CHnlkw6v8Rszs/foNIniseAqnFAcWX0j+/9QW 71hP+GR8M3tA3+sqBykXiQOJr+Q3ePwWDwwXliv/ad+P/T/4Q3xeeyHtj+UL 2wNnb9zBE7U3Dt8Ff+X4hpeLj+yVlLOWu/4/kg7cHg== "]], Polygon3DBox[CompressedData[" 1:eJwtmHlgTdcaxc+9J/deNcecqWroQ6k2gqK8GovXEioo0oZoJIipCI25ZqHG KEXMlRpqiCHmeaxqVc01tI961eorNRb1fut994+Vs9faaw/3nL2//e2USezz Tm+v4zh3gQ9k8+cnnnMQz4Q4Tp+A42zzO05p13EmehynBtoXaGN5FoMXBSfw 3oIvxBNG20hQAm0FWjr9TYYnw/fDu9N2P77BaMPBu+jb0Hcwxgvok+jvNfhK fA/QFqHtBW3wvQefQF0bPO+AO2gP4eNBLLwl+A3tAfwE3ma0y0VrqnnQXxe0 TtSXYdzSIAZ+BE9bzQPEU7cT71K0svByIAJtGZqX9t+gh1O+hraIti8DH+XJ 6PX4nTl4HDCeRyL6Lrwp8Gh8z5iHF61XiPny4j8Dr4JeFZRFfyKgJcA7g/Lw mfi20F8u2AxmwMeh16O+LvgJ/134G4xxGn4exMHXMMbbeCNo0wBPDlo3tGFo J5nvd2AqdSPgn4B1lNPwHcXXC19VnqF4HqHF02cVeDZj/A5vBS8NX44vl7YB eC76dbQP0XqjfUR/bdG2oiWjJYIq9JeJ9z20DfCBPBPwdQB18K6Hp4FEeGfw BtoGuA/vGdp+D2ajj6f/6egx8Nogiz7rwyeif0F9X9odgqfSLo45N4Z3Q+8C qsOf4FtIm3+DTvjW4ruHPp+++sEL4W8C76J1jvY3vu7o6+Gr0B9Q3xGtHNrn aDvxdKfvXqA5dZvQW2ku6CvBC2jNaTcHvQs8EZzSGobXxzcDPtP9/9JxGsBX gfOUp9LuLJ6+VOyhPg1tIGiFvgX9TQG9MdhIf03gAcbZSvkCaA9fR9sT1I+l 3Ri9A9rulc4Yt+CL4Bfg/fClai/hHQdc9J7wUfg+xZcCPwDvie8ZYxzEMwie hJ4Cd0EOYzZCL6nvj686KEh9Qdp/hj4eXhbfr/hugF9AGXh50FXvBtzUe4Un +ex7fQAa0kcbtPtggWtxpmjwG1XTetM7As+hVdP31pzxzAH50BqheQIWhzTf PXinw3v6LSZ9i28KdUNp1ze4dhVvdlA3NbiPlrgWF8LRm9FuC+V4fJ1AXbR1 Ibbu97kW3+KC8UrfXd//VXyFQGs87dAaee23aV0m++z3bnVtvWvda50+BItd iz+KQ4pXsfgq0yYKHglawDtKp9wffQBIRUtEC0N73rF41x/tKVqKxgNvUtce ngw6Ux6NlgE+wneYMUcqNoCO1G3Xd/ZbPDtG3QTFCnwJftvfh9CGofVDe4SG 5CA5y/jTlfd3WbGSug5UXOL7RiiOgNo+W3MhjFFVsZ5yYcpFaBvq2H4shV4S XAKVfbZXNyvuUo7GP1zriPJMrSt4PlAGbZ++Gdo9eCRojHYSbanWETwKNEU7 hfaAcX5nvNtgKeNfpC4Xn5+6GMVwnSuU31dc5DmS5xXqr4JDoGgwHi3G95hy nM++t777KvRJ+BuhPYdWAC0LbVwwJtbx2ZnSgroEvSP62wzfpViE1gPtLlph x+LSwhDbRwkghrr58BF4f9Fag5fEVwTfYvQJATsHw30WKzYzvzzwiugt4LNA S8UitNZgLXyTzlqdX7RZT7mhYjOIdiyeNcezk36W6ZyGR+C7DWqh1wY90K/6 bJwdHotFOoc1j/no/6E8BN8Y5piOloX2G9otkIE2BG0e2teMN05nq36zvhGo pzOJ5yt47/PciTdCsY0xMsAfaMXRfqTcG72Kz+JfZXAWLRntHz47G5spj0H7 HiShv4ju81uuUIpyNbS/eGaCy5SvgKHMJU17ElxXXFHMBd/hmQA+Z85KpvqA mnimol2kXTp9DkIbgLYdrRBtdsDXgI3w1eAevnP45qHVxrcJ7TH9rVdsAXW0 zpj3U3yjNHe0DLTiaH74MDAXbRraHtqWZoyS4ABaJloJfGHwUuAw2nTFMHwe 5TZgG9oUrT20vHh2wVcqb4CP1b7R+QZPBTXw3WEeF9AugUy00/TRDlyh7WXQ k/qKtMvSPtFvQnsdHPfZHlnksTO4umt7SN9N59Vc5Yho5/2293U+f6acBO0H eBzPg7T7ChwDHeAD+G0v4RkA7wOu0X8s/LhyU+UbyucUm2n/EuUZaJWVV8Jb 4jsK3w9a66zGdx30g/fVOgr2pzz2a9fO0m7BM2+5Yo5iMJ63wRk8DZV7UV6t nARvCcUC5ncX/hdIoX40/AB6Ja0/2h8Du+FHFG/QzsH36fyBV2CMp2iT6KuW z3IQxcqLHsv3MlyLpeGgocdyU8UU5VeV0Byv5Z5j8N1UHKUuGf43+lNQF20l uE25NXpbcBHPi2jXKP8MPmDOHwdz26Ou5Wj18Xf32xmvmKS8STG7ic/GqcFz AZrHa/NYAW5Sfov+nkdfFrAzpaXX8j31q1x5pGI5fBY4hdYjeE4neC2H0TfQ HUL5gPIC5ek6m5Xb6uDJUc4I/IzzDH002mr4WuDV71auRNuCPAsAL+MNDNhZ 1s5r9xKd4cpZs3WWKKdQ3ghWo4/ANwPtMvwP+Kf4PIrtlD+k/7yuXaTmhVgu ru80GK2a8my0cpSfee2AzK/vRH+BYNs8PFvRX7ziMZ5B2HajfYJWG9RA+xfa AdfyEsXEOR7Lg3UGDUYrwhhn8Z0E5akLVf4MClDOD3ai/6w4wxiXKddCK6Gz i7YLFDu1ftDC0JYE7J6jNaW1FaG7Edpwngt0joGbzOe+a/uvP56BIE37K8T2 tfb3bI/Fbs2vrs4d+EwwDdQJsXyquNfOLt1XlG+9D6pSLgrm0UcSbZfgLYav mO6Xjt0Na6KXRItyLFeaGLB8L6/Xztt8juWDma7dbz22JZzZ8Bi8+SEF4HNd O5NrgFC0cLQs185Q5eSzXOtDW0o5u/LM6x7bI36v5aHKQQOUn+hb6hyAR6M/ hD/S+RPc+9143offA3/q/FHco8/99H0cXGec3viu8twO3wS2gWvwP/E1UGxR PNW5gu82c5midQLqKl4r19UZi2cUKK67BXpNMJTyHbRhPF9TvKLtY30L+OvB tq+oT7T/gsTg3teeVgzZpDipvtEKo30DH+3afpemPGSUa31+7Fqekou/Cu+j Kb8h3bG7w8taD3jSwVDwKrwW3go6X/Csci1vOqLYoDZa9+CQvqFyFdp0xFOG cYfhW+G1/2E81HoE2fB8+Pbii8UXpd+uuAEKUS6o2IpeD89Mxs7GtwL8Ey1M ZyD6bngLeCR8SMDygy0eu3Mpp9L/FH6lfFqxCkxizG9DbA8/45mhvefaHlcO onu54kI62g20szyXa+0pz6PtQeXHaDnwDXpXOhvQwvDG8/ySPi767Rxs67d7 bZLWBm0m634N2uJ7F6QGz9BzPFfiWaM7AP7D1O0DVRWLHcs79X+NKLyR2usg Dd7Ab/G9Pb6hjv1PQ/G/q9/+h9IeuhHfNOWwoKLyIa1f1+5WOsd1B1UOmIJW wWcxTHcq/T9H+7cpmgvPg+dH7Un6uAGPZYxoyrFoOcoLafcleozOKN2x9X5c Wy/Kr3XHVn7azmdz0f1Od1OttT5oofR3kjE64ysPHx6wnEL3f+Uhbyl+oZfQ u4X3gFeCj8D3P1YXWZg= "]], Polygon3DBox[CompressedData[" 1:eJwt01tMj3Ecx/EH0YxkKZo5lFEthxwaGWXRMCn2ZxJjkcMohzBjDrUxW21I G6k5JUV0kAvTsjUXxo0rMzPcuMDcmDGzWXg9m4v3nt/3/f38vr9fz/8peeu+ yN6BQRBkYAhGRgfBr0FBUBUVBK0at9A9OAjS+dVcLWbqb0asDQ34yo1A2oAg mI5n8tXqYusirMNPc35zzXpf7T1ufY67gCwzYrCCu4jV+hEM57rQz9Wg3Jwy fDCjGIvcNwfZ6JTf5o6pyJWtx0auFDlm9MhHcZVocmYvFvC1/DuZo3wFdxTz +DvcNHPTMAUpaOUK5Sf/d6loCc9wZoL9qe42BZl4a843rlP+s9xHXOHecw3y d/nv9v5AI1+PNi5a7w1X51nhHof4Gn6eusXey+F7MSsJBXyBTDt/EEu5PGzi C+U/c6cx2n0S8JhvlH9q5hj1VMTq35B9ZG42Px8RM9biITdJL0MmBaXyx/DJ nDpznsjGqcchWv+qbL/eTXU9Ztgfr27nu+Wj1Hv4XUiTv81f4l+Yk8RNwnD+ Gr/Ss0g+X2+nu+zHKG69/DKuXF2GXpmz8iXIdNYVmSruJFJk6/FcPtHsdMTo Xw+/8fBdqBswSzZOfY/vkY9Xn+ArMVv+TpjnJzpvAhLNa+ar+Xf2bZXbgu3h 7x/+FnwEMXqZ6lP8Diw0YwN33/wuLDRrAYq4Pr1k7nz4HjyHcYfN6PBcKVPi eUbmTfgN8PnWbdYHkKU/B2vC353v4A6hkEvAcr4Jr61vep6Qeal/yZy/4f+R dR3mOjcLf7jTeGV9hN/l7y3DKW6VPV+4oRjrruPRx+epF4ffEFq5B1jCpTtr d/hthO9BLxcDuX8wP4Cl "]]}]}, {}, {}, {}, {}}, {{ GrayLevel[0], Line3DBox[CompressedData[" 1:eJwt0stLlGEcxfHHa9429geIXaQUcUZxE5pNLsVVQXnBQcwiWjiCqIuUoE22 CCKHaRPuEsFFJaRSIG7EskBEJcRFmxRCggJvSQs/L7Q4fM85v+d93/k9eq4n daMvK4TwnpryQsjFv/khvM4J4RJ/mappSq7CsuwQKrEDH+Fj6uKTeBXnnevi G/lOTFEL34e3zVp9oM4Ht3S1uI31GKdv/FnzGF/mbBse6m5hkkp1NebDfAlf TEP8IA1Q+Rm/zTxaqJ8uyHF5hN+120O8E71bX6G/y3/XP8Ar8jPcl8cxTRXO NegT/Kq+Cbvlcvezx5/HX/g7eq/+ovyHj3muV97ld6hOX2iPlK4A4/Kxvta5 +7oT/iDale7JRzhmt6c0w09SIz+F4+Yt/Ee+F9exB7/gEmXMb8rLfBtm4xvf PHb/+9Hfy3xa/sfPYb75DG7IY7iJe55bwFF5MXoGl/AzfaKX7mIFd5z7ikX2 +MF/4NNmszhPJfqf+lf8BD0xy2Cufl2f5l9Qjrwmj5o/l69RO5/At/oO/jrf TO/kTjnG11CSL4jeo0/wrjZkor3//z+fAo2xWU4= "], VertexColors -> None]}, {}, {}, { Line3DBox[{542, 1190, 541, 540, 1847, 1189, 523, 1603, 522, 525, 1182, 1843, 524, 1604, 1184, 528, 543, 1609, 544, 1195, 1848, 551, 550, 1612, 1194, 549, 1651, 616, 1220, 1644, 617, 619, 1645, 618, 1221, 1851, 622, 623, 1231, 1856, 636, 1654, 635, 639, 1227, 1655, 640, 1656, 643, 1228, 641, 642}, VertexColors -> None], Line3DBox[{572, 1200, 571, 1618, 570, 1201, 574, 1621, 580, 1620, 575, 1202, 576, 1641, 599, 598, 1631, 1209, 597, 1630, 1208, 556, 555, 1613, 1196, 554, 1663, 658, 1662, 659, 1236, 1859, 656, 655, 1239, 1667, 666, 663, 1664, 662, 1255, 1869, 702, 682, 1246, 1865, 681, 1675, 692, 694, 1252, 695}, VertexColors -> None], Line3DBox[{586, 585, 1205, 584, 1624, 583, 589, 1625, 1206, 588, 1626, 591, 590, 1637, 1214, 610, 1636, 609, 1217, 614, 1640, 613, 1216, 1850, 552, 553, 1668, 1240, 667, 1669, 668, 1245, 1864, 678, 676, 1673, 675, 1243, 1862, 674, 696, 1253, 1678, 698, 1677, 697, 686, 1249, 1674, 680, 679, 1247, 683}, VertexColors -> None], Line3DBox[{602, 1211, 601, 1634, 537, 536, 1187, 1846, 535, 1607, 534, 1191, 531, 1605, 527, 1183, 1844, 526, 546, 1610, 1192, 545, 548, 1611, 1193, 547, 1649, 628, 1647, 627, 1223, 1852, 626, 630, 1225, 1650, 631, 1652, 632, 645, 1230, 1657, 646, 652, 1233, 1857, 651, 1659, 650, 1232, 638, 637}, VertexColors -> None], Line3DBox[{605, 604, 1213, 606, 1635, 603, 1633, 539, 1188, 538, 1608, 533, 530, 1185, 1845, 529, 1606, 1186, 532, 560, 1614, 1197, 559, 1615, 561, 562, 1648, 1224, 1853, 629, 624, 1222, 1646, 625, 633, 1653, 634, 1226, 1854, 621, 620, 1229, 1855, 644, 1658, 647, 653, 1234, 1660, 649, 648}, VertexColors -> None], Line3DBox[{687, 684, 1866, 1248, 685, 700, 1868, 1254, 701, 1679, 699, 673, 1672, 1242, 672, 677, 1863, 1244, 671, 1671, 670, 669, 1861, 1241, 1670, 557, 558, 1218, 1642, 615, 1219, 1643, 607, 608, 1639, 612, 1215, 611, 1638, 593, 1628, 594, 1207, 592, 1627, 581, 1204, 1623, 582, 587, 855}, VertexColors -> None], Line3DBox[{690, 691, 1867, 1250, 688, 689, 1676, 1251, 693, 703, 1680, 665, 1665, 1238, 664, 660, 1860, 1237, 661, 1666, 657, 654, 1858, 1235, 1661, 566, 563, 1198, 1616, 564, 565, 1849, 1212, 595, 1629, 596, 1210, 600, 1632, 577, 1203, 1619, 578, 579, 1622, 567, 1199, 1617, 568, 569, 573}, VertexColors -> None], Line3DBox[{729, 1264, 728, 706, 1870, 1256, 707, 1686, 717, 716, 1683, 1259, 715, 1694, 736, 1267, 735, 1691, 734, 1695, 738, 1268, 739, 1696, 740, 1338, 1890, 812, 1731, 813, 1297, 815, 1732, 814, 1300, 1877, 822, 824, 1736, 823, 1307, 1880, 844, 845, 1308, 1744, 846, 1747, 854, 853, 1311, 856}, VertexColors -> None], Line3DBox[{731, 1265, 730, 1690, 709, 708, 1685, 1260, 719, 1684, 718, 1261, 720, 1693, 737, 1692, 732, 1266, 733, 1697, 741, 743, 1698, 1269, 742, 1757, 1323, 821, 1735, 820, 1734, 1299, 819, 825, 1737, 826, 1301, 1878, 827, 847, 1309, 1745, 848, 850, 1746, 849, 1312, 1881, 857, 852, 1310, 851}, VertexColors -> None], Line3DBox[{758, 1275, 757, 1707, 759, 760, 1712, 1278, 766, 765, 1874, 1293, 792, 1721, 788, 787, 1718, 1285, 786, 1725, 795, 1288, 794, 1722, 799, 1752, 874, 1321, 1754, 876, 1753, 873, 1319, 872, 1773, 908, 1341, 913, 1779, 900, 1770, 1333, 899, 833, 1738, 832, 1302, 1879, 831, 830, 1305, 842}, VertexColors -> None], Line3DBox[{779, 1280, 778, 775, 1714, 773, 1715, 1282, 781, 783, 1717, 1283, 769, 1709, 767, 803, 1726, 1291, 802, 1728, 807, 1294, 805, 1729, 811, 1763, 881, 1326, 1886, 879, 882, 1327, 1761, 884, 1766, 889, 1329, 887, 1775, 909, 1777, 1339, 912, 897, 1769, 895, 1332, 1888, 891, 892, 1334, 904}, VertexColors -> None], Line3DBox[{798, 1290, 726, 725, 1689, 1263, 723, 1687, 712, 711, 1681, 1257, 710, 1702, 748, 1271, 749, 1703, 746, 1700, 745, 1274, 756, 1706, 753, 752, 1758, 1325, 1885, 878, 1324, 841, 1741, 840, 1742, 1306, 838, 836, 1740, 837, 1315, 1883, 863, 858, 1313, 1748, 859, 867, 1751, 869, 1317, 868}, VertexColors -> None], Line3DBox[{828, 829, 834, 1739, 1303, 835, 901, 1889, 1336, 906, 1771, 902, 903, 1337, 1774, 907, 1772, 870, 1318, 871, 1884, 1320, 875, 1765, 886, 1764, 797, 1289, 796, 1723, 800, 1724, 793, 1287, 789, 1719, 790, 1286, 1720, 791, 772, 1713, 771, 1277, 1711, 763, 764, 1276, 1708, 762, 761, 785}, VertexColors -> None], Line3DBox[{866, 865, 1750, 1316, 864, 860, 1882, 1314, 861, 1749, 862, 816, 1876, 1298, 817, 1733, 818, 1304, 839, 1743, 843, 1322, 877, 1756, 1755, 755, 1272, 754, 1705, 750, 1704, 751, 1273, 747, 1701, 744, 1270, 1699, 704, 705, 1682, 713, 1258, 1871, 714, 724, 1262, 1688, 722, 721, 727}, VertexColors -> None], Line3DBox[{905, 1335, 893, 1768, 894, 896, 1331, 1887, 898, 1778, 911, 1340, 910, 1776, 888, 1330, 890, 1767, 885, 1762, 1328, 883, 880, 1760, 1759, 809, 1296, 810, 1730, 806, 1295, 1875, 808, 801, 1727, 804, 1292, 768, 1710, 770, 1284, 1873, 784, 782, 1716, 774, 1279, 1872, 776, 777, 1281, 780}, VertexColors -> None]}, { Line3DBox[{918, 917, 916, 1182, 1926, 921, 1191, 927, 925, 1185, 1928, 926, 1210, 963, 962, 1895, 1209, 966, 1217, 974, 973, 1897, 1219, 976, 1268, 1158, 1955, 1051, 1269, 1052, 1272, 1160, 1966, 1116, 1325, 1113, 1321, 1919, 1112, 1109, 1320, 1110, 1328, 1327, 1119, 1921, 1121, 1123}, VertexColors -> None], Line3DBox[{933, 1891, 932, 1189, 920, 919, 1187, 1929, 929, 1188, 931, 930, 1894, 1203, 953, 1202, 1142, 969, 1896, 1214, 970, 1215, 971, 1267, 1048, 1953, 1046, 1266, 1047, 1273, 1056, 1957, 1055, 1274, 1057, 1288, 1165, 1961, 1077, 1289, 1078, 1296, 1167, 1920, 1326, 1118, 1120}, VertexColors -> None], Line3DBox[{936, 934, 1190, 935, 1211, 967, 1213, 968, 1936, 948, 1199, 949, 1201, 1141, 1932, 954, 1206, 958, 1207, 960, 1934, 959, 1259, 1035, 1261, 1157, 1954, 1049, 1270, 1053, 1271, 1159, 1956, 1054, 1285, 1073, 1287, 1164, 1962, 1079, 1295, 1294, 1082, 1084, 1911, 1083}, VertexColors -> None], Line3DBox[{952, 950, 1200, 951, 1205, 957, 1933, 955, 1204, 956, 1256, 1156, 1950, 1036, 1260, 1034, 1258, 1033, 1949, 1031, 1257, 1032, 1293, 1076, 1960, 1074, 1286, 1075, 1292, 1166, 1910, 1291, 1080, 1081}, VertexColors -> None], Line3DBox[{979, 1898, 980, 982, 1221, 983, 1225, 1901, 1146, 987, 1226, 989, 1238, 1903, 1149, 1030, 1255, 1027, 1253, 1906, 1026, 1025, 1254, 1029, 1308, 1915, 1172, 1101, 1312, 1102, 1316, 1918, 1176, 1106, 1317, 1096, 1305, 1171}, VertexColors -> None], Line3DBox[{996, 992, 1227, 993, 1233, 1941, 1005, 1004, 1234, 1006, 1250, 1948, 1024, 1023, 1252, 1019, 1247, 1154}, VertexColors -> None], Line3DBox[{997, 1902, 995, 994, 1228, 998, 1232, 1003}, VertexColors -> None], Line3DBox[{1001, 1002, 1231, 1940, 991, 990, 1230, 999, 1229, 1939, 1147, 1000, 1251, 1018, 1246, 1946, 1153, 1021, 1249, 1020, 1248, 1947, 1155, 1022, 1311, 1099, 1310, 1174}, VertexColors -> None], Line3DBox[{1042, 1041, 1290, 1058, 1275, 1161, 1958, 1059, 1276, 1060, 1279, 1163, 1909, 1282, 1069, 1072}, VertexColors -> None], Line3DBox[{1061, 1907, 1062, 1071, 1283, 1284, 1064, 1959, 1162, 1277, 1063, 1278, 1037, 1951, 1038, 1263, 1040, 1262, 1039, 1952, 1045, 1265, 1044, 1264, 1043, 1100}, VertexColors -> None], Line3DBox[{1065, 1908, 1066, 1067, 1280, 1281, 1068, 1070}, VertexColors -> None], Line3DBox[{1124, 1922, 1122, 1329, 1330, 1179, 1108, 1965, 1318, 1107, 1319, 1177, 1111, 1968, 1324, 1114, 1322, 1178, 1115, 1967, 1323, 1117, 1970, 1338, 1050, 975, 1218, 972, 1937, 1216, 1143, 965, 1208, 964, 1935, 1212, 961, 928, 1186, 922, 1927, 1183, 1137, 924, 1184, 923, 1893, 915, 914}, VertexColors -> None], Line3DBox[{1126, 1125, 1334, 1335, 1091, 1092, 1913, 1303, 1090, 1302, 1089, 1175, 1917, 1313, 1103, 1314, 1098, 1173, 1916, 1309, 1097, 1307, 1028, 1151, 1905, 1242, 1015, 1243, 1011, 1012, 1904, 1239, 1010, 1237, 988, 1145, 1900, 1222, 984, 1223, 981, 1144, 1899, 1220, 978, 977}, VertexColors -> None], Line3DBox[{1128, 1923, 1127, 1332, 1180, 1331, 1129, 1969, 1336, 1130, 1181, 1333, 1924, 1105, 1315, 1104, 1168, 1963, 1298, 1086, 1301, 1087, 1170, 1964, 1300, 1017, 1244, 1016, 1152, 1945, 1245, 1009, 1236, 1007, 1148, 1942, 1235, 986, 1224, 985, 1938, 1138, 1193, 941, 1194, 942, 1892, 943, 944}, VertexColors -> None], Line3DBox[{1135, 1136, 1134, 1339, 1925, 1340, 1131, 1132, 1337, 1133, 1971, 1341, 1093, 1094, 1306, 1914, 1095, 1304, 1088, 1169, 1299, 1912, 1085, 1297, 1014, 1150, 1944, 1241, 1013, 1240, 1008, 1943, 1139, 1196, 946, 1198, 947, 1931, 1140, 1197, 940, 1192, 939, 1930, 1195, 938, 937, 945}, VertexColors -> None]}, { Line3DBox[{1342, 1343, 1603, 1348, 1846, 1929, 1784, 1587, 1633, 1384, 1622, 1383, 1621, 1932, 1788, 1625, 1386, 1387, 1627, 1389, 1686, 1950, 1475, 1685, 1472, 1871, 1471, 1476, 1687, 1951, 1815, 1712, 1505, 1711, 1506, 1507, 1716, 1909, 1715, 1825, 1827}, VertexColors -> None], Line3DBox[{1344, 1345, 1843, 1926, 1347, 1346, 1607, 1355, 1608, 1356, 1894, 1619, 1381, 1588, 1620, 1382, 1626, 1388, 1628, 1934, 1790, 1683, 1474, 1473, 1684, 1470, 1682, 1949, 1469, 1681, 1814, 1874, 1596, 1501, 1713, 1959, 1823, 1873, 1717, 1826, 1511, 1510}, VertexColors -> None], Line3DBox[{1369, 1892, 1368, 1612, 1365, 1611, 1363, 1362, 1615, 1931, 1787, 1616, 1372, 1613, 1373, 1391, 1850, 1937, 1793, 1642, 1794, 1696, 1955, 1818, 1698, 1489, 1488, 1705, 1498, 1706, 1499, 1722, 1961, 1517, 1518, 1723, 1519, 1730, 1729, 1523, 1911, 1829}, VertexColors -> None], Line3DBox[{1370, 1367, 1366, 1848, 1930, 1364, 1610, 1786, 1614, 1352, 1351, 1849, 1935, 1392, 1630, 1791, 1640, 1402, 1897, 1643, 1404, 1403, 1695, 1485, 1697, 1490, 1704, 1957, 1497, 1492, 1700, 1493, 1725, 1520, 1724, 1962, 1828, 1875, 1597, 1728, 1522, 1524}, VertexColors -> None], Line3DBox[{1371, 1360, 1609, 1361, 1349, 1844, 1927, 1780, 1606, 1783, 1629, 1390, 1895, 1631, 1393, 1396, 1636, 1397, 1639, 1401, 1691, 1953, 1481, 1482, 1692, 1483, 1701, 1494, 1703, 1956, 1819, 1718, 1513, 1512, 1719, 1514, 1727, 1910, 1726, 1521, 1504, 1503}, VertexColors -> None], Line3DBox[{1374, 1893, 1350, 1604, 1781, 1605, 1782, 1845, 1928, 1353, 1354, 1632, 1394, 1641, 1792, 1896, 1637, 1398, 1399, 1638, 1400, 1694, 1484, 1693, 1954, 1817, 1699, 1491, 1495, 1702, 1496, 1721, 1960, 1515, 1720, 1516, 1502, 1710, 1709, 1500, 1907, 1822}, VertexColors -> None], Line3DBox[{1405, 1407, 1410, 1651, 1421, 1649, 1938, 1419, 1648, 1800, 1661, 1442, 1445, 1663, 1943, 1805, 1668, 1806, 1670, 1376, 1375, 1890, 1970, 1562, 1757, 1559, 1755, 1966, 1838, 1758, 1563, 1554, 1752, 1555, 1764, 1564, 1759, 1920, 1600, 1763, 1486, 1487}, VertexColors -> None], Line3DBox[{1415, 1797, 1851, 1414, 1650, 1901, 1422, 1653, 1591, 1424, 1860, 1447, 1667, 1904, 1451, 1673, 1457, 1808, 1863, 1458, 1877, 1964, 1533, 1737, 1529, 1733, 1530, 1541, 1914, 1742, 1544, 1773, 1580, 1772, 1599, 1965, 1835, 1767, 1766, 1571, 1572}, VertexColors -> None], Line3DBox[{1428, 1426, 1427, 1654, 1429, 1657, 1803, 1855, 1939, 1589, 1413, 1680, 1813, 1869, 1812, 1678, 1906, 1464, 1679, 1595, 1465, 1880, 1545, 1745, 1916, 1547, 1749, 1551, 1834, 1883, 1552, 1924, 1770, 1577, 1771, 1579, 1778, 1602, 1925, 1777, 1842, 1586}, VertexColors -> None], Line3DBox[{1431, 1432, 1902, 1433, 1656, 1434, 1659, 1438, 1660, 1440, 1867, 1948, 1594, 1461, 1675, 1811, 1674, 1810, 1866, 1947, 1460, 1467, 1747, 1832, 1881, 1550, 1750, 1918, 1553, 1751, 1598, 1831, 1879, 1536, 1739, 1913, 1539, 1768, 1574, 1888, 1840, 1923, 1841}, VertexColors -> None], Line3DBox[{1568, 1566, 1886, 1760, 1565, 1601, 1765, 1558, 1919, 1754, 1837, 1885, 1561, 1756, 1560, 1967, 1532, 1735, 1525, 1731, 1453, 1944, 1861, 1452, 1593, 1669, 1444, 1662, 1441, 1942, 1858, 1420, 1853, 1799, 1418, 1647, 1409, 1899, 1644, 1406, 1795}, VertexColors -> None], Line3DBox[{1570, 1569, 1921, 1567, 1761, 1762, 1556, 1884, 1836, 1753, 1557, 1968, 1543, 1741, 1542, 1743, 1531, 1734, 1912, 1527, 1526, 1732, 1455, 1671, 1454, 1945, 1864, 1446, 1859, 1443, 1592, 1666, 1417, 1900, 1646, 1798, 1852, 1412, 1411, 1645, 1408, 1898, 1796}, VertexColors -> None], Line3DBox[{1584, 1576, 1769, 1887, 1575, 1969, 1889, 1578, 1538, 1738, 1537, 1917, 1748, 1833, 1882, 1549, 1548, 1746, 1546, 1915, 1744, 1466, 1868, 1463, 1677, 1462, 1459, 1946, 1865, 1809, 1676, 1436, 1658, 1435, 1439, 1941, 1857, 1430, 1655, 1801, 1802}, VertexColors -> None], Line3DBox[{1785, 1891, 1358, 1847, 1357, 1359, 1634, 1395, 1635, 1936, 1379, 1617, 1378, 1377, 1618, 1380, 1624, 1933, 1385, 1623, 1789, 1870, 1468, 1480, 1690, 1952, 1477, 1688, 1816, 1689, 1479, 1478, 1707, 1958, 1820, 1708, 1821, 1872, 1714, 1509, 1508, 1908, 1824}, VertexColors -> None], Line3DBox[{1804, 1437, 1856, 1940, 1590, 1416, 1652, 1423, 1854, 1425, 1665, 1903, 1448, 1664, 1449, 1450, 1862, 1807, 1672, 1905, 1456, 1736, 1534, 1535, 1878, 1830, 1876, 1963, 1528, 1740, 1540, 1779, 1585, 1971, 1581, 1774, 1582, 1776, 1775, 1583, 1573, 1922, 1839}, VertexColors -> None]}}}, VertexColors -> CompressedData[" 1:eJzVfXs0lVv3PyoSSVJJ6V6kUkiSmEk5SiFUuqJ7El2I7pEQSRfdSyeHSKU7 yjWScmun7X7ZbPbFtu2dnHQhfo937PN6xnnHet/f+o7nGTrWH8/wGXPMZ625 5pprzmfPNde4jR52W2SkpKSeyklJ9SGe9+7Wn/zRJgapf/19guv59Snh65v/ /f/fn78afUbe9e1Rn3vo52Qx1LeNEELZXUv1uuYevIZ97szK5wLK8L5xD+Jz GnrwCd/BWW0gnzL6EqvCJ8NFPfiawpg+ltkCpHxmLr1S2VDZg9f+6BOT58kB 3TgV83gSvmWQSLdiMxofkb/l3J7aHjxNPC1N8JaLpEeNC/e9KD4ovM9S/d86 Sfj1hhXF8hpoetx5we0/al7irHaM1v3ag6smfdcN2NWMreeoJ2pcKP4oehT/ 3upns5Pd5a2NPTjzXHZr4NZGbD3prfUbnjebmdreg7feH784+pUIOV5snPUy SZGkV+675xtxNuLPC+5z8Z+pETdrxBAydpd1F0sIgvIjyjEJLNj/53h9/2Ix PGndeuAMMc6pCyy0PBTrsOn3p1lJ7SVwR17K5eXZIiixDXD6oFQH6+O8S8OL esZ7d9KNPjdS2Ni4RppvaRRPDApm78z0ZZqgeKnYdNbqatD403FAIoFvWbZv wu5OARyf4cHwcEDjuPYBhf/mPCpDv7QHX5s27rLCsAawyM+d5EjCpWUrw+6P bcAeL+q9uPQoHDmPCNzb7ua1ZQQeVbidWZovAm132cKLQ9D0uP3E7Q+KPy79 uqU/PfJI+MTBT3xC8/H5jLb7uOc4oW+rtLyOvpBvgqOB4pGpG9F6iFpfuPQu Ra62FeViUOE0mSpXNcPZLJlOuUO1SHrcdY3bHxS+xG6O7DYCP9rufteyicB1 O9f++RpNj7uuUTjuusPVw9Ci9w0ZDDHMSeLsuJUqhmy1ARET7uPrbXOe1M9g 0r55qPyoUGsP/r6JwvVNn41TqxfDLW2L0h+fm0Ahsq3GJrgGex6p2keoml+q +P9q8REuPW4c9MqpWeY4Kf46e2j4+DdK6PiL7v7PrG30yiDtC0ZPl8Rru+Lv y7hxAa5/iMJLWWOWtZLwxwGiATEv0fR0979vrX9dOQn/cuNG1XaV/wMfTFzd OXHqMlIcOix2X/biNHQcisLDnYLcr5L8cOstO2z7Jop+ufWI/f0BMS90f/eg O36hKt5EPXHjX6rWEW48S/e6xo0LqPKTcenX11oPiCHhR959OyZ8he9fofiH mh5dwiH8riaG0fQRCWLY3X5qhlMMfryJ2x9n0xEJnYS/nf0TZIKZzWB8xy/M fD++v91b/g9V9EvSuDtDCFxXNcsts14I87/+PLozGX+8KHlS9V0CSU/R9wpk 3IT4XoH9XQUzLkPhqO8VVH2fofv7EooeFdfQHT+i6B+YnNy8uVMM0x47rlxm zYV3kbmj4zaVQlbrmbrG72JQizlWsNyYB3EVy22lz5Yh8U+trV6MT2KAgwe+ 1Y5qhKEnnc/O+VyBxF8vl1/8lOCj4Oerdd2CB7F6RdetI8qgQUEp1WxIM5xR UKg74MYG5R/7cn3Ui+GMSaFlSb9mMLcwWDlzHRtO9z17WDC4GE63ZcfuWCCG c0emvh81hAOXrtV7fz1agk2PwnHlIFf0u+ZAIWEfTL/xW9QEsFiPf+i2bhW2 fFA4bj9x6amSM4r/Jr78rhBdEczWDND4lFMPQ7M1LLsY6PnF7Q+ufqLWBYq+ 8oPxhclfxBCxszN1oyEfagLLjV3fl2O/F3sdpY4yTyNwzq73w6LGNoJrZG1n R9v/gQ8mrvqvvwaI6NvdCmFMymiiFcIFFZ7WKFsu3JkfXVLszoRdCy4GZ+Uy sOlR760wEXxbQsjZzt/Ot2oGH2YtK99Ql42WMy6Oawfotj+dnJPv2RaE3XbV iA1W40CmWcW5D75oPrj8j8sHj7mqJYLV1pE7VVPrIW3/TFWrPHx7iNsfrt2w 9fElAjgSO4WhvpMFspvHvt/54COE+ZfwF7wTQIPG0ZeBS1jg5z7PtzrqI5IP ih4XP5dXE/TwNB8WPTz3Nr6qHLzL+CcZhkVIHMVn6371B5uTGmHaHv1VOs+q QOrq/uWcNjSffosfiqXVGiB7hdH0x8MLQSNmt924V9StIxQ93fJBvReXT5/k iIda5/gwPsjrYDCvHKKOsW7FzUXzp0pu/NrJNwPXc2Fenq1wexgTWgwPlC3/ SJ38UfQoOaDoUfjJSfduWc3mgD77/KDszA8QPpo9efhwdH9Q+HHb8+n9hE3Q f/j9z5qydfCktkrNdAPzl1t3KHoZz0uDUgoEkNnm4rZpBQvih+pfT4xB0+Py p4qeKv05URPZVbOXB0W2x6QjZpZCxDOD8RP9P2DrT1+ZGJuLDlzwHXEq6PEB JlxtDIm6WYCvP7h+hZypTagu4Sf7rFp6f+dgAdz6yotQ00L7yag4hW5/GIW/ Tk2MLyXw9GvFTarAg86vH9Kyw/H9EGw/DeEHouhPXL7mtPdhI3im72zdH1EF d5ec0tBtQesnVfsyih61TnH54PYH1/6gcNz+UBWHSk0/42EzoBke6WnOiHBh Q9K9gEuvVfH9TxROVbyAG++gcFz/H7Uee6v/VMUduHEBLn9cHBVHoPw3uvdZ lBxw+aP4oOwnVfxx9yNUHIG7X9Ptl6Lei+uvUvVeFI7yf+h+L91xH65/iLsP /lPiBbrnkd/GI1rP93YtxylEa6YMZzS/J1oPbveouwmQOIpPUkMi0Uj5Wv0P E42PxFH8qeJDFY7bH7rni6p5pGrecfGzxWFEE8Pk9O4mgsYB3a0OiQcVBRKt h09hUndjY+OxNTFEE0NtdXcTwten3Y2FxHHnHRf/vfIW0XrwKOdoonF+OZwq +fcWf6rGi6s/uHqOi/9q78XFfzU9pHtfwMXp1rfe4k/3Pkj3ft1b/klv8adK br3lb1A1v71lH+ieX6rsLd18fjX+vbVv9pYfQjd/3Hmke1+jym+hSt+o0v9f zQ/EHe+n7+LuBkpzBxGNB9vPdLcyJJ7BSyeaGK51dDcBaNh1t2okXvaplGhi cBi5gmiNsOBTd6tA4vPNuv/E8Gzwc6JxYO7R7laCjdM9LqrGi8Jx+48rB6rk 2VvyQeF0z+M/RU+oml+6111v8e/br/uvGXTX6hGNDZsHbyFaMWX4u7fdfwJw WtzdiH0xKoxoHynDcfuz3Lb7jwurPByIxgRubgPRGHD6X398WFO1mmjl8NKw uxVh0+P2n+7+4PKhuz9UyfNX009c/nT3E3e9o/j80/WHqnVB1X6HwnHtOQr/ p/gPuDjd+0Jvrcfe8k9Q4/qnxAW9peeoeBN3vHT7e1TFR3T7sSi8t9Y7Ln9c OVC13/WW39Vb+zvdfi9V9L3lf9Idp1AVT+HKGfXev77f/a9nR1f3nxhZN6OG G5QoT6qzwfRru9r3v9QJRNXH6LqSkdFFwvXGZHIXp+HXR8Wtf4Jbv+LK7Ubp UhL9kuGOiucHU1cfY/XV4MZ8Ev7CanRwwS50/U+UnHHlsNDlo7oWaR6XiUc6 NLii66VoXHriKCDhrqtyXSsd8eWMWwfmcWKAkNXVg1scK1OOJNH9/z6pqk9I VR2GurzxbbtJ/BMuhfq22qH5U1XH7E2RyvFXBJ/VMhqL2c9EMMzj1ONtffH5 TM9tNBUQ9JVPlFW0GEKYlRu9LTyS9R9yc/kfcmu5/VQ7ioR/MH/2cOgr6uqi oPRwHNNX6RAJt9yY0yepjUeZnHHrrjzv8LU6Q+A1N46t0a4Xwl7zqry4l/j1 WHDtA4p+lsJOoyzSulPRfB4yXySmrD4wbv0uuutFo/qpVtiy+z5pXEtnJvrn WKDtJK58pnpfVeki4ee+/Kjkb6CuHjKufHD1x997k3E+ib/a+FXH3JTQ83jp UPylAFI/n+yeIOJdQ9edo8oO4PJ55tFgs5lEP/KNzcDd8eh6MlTZAdx6L1TV scF9r/iQT7o9uS7izWPndi7hIN8bv4DHe028l/kgeKAOse/IKlkc/9KHujpC qH7inpsbUnRUR/OHGNKfG9yM1uHB0VllGz8fo+5cJ+q9sj4jhYdmi2H7ujun I/tywCuwI3CdN/75VhTOUm8xHkCMS8v/3OXbs3hw4s7y2MDAMuy6KNd0An9K tYihdFF4TJlKI1TNdlb14+Cfp9v2VjVVlU/E+9YGLoObBFDnFWbSYFyNpP+r nxsl/Tz8P/qJKzfcc1tKb5eE/0bIc3usmUKrJg8Uxu1N9fJG19Wh6hwr6nzK wgfj7XUXcuGBZ/06/nImrPCx89TOYlDGv+DTj9kTlnIhpuOFo+4WJmxxYE43 fos+X4N7vsxljWVX930Uu58crK+dz4I8lWsBDpH45+ipOn9UFX4xUvRFCBs9 dGLZlmxIuCh7/o0cdeeO6T4XBjMWDbQy4cJns33tWmZM2Mj/svp1GroOD1V1 jajS836y06atSBVAcOU+gwvTWbBh7YpzC26iz1euzzdM9zAVQ0nO3U2LlTjA MjU74n4Yv74NVfJp1Vk+uZDYBycKA3+2FQvhSciR8E93WZTZK6rsWG+d2zXR Xw9yBQKIPjEz4L49C0YvTbZfGEPd+VkUPUr+VJ0fLJF9uFBzNheWtitYMWcw wWHIhP6GL+k/T2omsf9REvtvL7H/uO+lat6dJfZ8l8Se50rsOVX1UvIk+9Ft yX60SbIflf4tDqqUxEEpftz0DBJ+/NsGQf09ATAuWcT5k/zGA4/8HrMTCb/6 0mFfcp52y4nJSk79+XCQaWVoSc6TPDMhxvgOG6z73Tu9hfBj1wtDzjXkiOD5 vaj6vco9/u1DiX+rLfFvpT1sO9+R4inFXZffbLdphjUe6pqXSe8Nv9q6Q9jJ g6A8x4I/SP2f5apb4/GHAPYUJl89QKL/uG6IllUbD4aeeMQPJfnn/SYlh25b y/mP705Jku9OpXLivAeEvRo8aL9+TJUQitOPzHN9wvq3HRsvsWOPJHbs/MiT oVHEuDIZPuY1L0WgpmXhoNe/DnILT2ZakOSz9pRHXmE0GxLHpybUdNc1zR4x tyxeBMf2to4Pl6qD6vcPnzYR/KPHNUhXvifihR1ZGXqRLHArslz1J+HvKa6b 0prVIgCHU1/YzgurgfluzDANwv88o6iRIj+wEdZ7BfEm1VTAuo7E8a+IdX2+ LaSv4thGuCFKs5rXVgHDQid+uzBDDKOONX+Y39EARyx2rP2ytwTmRi/tmm4h hr2P+ho8HM4BfZ+NSzb4lsCsxsde7J9CKKrQPXbKjg1jl1kFlikWQ3/JfnRe sh85S/ajOd6Zz5P9+bClLFjd5V05KI6LOpumVwQjRhrM2ZUggG9jZTLej2LB dvXMzZVXPkJwzLZlhSIhGJprHp83nw2eGrv2GfcpBtb4O+ycw3wIkvZ3G5JQ DpE7nK7fn14Epw18QmO8+KBz12tUTlQ5OLVkHx43peg//Hk/iT9/VG7SH7WE HLK3+1UHjWiELlfnlPbmCjAamby5lJCnp/bJ5vSvAnBsd9dqs6qGGomfs1Xi 5yRJ/ByHBRrpXwn6ILnLiYMI+c/OcT9+2Lz63/4/U+L/l0r8/xPvOcGjCXzl oU/3UhQbQXnonfmvqytARhLXbJbENfskcU27mf0lbaL/81z+cGmZzgOXvcul lIg467TE/ptK7H/w3+pMDpPY+Zi//A2J/TGR2B8vif0xkMyLs2ReFCTzoi+Z X8bf5hf3vExvnb/urfPIuO9F5ZNTdQ6X7nOIdJ+/o/u8JIoeJX+6z5vgnkeg +7xYb61H3PdSta6pOndG97ktus8N4Z57oop/b8kNxQeVf0XVOQ66zyNQ9V6q 8vHozh+jKj8ZN1/lV8tTonu8uPmoVPWfqrwg3Hxp3HWBoseVJ6o/KD64doBu +4Cbp0r3+Tu6z1ng6g9u/mpv5W1SlV9Hdz4hSg+psj9/+Qd/f9Kdh9YiP0r+ IOm+v80XN22WG4h/3zrqvai8giLliQVvSPijjUOf9nXjwG61z6esSffENRoW Kjz6L/fE4eZXdCyTSuCS+hl3QT4ybxV1+SQm051yRSR62fh5zBUv0Hkgf+xb 0b6adI/YLc0E6/KNjZTJ32BW5eG7pPvyRtbVRjxLRt9bjdIr3CcqH6C0cvQ2 H8J/jt6Rlt+ZJYL6oNlJPwbWIfmgfh/PCFv5ewyB9/Etbbgl3QQZCRNPHHBE 5yFME+kNG0O650hXaPtBRrkB+95hqu5BQ70Xlb+xIrJNTrFCDHqBysPffWiG Dc7hYn9P6u4Xo2pcg30Mw6sYYkiY62HCTRRD/7k51idi0fSodYGbVzPGIfLt NQJfWyrlerFWCKUvIi22JFJ3zxouHzuriOqp9WIIVHffzxU1wdpaQ5+JJ2uw 7XZ/Ja6YnO893vzqoKH/5V5FXPuwaULHwFMk+z/qSKiO62C0/cfN30ONF5d/ jczcsEqSnjirXXDkquDnK9KdD4nCzXY+6kgk2eGJJUPDPqXj22HcfQHFp6VK N9OIpFdz1RuGKu7G1ytc+aD4o/jM1HovH0raH9+rvp+euacRO1+REa64UIdk /2Ua757fo4q+5472ezAR+DWfpJACwn7efDqlRDpZDDZGbhsPxaHz9OjOl8a1 k231RVqHCD6r1DoGjuEJYVvME6X4dDQfIWNKtVX375h76wT6BSLgZbhOZgyp gxLPRzu8CfpT37kHLys0wed5qvnqW6jLw6T7/s18m3kVuQRusuLU7VU/BBAQ PksHbKqx8yjaEr282gjcUvuhZtIcHjjov/r4/DR+PmTJhbGBhkIx9PU1dZ2h LAC910dqAiej7wGh6j47HxOfCv8JIhi2UNlGkFAPikPDVJXeovN8CvcKOXkE XuGZ6FGk0Qi1oy8Hu7bi5zfi5oXi5j+g3jtJmxe+6osY8nJDZphN58Nx9Y6s C5no+xQ8Ty92DugUw+fW9aUWv3FhQpbl2Kw16PtWqLqPAMVnrM0jJ7eFYogb qOQXOpQDmy2VbsNxfD4oeVKVD3mwwX2B8tAGSOpyWbxVvhDmV92yck5F5x9e dG2fM+1+I8zKEXv6X6qCt/7xaepidH7g+212caZWXKioGn9BdhMT4rdpeN/N wc/neTLlXZLBNA4k+ZVXLI77ADuXhsvfVUbLYdGhoJidnCZYkSBKmNhZCy83 K5/tv4aJnRckw1CQayLoAwwe60J1OdxWV/Bs6/5dPnDMvCn5AhiscCni3HIW jLdrykm4g5+fSVUdeFx5otbv5oPz/bQI+/a431rzJUMEwDX6puKtTZ19q/92 rcueWKe/f1/V9mg5F3Kln4d82Ya+v7Xxmox0CYG/WDjq1S7gwbSgQpvZF9F2 qTZw9fM7BD7ulnSE36RGCNvYEqr1E22vcO+/WCsyrBxZKoDVhzddnujGgtHW HTcfP8DPG8S1M/NH3mk4odgME9PNzKw2s6Fj0qH904ZRdz8OSv6XvXYFTCTs 8LHrE+a9N+SDm4xdQut/uT8UhS//6Z/tbS2G2bder0sbx4GYJSKFmADq7qmk Kp8TxYeqe3NQ8s+wuSI1X1MEg86Vh+5JrgetBwsUPHLR98LQfe+JgmjhPf85 HLicnLxS++0HCKuLafVVoy6v2/angnK+RgPM/dPjcL5+IRSu1jE48bYQNrEE n9KduLDwpYlXfjgTLiwfMDOFiZ+HT1X+PFV8cOVjdI/bVNnSBD4Cty0mA+vg x8M9SW0uTCR9EeeNejIp7ovIThruJs+H2COhx8JIfv6Fr9tCFZPZ0LlnnTWL FPexK/Ijpu3jAH9ofcUAUQ9umbWsJvCVADhRt8+uJ31P7jxlvX5IFhf+3PBU 5hGJ/7cZKiNCXrOB087p+7NcDBmDN5ytZxJx+AuNZYf318KTu56nXUjx46Nx Z9ftnNAAI76qyH9ni+FMzORT2783wcm5F028zteA7WdXxYC+zXC6S9rsyho2 mGrka6gS63SPyu25/dx5IBsT87Z0YimM9Hzqruj7AYKhraNCXwTC5ElD03Lr 4WBZu4dPUTFYKq7+oXmRD/op651NW8phz5RT/Q1NimBx+hk1rj0X8n4MMurv wwTW2rei6QUMEA4rrah62Aiqett3HrhVBUcCeVJeLUXg6OeQcuIgD/ZvmJ4w 1bwUFAfo3etz6gNl+Wx05/NQlS+HmxdHd74c3fWce6seMm7dYKrGS5Ue9tY9 AlTdu/Gr5e9RlV9H931DdNu3X+3+l1+trjtV9dJR46VqXCj+vZW/R1U+IYqe qvycX61+469Wl5vu/EO669nivpeq/CK68xLp5t9b+ZxU1X2lO6+PqnxRuuvn 95bd7q066lTV+0X1s7fqJdJdz/BXs2+9VT8TqW+Y9euoqlv11/9/f+Lyp6qu Dt2/+6PGi3ri5m9QlR+COy8oeqryBFA4Kj8Btx4Ubj4Jbt0b3N+/cOspUfU7 Ly49Vb8j4L4XNy8C93dJFI77/R9XH+i+V53u7zC4339wvxtQ1X+q7p3EPY9M 9/dkur9/4vYT9zwmyo/F9etwz/dRFXeg3kv3+Uq6z/Hh+u2o8ao3pEZzSXVW Z8X2eXrlmxiMF3ya+5GEMwLkNZo/iyF5kpFLNQn3buXX1H8Rg7Sx+r0/SHr4 6dxUk0wXDhhYb6wLIulbkafeB40XbPjtqrl9IKH/Sdv8lBszRDDwrtlaWWJ/ H+4/xyiS0Ftuy9R4BcJPcG3xX733OQsSCvkf80jvXRr2JSmLmKf1Y6We5JHs gGmFnzTfhrDvd1zhd5LdiJ3vvCJcmg8z7msFPSXZh4rKgHdysQKw/Dl531RS PnBwysQtNTub4SjEpAWSxhU6xj752moOHL73Nt+TNC61jkvR85+yQW8HZ2EC 0X+/Fk0Gt0IIu/4oG6j3iAW5Xu+2RRPj/e2A3sTHL0VgaRieOrR/HWRNMVRJ MuZCeGFowUoTJqx0270rK5UB3wsSbaaaEvvFg8WrFpszocP6uIN9OgOijNKM r/rwodOl6qzwXjnETiiWkplaBNs7tHOG7Cf8vmNTGQXR5bDoxLvDW6cUwbqX Lx2N5xJ8wp9HvzRigoqc52NGCgO0zzxP6dbz41d3sp0IPQ+0PXzFltDzlc5j 1sQQ+pP12nW8EqE/cgqN9gcJ/Rnwyrp9K7E/6lQbh40g9sdki+rML4Te+t3l 5TMIvXqpm1c+6rsAXoZOW/ZoWTXIOfyeWEfwj5+57rnNiEaYv1ja5mlzBSyQ t2/tADHsGRvlPVWZA2uUq17uPFICmcNH6XUQ62uwf15wkCEPnNvXjzAIKYOx FfvddhUI4GdzQ3CUAwu6rN18TsZ8hOpnN0/YevJhvhTHPeB2Oay5kpRjoVUE a99b2jrP4cIj5qzzRgZMsC3hM28nM+C4rsG39BENcH+AdsjksYWQMUZz8Jqs QuBbmt/UH94Ah7+fDs4ZUgiyJ5PnqWcUwr073BnbCbvB/ZyeEEfYjcxXslZR hN1oWXxJ75Y9FxwTQ8au82ZC+5WRyVIFDLjcrBTNIunhs+HnXZJXNEPRaEFq OknfqieKLly5R+xHzNdmz0j6qe3CmOYmx4e45SMHkPev/i4XdJWJ/eug3edR JST+8fWrGZ/tmiF6zZmrcSQ+F97nGl/ry4e9a+8EqpH082etTrr1FTacc/w2 9xuhh9u2NBaduyuCPbnTQub9rIU9s23qVVhiiPwWOP1VjhD4y4KqRZdZEBHd 0hZO0v9MU8N+3us5sML6hv1C0nt3xzb7p3B5UFXt7XSR4N9RkHZLOk0EgdG6 9jOIfW0/a55OMmlc3JvKl83jBGDqrLP3ConPUf+Lasu6eKDV93lnFmm8DW7D HGOXNUO5+VT5ByQ+8a3TtMbfEYCXa0FEGKmfcRylo7y1RD99dQYeI8nBvuqm HCSw4cX+C+PuE+v098p9q7qqhDBkLFNY/oQFmvaa268T/c9JqViSmSICzQQv qS3ydeCQEsNxI/FRvaFa3vKIDZcCahalEXwmVEgbQ7kQ5Nbwl42IZ8GabEaI L6k/Z6REK/NWccDRtKHI5ocYAtrvJ5lO5oFe0suypV5l4Gklkp3IF4P3zLxF fJ4AQiYHf2UbVkPm94NT9mqLocpj3m+ybQ0wlbvg5UOPErBsU9M3ahHDpq2d fCO5RpjjMuni25IKGOxg4j6D4ON0d/Lr0xwBqB/9zYg7qxpWTFn00JSgf5y1 4/fhso0QxkpKcyyugPMGGtcKiHWaJ73a3EejEZYollt8I/zwoIX5/QdOEcO6 DEGJw58N8OxZlHy+ewlE3C2buZbo/5PawZM5E3gwdl1WqN3eMpC73KnxRSwE bcUUm0gzNohsond87VMM3ErLSJWnAth+Y1HMPVUWvJgU1Zl46SNUpXks39cs hDejXJ0um7Lhad76uRtkioHfsfztiyYhDPLZcOTYPDZk+414sVC6GE6cKgu4 /VgAIPZ7MnUwC8pHvIvLv/gRmo4Mr/5M2A3tS3Ju+414cNTbsflOaBl0XejH eEPYpbXTee7T2wWwKOy4urVtNfg7H6y/dpYPhpM/Wepxy+GazpY5tnOL4JIv 713ZQkJum/KGDR7GAbVrUhn+x0vAbbbpPD7Bv2DHH9xYIq7Z88Uv3oOIa5jx o5K75JrhSsosBcYGNqR8cVplNYTwZwTSN/qf4UPE7IPb/mSVg3uITeD9OUXw 897pfhnd9WNn+38MJ/bfBarxJ4YS++/SxJiGPnkCsN1RfP6dNQvOKE7IbI/+ CP8PY6F5/A== "], VertexNormals -> CompressedData[" 1:eJzdnc+NHlUQxFdwcBxcAZOCcwB7vbtHJCRunAiCDJAIgwDIAMkJcEUiAa4g tHsZqdX9q6qe+czJcmv05r3+W12v59vPvv3h6+8+ubu7+/XV3d2n//77/qc/ f/zlw+9vXv/8+avv//7rt7f//f+PNw+F/OX5L5/l75/l75rnp/KHYv1qP90+ X4v7rJ4/7ue4T6pPKn8M6ee4zkPxvHquSp+VfLpO2q+m63T7rOyS3n8nV9+7 rX/Vb93nVX12cdH5yfS8XT6p1unWP+5ftctZ/jy1V6eHo72m+c2VU//v/Ira kebbqg5W503V92m8VOftzkXj8dbqSwo/0PdS+9L4fdH/F8/yx+a91D/d+tjF e8qvtu1I9eDWzU5vNO+lcUvXp6j5hPphpQeKi2i9pviB7tN9nuIZ+t70/l37 nrVPF0d1eHIa72k/2fKHlF2u8s+r5B/LPru+4Fb0purTPRftH1O4vcMV0/XV /iKtf7VeT/vWLbtQXDetL1RvKp6kdlTr4Fl+lcaTW/Lje4/9Xfr5rTqb4n9c P3mRT/tf2g+qfRDFgS4f1en52N/R/NbxDGqenNoxtU9qx2+g36b4K+oPLv+Q 3ietvy5vc/Z7t/iZKk7dvKHyZtM8k/ZP6v+pdbbj1/XPSp5a56y8RPe/pTda 37fyyRHXqXG0pR+1vrj91FV+m8InLg5J3X+l6r4aR6l7BOo/Km7f0k+qf6/W d/mfs89L7/en53X938UnU17C1c92HKXnoNz9d/7s8hKqX1H/V+db3DxP81t6 Xqi7d+viiPJR1Tpn40zKn6TzcAr/XLWf6T5Vu6Tq/nT+mdbl7r00Tq/CM1Rv 6j6n9/tnnbfbj9ofbeerDs+oeu7iLjW3T79HoHng/ln+1bP8XShfqfPhdJ0U rpvup/NbOsdCeXgVj6n3/uocrIsDVftO41HFw9N4SeMf972perG9Do3TFD+g 8lRVvFf2qvRQPe/yJym8mp4PV5+n8x7uuVL1hcYRxRXb8x5T/avxcitzyyl5 av/b+/m/vHeKx9T9b/Fmah/kxinVJ81LKj/Q8XJunt+ex9veTyr/uH6i+vlV 8ft0kD818rPzeTpPUlxB8Qydq0nfY27dy1fPqzzJdB3K/7wV9zPVWxUXLp6n OP+h0cPRH7b71pSczr1s30tO+yOXp93qE9PnpXxLisc++7zuPl2/PdavKs+k 9p+a+1L1VsndOVU1v7n8v4o3pnZJ83jVebfnu872h85eqTyzhVfTPHNqDsTF Cal5sNT8DK37rh+q9qXPp/qgNA5MfRc59XP1ver9tbq+28e5+J/26am4cOva Vd9rVOtvnzeVT1L6of3CWXVZzZ90/sHtg2jeU/NDut88nsvl81O83PRcbr8w zQOpOajjfjre7CycOb33nNrlXrTjVH7UG41397yPxfope9E87PpD9fx9o3+q N3qu1DyJWzfd+THX36Z1jd7HqfX6qZCfPdeh4t4un9A+Qr1vpfv/2OUpO9L1 KW9T+X+X96bx1eWxDle7cZ2eJ3Hjd3p/veWfLu9R4clpn1Lh8M6O1XuP8o4f Pj6vzu1X56V6ntajCmfSfrDCORQnpOaoKd5Lybs+pesfz9pnJa/ypLoOxY1V 3KXs4uaBF/lV90TTOlXFdYXTpvfa6T6I9vspnryTV/i882fXvnSdbo7I5TO3 eeOpHlT+h66fOm+Kz6S/r+Lej0zllM+c3mOqee94rtR3Utv911T/nX9S3izV p1A/dPmiNE7bjnfaL0+fP6sOurg3FY/U37r4ncZXyq+657v7lCkedvk0iv+3 583o+t29SfX8Fo6qzlXxV2q+3ZZfxWtR3u9W+Nj0+jQ/p/JAh7dVnNPdF9yK H3brb/OutF4ccX6Xr6Z1p3pe/Q5I5SfVe+pKD7ReUD4qzUMe6xTdf7U+rfsq Tq72v8VXdH6etovbR6f6hYoPpLzf1J+7vj51fzHts475+aw+KN1PbfWnqf7a 5d8q/n/rd3W2+2WV95jer3X6cfsF+l1qKj9P81X6O9NpXu3kVM+qfmjfNOVd U30o1U+qz03l8xQO2Yq7Lp+n5gPdfKvybyk/oetTv6rybYXHaH+0NQ+Wkl/F h3R9Cs17ND9s3fuo/Mat8GCVXW6Vl6M42fWTjs/ZngvtzqXqR62nbt7bjqNu P9RP6DpdnXX7Qer/9O+hqP2g6m/dPYuKG9V7MWqv1P0p/R2Dzr5T/0nxnC6v OJW7+6zyTMX/d79nst3Pbn0P1c0P0/pC/fDW5zBVO6p5Se1rUvlZ7b+melPr LD2Xug69n1LPm+LfUn6brvtUzyl+e+vv2VG/cuNR5ZmpXTr/SfnVVD9n43+1 T0nrZzuuK/+p4pH2BdvzuhTP0zyznZdoXKT4ZDfvpXHp9H4hnU8o/6yu7+Io Wne2eWPq/1v8Z+pcV/Oirt6m/JXKg6lxl+LNtuyY9odpnVX5kBT/k8bzXf6k dYriDYoHaP/YzeOl+wvXT6bndXk5tb53vzdO9UbzlcubVfJu7jHFa90aP5by z6tw7Pa9Rur7QVXPLk5Oxd1ZPBJdP32vqvZrW/ZVcZrKF015KtofpfAM9X+3 j0v5fzpOKd6e9hFUvo3P1XxI8zOda9qaO0rjHLVeqzghxadt3xdM7T6NO9pn XfX3aqneaN1M5VvKX01/H4byKul4T+UHN4+dnW+36sg2n0/5jTTvp+afzi5V XlLxSXod2k+l5ytonbo13pv6g8uXXoUTaH+k9k1qP5vmSVScc1Udn/bjKi6a /p52Ol9t13dax7fr8rFedO9V/07WFIdQPWzjZxp31E+2eG91DrCS/wPSmbmv "]], {}, {{ Point3DBox[{1, 2, 1}], Text3DBox[ FormBox[ RowBox[{"(", TemplateBox[{"1", "2", "1"}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {1, 2, 1}, {-1, 1}]}, { Point3DBox[{-2, 0, -1}], Text3DBox[ FormBox[ RowBox[{"(", TemplateBox[{ RowBox[{"-", "2"}], "0", RowBox[{"-", "1"}]}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {-2, 0, -1}, {-1, 1}]}, { Point3DBox[{-3, 2, 3}], Text3DBox[ FormBox[ RowBox[{"(", TemplateBox[{ RowBox[{"-", "3"}], "2", "3"}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {-3, 2, 3}, {-1, 1}]}, {{ Point3DBox[{1, 2, 1}], Text3DBox[ FormBox[ RowBox[{"(", TemplateBox[{"1", "2", "1"}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {1, 2, 1}, {-1, 1}]}, { Point3DBox[{-2, 0, -1}], Text3DBox[ FormBox[ RowBox[{"(", TemplateBox[{ RowBox[{"-", "2"}], "0", RowBox[{"-", "1"}]}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {-2, 0, -1}, {-1, 1}]}, { Point3DBox[{-3, 2, 3}], Text3DBox[ FormBox[ RowBox[{"(", TemplateBox[{ RowBox[{"-", "3"}], "2", "3"}, "Row", DisplayFunction -> ( RowBox[{#, ",", #2, ",", #3}]& ), InterpretationFunction -> (RowBox[{ StyleBox["Row", FontFamily -> "Bitstream Vera Sans", FontSize -> -1 + Inherited], "[", RowBox[{ RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", "\",\""}], "]"}]& )], ")"}], TraditionalForm], {-3, 2, 3}, {-1, 1}]}}}}, {Axes -> True, AxesLabel -> { FormBox["x", TraditionalForm], FormBox["y", TraditionalForm], FormBox["z", TraditionalForm]}, BoxRatios -> {1, 1, 1}, ImageSize -> {300., {300.}}, Lighting -> "Neutral", PlotRange -> {{-3.8764399579851245`, 1.2097732913184578`}, {-1.2097732913184578`, 3.8764399579851245`}, {-1.543106624651791, 3.543106624651791}}, PlotRangePadding -> Scaled[0.01], Ticks -> True}], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], pod3$$ = XMLElement[ "pod", {"title" -> "Equation forms", "scanner" -> "Geometry", "id" -> "Equation", "position" -> "300", "error" -> "false", "numsubpods" -> "2"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"z == -2 - x/2 + (7 y)/4"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{"z", "==", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["x", "2"]}]}], "+", FractionBox[ RowBox[{"7", " ", "y"}], "4"], "-", "2"}]}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"8 + 2 x - 7 y + 4 z == 0"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"2", " ", "x"}], "-", RowBox[{"7", " ", "y"}], "+", RowBox[{"4", " ", "z"}], "+", "8"}], "==", "0"}], TraditionalForm]], "Output"]}], XMLElement[ "dataformats", {}, { "computabledata,formatteddata,formuladata"}]}]}], pod4$$ = XMLElement[ "pod", {"title" -> "Normal vector", "scanner" -> "Geometry", "id" -> "Properties", "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ RowBox[{"\[LeftAngleBracket]", RowBox[{ RowBox[{"-", "4"}], ",", "14", ",", RowBox[{"-", "8"}]}], "\[RightAngleBracket]"}], TraditionalForm]], "Output"]}], XMLElement["dataformats", {}, {}]}]}], aux1$$ = { True, False, {False}}, aux2$$ = {True, False, {False}}, aux3$$ = { True, False, {False, False}}, aux4$$ = {True, False, {False}}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "4", "datatypes" -> "Geometry", "timedout" -> "", "timing" -> "3.607", "parsetiming" -> "2.717", "parsetimedout" -> "false", "recalculate" -> "", "version" -> "1.1"}, Typeset`sessioninfo$$ = { "TimeZone" -> -6., "Date" -> {2010, 11, 11, 1, 19, 15.743268`8.949669836819583}, "Line" -> 39, "SessionID" -> 22927286929043208081}, Typeset`showpods$$ = {1, 2, 3, 4}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = { "VisualRepresentation", "Visual representation", 1, 1, "Content"}, Typeset`open$$ = False, Typeset`newq$$ = "plane through points (1,2,1), (-2,0,-1), (-3,2,3)"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{1, {pod1$$, pod2$$, pod3$$, pod4$$}, { aux1$$, aux2$$, aux3$$, aux4$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{290., {28., 18.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], WolframAlphaClient`Private`doAsyncUpdates[ Hold[{pod1$$, pod2$$, pod3$$, pod4$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`\ initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)

Out[10]=

Para insertar el resultado de entrada de forma libre en cualquier otra expresión, use presionando Ctrl+.

In[1]:=

X ArcSin[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "half of sqrt 3", WolframAlphaClient`Private`boxes$$ = RowBox[{ RowBox[{"Rational", "[", RowBox[{"1", ",", " ", "2"}], "]"}], "*", RowBox[{"Sqrt", "[", "3", "]"}]}], WolframAlphaClient`Private`allassumptions$$ = {{ "type" -> "ListOrTimes", "count" -> "2", "Values" -> {{ "name" -> "Times", "desc" -> "multiplication", "input" -> "ListOrTimes_Times"}, { "name" -> "List", "desc" -> "a list", "input" -> "ListOrTimes_List"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{193., {26., 31.}}], DynamicModuleValues:>{}], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]

Out[1]=

Haciendo clic en los marcadores de color naranja dentro de los cuadros, se pueden elegir tres formatos diferentes para entradas de forma libre insertadas. Todas resultan en el mismo cálculo.