(************** Content-type: application/mathematica ************** CreatedBy='Mathematica 5.2' Mathematica-Compatible Notebook This notebook can be used with any Mathematica-compatible application, such as Mathematica, MathReader or Publicon. The data for the notebook starts with the line containing stars above. To get the notebook into a Mathematica-compatible application, do one of the following: * Save the data starting with the line of stars above into a file with a name ending in .nb, then open the file inside the application; * Copy the data starting with the line of stars above to the clipboard, then use the Paste menu command inside the application. Data for notebooks contains only printable 7-bit ASCII and can be sent directly in email or through ftp in text mode. Newlines can be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). NOTE: If you modify the data for this notebook not in a Mathematica- compatible application, you must delete the line below containing the word CacheID, otherwise Mathematica-compatible applications may try to use invalid cache data. For more information on notebooks and Mathematica-compatible applications, contact Wolfram Research: web: http://www.wolfram.com email: info@wolfram.com phone: +1-217-398-0700 (U.S.) Notebook reader applications are available free of charge from Wolfram Research. *******************************************************************) (*CacheID: 232*) (*NotebookFileLineBreakTest NotebookFileLineBreakTest*) (*NotebookOptionsPosition[ 18585, 630]*) (*NotebookOutlinePosition[ 19924, 672]*) (* CellTagsIndexPosition[ 19880, 668]*) (*WindowFrame->Normal*) Notebook[{ Cell[CellGroupData[{ Cell["Exercices sur la gravitation", "Title", CellMargins->{{1, 0}, {Inherited, Inherited}}, FontFamily->"Arial"], Cell[TextData[{ StyleBox["Mots cl\[EAcute]s: force de gravitation, \ acc\[EAcute]l\[EAcute]ration \[AGrave] la surface d'un astre.\n", FontSize->11], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["Pour la th\[EAcute]orie, voir l\[CloseCurlyQuote]ouvrage \ \[LeftGuillemet] M\[EAcute]canique \[RightGuillemet] de J.-A. Monard. \ \[CapitalEAcute]diteur : \ncentrale d\[CloseCurlyQuote]achats de la ville de \ Bienne, Rennweg 62, 2501 Bienne, 1977.\n", FontSize->11, FontWeight->"Bold"], StyleBox["\nExercice 1", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["On a deux boules de plomb dont les diam\[EGrave]tres valent \ respectivement 2 et 16 cm. Il y a entre elles un espace vide de 1 cm. \ Calculez la force d'attraction exerc\[EAcute]e par une boule sur l'autre. \n", FontSize->11], StyleBox["Exercice 2", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["Calculez les forces d'attraction exerc\[EAcute]es sur la terre \ par le soleil et par la lune.", FontSize->11], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["Exercice 3", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["Calculez l'acc\[EAcute]l\[EAcute]ration d'un objet qui se trouve \ au milieu du segment terre-lune.\n", FontSize->11], StyleBox["Exercice 4", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["O\[UGrave] un objet doit-il se trouver pour que les forces de ", FontSize->11], StyleBox["g", FontSize->11, FontVariations->{"Underline"->True}], StyleBox["ravitation qu'il subit de la part de la terre et de la lune se \ compensent exactement ?", FontSize->11], StyleBox["\n", FontFamily->"Times New Roman", FontSize->11], StyleBox["Exercice 5", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["D\[EAcute]terminez l'acc\[EAcute]l\[EAcute]ration de la pesanteur \ \[AGrave] la surface de la lune\n", FontSize->11], StyleBox["Exercice 6", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["La plan\[EGrave]te Jupiter a un rayon de 71'800 km et une masse \ volumique moyenne de 1140 kg/", FontSize->11], Cell[BoxData[ FormBox[ SuperscriptBox["m", StyleBox["3", FontSize->9]], TextForm]], FontSize->11], StyleBox[". Calculez l'acc\[EAcute]l\[EAcute]ration d'un objet qui tombe en \ chute libre \[AGrave] la surface de cette plan\[EGrave]te.", FontSize->11], StyleBox["\n", FontFamily->"Times New Roman", FontSize->11], StyleBox["Exercice 7", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["On imagine une petite plan\[EGrave]te constitu\[EAcute]e par une \ boule de 100 m de rayon faite d'une mati\[EGrave]re dont la masse volumique \ est de 4 kg/d", FontSize->11], Cell[BoxData[ SuperscriptBox["m", StyleBox["3", FontSize->9]]], FontFamily->"Arial", FontSize->11, FontVariations->{"CompatibilityType"->0}], StyleBox[" .\na) Quel serait le poids d'un habitant de cette \ plan\[EGrave]te, si sa masse \[EAcute]tait de 60 kg ?\nb) Quel temps mettrait \ un objet pour tomber d'une hauteur de 5 m, sa vitesse initiale \[EAcute]tant \ nulle ?\n", FontSize->11], StyleBox["Exercice 8", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["D\[EAcute]terminez le poids qu'a sur la lune une personne qui sur \ la terre p\[EGrave]se 672 N.\nb) Si un objet est lanc\[EAcute] vers le haut \ \[AGrave] une vitesse de 2 m/s depuis la surface de la lune, quelle hauteur \ atteint-il ? Et combien de temps apr\[EGrave]s son d\[EAcute]part est-il de \ retour sur le sol ?", FontSize->11], StyleBox["\n", FontFamily->"Times New Roman", FontSize->11], StyleBox["Exercice 9", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\n", FontFamily->"Verdana", FontSize->11], StyleBox["Calculez le temps de r\[EAcute]volution d'un satellite qui d\ \[EAcute]crit une trajectoire circulaire de 384'000 km de rayon autour de la \ terre. Exprimez le r\[EAcute]sultat en jours et en heures.\n", FontSize->11], StyleBox["Exercice 10", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\nCalculez le temps de r\[EAcute]volution d'un satellite qui d\ \[EAcute]crit une trajectoire circulaire tr\[EGrave]s pr\[EGrave]s d'un astre \ de rayon ", FontSize->11], StyleBox["R", FontSize->11, FontSlant->"Italic"], StyleBox[" et de masse volumique \[Rho]", FontSize->11], StyleBox[". ", FontSize->11, FontSlant->"Italic"], StyleBox["Qu'est-ce que le r\[EAcute]sultat a de remarquable ?\n", FontSize->11], StyleBox["Exercice 11", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["\nCalculez le temps de r\[EAcute]volution et la vitesse d'un \ satellite d\[EAcute]crivant une trajectoire circulaire autour de la lune, \ \[AGrave] une altitude de 100 km au-dessus de sa surface.\n", FontSize->11], StyleBox["Exercice 12\n", FontFamily->"Verdana", FontSize->11, FontWeight->"Bold"], StyleBox["La trajectoire de la terre autour du soleil est \[AGrave] peu pr\ \[EGrave]s un cercle de 149'500'000 km de rayon. Sachant que la terre met une \ ann\[EAcute]e pour effectuer une r\[EAcute]volution, calculez la masse du \ soleil.", FontSize->11] }], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}] }, Open ]], Cell[CellGroupData[{ Cell["Corrig\[EAcute]", "Title", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[TextData[{ StyleBox["Exercice 1\nLa distance ", FontFamily->"Arial"], StyleBox["r", FontFamily->"Arial", FontSlant->"Italic"], StyleBox[" entre le centre des deux boules vaut ", FontFamily->"Arial"], Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["r", FontSlant->"Italic"], "1"], TextForm]]], "+ ", Cell[BoxData[ FormBox[ SubscriptBox[ StyleBox["r", FontSlant->"Italic"], "2"], TextForm]]], "+", StyleBox[" d", FontSlant->"Italic"] }], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(\(G*m1*m2/\((r1 + r2 + d)\)^2 /. {m1 \[Rule] 4/3*\[Pi]*r1^3*rho, m2 \[Rule] 4/3*\[Pi]*r2^3*rho}\) /. {G \[Rule] 6.6732*10^\(-11\), r1 \[Rule] 0.01, r2 \[Rule] 0.08, rho \[Rule] 11.3*10^3, d \[Rule] 0.01}\)], "Input", CellMargins->{{40.3125, 0}, {Inherited, Inherited}}], Cell[BoxData[ \(7.654876839725773`*^-9\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[TextData[StyleBox["Exercice 2", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(G*mS*mT/dTS^2 /. {G \[Rule] 6.6732*10^\(-11\), mS \[Rule] 1.9891*10^30, mT \[Rule] 5.9742*10^24, dTS \[Rule] 1.4959787*10^11, rS \[Rule] 6.95*10^8, rT \[Rule] 6.37103*10^6}\)], "Input", CellMargins->{{39.625, 0}, {Inherited, Inherited}}], Cell[BoxData[ \(3.543396044235312`*^22\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(G*mL*mT/dTL^2 /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, mT \[Rule] 5.9742*10^24, dTL \[Rule] 3.84404*10^8, rL \[Rule] 1.738*10^6, rT \[Rule] 6.37103*10^6}\)], "Input"], Cell[BoxData[ \(1.983012452426488`*^20\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell["\<\ Si on consid\[EGrave]re que les distances donn\[EAcute]es dans la \ table sont celles entre les surfaces des astres\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(G*mS*mT/\((dTS + rS + rT)\)^2 /. {G \[Rule] 6.6732*10^\(-11\), mS \[Rule] 1.9891*10^30, mT \[Rule] 5.9742*10^24, dTS \[Rule] 1.4959787*10^11, rS \[Rule] 6.95*10^8, rT \[Rule] 6.37103*10^6}\)], "Input", CellMargins->{{39.625, 0}, {Inherited, Inherited}}], Cell[BoxData[ \(3.5104027084867385`*^22\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(G*mL*mT/\((dTL + rL + rT)\)^2 /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, mT \[Rule] 5.9742*10^24, dTL \[Rule] 3.84404*10^8, rL \[Rule] 1.738*10^6, rT \[Rule] 6.37103*10^6}\)], "Input"], Cell[BoxData[ \(1.90192365996081`*^20\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[TextData[StyleBox["Exercice 3", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(G \((mT - mL)\)/\((dTL/2)\)^2 /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, mT \[Rule] 5.9742*10^24, dTL \[Rule] 3.84404*10^8, rL \[Rule] 1.738*10^6, rT \[Rule] 6.37103*10^6}\)], "Input"], Cell[BoxData[ \(0.0106591327543202`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell["\<\ Si on consid\[EGrave]re que les distances donn\[EAcute]es dans la \ table sont celles entre les surfaces des astres\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(G \((mT - mL)\)/\((\((dTL + rL + rT)\)/2)\)^2 /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, mT \[Rule] 5.9742*10^24, dTL \[Rule] 3.84404*10^8, rL \[Rule] 1.738*10^6, rT \[Rule] 6.37103*10^6}\)], "Input"], Cell[BoxData[ \(0.010223262468825246`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[TextData[StyleBox["Exercice 4", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[{ \(sol =. \), "\[IndentingNewLine]", \(\(sol = Solve[G \((mT/\((dTL - x)\)^2 - mL/x^2)\) \[Equal] 0, x];\)\), "\[IndentingNewLine]", \(sol /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, mT \[Rule] 5.9742*10^24, dTL \[Rule] 3.84404*10^8}\)}], "Input"], Cell[BoxData[ \({{x \[Rule] \(-4.795678834847607`*^7\)}, {x \[Rule] 3.838040114017875`*^7}}\)], "Output"] }, Open ]], Cell[TextData[StyleBox["Exercice 5", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(G*mL/rL^2 /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, rL \[Rule] 1.738*10^6}\)], "Input"], Cell[BoxData[ \(1.6237603636840352`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[TextData[StyleBox["Exercice 6", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(\(G*mJ/rJ^2 /. {mJ \[Rule] 4/3*\[Pi]*rJ^3*rhoJ}\) /. {G \[Rule] 6.6732*10^\(-11\), rJ \[Rule] 7.18*10^7, rhoJ \[Rule] 1140}\)], "Input", CellMargins->{{40.3125, 0}, {Inherited, Inherited}}], Cell[BoxData[ \(22.87979063206006`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[TextData[StyleBox["Exercice 7", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(\(G*M*m/r^2 /. {M \[Rule] 4/3*\[Pi]*r^3*rho}\) /. {G \[Rule] 6.6732*10^\(-11\), r \[Rule] 100, rho \[Rule] 4000, m \[Rule] 60}\)], "Input"], Cell[BoxData[ \(0.006708632350699329`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(Sqrt[\(2 h* r^2/\((G*M)\) /. {M \[Rule] 4/3*\[Pi]*r^3*rho}\) /. {G \[Rule] 6.6732*10^\(-11\), r \[Rule] 100, rho \[Rule] 4000, h \[Rule] 5}]\)], "Input"], Cell[BoxData[ \(299.06020668439567`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell[TextData[StyleBox["Exercice 8", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(G*mL*\(p/g\)/rL^2 /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, rL \[Rule] 1.738*10^6, p \[Rule] 672, g \[Rule] 9.81}\)], "Input"], Cell[BoxData[ \(111.23006772636816`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell["L'objet atteint l'altitude de :", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(\(v0^2/\((2 a)\) /. a -> G*mL/rL^2\) /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, rL \[Rule] 1.738*10^6, v0 \[Rule] 2}\)], "Input"], Cell[BoxData[ \(1.2317088437005208`\)], "Output", GeneratedCell->False, CellAutoOverwrite->False] }, Open ]], Cell["\<\ Le temps de mont\[EAcute]e est \[EAcute]gal au temps de descente. \ L'objet est de retour apr\[EGrave]s :\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(\(2 v0/a /. a -> G*mL/rL^2\) /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, rL \[Rule] 1.738*10^6, v0 \[Rule] 2}\)], "Input"], Cell[BoxData[ \(2.4634176874010416`\)], "Output"] }, Open ]], Cell[TextData[StyleBox["Exercice 9", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[{ \(sol =. \), "\[IndentingNewLine]", \(sol = Solve[G*mT/r \[Equal] \((2 \[Pi]*r/T)\)^2, T] /. {G \[Rule] 6.6732*10^\(-11\), mT \[Rule] 5.9742*10^24, r \[Rule] 3.84*10^8}\)}], "Input"], Cell[BoxData[ \({{T \[Rule] \(-2.3679348843770796`*^6\)}, {T \[Rule] 2.3679348843770796`*^6}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ \(IntegerPart[ sol[\([2, 1, 2]\)]/86400] "\"\ \), "\[IndentingNewLine]", \(FractionalPart[sol[\([2, 1, 2]\)]/86400\ ]*24 "\"\)}], "Input"], Cell[BoxData[ \(27\ "jours"\)], "Output"], Cell[BoxData[ \(9.759690104744294`\ "heures"\)], "Output"] }, Open ]], Cell[TextData[StyleBox["Exercice 10", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell["\<\ On admet que le rayon de l'orbite est \[EAcute]gal \[AGrave] celui \ de l'astre.\ \>", "Text", FormatType->TextForm], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[ G*M/r^2 \[Equal] v^2/r /. {M \[Rule] 4/3 \[Pi]*r^3*rho, v \[Rule] 2 \[Pi]*r/T}, T]\)], "Input"], Cell[BoxData[ \({{T \[Rule] \(-\(\@\(3\ \[Pi]\)\/\(\@G\ \@rho\)\)\)}, {T \[Rule] \@\(3\ \ \[Pi]\)\/\(\@G\ \@rho\)}}\)], "Output"] }, Open ]], Cell["La p\[EAcute]riode de r\[EAcute]volution ne d\[EAcute]pend pas du rayon \ de l'astre", "Text", FormatType->TextForm], Cell[TextData[StyleBox["Exercice 11", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[{ \(sol =. \), "\[IndentingNewLine]", \(sol = Solve[\(G*mL/\((rL + h)\)^2 \[Equal] v^2/\((rL + h)\) /. v \[Rule] 2 \[Pi] \((rL + h)\)/T\) /. {G \[Rule] 6.6732*10^\(-11\), mL \[Rule] 7.35*10^22, rL \[Rule] 1.738*10^6, h \[Rule] 10^5}, T]\)}], "Input"], Cell[BoxData[ \({{T \[Rule] \(-7069.478675909002`\)}, {T \[Rule] 7069.478675909002`}}\)], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ \(2 \[Pi] \((rL + h)\)/T /. {rL \[Rule] 1.738*10^6, h \[Rule] 10^5, sol[\([2, 1]\)]}\)], "Input"], Cell[BoxData[ \(1633.5708931339493`\)], "Output"] }, Open ]], Cell[TextData[StyleBox["Exercice 12", FontFamily->"Arial"]], "Text", CellMargins->{{1, 0}, {Inherited, Inherited}}], Cell[CellGroupData[{ Cell[BoxData[ \(Solve[\(G*mS/r^2 \[Equal] v^2/r /. v \[Rule] 2 \[Pi]*r/T\) /. {G \[Rule] 6.6732*10^\(-11\), r \[Rule] 1.495*10^11, T \[Rule] 365*24*3600}, mS]\)], "Input"], Cell[BoxData[ \({{mS \[Rule] 1.9876319067389502`*^30}}\)], "Output"] }, Open ]] }, Open ]] }, FrontEndVersion->"5.2 for Macintosh", ScreenRectangle->{{0, 993}, {0, 746}}, WindowToolbars->"RulerBar", WindowSize->{886, 719}, WindowMargins->{{4, Automatic}, {Automatic, 1}}, PrintingCopies->1, PrintingPageRange->{1, 1}, PageHeaders->{{ Inherited, Inherited, Inherited}, { "301PYos. R\[EAcute]gion des D\[EAcute]lices", Inherited, "Exercices sur la gravitation"}}, PageFooters->{{ Inherited, Inherited, Inherited}, { "Document disponible sur http://Hypatie.ge.ch", Inherited, Cell[ TextData[ { ValueBox[ "FileName"], " ", ValueBox[ "Date"]}], "Header"]}}, PageFooterLines->{Inherited, True}, PrintingOptions->{"PrintingMargins"->{{85, 28.3125}, {42.5, 42.5}}, "PrintCellBrackets"->False, "PrintRegistrationMarks"->True, "PrintMultipleHorizontalPages"->False}, ShowCellLabel->False, Magnification->1.5 ] (******************************************************************* Cached data follows. If you edit this Notebook file directly, not using Mathematica, you must remove the line containing CacheID at the top of the file. The cache data will then be recreated when you save this file from within Mathematica. *******************************************************************) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1776, 53, 117, 2, 120, "Title"], Cell[1896, 57, 6120, 184, 1033, "Text"] }, Open ]], Cell[CellGroupData[{ Cell[8053, 246, 81, 1, 115, "Title"], Cell[8137, 249, 604, 23, 61, "Text"], Cell[CellGroupData[{ Cell[8766, 276, 320, 5, 49, "Input"], Cell[9089, 283, 108, 3, 33, "Output"] }, Open ]], Cell[9212, 289, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[9355, 295, 277, 4, 49, "Input"], Cell[9635, 301, 108, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9780, 309, 219, 3, 49, "Input"], Cell[10002, 314, 108, 3, 33, "Output"] }, Open ]], Cell[10125, 320, 163, 4, 39, "Text"], Cell[CellGroupData[{ Cell[10313, 328, 302, 5, 49, "Input"], Cell[10618, 335, 109, 3, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10764, 343, 244, 4, 49, "Input"], Cell[11011, 349, 107, 3, 33, "Output"] }, Open ]], Cell[11133, 355, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[11276, 361, 244, 4, 49, "Input"], Cell[11523, 367, 105, 3, 32, "Output"] }, Open ]], Cell[11643, 373, 163, 4, 39, "Text"], Cell[CellGroupData[{ Cell[11831, 381, 262, 4, 49, "Input"], Cell[12096, 387, 107, 3, 32, "Output"] }, Open ]], Cell[12218, 393, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[12361, 399, 316, 6, 84, "Input"], Cell[12680, 407, 120, 2, 32, "Output"] }, Open ]], Cell[12815, 412, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[12958, 418, 130, 2, 32, "Input"], Cell[13091, 422, 105, 3, 32, "Output"] }, Open ]], Cell[13211, 428, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[13354, 434, 231, 4, 49, "Input"], Cell[13588, 440, 104, 3, 32, "Output"] }, Open ]], Cell[13707, 446, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[13850, 452, 179, 3, 49, "Input"], Cell[14032, 457, 107, 3, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14176, 465, 210, 4, 49, "Input"], Cell[14389, 471, 105, 3, 32, "Output"] }, Open ]], Cell[14509, 477, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[14652, 483, 178, 3, 49, "Input"], Cell[14833, 488, 105, 3, 32, "Output"] }, Open ]], Cell[14953, 494, 71, 1, 39, "Text"], Cell[CellGroupData[{ Cell[15049, 499, 181, 3, 49, "Input"], Cell[15233, 504, 105, 3, 32, "Output"] }, Open ]], Cell[15353, 510, 153, 4, 39, "Text"], Cell[CellGroupData[{ Cell[15531, 518, 173, 3, 49, "Input"], Cell[15707, 523, 53, 1, 32, "Output"] }, Open ]], Cell[15775, 527, 118, 2, 39, "Text"], Cell[CellGroupData[{ Cell[15918, 533, 236, 5, 67, "Input"], Cell[16157, 540, 122, 2, 33, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16316, 547, 187, 3, 49, "Input"], Cell[16506, 552, 45, 1, 32, "Output"], Cell[16554, 555, 62, 1, 32, "Output"] }, Open ]], Cell[16631, 559, 119, 2, 39, "Text"], Cell[16753, 563, 128, 4, 39, "Text"], Cell[CellGroupData[{ Cell[16906, 571, 141, 3, 32, "Input"], Cell[17050, 576, 133, 2, 53, "Output"] }, Open ]], Cell[17198, 581, 124, 2, 39, "Text"], Cell[17325, 585, 119, 2, 39, "Text"], Cell[CellGroupData[{ Cell[17469, 591, 321, 6, 67, "Input"], Cell[17793, 599, 114, 2, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17944, 606, 125, 2, 32, "Input"], Cell[18072, 610, 53, 1, 32, "Output"] }, Open ]], Cell[18140, 614, 119, 2, 39, "Text"], Cell[CellGroupData[{ Cell[18284, 620, 198, 3, 49, "Input"], Cell[18485, 625, 72, 1, 33, "Output"] }, Open ]] }, Open ]] } ] *) (******************************************************************* End of Mathematica Notebook file. *******************************************************************)