(* 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[ 18551, 504]
NotebookOptionsPosition[ 17440, 469]
NotebookOutlinePosition[ 17817, 485]
CellTagsIndexPosition[ 17774, 482]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Pokyny:
*Resen\[IAcute] u prikladu v Mathematice je reseni v Mathematice, na rucn\
\[EHacek] pripsane vysledky nebude bran zretel.
*Pred odevzdanim pomoc\[IAcute] Cell->Delete All Output smazte vysledky a tak \
soubor ulozte
* Cvicici s vypnutym Kernelem odevzdany notebook spusti a zkontroluje \
vystupy. Doporucujeme vyzkouset si spusteni s vypnutym jadrem pred odevzdanim \
testu.
* Na cvicicim zadany mail zaslete vysledek pojmenovany test1JmenoPrijmeni.nb
* U uloh \"na papire\" se klidne rozepiste, proc to, ci ono, podepiste se.\
\>", "Text",
CellChangeTimes->{{3.477027851421875*^9, 3.4770281241875*^9},
3.4770454922162333`*^9, {3.57258459140625*^9, 3.57258472534375*^9}, {
3.572585026734375*^9, 3.572585028734375*^9}, {3.57268280290625*^9,
3.57268280871875*^9}, {3.7322553630707164`*^9, 3.732255381505148*^9}}],
Cell[TextData[{
"\nPro impedancni delic podle zadaneho schematu vytvorte graf abs. hodnoty \
prenosu v logaritmickych souradnicich, s GridLines, popisem os se spravnymi \
jednotkami, cerne a tluste. (8b). \n\nPro \[Omega] = 1200 ",
Cell[BoxData[
FormBox[
SuperscriptBox["s",
RowBox[{"-", "1"}]], TraditionalForm]]],
" vypiste pomoc\[IAcute] Print realnou a imaginarn\[IAcute] cast impedance \
(jako desetinna cisla) z pohledu vstupnich svorek zadaneho schematu (3b)"
}], "Text",
CellChangeTimes->{
3.50946498103125*^9, {3.50946508409375*^9, 3.509465088453125*^9}, {
3.509465134359375*^9, 3.509465316203125*^9}, {3.50946539934375*^9,
3.509465548234375*^9}, {3.50946573509375*^9, 3.509465807703125*^9}, {
3.50946583928125*^9, 3.5094658629375*^9}, {3.50946591578125*^9,
3.50946609409375*^9}, {3.50946613834375*^9, 3.5094661695625*^9}, {
3.5094665186875*^9, 3.509466558703125*^9}, 3.50968659284375*^9,
3.509687010328125*^9, {3.541136689578125*^9, 3.541136957203125*^9}, {
3.5411370270625*^9, 3.541137032328125*^9}, {3.54113750571875*^9,
3.54113752303125*^9}, {3.572584730984375*^9, 3.572584795*^9}, {
3.5726827721875*^9, 3.572682776234375*^9}, 3.573191380452877*^9, {
3.6058563007894535`*^9, 3.6058563011482544`*^9}, {3.605942958903209*^9,
3.6059429593582354`*^9}, {3.700797759695383*^9, 3.700797764476633*^9}, {
3.7007978188057346`*^9, 3.700797818883859*^9}, {3.7007978689307346`*^9,
3.700797869008859*^9}}],
Cell[BoxData[{
RowBox[{"ClearAll", "[",
RowBox[{"Evaluate", "[",
RowBox[{
RowBox[{"Context", "[", "]"}], "<>", "\"\<*\>\""}], "]"}], "]"}], "\n",
RowBox[{
RowBox[{
RowBox[{"par", "[", "listR_", "]"}], ":=",
SuperscriptBox[
RowBox[{"(",
RowBox[{
RowBox[{"(",
SuperscriptBox["listR",
RowBox[{"-", "1"}]], ")"}], "/.",
RowBox[{"List", "\[Rule]", "Plus"}]}], ")"}],
RowBox[{"-", "1"}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"ser", "[", "listR_", "]"}], ":=",
RowBox[{"listR", "/.",
RowBox[{"List", "\[Rule]", "Plus"}]}]}], ";"}]}], "Input"],
Cell[BoxData[{
RowBox[{
RowBox[{"ser", "[",
RowBox[{"{",
RowBox[{"1", ",", "1"}], "}"}], "]"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"par", "[",
RowBox[{"{",
RowBox[{"3", ",", "3."}], "}"}], "]"}], ";"}]}], "Input",
CellChangeTimes->{
3.732254297676646*^9, 3.732255182672*^9, {3.7322555279270053`*^9,
3.732255544728235*^9}, {3.7322556226659718`*^9, 3.7322556528520246`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"R1", "=",
RowBox[{"R5", "=",
SuperscriptBox["10", "4"]}]}], ";"}], "\n",
RowBox[{
RowBox[{"R3", "=",
RowBox[{"20", "*",
SuperscriptBox["10", "3"]}]}], ";"}], "\n",
RowBox[{
RowBox[{"R2", "=",
RowBox[{"150", "*",
SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"R4", "=",
RowBox[{"50", "*",
SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"C1", "=",
RowBox[{"20", "*",
SuperscriptBox["10",
RowBox[{"-", "6"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"C2", "=",
RowBox[{"1", "*",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L1", "=",
RowBox[{"20", "*",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"L2", "=",
RowBox[{"5", "*",
SuperscriptBox["10",
RowBox[{"-", "3"}]]}]}], ";"}]}], "Input",
CellChangeTimes->{{3.732255724736951*^9, 3.73225581535751*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"j", "=",
RowBox[{"Sqrt", "[",
RowBox[{"-", "1"}], "]"}]}], ";"}], " "}]], "Input",
CellChangeTimes->{{3.732256008158249*^9, 3.7322560309498887`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"za", "=",
RowBox[{"ser", "[",
RowBox[{"{",
RowBox[{"R1", ",",
RowBox[{"I", "*", "\[Omega]", "*", "L1"}]}], "}"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"zb", "=",
RowBox[{"par", "[",
RowBox[{"{",
RowBox[{"za", ",", "R2"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"zc", "=",
RowBox[{"ser", "[",
RowBox[{"{",
RowBox[{
FractionBox["1",
RowBox[{"I", "*", "\[Omega]", "*", "C1"}]], ",", "zb"}], "}"}],
"]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Z1", "=",
RowBox[{"ser", "[",
RowBox[{"{",
RowBox[{"zc", ",",
RowBox[{"I", "*", "\[Omega]", "*", "L1"}]}], "}"}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.732255841409556*^9, 3.7322558427511578`*^9}, {
3.73225588933284*^9, 3.7322559159152865`*^9}, {3.73225594607014*^9,
3.732255998205431*^9}, {3.7322560433987103`*^9, 3.7322560666427517`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"zd", "=",
RowBox[{"ser", "[",
RowBox[{"{",
RowBox[{"R4", ",",
FractionBox["1",
RowBox[{"I", "*", "\[Omega]", "*", "C2"}]]}], "}"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"ze", "=",
RowBox[{"par", "[",
RowBox[{"{",
RowBox[{"zd", ",",
RowBox[{"I", "*", "\[Omega]", "*", "L2"}], ",", "R5"}], "}"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Z2", "=",
RowBox[{"ser", "[",
RowBox[{"{",
RowBox[{"R3", ",", "ze", ",",
FractionBox["1",
RowBox[{"I", "*", "\[Omega]", "*", "C2"}]]}], "}"}], "]"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.7322560827107797`*^9, 3.7322560837559814`*^9}, {
3.732256115580037*^9, 3.732256201816989*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"prenos", "=",
FractionBox["Z2",
RowBox[{"Z1", "+", "Z2"}]]}], ";"}], "\[IndentingNewLine]",
RowBox[{"LogLogPlot", "[",
RowBox[{
RowBox[{"Abs", "[", "prenos", "]"}], ",",
RowBox[{"{",
RowBox[{"\[Omega]", ",",
SuperscriptBox["10",
RowBox[{"-", "5"}]], ",",
SuperscriptBox["10", "12"]}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{"Black", ",", "Thick"}], "}"}]}], ",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{
"\"\<\[Omega] [\!\(\*SuperscriptBox[\(s\), \(-1\)]\)]\>\"", ",",
"\"\
\""}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.7322543050242586`*^9, 3.73225430571066*^9}, {
3.7322562046093936`*^9, 3.7322562488198714`*^9}, {3.7322563023903656`*^9,
3.7322564363790007`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"vstupImp", "=",
RowBox[{
RowBox[{
RowBox[{"Z1", "+", "Z2"}], "/.",
RowBox[{"\[Omega]", "\[Rule]", "1200"}]}], "//", "N"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"(*", " ",
RowBox[{"vstupImp", "=",
RowBox[{
RowBox[{"Z1", "+", "Z2"}], "/.",
RowBox[{"\[Omega]", "\[Rule]", "1200."}]}]}], " ", "*)"}]}]}], "Input",
CellChangeTimes->{{3.7322567022844677`*^9, 3.7322567408321357`*^9}, {
3.732256785370214*^9, 3.732256814323865*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",",
RowBox[{"Re", "[", "vstupImp", "]"}], ",",
"\"\<\[CapitalOmega], a imaginarni cast impedance je \>\"", ",",
RowBox[{"Im", "[", "vstupImp", "]"}], " ", ",",
"\"\< \[CapitalOmega].\>\""}], "]"}], "\[IndentingNewLine]"}]], "Input",
CellChangeTimes->{{3.732256676825223*^9, 3.732256688743644*^9}, {
3.7322568176466703`*^9, 3.7322568238710814`*^9}, {3.7322568568495398`*^9,
3.732256933977075*^9}}],
Cell[TextData[{
"Prikazem ",
Cell[BoxData[
FormBox["FindRoot", TraditionalForm]],
CellChangeTimes->{{3.57268525378125*^9, 3.572685302515625*^9}, {
3.57268534803125*^9, 3.572685378953125*^9}, {3.572685423609375*^9,
3.572685458640625*^9}, {3.572685512984375*^9, 3.572685556296875*^9}, {
3.572685596484375*^9, 3.572685671859375*^9}, {3.573191469374034*^9,
3.5731915773230853`*^9}, {3.5731916361351886`*^9, 3.573191770919425*^9}}],
"[",
"a*",
"cos(a*x)==",
Cell[BoxData[
FractionBox["1",
SuperscriptBox["a", "2"]]],
CellChangeTimes->{{3.7322570298860435`*^9, 3.732257135061428*^9}, {
3.7322571654190817`*^9, 3.7322571751378984`*^9}}],
",{x,a}] vytvorte funkci, ktera pro zadane a vraci hodnotu x. (4b) \nPomoci \
Off zruste chybovou hlasku: FindRoot::lstol(2b)\nPomoci Table vytvorte list \
dvojic Table[{a,funkce(a)}] od 1 do 10 s krokrem 0.1 (2b)\nPomoci ListPlot \
zobrazte vytvoreny list a spojte jednotlive body (3b)"
}], "Text",
CellChangeTimes->{{3.541137163578125*^9, 3.5411372675*^9}, {
3.541137342953125*^9, 3.541137485546875*^9}, {3.572584798765625*^9,
3.572584836765625*^9}, 3.572585019609375*^9, 3.572682222890625*^9, {
3.573191440467183*^9, 3.573191482556057*^9}, {3.5731918085154915`*^9,
3.5731920443099055`*^9}, {3.5732730539055214`*^9, 3.573273061764737*^9}, {
3.573273286610764*^9, 3.5732733397840586`*^9}, 3.573274189448974*^9, {
3.6058560919830866`*^9, 3.605856092232687*^9}, {3.6059432430024586`*^9,
3.6059434853133183`*^9}, {3.7007973787793674`*^9,
3.7007973918418674`*^9}, {3.700797510289133*^9, 3.700797513242258*^9}, {
3.700797600429758*^9, 3.700797633289133*^9}, {3.700797769601633*^9,
3.700797779304758*^9}, {3.7007978300557346`*^9, 3.700797830102609*^9}, {
3.700797904759836*^9, 3.700797908447336*^9}, {3.732257162954277*^9,
3.732257181112709*^9}, 3.7322572292543936`*^9}],
Cell[BoxData[{
RowBox[{
RowBox[{"f", "[", "a_", "]"}], ":=",
RowBox[{"x", "/.",
RowBox[{"FindRoot", "[",
RowBox[{
RowBox[{
RowBox[{"a", "*",
RowBox[{"Cos", "[",
RowBox[{"a", "*", "x"}], "]"}]}], "\[Equal]",
FractionBox["1",
SuperscriptBox["a", "2"]]}], ",",
RowBox[{"{",
RowBox[{"x", ",", "a"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Off", "[",
RowBox[{"FindRoot", "::", "lstol"}], "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.7322570298860435`*^9, 3.732257135061428*^9}, {
3.7322571654190817`*^9, 3.732257191424327*^9}, {3.7322572578816442`*^9,
3.7322572722336693`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"f", "[", "0.1", "]"}], ";"}]], "Input",
CellChangeTimes->{{3.7322571074025793`*^9, 3.7322571089001822`*^9}, {
3.7322571985067396`*^9, 3.73225721017556*^9}, 3.7322572884732976`*^9}],
Cell[BoxData[{
RowBox[{
RowBox[{"dvojice", "=",
RowBox[{"Table", "[",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",",
RowBox[{"f", "[", "a", "]"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"a", ",", "1", ",", "10", ",", "0.1"}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{"ListPlot", "[",
RowBox[{"dvojice", ",",
RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input",
CellChangeTimes->{{3.732257293309306*^9, 3.73225740918631*^9}}],
Cell[TextData[{
"Pomoci Solve vyre\[SHacek]te soustavu rovnic ",
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"a", "+", "b", "+", "c"}], "\[Equal]", "k"}], ",",
RowBox[{
RowBox[{"a", "+", "b"}], "==", "1"}], ",",
RowBox[{
RowBox[{"a", "+", "c"}], "\[Equal]", "6", " "}]}]],
CellChangeTimes->{{3.509473981546875*^9, 3.509474035265625*^9}}],
" s parametrem k a neznamymi a,b,c (3b)\nZobrazte graf reseni jednotlivych \
promennych pro k\[Element]{1,10}, popiste osy a barevne odliste cary a \
zobrazte mrizku.(3b)"
}], "Text",
CellChangeTimes->{{3.5094715083125*^9, 3.509471760015625*^9}, {
3.5094720006875*^9, 3.50947206846875*^9}, 3.509686484375*^9, {
3.5096869865625*^9, 3.509686991875*^9}, {3.50968705078125*^9,
3.509687051328125*^9}, {3.541137093828125*^9, 3.541137133109375*^9},
3.541137535203125*^9, {3.57258483971875*^9, 3.57258486378125*^9}, {
3.573192267234297*^9, 3.573192393469719*^9}, 3.5731924240613728`*^9, {
3.5731928556371307`*^9, 3.573192861580741*^9}, {3.573273685082074*^9,
3.5732737181223335`*^9}, {3.5732737882320595`*^9, 3.573273832977339*^9}, {
3.5732738687808027`*^9, 3.573273920395095*^9}, 3.573274177415353*^9,
3.573274926092873*^9, {3.5732750860910244`*^9, 3.573275228515171*^9}, {
3.573278520914485*^9, 3.573278547475004*^9}, 3.573279380017623*^9, {
3.605849203740595*^9, 3.605849205612598*^9}, {3.7007961696231174`*^9,
3.7007961697793674`*^9}, {3.7007978398057346`*^9, 3.7007978440869846`*^9},
3.7007978971494846`*^9}],
Cell[BoxData[{
RowBox[{
RowBox[{"sol", "=",
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"a", "+", "b", "+", "c"}], "\[Equal]", "k"}], ",",
RowBox[{
RowBox[{"a", "+", "b"}], "==", "1"}], ",",
RowBox[{
RowBox[{"a", "+", "c"}], "\[Equal]", "6"}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"proPlot", "=",
RowBox[{
RowBox[{"{",
RowBox[{"a", ",", "b", ",", "c"}], "}"}], "/.",
RowBox[{"sol", "[",
RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sol", "//", "TreeForm"}], ";"}], "\[IndentingNewLine]",
RowBox[{"Plot", "[",
RowBox[{"proPlot", ",",
RowBox[{"{",
RowBox[{"k", ",", "1", ",", "10"}], "}"}], ",",
RowBox[{"PlotStyle", "\[Rule]",
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"Red", ",", "Thick"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Green", ",", "DotDashed", ",", "Thick"}], "}"}]}], "}"}]}],
",",
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\<\!\(\*
StyleBox[\"a\",
FontColor->RGBColor[1, 0, 0]]\) \!\(\*
StyleBox[\"b\",
FontColor->RGBColor[0, 0, 1]]\) \!\(\*
StyleBox[\"c\",
FontColor->RGBColor[0, 1, 0]]\)\>\""}], "}"}]}]}], "]"}]}], "Input",
CellChangeTimes->{{3.732257462944004*^9, 3.732257670580369*^9}}],
Cell[BoxData[""], "Input",
CellChangeTimes->{{3.7322575640945816`*^9, 3.732257564640583*^9}}],
Cell[TextData[{
"Pomoci Round zaokrouhlete vyraz ",
Cell[BoxData[
FormBox[
RowBox[{"Pi", "*",
FractionBox[
SqrtBox["2"], "3"]}], TraditionalForm]]],
" a vysledek zobrazte pomoci Print (2b)"
}], "Text",
CellChangeTimes->{
3.50947213134375*^9, {3.509472314203125*^9, 3.509472450203125*^9}, {
3.50947262165625*^9, 3.509472675375*^9}, 3.50968705909375*^9, {
3.57258486803125*^9, 3.572584914953125*^9}, {3.5731925535738*^9,
3.5731926262231274`*^9}, {3.573274162386526*^9, 3.573274174278747*^9},
3.573276049962155*^9, {3.5732761196661415`*^9, 3.573276149745862*^9}, {
3.5732788209716473`*^9, 3.573278858723807*^9}, 3.5732793971886053`*^9,
3.605847835365792*^9, {3.6058492889947443`*^9, 3.6058492893847446`*^9}, {
3.700797674836008*^9, 3.700797679867258*^9}, {3.7007977880869846`*^9,
3.700797795040109*^9}, 3.7007978938682346`*^9}],
Cell[BoxData[
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",",
RowBox[{"Round", "[",
RowBox[{"Pi", "*",
FractionBox[
SqrtBox["2"], "3"]}], "]"}]}], "]"}]], "Input",
CellChangeTimes->{{3.7322577238076625`*^9, 3.7322577776745567`*^9}}],
Cell["\<\
Pomoci IntegerDigits najdete vyjadreni cisla 471 v trojkove soustave. (2b)\
\>", "Text",
CellChangeTimes->{
3.50947213134375*^9, {3.509472314203125*^9, 3.509472450203125*^9}, {
3.50947262165625*^9, 3.509472675375*^9}, 3.50968705909375*^9, {
3.57258486803125*^9, 3.572584914953125*^9}, {3.5731925535738*^9,
3.5731926262231274`*^9}, {3.5731937905119553`*^9,
3.5731937914167566`*^9}, {3.5731939612542553`*^9, 3.573194037226389*^9},
3.5731942417208633`*^9, 3.605946062838744*^9, {3.7007978874307346`*^9,
3.7007978918994846`*^9}, {3.7007991337793674`*^9, 3.7007991353789763`*^9}}],
Cell[BoxData[
RowBox[{"IntegerDigits", "[",
RowBox[{"471", ",", "3"}], "]"}]], "Input",
CellChangeTimes->{{3.7322577862077723`*^9, 3.732257810075814*^9}}]
},
WindowSize->{1264, 889},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->2.499999523162842,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 843, 15, 549, "Text"],
Cell[1403, 37, 1466, 25, 409, "Text"],
Cell[2872, 64, 641, 20, 174, "Input"],
Cell[3516, 86, 416, 11, 119, "Input"],
Cell[3935, 99, 1083, 37, 413, "Input"],
Cell[5021, 138, 208, 6, 73, "Input"],
Cell[5232, 146, 998, 30, 255, "Input"],
Cell[6233, 178, 794, 25, 248, "Input"],
Cell[7030, 205, 907, 24, 265, "Input"],
Cell[7940, 231, 522, 15, 149, "Input"],
Cell[8465, 248, 520, 10, 239, "Input"],
Cell[8988, 260, 1876, 34, 322, "Text"],
Cell[10867, 296, 680, 19, 195, "Input"],
Cell[11550, 317, 219, 4, 73, "Input"],
Cell[11772, 323, 492, 14, 119, "Input"],
Cell[12267, 339, 1517, 28, 266, "Text"],
Cell[13787, 369, 1629, 49, 374, "Input"],
Cell[15419, 420, 94, 1, 73, "Input"],
Cell[15516, 423, 873, 18, 143, "Text"],
Cell[16392, 443, 269, 7, 157, "Input"],
Cell[16664, 452, 610, 10, 122, "Text"],
Cell[17277, 464, 159, 3, 103, "Input"]
}
]
*)
(* End of internal cache information *)