Resolução no mathematica cap6 ex 6 Marcia Ruggiero

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 30391, 835]
NotebookOptionsPosition[ 28473, 768]
NotebookOutlinePosition[ 28816, 783]
CellTagsIndexPosition[ 28773, 780]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"a", "=", 
 RowBox[{"ListPlot", "[", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "8"}], ",", "30"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "6"}], ",", "10"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "4"}], ",", "9"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "2"}], ",", "6"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"0", ",", "5"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"2", ",", "4"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"4", ",", "4"}], "}"}]}], "}"}], ",", 
 RowBox[{"PlotRange", "\[Rule]", " ", 
 RowBox[{"{", 
 RowBox[{"0", ",", "30"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.688200407621442*^9, 3.6882004957818165`*^9}, {
 3.6882014935347943`*^9, 3.688201494054834*^9}, {3.688204019455509*^9, 
 3.6882040780600553`*^9}}],
Cell[BoxData[
 GraphicsBox[{{}, {{}, 
 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
 AbsoluteThickness[1.6], 
 PointBox[{{-8., 30.}, {-6., 10.}, {-4., 9.}, {-2., 6.}, {0., 5.}, {2., 
 4.}, {4., 4.}}]}, {}}, {}, {}, {{}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-8., 4.}, {0, 30}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {0, 0}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.688200485037732*^9, 3.6882004997701144`*^9}, 
 3.6882014947108746`*^9, 3.6882040790241685`*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"b", "=", 
 RowBox[{"ListPlot", "[", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "8"}], ",", 
 RowBox[{"1", "/", "30"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "6"}], ",", 
 RowBox[{"1", "/", "10"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "4"}], ",", 
 RowBox[{"1", "/", "9"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "2"}], ",", 
 RowBox[{"1", "/", "6"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"0", ",", 
 RowBox[{"1", "/", "5"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"2", ",", 
 RowBox[{"1", "/", "4"}]}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"4", ",", 
 RowBox[{"1", "/", "4"}]}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.688203817450653*^9, 3.6882038793932476`*^9}, {
 3.688205407999943*^9, 3.688205411504187*^9}, {3.6882054467270374`*^9, 
 3.688205470990226*^9}, {3.6882059933280563`*^9, 3.6882060090011888`*^9}, {
 3.6882069916913953`*^9, 3.6882070509057713`*^9}}],
Cell[BoxData[
 GraphicsBox[{{}, {{}, 
 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
 AbsoluteThickness[1.6], 
 PointBox[{{-8., 0.03333333333333333}, {-6., 0.1}, {-4., 
 0.1111111111111111}, {-2., 0.16666666666666666`}, {0., 0.2}, {2., 
 0.25}, {4., 0.25}}]}, {}}, {}, {}, {{}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-8., 4.}, {0, 0.25}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.02], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.688207053545949*^9}]
}, Open ]],
Cell[BoxData[{
 RowBox[{
 RowBox[{"g2", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "8"}], ",", 
 RowBox[{"-", "6"}], ",", 
 RowBox[{"-", "4"}], ",", 
 RowBox[{"-", "2"}], ",", "0", ",", "2", ",", "4"}], "}"}]}], 
 ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{
 RowBox[{"g1", "=", 
 RowBox[{"{", 
 RowBox[{
 "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], 
 "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"Za", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"1", "/", "30"}], ",", 
 RowBox[{"1", "/", "10"}], ",", 
 RowBox[{"1", "/", "9"}], ",", 
 RowBox[{"1", "/", "6"}], ",", 
 RowBox[{"1", "/", "5"}], ",", 
 RowBox[{"1", "/", "4"}], ",", 
 RowBox[{"1", "/", "4"}]}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6882029868994017`*^9, 3.688203047054802*^9}, {
 3.6882032725168295`*^9, 3.688203316694436*^9}, {3.688204530758918*^9, 
 3.68820454236769*^9}, {3.688205401503089*^9, 3.6882054371909857`*^9}}],
Cell[BoxData[{
 RowBox[{
 RowBox[{"a11", "=", 
 RowBox[{"g1", ".", "g1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"a12", "=", 
 RowBox[{"g1", ".", "g2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"a21", "=", 
 RowBox[{"g2", ".", "g1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"a22", "=", 
 RowBox[{"g2", ".", "g2"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6882030583115864`*^9, 3.6882030600161867`*^9}, {
 3.688203099304224*^9, 3.688203103624708*^9}, {3.688205494800262*^9, 
 3.6882055427679367`*^9}}],
Cell[BoxData[
 RowBox[{
 RowBox[{"Aa", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"a11", ",", "a12"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"a21", ",", "a22"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6882031428013487`*^9, 3.68820325324841*^9}, {
 3.6882055667466393`*^9, 3.688205571815263*^9}}],
Cell[BoxData[{
 RowBox[{
 RowBox[{"ba1", "=", 
 RowBox[{"Za", ".", "g1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"ba2", "=", 
 RowBox[{"Za", ".", "g2"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.6882032636731205`*^9, 3.68820326756843*^9}, 
 3.6882033257999153`*^9, {3.688203356639103*^9, 3.6882034168562293`*^9}, {
 3.6882055822079782`*^9, 3.68820560821412*^9}}],
Cell[BoxData[
 RowBox[{
 RowBox[{"Ba", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", "ba1", "}"}], ",", 
 RowBox[{"{", "ba2", "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6882034208365297`*^9, 3.688203432832864*^9}, {
 3.6882056229831448`*^9, 3.6882056305762186`*^9}}],
Cell[BoxData[
 RowBox[{
 RowBox[{"Xa", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", "\[Alpha]1", "}"}], ",", 
 RowBox[{"{", "\[Alpha]2", "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6882034603919477`*^9, 3.6882034807221355`*^9}, {
 3.688205653833358*^9, 3.6882056622699947`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"S", "=", 
 RowBox[{"Solve", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"Aa", ".", "Xa"}], "\[Equal]", "Ba"}], ",", 
 RowBox[{"{", 
 RowBox[{"\[Alpha]1", ",", "\[Alpha]2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.68820348982858*^9, 3.6882035977207513`*^9}, {
 3.688205669575303*^9, 3.6882056904736586`*^9}}],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"\[Alpha]1", "\[Rule]", 
 FractionBox["47", "240"]}], ",", 
 RowBox[{"\[Alpha]2", "\[Rule]", 
 FractionBox["187", "10080"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.6882035518961077`*^9, 3.688203598376804*^9}, 
 3.688205694309923*^9}]
}, Open ]],
Cell[BoxData[{
 RowBox[{
 RowBox[{"a0", "=", 
 RowBox[{"S", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
 ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"a1", "=", 
 RowBox[{"S", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.68820359071097*^9, 3.6882036373014874`*^9}, {
 3.688205703450567*^9, 3.688205705470755*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{"f", "[", "x_", "]"}], "=", 
 FractionBox["1", 
 RowBox[{"a0", "+", 
 RowBox[{"a1", " ", "x"}]}]]}]], "Input",
 CellChangeTimes->{{3.6882036488022633`*^9, 3.688203690569561*^9}, 
 3.6882057119923162`*^9}],
Cell[BoxData[
 FractionBox["1", 
 RowBox[{
 FractionBox["47", "240"], "+", 
 FractionBox[
 RowBox[{"187", " ", "x"}], "10080"]}]]], "Output",
 CellChangeTimes->{3.688203693097748*^9, 3.688205715192548*^9}]
}, Open ]],
Cell[BoxData[
 RowBox[{
 RowBox[{"c", "=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"f", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "12"}], ",", "4"}], "}"}], ",", 
 RowBox[{"PlotRange", "\[Rule]", 
 RowBox[{"{", 
 RowBox[{"0", ",", "30"}], "}"}]}], ",", 
 RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688203697653497*^9, 3.688203716781949*^9}, {
 3.6882038931102004`*^9, 3.68820389349428*^9}, {3.688203935825824*^9, 
 3.6882039952494307`*^9}, {3.688204103978797*^9, 3.6882041040507793`*^9}, 
 3.688205720712926*^9, {3.6882064152498345`*^9, 3.688206425666562*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{"a", ",", "c"}], "]"}]], "Input",
 CellChangeTimes->{{3.6882038978425565`*^9, 3.6882039034154243`*^9}}],
Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
 0.012833333333333334`], AbsoluteThickness[1.6], 
 PointBox[{{-8., 30.}, {-6., 10.}, {-4., 9.}, {-2., 6.}, {0., 5.}, {2., 
 4.}, {4., 4.}}]}, {}}, {}, {}, {{}, {}}}, {{{{}, {}, 
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
 Opacity[1.], LineBox[CompressedData["
1:eJwdj3s41Pkex12SS/1+M4xLYsZvYtySGWZnMYP5kMUZl0FunVxy2eosYiRF
bpHrQ6kll+ocJZY4pI5bqfkmlEurpFIyWpcs62hQHrZtnfa8n+f1vP59venh
sT7fy8nIyER/5S9r2b3IDThDRzL/nz2IZV/wOhPpaHfOaM++QjvocGfKsxLo
iKMRwB47YQe3yvIHakV0dOisZPVkhB3U7rHfXxJNR9ELHqdxnh2c3f9TYmw4
HYWm3SzM+s0WglqSWhiedERbzvD+3tsW1g/SjC4w6CiLHtlXzeTBSsPJJSV9
OrrqU67mTuPB4tpIazpBRyNF6iIVjAeThblOMTp0RJlg3Xu8wIW+DmmYqyod
ZThuo7j8xIVS8sPLf/5BoMwPl5SNDbhgiQ6rRY0SyCRIsCXJzAYaF4X/WnpG
INMgrmCGagNG2tZm8cMEmrFJ/+EgyQZ045WckwYItNrc1FuwYg0KBvVJuYhA
sXGdfdc7rWEsd+FddSOBZP/B7nshsIZ0YUzz2zME8r61XpJ40gp+P+VnezCT
QPFXCg70R1lBQp1d/3Q6gfT/7TJkEmoFR2Tx6YVkAsURDr4UZyvwud2kuRFH
oKtDYVU56lZgqCVN1QgmUMu7/OHx29/CkCTe3ZNDIGXvG8faPnOAZeshvmRJ
IGFn5MWaDxworTCynGcS6PzmFenVaQ6E+L7VOmNKICwL//RgkAPS/u+mO/UI
VGTeuHD5Mgc0WnckM1QIZG4YmtUIHOjSTBVu3NND7Wu90hvnv4HJWPWt/qp6
yGyf74OIfWyAf2b4e2zXQ6uRElGzgA1VQ4u1Top6qO2Y4ZqcIxvCTXpd2F9o
aDB/XPiAxYb3U8fzyfM0pKcfyqjE2bDo92r7IKKh4zkdGbcHLWGDV0mBOBri
BtZ1O7hZAkWJoJsOU5FNwMD4bLAFuJbH2bX2U9Ed6oyVi78FpBk/2A89VEQt
RtDsaQG/uoZf8O+kIsb4AOdHvgV05V+Xz6qmIofK9rv1dAuI3GbyfvwEFXWO
LI0rz7GgDbdsKCKo6Ac59vGQRBb8XcOJsyzSRadE9+uz3ZhQfOTm29JoXaSg
NTAVymfCo7u6Z7iHdRFxJSxnL5sJ34R/GskK0kV2CwW/GOowAWuujdN00UXy
m8OdQb+ZA3JVbuTp6qJWoXHHqSJzYKT8vCunTwfZ+jG8YWwPSKcCyTo6Oujj
gfktkmwziL8oqAgd10aXrLaW3gw0BSWxr05Zxg7E8DFWNPIzhoInPLd5Wy3U
tK7m6d9mCHrevARziQZiFuHTCkwGyJfujnyZrY6i95PD30v04fn9ddkKJwrq
OSzqfPV4F7QHS8o9f1VFK8t5sYN36ZA7VTVBqyYjFfa2qag3BHgI60aqH+Mo
UilFnaVGwK2H/Lcf1Lcjlt9F1dUKGkjlzzuIzimjPUXFAdkCKviaUyrGnm9F
J8R56xtfdMD/dWKaAmMLMsoWlG6O7AQLrxLx4euySFmsl/vomTZEhvfOho5/
ETuy4hx7hnfAjq4X8gcG1sUl+V57E6RaoKhVb/fLyKq453Xvh+8MtCCnsKv9
kGRRPPFSn3LBTxPCd+IR74anxChGeFF4VQOC9hYFPaoeFku9zEVeC+qQIZBj
ck1u8ZsEE3cUBeog133X3zdjjC+NqHCRtlJA+6mWaylljp+Vbt9aTKPAnMun
ZI0yKR8XBeKOFWqQ8DwlpoS8xk8LeYq6yWrQF+zglBf3mf/5tBgzvqAKbOP+
FiWuDBx7GKpvuEsVgttBOLcsB8lPlDgvm8jQlPxncfEpBVCLKl/KdiVD2L03
TgnrirA9LLvs3jMSLGnkbI1vUAGXmqiYyW0kuHbtRDSXhYH3ZPnvbQdwUE3U
zEziYRBRqUlvC8Qh42+tZR3OGES+uz7Z6odDiHSl+9tgDBq67A3ahTho2x/V
ZhdgMHsotQ/txaH4dWTf7hkMRCq4q3Q3DulkH4JajkMbxVNF/AcGS9NSTlA1
Dt60kbdPNzAIaj/ndqkJB4/MWYfpNQy4IU8StXtxaG7AHyovY7DW4PpEYwUH
hcyuy8GzGBx14Sfj7iSo6XLPI37GYGKn5JxHAAmMXw7E8gYxcF9KqSkMJ8GM
gcWc/2MMTEvvPFVJIsHRMTz7XPfXzimOkWItCYrCUk8qtmPg2zZq69xCgn0p
DW8M/4NBd/4xn+wuEliGJAw6t2BQxWpJlX9OArcVVmBeAwakLV4/OkpIoKoy
slpfh0Haq6W60/Mk+Hj7CHWoBoP/3ii6jz6SoHJgcHTp2td/aWajm5skOGs9
oq1WhcH/ABdC9fs=
 "]]}, {}}, {{}, {}, {}}}, {}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-8., 4.}, {0, 30}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {0, 0}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
 3.688203904219479*^9, {3.6882039433455424`*^9, 3.6882039468057823`*^9}, 
 3.688203978655632*^9, {3.6882040883212996`*^9, 3.6882041071110287`*^9}}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Zb", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"N", "[", 
 RowBox[{"Log", "[", "30", "]"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{"Log", "[", "10", "]"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{"Log", "[", "9", "]"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{"Log", "[", "6", "]"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{"Log", "[", "5", "]"}], "]"}], ",", 
 RowBox[{"N",
"[", 
 RowBox[{"Log", "[", "4", "]"}], "]"}], ",", 
 RowBox[{"N", "[", 
 RowBox[{"Log", "[", "4", "]"}], "]"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.688204723581642*^9, 3.6882047463205247`*^9}, {
 3.688204837969859*^9, 3.688204911873005*^9}, {3.6882049550465755`*^9, 
 3.6882050204694767`*^9}, {3.6882057508044834`*^9, 3.6882057595937357`*^9}, 
 3.6882070882652426`*^9}],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{
 "3.4011973816621555`", ",", "2.302585092994046`", ",", 
 "2.1972245773362196`", ",", "1.791759469228055`", ",", 
 "1.6094379124341003`", ",", "1.3862943611198906`", ",", 
 "1.3862943611198906`"}], "}"}]], "Output",
 CellChangeTimes->{3.688207088993284*^9}]
}, Open ]],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"e", "=", 
 RowBox[{"ListPlot", "[", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "8"}], ",", "3.4011973816621555"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "6"}], ",", "2.302585092994046"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "4"}], ",", "2.1972245773362196"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"-", "2"}], ",", "1.791759469228055"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"0", ",", "1.6094379124341003"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"2", ",", "1.3862943611198906"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"4", ",", "1.3862943611198906"}], "}"}]}], "}"}], 
 "]"}]}]], "Input",
 CellChangeTimes->{{3.6882070966143484`*^9, 3.68820723373044*^9}}],
Cell[BoxData[
 GraphicsBox[{{}, {{}, 
 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
 AbsoluteThickness[1.6], 
 PointBox[{{-8., 3.4011973816621555`}, {-6., 2.302585092994046}, {-4., 
 2.1972245773362196`}, {-2., 1.791759469228055}, {0., 
 1.6094379124341003`}, {2., 1.3862943611198906`}, {4., 
 1.3862943611198906`}}]}, {}}, {}, {}, {{}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-8., 4.}, {0, 3.4011973816621555`}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {
 Scaled[0.02], 
 Scaled[0.05]}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6882072361239367`*^9}]
}, Open ]],
Cell[BoxData[{
 RowBox[{
 RowBox[{"b11", "=", 
 RowBox[{"g1", ".", "g1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"b12", "=", 
 RowBox[{"g1", ".", "g2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"b21", "=", 
 RowBox[{"g2", ".", "g1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"b22", "=", 
 RowBox[{"g2", ".", "g2"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6882050434924283`*^9, 3.6882050696321416`*^9}, {
 3.68820512599914*^9, 3.688205180791853*^9}, {3.688205768754376*^9, 
 3.688205784103975*^9}}],
Cell[BoxData[
 RowBox[{
 RowBox[{"Ab", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", 
 RowBox[{"b11", ",", "b12"}], "}"}], ",", 
 RowBox[{"{", 
 RowBox[{"b21", ",", "b22"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6882052131074677`*^9, 3.688205239446367*^9}}],
Cell[BoxData[{
 RowBox[{
 RowBox[{"bb1", "=", 
 RowBox[{"Zb", ".", "g1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"bb2", "=", 
 RowBox[{"Zb", ".", "g2"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.688205249284435*^9, 3.688205260567974*^9}, {
 3.6882052960390253`*^9, 3.6882053284227915`*^9}, {3.6882058046329556`*^9, 
 3.688205816335285*^9}}],
Cell[BoxData[
 RowBox[{
 RowBox[{"Bb", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", "bb1", "}"}], ",", 
 RowBox[{"{", "bb2", "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688205821055615*^9, 3.6882058447102065`*^9}}],
Cell[BoxData[
 RowBox[{
 RowBox[{"Xb", "=", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"{", "\[Beta]1", "}"}], ",", 
 RowBox[{"{", "\[Beta]2", "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6882058648964033`*^9, 3.6882059001273956`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Sb", "=", 
 RowBox[{"Solve", "[", 
 RowBox[{
 RowBox[{
 RowBox[{"Ab", ".", "Xb"}], "\[Equal]", "Bb"}], ",", 
 RowBox[{"{", 
 RowBox[{"\[Beta]1", ",", "\[Beta]2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6882059025115643`*^9, 3.6882059522886705`*^9}}],
Cell[BoxData[
 RowBox[{"{", 
 RowBox[{"{", 
 RowBox[{
 RowBox[{"\[Beta]1", "\[Rule]", "1.7083605511892925`"}], ",", 
 RowBox[{"\[Beta]2", "\[Rule]", 
 RowBox[{"-", "0.15116209268352193`"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.6882059422279673`*^9, 3.688205956142444*^9}}]
}, Open ]],
Cell[BoxData[{
 RowBox[{
 RowBox[{"b0", "=", 
 RowBox[{"Sb", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "1", ",", "2"}], "]"}], "]"}]}], 
 ";"}], "\[IndentingNewLine]", 
 RowBox[{
 RowBox[{"b1", "=", 
 RowBox[{"Sb", "[", 
 RowBox[{"[", 
 RowBox[{"1", ",", "2", ",", "2"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.6882059718355494`*^9, 3.6882059786310835`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
 RowBox[{"g", "[", "x_", "]"}], "=", 
 RowBox[{
 SuperscriptBox["\[ExponentialE]", "b0"], 
 SuperscriptBox["\[ExponentialE]", 
 RowBox[{"b1", " ", "x"}]]}]}]], "Input",
 CellChangeTimes->{{3.6882061478245487`*^9, 3.6882062405767407`*^9}}],
Cell[BoxData[
 RowBox[{"5.519904454596498`", " ", 
 SuperscriptBox["\[ExponentialE]", 
 RowBox[{
 RowBox[{"-", "0.15116209268352193`"}], " ", "x"}]]}]], "Output",
 CellChangeTimes->{3.688206253742675*^9}]
}, Open ]],
Cell[BoxData[
 RowBox[{
 RowBox[{"d", "=", 
 RowBox[{"Plot", "[", 
 RowBox[{
 RowBox[{"g", "[", "x", "]"}], ",", 
 RowBox[{"{", 
 RowBox[{"x", ",", 
 RowBox[{"-", "8"}], ",", "4"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6882062601431527`*^9, 3.6882063051222787`*^9}}],
Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Show", "[", 
 RowBox[{"a", ",", "d", ",", "c"}], "]"}]], "Input",
 CellChangeTimes->{{3.6882063076744294`*^9, 3.688206313306823*^9}, {
 3.688206399291954*^9, 3.6882063997759895`*^9}}],
Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
 {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
 0.012833333333333334`], AbsoluteThickness[1.6], 
 PointBox[{{-8., 30.}, {-6., 10.}, {-4., 9.}, {-2., 6.}, {0., 5.}, {2., 
 4.}, {4., 4.}}]}, {}}, {}, {}, {{}, {}}}, {{{}, {}, 
 {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
 1.], LineBox[CompressedData["
1:eJwB4QQe+yFib1JlAgAAAE0AAAACAAAAY6+Q7///H8AHgFltdn8yQBT7GiY7
/B/Ako5UL9R8MkDERqVcdvgfwHeET1EyejJAJt65yezwH8Cjew6173QyQOoM
46PZ4R/Aw1ky+m5qMkBwajVYs8MfwOhFJm9/VTJAfiXawGaHH8Dz+cek5ysy
QJqbI5LNDh/AfOCJTdLZMUCf34hvUQkewDw2HVvJLDFAFtBTTykVHcBFIkdr
I5EwQMhQU0TLJRzA0d30gMn7L0BIKSV0IyIbwFEROPzixy5AOq5cps8vGsCa
tLf0/LItQPqKZhMyKRnAKWbW5OGRLED196SVXicYwAvJRQC/gCtAYRFJGt82
F8CJp+hvK4sqQJyCv9kVMhbAPiO4B4yKKUBIoJuboD4VwMX86Oq6oyhAL06s
cvVPFMDK8JxzXcknQOVTj4QATRPAylMf3vrkJkAMBtiYX1sSwDPd4OSbFyZA
ARDz53RVEcBI9tg1HUElQDGqQkxUVBDAIeLK3HR2JECn4e9lD8kOwAPl5aRD
wCNAiB7/qOLADMBovPth0AEjQEy02fBd2wrAdt8pyYdWIkCt+ViuRc0IwP5e
q1G7oyFAhF9BlsHIBsAcyvqi0PogQD4e9YLl5gTAK/rZAO9iIECUjE3lddwC
wEBdSGKBiB9AzVNxTK70AMAgXNC8CmseQPh2/Lv1LP6/0sbNX/xcHUCPpV/K
Zx/6vzmysoWYQhxA7IVZ4ilX9r/JIB7SpUQbQILFnOXEPfK/60V1pXg7GkAJ
jGR7EG/sv86H3/LvQBlAmvC8Pjft5L/MoPHGsF8YQDonULEfktm/BDlrR0h0
F0CtaAIXIr7Ev59MOcONoBZAcesSHHEdsj+spB5jPtgVQCktZexlstQ/py8A
K7cGFUAwbLW1F+ThP8cffsdOShRAWYOlnkoR6j+GvElOgYUTQHsbNLru2fA/
3p+NTHnUEkBeNEPQD5j0P/iY9JEALRJAB+4I+1en+D/5glDy6n0RQOv1NxxQ
cfw/wH2IenXgEEBLzw6pN0YAQGeZBzESPBBAKoOYGTNKAkATQjHzh0EPQCbe
VoWGKwRA98r2S0EqDkCFiXB7bTUGQAW4VYxwBg1AAdy+bKwcCEBer5mu9v8L
QAcOpDNX+glA9maFXqYHC0BwkOSElQAMQM1osln2AwpA97lZ0SvkDUCobmIs
cBoJQIrYkCGb7A1ATQI7QnAWCUAe98dxCvUNQJIcN/twEglARDQ2EukFDkCr
8DFWdAoJQJCuElOmJw5AglBbrYL6CEAqo8vUIGsOQMFH1Mm92ghAXow92BXy
DkDT4fEGrZsIQPGqdCiF+g5AQ88uT8GXCECEyat49AIPQOh4VzfWkwhAqwYa
GdMTD0BmGQbnAYwIQPiA9lmQNQ9AlB4QwWB8CECSda/bCnkPQOv9oEk8XQhA
JZTmK3qBD0CG87CEWlkIQLiyHXzpiQ9AO90WXnlVCEDf74scyJoPQBiof+u4
TQhALGpoXYW8D0DBugNuPz4IQL+In630xA9AFdQBmWI6CEBSp9b9Y80PQDGA
jGGGNghAeOREnkLeD0BLLOPKzy4IQAsDfO6x5g9ABQR9a/UqCECeIbM+Ie8P
QAQeP6kbJwhAMkDqjpD3D0AhcBCEQiMIQMVeId///w9AOPTX+2kfCEDOVCfA
 "]]}}, {}, {}}, {{{{}, {}, 
 {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], 
 LineBox[CompressedData["
1:eJwdj3s41Pkex12SS/1+M4xLYsZvYtySGWZnMYP5kMUZl0FunVxy2eosYiRF
bpHrQ6kll+ocJZY4pI5bqfkmlEurpFIyWpcs62hQHrZtnfa8n+f1vP59venh
sT7fy8nIyER/5S9r2b3IDThDRzL/nz2IZV/wOhPpaHfOaM++QjvocGfKsxLo
iKMRwB47YQe3yvIHakV0dOisZPVkhB3U7rHfXxJNR9ELHqdxnh2c3f9TYmw4
HYWm3SzM+s0WglqSWhiedERbzvD+3tsW1g/SjC4w6CiLHtlXzeTBSsPJJSV9
OrrqU67mTuPB4tpIazpBRyNF6iIVjAeThblOMTp0RJlg3Xu8wIW+DmmYqyod
ZThuo7j8xIVS8sPLf/5BoMwPl5SNDbhgiQ6rRY0SyCRIsCXJzAYaF4X/WnpG
INMgrmCGagNG2tZm8cMEmrFJ/+EgyQZ045WckwYItNrc1FuwYg0KBvVJuYhA
sXGdfdc7rWEsd+FddSOBZP/B7nshsIZ0YUzz2zME8r61XpJ40gp+P+VnezCT
QPFXCg70R1lBQp1d/3Q6gfT/7TJkEmoFR2Tx6YVkAsURDr4UZyvwud2kuRFH
oKtDYVU56lZgqCVN1QgmUMu7/OHx29/CkCTe3ZNDIGXvG8faPnOAZeshvmRJ
IGFn5MWaDxworTCynGcS6PzmFenVaQ6E+L7VOmNKICwL//RgkAPS/u+mO/UI
VGTeuHD5Mgc0WnckM1QIZG4YmtUIHOjSTBVu3NND7Wu90hvnv4HJWPWt/qp6
yGyf74OIfWyAf2b4e2zXQ6uRElGzgA1VQ4u1Top6qO2Y4ZqcIxvCTXpd2F9o
aDB/XPiAxYb3U8fzyfM0pKcfyqjE2bDo92r7IKKh4zkdGbcHLWGDV0mBOBri
BtZ1O7hZAkWJoJsOU5FNwMD4bLAFuJbH2bX2U9Ed6oyVi78FpBk/2A89VEQt
RtDsaQG/uoZf8O+kIsb4AOdHvgV05V+Xz6qmIofK9rv1dAuI3GbyfvwEFXWO
LI0rz7GgDbdsKCKo6Ac59vGQRBb8XcOJsyzSRadE9+uz3ZhQfOTm29JoXaSg
NTAVymfCo7u6Z7iHdRFxJSxnL5sJ34R/GskK0kV2CwW/GOowAWuujdN00UXy
m8OdQb+ZA3JVbuTp6qJWoXHHqSJzYKT8vCunTwfZ+jG8YWwPSKcCyTo6Oujj
gfktkmwziL8oqAgd10aXrLaW3gw0BSWxr05Zxg7E8DFWNPIzhoInPLd5Wy3U
tK7m6d9mCHrevARziQZiFuHTCkwGyJfujnyZrY6i95PD30v04fn9ddkKJwrq
OSzqfPV4F7QHS8o9f1VFK8t5sYN36ZA7VTVBqyYjFfa2qag3BHgI60aqH+Mo
UilFnaVGwK2H/Lcf1Lcjlt9F1dUKGkjlzzuIzimjPUXFAdkCKviaUyrGnm9F
J8R56xtfdMD/dWKaAmMLMsoWlG6O7AQLrxLx4euySFmsl/vomTZEhvfOho5/
ETuy4hx7hnfAjq4X8gcG1sUl+V57E6RaoKhVb/fLyKq453Xvh+8MtCCnsKv9
kGRRPPFSn3LBTxPCd+IR74anxChGeFF4VQOC9hYFPaoeFku9zEVeC+qQIZBj
ck1u8ZsEE3cUBeog133X3zdjjC+NqHCRtlJA+6mWaylljp+Vbt9aTKPAnMun
ZI0yKR8XBeKOFWqQ8DwlpoS8xk8LeYq6yWrQF+zglBf3mf/5tBgzvqAKbOP+
FiWuDBx7GKpvuEsVgttBOLcsB8lPlDgvm8jQlPxncfEpBVCLKl/KdiVD2L03
TgnrirA9LLvs3jMSLGnkbI1vUAGXmqiYyW0kuHbtRDSXhYH3ZPnvbQdwUE3U
zEziYRBRqUlvC8Qh42+tZR3OGES+uz7Z6odDiHSl+9tgDBq67A3ahTho2x/V
ZhdgMHsotQ/txaH4dWTf7hkMRCq4q3Q3DulkH4JajkMbxVNF/AcGS9NSTlA1
Dt60kbdPNzAIaj/ndqkJB4/MWYfpNQy4IU8StXtxaG7AHyovY7DW4PpEYwUH
hcyuy8GzGBx14Sfj7iSo6XLPI37GYGKn5JxHAAmMXw7E8gYxcF9KqSkMJ8GM
gcWc/2MMTEvvPFVJIsHRMTz7XPfXzimOkWItCYrCUk8qtmPg2zZq69xCgn0p
DW8M/4NBd/4xn+wuEliGJAw6t2BQxWpJlX9OArcVVmBeAwakLV4/OkpIoKoy
slpfh0Haq6W60/Mk+Hj7CHWoBoP/3ii6jz6SoHJgcHTp2td/aWajm5skOGs9
oq1WhcH/ABdC9fs=
 "]]}, {}}, {{}, {}, {}}}, {}, {}}},
 AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
 Axes->{True, True},
 AxesLabel->{None, None},
 AxesOrigin->{0, 0},
 DisplayFunction->Identity,
 Frame->{{False, False}, {False, False}},
 FrameLabel->{{None, None}, {None, None}},
 FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
 GridLines->{None, None},
 GridLinesStyle->Directive[
 GrayLevel[0.5, 0.4]],
 ImagePadding->All,
 Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& ), "CopiedValueFunction" -> ({
 (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
 Part[#, 1]], 
 (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
 Part[#, 2]]}& )}},
 PlotRange->{{-8., 4.}, {0, 30}},
 PlotRangeClipping->True,
 PlotRangePadding->{{
 Scaled[0.02], 
 Scaled[0.02]}, {0, 0}},
 Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
 3.688206315082966*^9, {3.6882064011800823`*^9, 3.68820643113822*^9}}]
}, Open ]]
},
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 960, 29, 47, "Input"],
Cell[1543, 53, 1470, 34, 260, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[3050, 92, 1115, 33, 47, "Input"],
Cell[4168, 127, 1490, 36, 249, "Output"]
}, Open ]],
Cell[5673, 166, 1042, 30, 88, "Input"],
Cell[6718, 198, 555, 15, 88, "Input"],
Cell[7276, 215, 349, 10, 30, "Input"],
Cell[7628, 227, 387, 9, 50, "Input"],
Cell[8018, 238, 294, 8, 30, "Input"],
Cell[8315, 248, 306, 8, 30, "Input"],
Cell[CellGroupData[{
Cell[8646, 260, 351, 9, 47, "Input"],
Cell[9000, 271, 326, 9, 46, "Output"]
}, Open ]],
Cell[9341, 283, 438, 13, 50, "Input"],
Cell[CellGroupData[{
Cell[9804, 300, 246, 7, 47, "Input"],
Cell[10053, 309, 213, 6, 56, "Output"]
}, Open ]],
Cell[10281, 318, 691, 16, 47, "Input"],
Cell[CellGroupData[{
Cell[10997, 338, 150, 3, 47, "Input"],
Cell[11150, 343, 4036, 77, 260, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[15223, 425, 840, 21, 47, "Input"],
Cell[16066, 448, 304, 7, 30, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[16407, 460, 834, 24, 68, "Input"],
Cell[17244, 486, 1572, 37, 283, "Output"]
}, Open ]],
Cell[18831, 526, 552, 15, 88, "Input"],
Cell[19386, 543, 299, 9, 30, "Input"],
Cell[19688, 554, 363, 9, 50, "Input"],
Cell[20054, 565, 241, 7, 30, "Input"],
Cell[20298, 574, 253, 7, 30, "Input"],
Cell[CellGroupData[{
Cell[20576, 585, 302, 8, 47, "Input"],
Cell[20881, 595, 299, 7, 30, "Output"]
}, Open ]],
Cell[21195, 605, 394, 12, 50, "Input"],
Cell[CellGroupData[{
Cell[21614, 621, 271, 7, 30, "Input"],
Cell[21888, 630, 210, 5, 30, "Output"]
}, Open ]],
Cell[22113, 638, 311, 9, 47, "Input"],
Cell[CellGroupData[{
Cell[22449, 651, 209, 4, 47, "Input"],
Cell[22661, 657, 5796, 108, 260, "Output"]
}, Open ]]
}
]
*)