(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     33164,        665]
NotebookOptionsPosition[     32843,        649]
NotebookOutlinePosition[     33187,        664]
CellTagsIndexPosition[     33144,        661]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"wsp", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2171"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1627"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "1763"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "1809"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "1831"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "1845"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "1854"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "1861"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "1865"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "1869"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sps", "=", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "2258"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2057"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "2108"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"4", ",", "2124"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"5", ",", "2133"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"6", ",", "2138"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"7", ",", "2141"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"8", ",", "2144"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"9", ",", "2145"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"10", ",", "2147"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"WSP", "=", 
   RowBox[{"Plot", "[", " ", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{
       RowBox[{"Interpolation", "[", 
        RowBox[{"wsp", ",", 
         RowBox[{"InterpolationOrder", "\[Rule]", "3"}]}], "]"}], "[", "x", 
       "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
     RowBox[{"FillingStyle", "\[Rule]", 
      RowBox[{"Opacity", "[", 
       RowBox[{"0.4", ",", "Blue"}], "]"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1000"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Q [ks]\>\"", ",", "\"\<MC [K\[CHacek]]\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Plazmov\[EAcute] st\[RHacek]\[IAcute]k\[AAcute]n\[IAcute]\>\"", 
        ",", "Blue"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"PerformanceGoal", "\[RuleDelayed]", "\"\<Quality\>\""}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SPS", "=", 
   RowBox[{"Plot", "[", " ", 
    RowBox[{
     RowBox[{"Evaluate", "@", 
      RowBox[{
       RowBox[{"Interpolation", "[", 
        RowBox[{"sps", ",", 
         RowBox[{"InterpolationOrder", "\[Rule]", "3"}]}], "]"}], "[", "x", 
       "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1", ",", "5"}], "}"}], ",", 
     RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
     RowBox[{"FillingStyle", "\[Rule]", 
      RowBox[{"Opacity", "[", 
       RowBox[{"0.2", ",", "Purple"}], "]"}]}], ",", 
     RowBox[{"AxesOrigin", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1000"}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Q [ks]\>\"", ",", "\"\<MC [K\[CHacek]]\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Purple", ",", "Dashed", ",", "Thick"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<SPS\>\"", ",", "Purple"}], "}"}]}], ",", 
     RowBox[{"PerformanceGoal", "\[RuleDelayed]", "\"\<Quality\>\""}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"WSP", ",", "SPS", ",", 
   RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7334815102608356`*^9, 3.7334816015998535`*^9}, {
   3.733481716325671*^9, 3.7334818429175024`*^9}, {3.733481884172322*^9, 
   3.733481960631651*^9}, {3.7334820284267845`*^9, 3.733482072398369*^9}, {
   3.7334821371680055`*^9, 3.733482139121307*^9}, {3.733482381919042*^9, 
   3.733482490837801*^9}, {3.7334825227467537`*^9, 3.7334826196713314`*^9}, {
   3.7334827308214245`*^9, 3.733482740400212*^9}, {3.7334829287259665`*^9, 
   3.733482974552059*^9}, {3.733483018186571*^9, 3.7334830183295884`*^9}, 
   3.733483066645875*^9, {3.7334831268693542`*^9, 3.7334831541834373`*^9}, {
   3.733483237364544*^9, 3.7334833323871984`*^9}, {3.7334834773775296`*^9, 
   3.7334834813275523`*^9}, {3.7334924112514753`*^9, 3.73349247781042*^9}, {
   3.7334925685624676`*^9, 3.733492689314689*^9}, {3.7334927516689887`*^9, 
   3.7334928753154297`*^9}, {3.7334929127160435`*^9, 
   3.7334929141847906`*^9}, {3.7334929703376737`*^9, 
   3.7334929814318314`*^9}, {3.733493065368292*^9, 3.733493152184622*^9}, {
   3.7334931883095236`*^9, 3.7334933714812593`*^9}, {3.733493459679469*^9, 
   3.7334934996353397`*^9}, {3.733493543309496*^9, 3.733493815966606*^9}, {
   3.73349384882537*^9, 3.7334938980101657`*^9}, {3.733493987316117*^9, 
   3.733494041511342*^9}, {3.73349407841127*^9, 3.733494083695241*^9}, {
   3.7334941241522427`*^9, 3.733494276112375*^9}, {3.733494377470875*^9, 
   3.733494387569817*^9}, {3.733494502547406*^9, 3.7334945068989577`*^9}, {
   3.7334945819725924`*^9, 3.7334946151858606`*^9}, {3.733494692272399*^9, 
   3.733494904354797*^9}, {3.7334949363533626`*^9, 3.7334950514505672`*^9}, {
   3.733495092531781*^9, 3.733495323386156*^9}, {3.733495402947055*^9, 
   3.733495545214032*^9}, {3.733503393321948*^9, 3.7335035298212156`*^9}, {
   3.7335038392120457`*^9, 3.733503849195292*^9}, {3.733503902324473*^9, 
   3.733504110965969*^9}, {3.7335041973224077`*^9, 3.733504257001596*^9}, {
   3.733504302193012*^9, 3.7335043307544947`*^9}, {3.7335044272706776`*^9, 
   3.7335045403965464`*^9}, {3.7335045714890614`*^9, 3.733504653403901*^9}, {
   3.733504921822414*^9, 3.733504966200818*^9}, {3.7335050224192123`*^9, 
   3.733505037996416*^9}, {3.7335051123729763`*^9, 3.733505207724547*^9}, {
   3.73350534110122*^9, 3.733505386856806*^9}, {3.733745352923997*^9, 
   3.7337454165702467`*^9}, {3.7337454685422955`*^9, 3.733745512753036*^9}, {
   3.7337455640927725`*^9, 3.733745587176648*^9}, {3.73374566113826*^9, 
   3.7337457874801517`*^9}, {3.733745821506167*^9, 3.7337458768697443`*^9}, {
   3.7337459209532804`*^9, 3.7337460405433645`*^9}, {3.733746185282336*^9, 
   3.733746235414092*^9}, {3.7337464780230255`*^9, 3.733746503149587*^9}, 
   3.7337465499966173`*^9, {3.73374668701096*^9, 3.733746727069642*^9}, {
   3.7354623915512342`*^9, 3.7354623916918592`*^9}, {3.735462423539796*^9, 
   3.7354624264640317`*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      GraphicsComplexBox[CompressedData["
1:eJw9WHk81Ov3/4ylGWSdIiUxlmQpKUp1fU6upWuLrCl7ZCmy3LQKRbYsJXzm
M5gk2UrWFJUWRIgre9HlJkkaJTvze/rj+5t/5nVez3nOnPM87/f7PGfk3QMO
efJgGKZNwbDf3//UfVmLYRy8JvHNT+4vNsRqnr+esX8Kv5mpAWWmbFBXm16r
l/UDf7g26583Ztkwgid/fT3yE5/hszvctCcLTFP3LnAYv/DtMpWfGOaZwA5u
E1W+OIPLyScnWp9gAe3klVCom8UjNX14Rx6S4DQlP3pcdh4vm3STSZIg4Vhl
2zX10wu4ZLiaMu81JoTdyLraXbWIjx3prruiwoSoJduYaxLLeNjxnCbhdwRk
X9Ic2GK/gq90qCVlMAnw019/3OMmF79teWSiLYQA8de/lmxCMfh519nqX2cC
ZhcDvvuuo0D/9Y5XtY4EWP9y8qQ2UoAy5GKk70VATGJnaFAQD8Ttkbw3f4mA
xgrHHZYSvDCwtspg920CLrBtgyqe8cKq+NK/lzsJ2Cvt7hjvxgelCiV72gSY
cMp+uH5MjB8+LHX2OZqi/LXHW9c84YfIYV1FnRQmpLF5L5U7rQJBkYJfRV1M
UOxILu8VogJWbw7V8iTUJm5LOXWfCoe7RRravEnQmLAV6jGnAaNyNu9zOglr
RDm0Vws00PTZEZz8gAT+Z2SJAksA6IKP8NB6Ek7srOkTMBWEDHu+hrk+Eor/
cmc/nRGEKf/Mt2snSJj5ul5sNE0IvvZotFouklBlbcybarAacO5wuaogC8IP
RGVXjK6GNuPJV0xJFjA+mPTejhKGzOYe9XR5FuzddSVVWksE/s19PWiuzgIn
2bfzlE4RaJMK9zHXZsFM87XhUxGi8GqmeUlWjwVmPNv2bJEQg1bWLi1tIxYI
fne0oriLwSez1wXJB1lw+SkUsqrFILq6bKP0YRZE2JTYBwqIQ5NVnniwGwv2
tPYYCbiJw9i6FwpTPiwYWmtwhfZQHESfKr2pC2SBgJKu5H6qBFza3u/APMOC
ScmxL/ucJeCm8waV9EsscHi7SSKoRAIeHvdfVxvFghJ7MkaEKwGyVZfVA+JZ
8PxFO/jb0sFzrsfWJAX5TyeaU/Po0OA+PXMujQUtSVELXC4dfnCLuFySBffP
aNm0sDn4d++jv/Kz2KC1rXOrTcAc/qbvoY+3Gwmu1nO6Js3zOMNjQ5pdCxMC
c6viIiQXcX87K6Ff9kzgObBALTu2hH9u+PhZe5EACb2XpQMVy/jf6vr1PRUE
8Lsp3TKaWcEVVk41XIoi4HbIfgdeeQwiYjZNnDlOAN+w1sxQIwYmI97iHITf
O3Neqo8CKHA00zTkKsL35POMyVoZHtCGtIigQALy5dNt3V7wgB0Xq7NNJiBH
tfcQjw8vXKy9v9HhMQGcba45ik5U4AzLP3I0JCHkiX6bwgoVGBvuzu6IJ4G9
zIgzz6XBjab+w7G5JEjoC+bydtIh4E3XGiOCBXUyItpelhx860Tzt4YmNmxs
U7NulprDq891ld9D+50ZwmKHQ+Zxbrvm9euTTBgv1l9t37CAb28U9q0PZELd
yRbjV8JL+Bpx4+o14kwwy1ydWeGxjE911rxvf0nAIY6qXnXeCu5eHfrXhSQC
em+2CVV+5eICifP+MScJELRNPcvMxuB0OPPnyaMEWJz7ulrCgAJ8SSNGcshm
H1ncMjxFgQRBvS9+fgSsc6gc9WHywAnR/QudVwmoCJD+s+APXmCeP/gq+D4B
ceFzhWE7qeBqvE47YQcJ65QfbTPppkIF788G0XMkjIbUmkicpYGwzryiWRYJ
2mTLmahaOtx0CX8xnM6COVJVoNhrEQ8pLZZLwJlgwFB5nV2zhMuZqDR8HEX5
D55t4Fm1gssuO7rJ3CWgumMTX5chFz93jY5nXiDAMYtUVTfDYHBfLg/hTsCK
f0eQEgcDjRGRYjd030unh41dSQpc1HUsHHdD+qOiU55uzANK77FuizME2A01
Es1RVBgs356z0Z6EdpuWE8tKNMheY9E+lELC9zHjtxFf6AC+3uvvMFnQNHle
aYcKB8f6jg09G2LD9Y0OnvwTs7h7dvNQ7C0SBmOlzrv+NY9Hxi5bOmAkbC6l
te7PWsD7hwf+0LnEhOzwyuPmw4u49siUDFOGCWNmpRLye5fxmV6P0w1vCJh7
eG/1VNgKPtYTLzWaSgDjRIhuQh0Xj/hs5MCH8JkoYlgTGo+BZKrsjRgntF6j
Eaa3lQIe3QZp5kcIOJdf3BjyngJGurH8Nd4EWAYbbPOP5gHNvu7ojssE6Ens
qVnazAsGvQWBdfkE9OQblKjJUaE1dXN0jioJvo4hrk4vqFC0fPNyUCAJcZoC
RSEeNDA+cKBPliShoVHDw6iUDvEB+f7b0P3tZHOa0vQWcb0csVWpSL8VtMXH
VJKXcKHIBqKfQ8DfibL7Aj4s43zf5p/+c48AZyLnH2FZLj7n9CT7azgBYbH+
z9N1MMgjD5wbOUZAhEpkBc97DPyzVh+MR/fX/lDxUUIUBRbEfWjrXQlY8/dn
S1UtHrhVM3S8AfWr29Q1WaGBVJi/XsyrZ0ECI/ZqppgEDQTOvOB7m0hC+NqC
R/qDdNiz+5TsDOJfsUp+wKW2FbycI3LCMY6A1y5rvvsLYdCtYGHg6EvAVXJk
15NyDHxFF8uSf5+nbgH56TAFNFvsh3eg824UMUk4SOUBR2crQRt/Ahqmlld0
xqmwn8+g+04kCTrlr2/UuWHwylSYyED5nquU236AjwKD1hneQageFR12945S
ChxWaPKc80DnUTv6X900Hbh9ZiLWSC/besoypddw8PuSB7jd42wwN/SfZHTP
4t8X8Zd5xSRkPWFp/rdjHj/7OD7aU4AEo3I/jV1xC7j5JFtBPJoJIoKFsykt
i7jd9JeHkQwmVOVeNu9RXsYZzIT3Q28JaNnwPVjYbwU/bcXSqkonwMjeuH22
kItLjWk/HQpCePHbeNQrAgNGvg9DA+ljwkBblY0CBX56uQ4vofxHLaIkn3ZQ
YNGccz0U6esElmB96gIPDIoL7P0YQUCkh0mo8kZesKyI+jxzB/Gx1nc7jyQV
Gp1f+mgok3BjumPOq5oKY0lnveVPknA0cdvAHQcaYP66YVcIEkSdnXvziuhw
4F2OfRfqJ4dyrFUTVBfxqfZhh0dWTLj+lP/MyXNLeIh6IM/SLwIMRjmnlZqW
8RGNelfTUgK0lkd0VQW5+MTXxkl1hHcxbk9CqxoGpv5q9YrovaIf5Wg71YFB
21krqEL17Omtn8o5h/gS6fjtgAvC34a67ODNPIDtMe9aG0xA84Y9chbHqSB+
/kZjy18kmCp80l5Po8GGsBmXP6+R0FTUt/V2Lx0qNR/szUL4upTwpZt8vILX
Tu31Hk5A+tR18XEuhoHIt5QHn5GeHpir6S0qwOBMgV/5LMLXf4dN3i1aUEDi
aMyqHKS/OysZAxlLFPAtT5TrO0HA9/gj6fCRCt8YNXVHwkh4raLlMmOHwS3v
PmYS0rN9EvMdOgsYDKu5Nrujeq7b7Rc1yaPAFtvN01+QHuYdknKU/06Hf7X4
tJeQfrWUnlgfexODdeGR8T/R71UzEwxVdCkgrTD9/D7KZ4LOP+O2H4PoEz++
VSB81r0poK8ZxSDEM1spAMX3Sr8cfjqZAt6JE3kLCN8NekLpbU8wSG8w79+N
9otJ0zzeHqPAQfnGmi7El0x7tpfGNBVU/aw436JJqHY4kHxYhAL+AbX+ySje
WuWqANcFOhRunc4rQPi3NGvrWy3IwT8v6Oj5cNigeni+bPubWdz3cscvKCMh
zN5FSHnLPF5cRr6cESbBdmfmh+3hCzhtZyd+NZYJDRa5eMXzRfyK3rOEcCUm
ZLVP+JbJLOP3vEthuoOAqtakuxvcVvCuAH0pJQL1l5YHpAabi2+M8ul/h+77
ARFb7HQB6cHeAIMohP8Xfps6hzZSgJn56Wk/ylcmZ+qJewsFhO6tUx5AeHrc
WOIZGMoD1/EPzN96pphwyLZGihdSOm12peWi93TjxaBvYuh9oCnX9UOBhPzn
WL1fORX+2f3YaM6XBIMn+sF61jSoZhm7V2WQsLNgRqInH/WbznjNfIR/d4Wo
/mi5RTxUp/jYOxsmmPBidUkBS/jHpXsjN+cIUJNwTMWeLeN9K4rSouUov5Ir
J3djqD+OSKrYXCGg/1FCkLcyBjtopudbUL63yxvujLVgILzVw7QD1XPKW1Jk
698USPMv3DOK6q32Vzdex+CBXT8aI/SRHnxQMnfTdafCW80NfTeM0XuNQ+fZ
xEuDLZ+/115IIGFyJtCns4sONV4dmkEI/956cYKFD1Zwu70N6zUSkb7IecKl
GS5+aC7/diXCc4GyypbbuRhkZgmNayL8SY8zOdF/UcD4l7G8C7J9aUmRf8xS
oP1VU4sc8uc7HOdhOEAFw11fV7QvkJAyMmqQYoXBjVJlTALhOxM8GVt/YTCy
9NjHFdXTOJqi1sWmgHyUk7c3Wm/OLEm1mqBD2duvJe0I/xofe33DkzHocOjf
tA/h85vqB7fyHRSYaRHadAHht7Lt0cDSXgxGdRUH/0L9SG5h7TGhfzFwqe13
P4/ik5vfsSjxFDg/qOgTg/CvfDL0c301BqklaiPuaL9hgcMlRxc0HykbdESi
+GWKb7W0vlOhZVxDsfkKCdJXKz5aClDge4o6+9Jv/Qm0KEyeRfmlFLiHIfzb
m4Yxm1RQ/umn1BRQvGG7Sb6FbtTvfXZ+y0L+OnZVPmuFaXBv/T+hAqi/jTUd
jKm4j0HinzVmL5D/wEhCBM7FoEyC2+yN/F0y/3gp8xUDnX1HUr2Q7SmWbdTz
AoPFGbebEsg/Ji6QqTKP+v9ywy7xWBIcVN/j7nQK/Jd4oCMX+XP6N2prLtOh
aVx/4B3KL2XV+9BV/By8tWKN4M6fbJAe0Vv7qH4WP8DDxcQrSfDPrZtrUJjH
+V6Zr9YXI+H9dKX2tvML+LxF/FmDeCYwAm95GNYu4jNGef2UzUjPvW7NZ0st
47rWLq4Ymg8LlV2fM46u4JbhbBhE/My56hnxmsnFX5MBBlao33988Mym7ywG
2PPDrWUIr+/Ljd2UNlDga2Hgvjco3+o3d8Urmyhwgu1skIjwLl/0fHIqhAcO
6YeZByF+nmbbveJfywt7XaVGR9F8ut6MSvcQoYJjcnxcF4MELZV1apMPqBCT
TL8+4oP0ysbsWZwlDW5FJK87iPjZ0KavGXCXDkkJ4mkpiJ/jI5laVzYs4r18
IXzH7JiQp7Q8Iue7hHfbqct/midANl9EYfLRMo4PxLX/QPwUo9lexRdXcBOb
EN8viJ96Usc/VSpgYJijIMNA/fRd85L5sWYMKq736HxE9cQ90GMFB1Fg6+vy
w1WoXuuMYabvJh6AAUGpfvQeHC3sppS4UCHBYePBUCMSxu3UvG9hNDh4Q2WX
NOJnuMzTaL93dBhMm1M8ivjplO6oWFq0gpsP+DHeIX6KDkgrr5/i4uk0UX9Z
NB/0/+HcIZuDgcw+w2mL3/1I62VYixEFCPWLWjiy+bUMu5OmKTD668VEPepn
ic9uNTX2onn8ftQU4zyal+H5w0ELDO54Xvlmg/jXZk82F/zA4GqPbdpvfg5v
ffxofRbi+7yn6Ba0fvTlYumXcToMfdz9+THip/OsCH3pGprXpv0/uCH+0IL5
OXOaFNAT22x/DOF1vXqqhYkuBj9ELkqmIX5aiputvjqIgdrof8ORKH5VwJKq
cQwFrLzGai0RP+2u3EvaX4VB6x7+Q2fRftepcGH2UQqcFJXtd0Tx98WPZlRM
UKHT9E/h6sskmGSNx7SsQvwTsE45g+K1pDEbVWbo0Po+7LE3wn/QjTwVUWUK
FH0OihRF8ST8Fe/9/Q6D3kPTmwqRf11t69t0QRoslxhezEPvg3X/RmlqFmMQ
fM4w+j3yX734YkvNEgabnT/aeSL/5Ipgv4wxDGZd7x/3RXba5q7JQ3Wo36bE
4kq/40/FYEUzVCj2bc/lXiUhZr/E2AcxCjyfKNNgIv9IzPfQ60U66NyR/vPZ
7/xYycsn3qLzbyqyeInWu2OXSBY/DdjX3m/6iPBwYsu2c2WzGCQfH1T6PR9x
hodqkkYwcNJObAtB9lhA2O4uIQpk8NSnXkV2GV59NKwPg5720rupyC5sset7
SaHAO6ejyieRvTWauuHWNwwihYyKPJC9ouC4M2+RCswdvfmMODTPVnZIZazQ
IashKGAc5fe//8uw3x9I+v//C/5n/x/O7OBi
       "], {{{}, {
          RGBColor[0, 0, 1], 
          Opacity[0.4], 
          EdgeForm[None], 
          GraphicsGroupBox[
           PolygonBox[CompressedData["
1:eJwl0ne4z1UcwPF7JVwKRSoKF2UV2SsyUyRce2YkkRWhYWTvjJZZyt57pkgp
FUpFGe0yshNlRK/Pc/94Pe9zznOe3/f7+56T3KFnSo80CQkJiZRJTG3pxNRx
SeNSekYL6zr9gzzGI3QJh7jN/Al9iXfYSyZrNbQxvXiDTxJSH1RCHqA4xbif
+yhKkXgWhSjIvdxDAfKTj2TyxnuQm7u5i1xUpxE9eZ0dXCcnbXmRY/E73mN2
PFO/0oxaTUvqqXi2rtHf4veNh+gCvuMW8xTtwWt8zDXupA0v8DZfkmRvVW1I
d17lI/7jDm4nR3xDspONh2hAN6awnavcShXq8wyT+ZAr8U605nneYg8ZPLuy
vsx89pPV2uPalUls43KsM5zFHIx3sa+VruTn+H7m/XUWu0lv/qCu5tf4/uaD
dR77yGJeT5fxQ/xP8y56JM7OeKJu5VLs5XScufW1cSf09zhbHRZ3Rf+MO6CL
4q7ogfhW2lJL6Im4J7oi7pP+FOeh/bS4Ho17ozO1iO7SdFpJT8Y9M16lv8Q9
Mh6kx8lvPFe/JbPxY7qUw3Fu5k/rK3zAv7GHoSzk+zgze1rocn6MMzfvqzP4
ghvNK+pA5vANN1urq52ZwPv8E+s05zmm8zlp7a2gA3iXr7nJWh19ivFs4WKs
04w+TOMzbrC3vD5KJ8bxHhfIRFN6M5WdpLG/nD7Ck4xlM3+TkSY8y5t8SqL9
ZbU2HRnDJs6TRBkepgOj2chfZKA0tWjPKDZwLu5enF18u/j/8R/ivShFTdox
kvWc5X/VjYc5
            "]]]}, {}, {}}, {{}, {}, {
          RGBColor[0, 0, 1], 
          Thickness[Large], 
          Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJwl1Hecz3UcwPE7xI0SZUUyKyPOXRlRWSUj1IWSlTMqcock2kaFMrLLHmkY
DVsZFYpCU4mGWWmQmRE93w9/PO/1/Xzu8/h9v7/v5/P4lcnKycxOTEhIuN6f
6GGW8Tz3c2v8j1zkJg8XkZd8/MNyXqAzt3EDSRxhBcPIohHVSeYoKxlOF26n
Boke4hOdRB9ak8IxVjGCrjSmZjyX9Z/qZPrShlSO8z4v0o0m1IrvYP0mfYVH
uIeLOcEHvER3msa8tV/pbJ7kxvj+5jbrq/TjXi7hJKsZyQM0i3lrv9Y5PEXt
eHfmPtMpPEox4590EW25zPh7fYPB5Odf1jCKBylizS5dwB2xxvgbnUs517/r
05RwvVvf5RrXf2qd2DvXn2slnapl9FdN0/56hf6sVfRtvVr/0HS9Ty/XHXqd
vqnl9aBW0yF6le7TqrpEK+jfeimnWMtoSps/oA9R1PWPupDmsdb4W32NZ7jS
eI++x01x9oy36DQeo7jxL/oO7Shk/IO+xVAKcJp1jKEHLWLeuu06j2e5mSRz
W3U6A2hPQc7wIS/Tk5bcEnvGWT5iLA9zJ3XjXcWzUDj2Lb5n7Dn/8THj6MVd
1CPZvbfpDAbSIfaDc6xnPNlkxjNZ+52+ziBKGu/VxVzr+i/N0Pqaol9oZZ2p
ZfU3fZyO8f44zwYmkMPdNIhzFO8/Pj/2llKxd3Fu4nPizMUZiHMS5yzuHXtO
xThjcc84K3Ge4kyQFmeFdOJHZ6NMpDetaEiq+S91Fk/QKd6huZ06n+fiOYz3
69K4l+tDCRd+xzL0f1zIhso=
           "]]}}}], 
      GraphicsComplexBox[CompressedData["
1:eJw9WHk4lG/Ufoc0U8qMGSqkLJGlEEUo7yFUfikJSdlTdoVSKlJUSqVCZX1R
9rJEKRQtSGjRQlGihKwl22C+M991fZ9/XOd6n+d97nPOfd/PmVfWxc/STYAg
CCsaQfD/v6vsESeIIVLEKJjLS0+FSI1jV28YDpM6h8Of/9qbCitUR8QNkv+Q
dofaVxUsT4VOMvp3bedf0mTR4efjIxT8F6M/OST3j1RKzimivaSACmhkKp4Y
Jb3l1BQPplDA8AkPgsoxMkbnF08yhAL7Ydmu/UsmSD3CrynOkYK9JY0XVxye
JENFb+iOm1IQci357Mf7XFL7orbW0dUURExZn7vIniZ3mfU/HV1GQUqoxhfl
nTNk0kopgUBJCryMJPe7xvLItGSZFXEcCkRr/01ZBREQ4ZH5IJdJwRjXb9Bz
EQ20cu4tmIvxjn/2bvQaGjSltSVsF6Xg3KWmIH9/AXDzdDiydgEFNcV2WhZs
QVA3D7f8tpiC45S1f/ETQehvz13OUKRAX8LF7oLzLEi7ReRJaVBwYGfHi26W
EHjkV1farUP8a3obxCqE4KtGYbvzZgriKMHQe/azQdOOdUzWhoJlb6PvNQvT
wVvmbpHJXgrKL6lfOXCXDuUTOcNHDlKwss9a+JM5A1RZrzctC6ZAjDnEeD7J
gL8NPzMvYv2EniTkyyfOAa2qvoANpyjwXl3WMue/udBxfF3OtwgK8ja7UI9H
58LQEXKcEUnB6G9JVlecMKzYFPs89wIF93dsFIwxnge/zewc116i4OSmiJTi
rnlgZu76yCaaArk2s+b0iPmQG/m2WvMq5qsTHiOhKQL3wg98J2Kwf0teT9Ca
RMDs8esN4bH4/rqLHQfCmDBwPewJcZ2CLQLqespsFjQe8t3vfYOCuYN222ku
LPh9RfWTfjwFpx9DTmIpC+YNWvZLJlIQZpW/8+AcURiW8rz3PIkCvYZPpnOc
RaH3aULJMeTPN3HjcMYDUXi2sntMLJWCOQq6CwzpbHDLrlpyMo2CgQXdPesc
2PBWKilwNJ0C29dL2f75bBi2qQ0xuk1B/s6EcyI8NrTN++15JIOCqqdvwNea
A93//s0vzcT1I5fM6RkcsG+JPt2URUH95YhJHo8DHM0BHi+bgrtHNK3qqSHy
cxE7N/10KmiqN6lZ+Y2TyoO1MfK+FDjtGNc1q5sgNeRnl6RbUnDw1v3zYQu4
ZIYba6vWegoENk3Si/ZOkS+Sd/cqrKCAbfCs8EvxNOmbWHSRXIr9dFZINR2d
Ic2+Z0QlIv/SAw1tBWUJ0NHZ7a+B/JzVoTn6rYaA5aVyOgLI39vj+1Qe+tGA
taYn9g3GA1U3BsoXC4BGYtfsw8j/LNnr1s5PBWDkgaCehQQFaSrNlgIegpB2
6KfhWlkKhtSd0pbZ00H7/WP9H54UBFYYNcrP0CGrKkT1cxDqd1ruvPktBng/
Mu/dfxz18OtQ7vd3TOBoeTzJwP7mjj83EddjgakAVWNzE/MxmntLsIkD7pds
672wXpWLRdbssxgi94/X6yRdSwXpRtUddQvHyfWrI9YPH6LAQW4+a1fgBPnh
i3TaX1sKevOM5u2sniRfPSpr/WuI+33qNz6fP0U2JL6xUUF9bUmal1TsOk1u
cG+SmUb8lkMqBqUZM6ST0J94n0UUNMc2Cpf85pFfsyxDTdnIN+uYo/EpBAyJ
Oq0DrM/W4N/z2MY0WH/Acps1xtRurnLHMA0yL5F7t+H6RbYlXR7xAqCSEtVR
vJCCYj+JDdnrBWGHhYju1BIKzp8czwlZTQeeyYXk2P24XvGhutlHOiT18Jzz
AinoCiw3Yx9lQO8n81+bj2F+LbSNyjlMiFLTvWaF9To+PUEuVWTBqVesDR2o
hzUJ9Uciyjlg4FqwQgbrNZ6gMidvH5e0i4gOKFlLgbGcUm1K2RRJ1hie8VTC
/L4erRaYPUM6UpM/ytGPSt8unfXBhEcmk9ef8cQosEtOUFmxhYAZVaXbliwK
Znzf+isMEbC2pjdySISCqcMdG50SaJBYpB4SjM/1lbTvXd8oAIMOyqrPcb/N
t5qbdRF0+GKgvFcD+fzGqt57WoEB89wrqkWOUqAx2sOM5zJB7Xav0xjmM9i9
8XVYDwf01xTvu4/4Xw4cU9BSGiIrD047VSWkwlVpWzehvjEyTetS+CTu/xq5
8JjT5gmSFnu2XG8PBcsLGQ2GyZOkks+zUB9j9POTJfvNO7jkmESU0yZNCrq3
FLJl9afJJZql9v7yWJ8Hd+YNh8yQXws02J7IZznvQN2oSh7pUlgh/Av7d0nE
pCzoAgFFq110D2B/5cpWhhio0WDmXGi8MsbBWXk1ga00eGyvv+0V6skiwFjd
94wAKGzc8fgP6s2ArVc2tVwQ3HxWv+qRpuBTlnG+qgwdHPqZlf1uFHjaBTrZ
P6VDM8vBnBOAfNCYkxvoyoDcWxnzS9GfVd7ViDXEMiH4p1S7CtbnR6jY+mWL
sd/JFiczsd/VNStdTQs5UKdzdWIC/WU1NfQyzoBLFjj+lurTo0B+jWi3UvQU
OZRTvpJUoeDQpSXr/NqmyQ/nLAdGEY/DzbR385fwSKPawoIacbxfIn2rrmsT
kGVad/MR9jNM6VSxQCsBnbv3/fqL/X7zYNnDqAgaLKUl1C/F52KHflmoaApA
gbSjwSLsdzpdLDnoIB0eKw4WnPfGekWeTWKxGVCbXBoRdgT5MpDftv4XEwLV
isjXmM9J8eyHRl858MC4X/cK9jtPKcsvtHGG7PvcezQE9VLrKDboK0yAi2Gb
XTHW92xCp07FPQJSfdsTpfj1181O+LmLBmo70+kXMa4RMYvaRheAKfqH/Dbs
X/Xw9Ix2L96H6/rmGR+m4Gq7/tGIx0xYdC2w9QSer32v9lqlMwHh6f7u4/z3
lcis2jSLBuf2D06OYb5K2tRHrUIaPIMlJ9ox36IZUVkunQURXkPV6lh/h/Ku
H5UjHIAyzR1fEH/jp6IkCbEhMtu6xb4tJRXMTXwH5D6OkY/+e9dMR79LrkjU
+KE1QfYmFyt02VNges9rpc75SZIrTj0oMKFAZG7O2JV6Lrlu84iPgxbep7dO
m39SnCY7r/GyNHE+qZcaDJjvNUOyNXps+5Gvpjs3vhnL4ZHq9ILqdejPFl7S
e/aFEZDvKnMmCvOJ+tJ430oe+bqc2rYI466tEQsev6VBgUOG4kWsZx8RtePA
cQFYq+CcFIN8PeVqFqQoLQgWFT4XXZEfM+WeqwQW0GFn3GC5BPL12sjb8X2l
dEhwX2dq6k/BnkvqX27bMoA9/NPdF/ka3ZjDTb7AhA2ipW3iWN9FValligtZ
8DUxeyYS68V0cGjOyOVApvFodRfy1TJth0qUCpeUvhqdOh/nm6uPhY74BE+R
BkE3TDVU0a+6hg4rvJwmC7zH3W+iX2pOd+qqzOWR9yuyQzQQL4v3KapBlYCx
J++r/2J/jCLsrIffEtC9v/LuBPZPr/nFcFowDb6unP9kFPMPk6pMCVguAEst
N/a8wHrVSenJbN1Ph/yIzVEPvHDelP+5RpLBgLz75Rv0kK8uv68+Z7YxwTYg
W7gM83mZ26KW3syB6THjCyHY79Cono8Jj2ZIxotG5xHkq92HE49uEQTou7Wk
cbG+m8bLmnOzkV8TqqdX4Pk/dpm9526lwZbizjt+GK8ukftyY4oG0od6TGKR
r4MXdl+HdjqsZ3zadwTvs/HWJU47i5ng6tVi7IHn1yppOo7aEPBg4vI7ecx3
HXvirfYkAb8lWnr/YL5XbQyZZhk0yNj6fkEePv95/LTYDwEW5Hs2WYli/TMs
F9rJDnKgRX3kRy3iry/0loyMRT+vG6m3QTyl8VEmSro0kMqjhtdj3McRGnU2
JODdqbKf4fi+ylfZHLEuAl6EJbby/T/uT/2o1zAT9tWO7u5EfNUGwtcbKwj4
6yAUMR/3syQYrq/30qBBp93mDsZJO6l9K0fooDPdu42J88Ct9Y61570JGG7f
5syfN0ptN0XvEqFBWVJJCQ/fL654389pkgOtp04W9iNeiy2NLfPmDpGUsFlz
f2oqqOyaKFr1aowU+pxRyDqB/rXTUVhReYIcM8luqnCgwHp1Utuqk5OkoBJ7
cAfO/9Vbb5HFVVxSfQPo/kZ9Jb/p8yxaPE0ePtmsH4P6ut9wOVPKeYb0XjAA
Gjj/N9cXJKykeOSKM5WCHsiXgpuRefbHCYg3E3yagHifei1t+iZNAyo4+g0L
48VpwxUu9TQgtmrO98P+P6rJdzsYJAD7R6X+24d8XRZlaV22UBDMNYzVZVFf
ojUn/PtZdNgd5FGaj/N6VhXxwuseHQ4677n9Ded14wqjAIMdDLj5y9x9M+rr
2ZbFg2fPMOG44xJLYax3kXP3ZKYYC7w3PVlzDPu7OnuU/SmLAxW19svbUF8u
8hGfz8hwyd0Zd/+koL7MBInKy35TpJLeszM5qC9Vtl0M8WSapH16KdSH+lqc
H+6zluCRUlUu0ny8nx9G+bsrEmAZdCBPFPNJv1d9u7uegN2zI+OnsT8H3BeI
qB2iwcIfV807+f3zXbFxkZwALOr1yE7CerUpmDvrutBBeqNOjznqy2mII7BU
kAETrFXBC1BfMR6zSsc/MUEy+Hp3AeYzMHrQo+kDByK2N688hP12Nzg/N6dg
hmy48veaBs5jpjJuEDrKI6Mc1JJlUC/ZikrK6bfwfvKXFdLG8yV644fObKaB
7erPS1ww9mRcPrV+jAaTsvcF/XH9rF3nXU2+0CHPZ8aPjfpS3R29A/KZ0Kqw
fdABz7/S2WV8ZTsBb4oCG/WQ70ngJqf2jwDmgTV7hzHfmq4rqh8o5PMG/6Gr
/HlIf90lW4IFWQKbOAJY/7qk/JjtfRxY7vUh8wniX9ne7HkymoC53e7LXRFP
v0qb8z0tGtiNdOzVwrik8eGXKX0CYv25Fin4PplJ8b3C3wmo6Lk/l6/nlwcM
eq36mGD58oVFC+JT9An69aKUgEhbbx0x3G+SbRtq50iD5lX9bxIxLlr2WlNz
kA4N9zhl2Xjf+Yxz7irsJ2DrSMs4vz8SZ4vbLebQoHi28Wku3x8Pbs2JHuPA
2zyb8B+Id+d/IfEvlWigfGnFNRlc32EzMGvyI/rXZ92AUVyvbXPfQ3w+A+48
1Ptjj/3rfrntXPFdAs6kD5XI4/ovnVFhJI+AsKem0v9wvWPS+meLf+P8JHtu
D98vXAN3C54eZYL6jR3O/ZiPGyvF9NNTAuJCF0fQcf+58wfjlSbocP7sr7pA
9AdblVbShUMDK5WSK7Pw+dBn6TUa0xxosCz6PIp4r8xuDZotNER2WlYVj6al
gkSngfjDF2MkKS6SE4t+4HurcrxafoJsXbZRWcWRgtaRkjXqxybJjLc9w7fR
D+QOprqalHPJU9/tWJqr0T/3pU6kLJwm9U3eOb1AP8hRdKqS2zNDfpyxmW2J
fpB21i2sNp5HZiYfCw5FfrcXPLFqOUpAr1HM7XTE13pvo7OCFA0irYbs+P5X
+ipTtOQlDXxNj5JOqB/Z3KqB4UABOB76bPs21Ndhyua5kLggdHbmahDoB5Jb
6BxXETr8NMwuCUY/0FRapDpQQIc4jQ/meegHpVZbnpy3YECdh3erNvpBq/AH
96nTTNA2KZwzG+vJK7wQ785hgXr1htcB/Pmw0UjDL5MDTcSMdTP6QW9nkma4
FJf0B5HQHvSDDIXpThnPKfLqsQVi3egHS7JE5AceTpPvlC3zxPH3I4thfZbk
zpARb3r1wvjz7ML9P0vkCUj7Z/FXBvN5XzdlvreOgML6ond8vz5fYJAY4E+D
ibgjn1v430NudMR7LhWAWD3/55FYr66cj7R8R/T/9MccCfSDXhtV91SCAcm/
DC/MQj7dVapY5fMB57Oa5+9z+fPh4sdnvN5zoGMk/sQB7Lf9dbtlhbkzZNZE
49RW9APmFwlFyWEeOesm96AW6vvzeoe3S9IIuHxHZK4+/37VfBZSb0qDi6WS
KbsxFtI0+Xh5hAbCx26kOPHn+yepL2ua6fCU/OL1DX9vGUtubijOY8Ia+qKn
u/D8Uah68HUrAe/jPJJNUZ+NOxPqsv8Q4CB8/Dufzx1qjx5KJtOgIruKOoPP
F+isilOYYUJkeLTDFO7f84xb2NPLgXzyBb0M8TuMiXCmLuL+ca+bHoiHESA0
NK5Bg7ardvvVMJZcEbPVTJeA07zbLfz720J0y7yzXwlwE9Xq5PtBh/qY68se
JizTntj0Ht9vE37nsuF9AtpflzUtxP1OwyfnU3to8Kk8830MxusudN0o7qND
nZXsr8PoB++sB2QC9hLQFnRTfACfmyX3nqufzZ8PG7L581J9XHyN0igH3iwy
7vuGeP2vZSgxFWmwTrHDdjGuZ/suu3PoPQG6r6f/dz6uLG94fX0uA7Rj9izZ
gv1b9D1CQyOPgPWTPCElXD+P+1S5bArzSU4Z4P9+iC4O8LrRjX598vMZfv2O
a4mdGPvLBO/XDo7dmE/c8g8DlpUEyC2u8+V/T2MPnyNyR+lgveEOywj94Jwh
u7uNRYPg2CgR/veKU4SnZS2XA4ZmN0z/8PEmRk97vybgS/i1S3x/+xg5lZAo
xIBDB3a5KCE+b2X14KIxAmjiQmx+Pf1bHbcn01ig9vdp8RzUy1DHt7LLnQSk
zGq35/t9t1/I2g/CNHCWNzrLv++KyNI9IS0EnMx2Wcj3t5x6m5ZnNBok3C4/
zPdHtTN0qdR+ArpOX7Pn5zcjb7c6g0uHwqBzIZmI36Hk7cIbMxxQ/9bow0W8
//d9lOD/weX//z70f/H/AD2Qnt4=
       "], {{{}, {
          RGBColor[0.5, 0, 0.5], 
          Opacity[0.2], 
          EdgeForm[None], 
          GraphicsGroupBox[
           PolygonBox[CompressedData["
1:eJwl1Hecz3UcwPE7XfZOcnf2zirOOCuy96xs6WgZRxooRckeZSvaKjRs2aRh
tCM0RAnRstqh5/vhj+fj9fm8v7/73e++n+/vSmUM7ZKZJSEhIZGbEi+3a+Ll
dQ3rLpqVlrxn/y8NrJ/QjZymuv0AHceb/EA5s+banRG8yEGSzavr9VxHNapS
hcpU4loqUoFmdOMBXuAARbxHeZ3BBtra/xbvqf01izZlm/Xv1LZ+TN/gKGXj
uk5hLT/F7ze7Re/nefZzjVm5eD1lKE0pSlKC4hSjKKk04Wbu4zm+oLD3SNEM
HuUijcxe19b6fby33qidNSnuGzvs/6Ku9WRdw6m4R3E2ei/Pso+rzZL1Nsby
Gt/F5zVvHOfJcJ5hL4XMi8TfF58vfj5mXBWfLc6ce1jE5zH3+oJ6Q3xGhrGQ
zyjoWgHtxxiWcSTuk3lDncRqTsbZmnXSoTzNpxQwy6/TWc+v8VyY3aqPsJTD
cc/NGujb/Em6/URdxY/xzNh31M2cJc0+U/+jofVT+gn5rfPpldqCd63b6z9a
X6dpx/gSxJnwlmUb/UWraV/tFN8TmrDVvp2e11r6sHbQC3G/dIm20m/jmdH6
eoU2Y7v1H9SxnqCXaGy9Uk9Q0bqDbuIMNeyH6AI+Jp99Xn2Hv6lnP1XX8TNV
7fvoFs5R0360vsohitvX0/Gs4DgVzNrrYObzEXnN8mhvHuIVvqGYeV19nOUc
o7xZOx3EPD4kj1lu7cWDvMzXFDVP17YMZC4fkNs8l/ZkFIv5ilTzOnEe3M0c
9pDLPKf2YCQv8SUp5rW1NXcxm93kNM8R5xVnw53MYhc5XMse94qW3MFMdpLd
tWyaNZ4fkuIsif+fabTgdp7kfbJ5/f9R64/S
            "]]]}, {}, {}}, {{}, {}, {
          RGBColor[0.5, 0, 0.5], 
          Thickness[Large], 
          Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJwl1Hl8z3UcwPGxmRRGRM22WslRDS1JNtUyrRlhkk5pSo6apJBIjg5Hh6OU
EB1KjlLRfThCF5JKl6tEkatC7uf74Y/nXp/P+/f9/fbb5/t9LLOkd3FpmYSE
hGI/ouX9WKpPchtXcAFlSSSJciTHtZzg+mU6lm4U0DjmVPDach3H7VzJhTHn
RK99ruPpTiFNSDX/UV9kANfFtZxk/oVOoAetuIha5j/pS9zH9XEtFc2/1Kfo
SRFNSTP/WV9mIDfEtVQy/0qfphetqWO2WV9nBBeTbvaLzuB+boz3Utn8a53I
HbShrtkf+gYP0YwMs1/1FQbFWdn/ox9xE1n223UBo+M99v/r4vgdpNiv0Ge4
k2z73foBV1HPfovO4zLro/pwnJX1Xv2UfOtEcqxP13Vxb/RVvUQPx2fp4Lhf
+m+ch36sl8dzQjs62zfQv+N+6DuaFw8RbRljmaMH4jx0STxPWo4U6yq6Up+l
ufUhLY3nzXqPfkhb6ttv1Td5JO6j/T5dSC5n2K/XmTzAzTQ026Hv8lj8Lqqa
rdJJ9KYd55j9qW/xaHwPMs026GsMoUu8l5PNv9HnuIv2cV4xp5rXVutk+lDM
pTGnOqdQg5qcGjPXf6tTuJsOcb8403yjzuJBbuG0eL/5Gp1KX67mXLO/9G1G
xvNpv18X0dI6ifbk2Z+lm7RQZ8d30yM6lBJS4/uZfafPcw8d435TizTSyYhn
Js48zim+b3w2tTk7/j6f8b1O416u4TyzbTqfUbSI681+0zkMo4n9f/pJvG5d
lq7WjXSnFul7+jh14gztf9Dp9KMT+dSlXjwzcW/jjOL3k0WDeC7iMzk/ztVn
rNUX6M+1cW7xd5j/rnMZzq1xvdkufZ8nyLU/qJ9RYJ1c5vj/0Gz7Y2FvjyU=

           "]]}}}]}, {}}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, AxesLabel -> {
      FormBox["\"Q [ks]\"", TraditionalForm], 
      FormBox["\"MC [K\[CHacek]]\"", TraditionalForm]}, 
    AxesOrigin -> {1, 1000}, Method -> {"AxesInFront" -> True}, PlotRange -> 
    Automatic, PlotRangeClipping -> True, PlotRangePadding -> {
      Scaled[0.02], 
      Scaled[0.02]}],TagBox[
    GridBox[{{
       TemplateBox[{
        "\"Plazmov\[EAcute] st\[RHacek]\[IAcute]k\[AAcute]n\[IAcute]\"", 
         RowBox[{"RGBColor", "[", 
           RowBox[{"0", ",", "0", ",", "1"}], "]"}]}, "LineLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}, {
       TemplateBox[{"\"SPS\"", 
         RowBox[{"RGBColor", "[", 
           RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}]}, "LineLegend", 
        DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.5, 0, 0.5], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[{
                    Opacity[0.3], 
                    GrayLevel[0]}], 
                    RGBColor[0.5, 0, 0.5], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> 1, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Times"}, Background -> Automatic, StripOnInput -> 
          False]& ), Editable -> True, 
        InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0.5`", ",", "0", ",", "0.5`"}], "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], 
             ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )]}},
      AutoDelete -> False, GridBoxAlignment -> {"Columns" -> {{Left}}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.733745358190073*^9, 3.733745416789003*^9}, {
   3.7337454689172964`*^9, 3.733745512924912*^9}, {3.7337455649052744`*^9, 
   3.733745577484433*^9}, {3.7337456698450084`*^9, 3.7337456778298173`*^9}, {
   3.733745739695314*^9, 3.733745787667657*^9}, {3.733745830100487*^9, 
   3.733745877166625*^9}, {3.7337459229382234`*^9, 3.733746041637258*^9}, {
   3.733746189954399*^9, 3.73374623614859*^9}, {3.7337464815701494`*^9, 
   3.7337465033839636`*^9}, 3.7337465504341235`*^9, {3.7337466889261684`*^9, 
   3.733746727257143*^9}, 3.7354623944115148`*^9, 3.7354624271827784`*^9}]
}, Open  ]]
},
WindowSize->{1912, 961},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 6951, 156, 192, "Input"],
Cell[7533, 180, 25294, 466, 270, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
