(************** 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] "\<jours\>"\ \), "\[IndentingNewLine]",
\(FractionalPart[sol[\([2, 1, 2]\)]/86400\ ]*24 "\<heures\>"\)}], "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.
*******************************************************************)