source: BAORadio/AmasNancay/CorrelationToyModel.nb @ 686

Last change on this file since 686 was 673, checked in by campagne, 12 years ago
File size: 29.3 KB
Line 
1(* Content-type: application/vnd.wolfram.mathematica *)
2
3(*** Wolfram Notebook File ***)
4(* http://www.wolfram.com/nb *)
5
6(* CreatedBy='Mathematica 8.0' *)
7
8(*CacheID: 234*)
9(* Internal cache information:
10NotebookFileLineBreakTest
11NotebookFileLineBreakTest
12NotebookDataPosition[       157,          7]
13NotebookDataLength[     29129,        664]
14NotebookOptionsPosition[     27974,        622]
15NotebookOutlinePosition[     28320,        637]
16CellTagsIndexPosition[     28277,        634]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21Cell[BoxData[
22 RowBox[{
23  RowBox[{"data", " ", "=", " ", 
24   RowBox[{"Table", "[", 
25    RowBox[{
26     RowBox[{"Table", "[", 
27      RowBox[{
28       RowBox[{"{", 
29        RowBox[{"x", ",", 
30         RowBox[{"0.01", "+", 
31          RowBox[{"0.01", "*", 
32           RowBox[{"Sin", "[", 
33            RowBox[{"x", "/", "2.5"}], "]"}]}], "+", 
34          RowBox[{"RandomReal", "[", 
35           RowBox[{"NormalDistribution", "[", 
36            RowBox[{"0.", ",", "0.001"}], "]"}], "]"}]}]}], "}"}], ",", 
37       RowBox[{"{", 
38        RowBox[{"x", ",", "1400", ",", "1401", ",", "0.03"}], "}"}]}], "]"}], 
39     ",", 
40     RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input",
41 CellChangeTimes->{{3.536382530431178*^9, 3.536382558714159*^9}, {
42  3.536382590257561*^9, 3.536382603673647*^9}, {3.5363839625030346`*^9, 
43  3.5363839652643766`*^9}}],
44
45Cell[BoxData[
46 RowBox[{
47  RowBox[{"meanval", " ", "=", " ", 
48   RowBox[{
49    RowBox[{"Map", "[", 
50     RowBox[{"Mean", ",", "data"}], "]"}], "[", 
51    RowBox[{"[", 
52     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
53 CellChangeTimes->{{3.5363827626851573`*^9, 3.536382775586357*^9}, {
54  3.5363828655213575`*^9, 3.536382866285757*^9}, {3.5363839365589046`*^9, 
55  3.536383945279752*^9}, {3.53638398250426*^9, 3.536383991318712*^9}}],
56
57Cell[CellGroupData[{
58
59Cell[BoxData[
60 RowBox[{"StandardDeviation", "[", "meanval", "]"}]], "Input",
61 CellChangeTimes->{{3.5363840445340414`*^9, 3.536384052490449*^9}}],
62
63Cell[BoxData["0.00017797367667371226`"], "Output",
64 CellChangeTimes->{3.5363840531768847`*^9}]
65}, Open  ]],
66
67Cell[BoxData[
68 RowBox[{
69  RowBox[{"data5", " ", "=", " ", 
70   RowBox[{"Table", "[", 
71    RowBox[{
72     RowBox[{"Table", "[", 
73      RowBox[{
74       RowBox[{"{", 
75        RowBox[{"x", ",", 
76         RowBox[{"0.01", "+", 
77          RowBox[{"0.01", "*", 
78           RowBox[{"Sin", "[", 
79            RowBox[{"x", "/", "2.5"}], "]"}]}], "+", 
80          RowBox[{"RandomReal", "[", 
81           RowBox[{"NormalDistribution", "[", 
82            RowBox[{"0.", ",", "0.001"}], "]"}], "]"}]}]}], "}"}], ",", 
83       RowBox[{"{", 
84        RowBox[{"x", ",", "1400", ",", "1405", ",", "0.03"}], "}"}]}], "]"}], 
85     ",", 
86     RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input",
87 CellChangeTimes->{{3.5363841602325745`*^9, 3.536384165427641*^9}}],
88
89Cell[CellGroupData[{
90
91Cell[BoxData[
92 RowBox[{"StandardDeviation", "[", 
93  RowBox[{
94   RowBox[{"Map", "[", 
95    RowBox[{"Mean", ",", "data5"}], "]"}], "[", 
96   RowBox[{"[", 
97    RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]], "Input",
98 CellChangeTimes->{{3.536384192573033*^9, 3.5363842313090672`*^9}, {
99  3.5363844355169945`*^9, 3.5363844373266287`*^9}}],
100
101Cell[BoxData["0.00007606666840596435`"], "Output",
102 CellChangeTimes->{{3.536384202775956*^9, 3.5363842319798803`*^9}}]
103}, Open  ]],
104
105Cell[BoxData[
106 RowBox[{
107  RowBox[{"sig", " ", "=", " ", 
108   RowBox[{"Map", "[", 
109    RowBox[{"StandardDeviation", ",", 
110     RowBox[{"Table", "[", 
111      RowBox[{
112       RowBox[{
113        RowBox[{"Map", "[", 
114         RowBox[{"Mean", ",", 
115          RowBox[{"Table", "[", 
116           RowBox[{
117            RowBox[{"Table", "[", 
118             RowBox[{
119              RowBox[{"{", 
120               RowBox[{"x", ",", 
121                RowBox[{"1", "+", 
122                 RowBox[{"0.01", "*", 
123                  RowBox[{"Sin", "[", 
124                   RowBox[{"x", "/", "0.5"}], "]"}]}], "+", 
125                 RowBox[{"RandomReal", "[", 
126                  RowBox[{"NormalDistribution", "[", 
127                   RowBox[{"0.", ",", "0.005"}], "]"}], "]"}]}]}], "}"}], ",", 
128              RowBox[{"{", 
129               RowBox[{"x", ",", "f", ",", 
130                RowBox[{"f", "+", "i"}], ",", "0.03"}], "}"}]}], "]"}], ",", 
131            RowBox[{"{", 
132             RowBox[{"f", ",", "1400", ",", "1420", ",", "i"}], "}"}]}], 
133           "]"}]}], "]"}], "[", 
134        RowBox[{"[", 
135         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
136       RowBox[{"{", 
137        RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "]"}]}], 
138  ";"}]], "Input",
139 CellChangeTimes->{{3.536384287766553*^9, 3.536384384816019*^9}, {
140   3.53638459126932*^9, 3.536384604062402*^9}, 3.5363846554335313`*^9, {
141   3.536385152091708*^9, 3.536385152450508*^9}, {3.5363864200900297`*^9, 
142   3.536386495204993*^9}, {3.5363865650626297`*^9, 3.5363865665602393`*^9}, {
143   3.5363878079130936`*^9, 3.5363878356186934`*^9}, {3.5364002590615444`*^9, 
144   3.5364003047071447`*^9}, {3.536400362645544*^9, 3.5364003778867445`*^9}}],
145
146Cell[CellGroupData[{
147
148Cell[BoxData[
149 RowBox[{"Show", "[", 
150  RowBox[{
151   RowBox[{"ListPlot", "[", 
152    RowBox[{"sig", ",", 
153     RowBox[{"PlotMarkers", "\[Rule]", 
154      RowBox[{"{", 
155       RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}], ",", 
156   RowBox[{"Plot", "[", 
157    RowBox[{
158     RowBox[{
159      RowBox[{"sig", "[", 
160       RowBox[{"[", "1", "]"}], "]"}], "/", 
161      RowBox[{"Sqrt", "[", "x", "]"}]}], ",", 
162     RowBox[{"{", 
163      RowBox[{"x", ",", "1", ",", "20"}], "}"}], ",", 
164     RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]], "Input",
165 CellChangeTimes->{{3.536384619537701*^9, 3.536384626947749*^9}, {
166  3.5363848063956995`*^9, 3.536384813680908*^9}, {3.5363848437421083`*^9, 
167  3.5363848921489086`*^9}, {3.536384944861308*^9, 3.5363850137821083`*^9}, {
168  3.536385047025708*^9, 3.5363851167889085`*^9}, {3.5363851599853086`*^9, 
169  3.5363851856629086`*^9}, {3.5363865310386524`*^9, 3.536386543113207*^9}, {
170  3.5363865824879413`*^9, 3.536386584001151*^9}, {3.5363878424046936`*^9, 
171  3.536387844027094*^9}}],
172
173Cell[BoxData[
174 GraphicsBox[{GraphicsComplexBox[CompressedData["
1751:eJxTTMoPSmViYGAQAWIQDQEf7LdtOLSJcV6VPVTAwcfPgkFDKQfK53A4c3T2
176yxReRyhfwGHpv6iySVrhUL6IA8cqkzdfWBKgfAkHiZweto2u7lC+jINJjea+
177ZzyBUL6CQ/5EvmMXFISgfCUHn9OFhroZJlC+ikOua0egvoqd/WB3HwAbkUg+
178
179    "], {
180     {Hue[0.67, 0.6, 0.6], InsetBox[
181       StyleBox["\<\"\[FilledCircle]\"\>",
182        StripOnInput->False,
183        FontSize->Medium], 11], InsetBox[
184       StyleBox["\<\"\[FilledCircle]\"\>",
185        StripOnInput->False,
186        FontSize->Medium], 12], InsetBox[
187       StyleBox["\<\"\[FilledCircle]\"\>",
188        StripOnInput->False,
189        FontSize->Medium], 13], InsetBox[
190       StyleBox["\<\"\[FilledCircle]\"\>",
191        StripOnInput->False,
192        FontSize->Medium], 14], InsetBox[
193       StyleBox["\<\"\[FilledCircle]\"\>",
194        StripOnInput->False,
195        FontSize->Medium], 15], InsetBox[
196       StyleBox["\<\"\[FilledCircle]\"\>",
197        StripOnInput->False,
198        FontSize->Medium], 16], InsetBox[
199       StyleBox["\<\"\[FilledCircle]\"\>",
200        StripOnInput->False,
201        FontSize->Medium], 17], InsetBox[
202       StyleBox["\<\"\[FilledCircle]\"\>",
203        StripOnInput->False,
204        FontSize->Medium], 18], InsetBox[
205       StyleBox["\<\"\[FilledCircle]\"\>",
206        StripOnInput->False,
207        FontSize->Medium], 19], InsetBox[
208       StyleBox["\<\"\[FilledCircle]\"\>",
209        StripOnInput->False,
210        FontSize->Medium], 20]}, {}}], {{}, {}, 
211    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
2121:eJwVjnk41Psex2eYDKJG4sTIkDiKzPC7lnB8viUVx740Yx9rwjBmkSVbEdly
213s28tTjq6SZKak5NKnatSp3CRCrdVQ7KMZSyD2/3j9bz/eT3P+6UdHOseJoXD
2144dJ/8P/94qEagcNNQ0yVkR/+fBLQKF53R36aBg3LmWXr3CRIGi+Wb6dOQ1/i
215cPDl+CQgZShdTwychooNWZvmXJLAsklBJLo/DY5ZbJnThCQolJU+8SVlBhjJ
216g8liXiKYtU+d7VoRQZ/6qvq12ARIzzH60KA8C5JKn9d+zAR47sEyyTaYBaes
217MyYGbgnAHB/vs/WdhXtfXoRoYAmQ+9OoWnvbLGz/QPE+tHgcRuKGfruROAec
218OuNDidnH4bTeM0GJeB6ohjtsfQTxoKWdh+MrLQCR7iYi/Cse2shO9l4GCxDi
219GI57UhMPk6SetyqBC3B7U9LuopPxQF8ZXC3rXIAVwfszVJd40O8W2laWimHO
22018IteoIPzxJlu2uxJdhj9XzSx5QPobyubalOS/A7Zed82m4+rMXkBwUcXQKI
221bi69TeGDSShpVrN6CXxEfqtu8nyoct6melFqGZaOTUw6vOdBpI6+X13PMhRk
222SpjkszxQ+PuQ8EqsBCwo9oeRmAtlwTvMurMlcJ/00qprkguURcmppQsSSL0n
223IwwY5YKJTgvFsVsCCtlnSQ39XGAkatBnaKsgHDeyFLRy4bLuzL+tRKvQi7Wl
2243OFx4ZfUqt+6eevAnaFONK9woFOZP7OUvw6/V9j8FTnHAderLqBTvw535M6K
225DL9zILSP8I7fvw76/6zZ0jXCAbtS8zOKZBw6KFBrCnvEgahvlx62JOPQpevb
226bVXyOCAoj6euWuNRIL9icU6bA4xZvGH/YTxaTprKaidzYNm5QP+6Jx6ta7Vz
22781U4YCNzWds/Go98fRl2v8j96OH1KLdX49FNj6iysek46HMzXDyxjEfzd+5O
228hXTEgWjjx4cSgRRyEhFpNeFxYJTu5C4xISAbb/HUvodsSOBWOfQDAWlGEQXT
229bWzoCP+6v8mRgJp37s67fJsNnk4ZGDOcgOZ43Zbka2xIVr+99a9KAkp3LRiy
230LWPD01aN13m4DeiPnS45ySw2BI998yW/3ICGR1ya3ClsKHPPDbM8RkTJTPpk
231imYsMIpD3pvziQgvTp/KUY0FtT5rX9MMImqwUZet2hQLNV5TrrRKIjpSWcd8
232uRYDlxie1nrPiOjVafM3qf+NgcYATeUtu2RRgVNy2OKlGHgU2fJwTCiLUiqW
233jmoYxMD3k2/JlRHy6BKdb9bhyIIjvvxz5Xx51BTNySu0Y8FDjCRXdlIexRiO
234GATZsODcZ7uFczXyqK10h6kqjQVmB29253fLI8WUxjv3lVmQLpeTlW6xEUUe
2353SdNGIqGLUWmU0dlFdCv3xf2m7Gjwby26JFZgyJiGw3Fb7wSBSHHw4Se0SSk
236mhKRVW8XCdouCh2aY0pIhnX4nav+MRgkjyrJnlZGp8TksvxtEZBdbt+aQVRB
237f7BG71WZH4VBo1j58AxVtNA0fYEZFw47/nwyeIy8DXHfJW6zuREGoQtXF1cr
2381VChhPrnU/kwuKD3oOimBRkFV645b4wIhROcsqFXrzSQvozKQG9/CLiyxImp
239v2oi3AC3RUwPAU3/vLOOXykotHv/k5NvgkGU4pncf0sLSajRF3uigqH3iSRy
240a6Y2snqz74j0ahCcopxuzXHdgaRLaR9PlAfBDec+PbvNOmjLOZJbmU0QMBat
241vJRGdFBdoe0J4ScmpCRGNOpe2IlMCmOa1UqYwJWN94/100X5D4qH1+2Z8EWp
242tuvpLj00dCvN4cZKIPxHlMOMHNND7ha00l5eINg4F7aQ7/6M0nUHjL+PBUCS
243gBcglaWPNhV7yHhGBIDxIgUztt2Fhh8kbiXM+0PYrc+PY5V2o8ZGcCtJ8QeV
244gzEpCz27UXbBUv3yFn8oGx0saik0QCflZE3uN/lBCd6fmepriEi03DXWQT9Q
245nKtnnFPfg2rHiMpSY74gHSSreGdsD5qXuvL8drYv8Oqp49rXjJBA1PHCh+YL
246ArG59uMIKhq1NUZdwz5g9dFQ3pJMQ41r3wYTsn2A8Q+tCrNkGrJY94jq3OsD
247rbZaBKtPNCRxVaZmCr1h8Q1pu4+9MTrjkfY8t9oblt+FONQ2GKNPTcFU9SPe
248YFn92Eu42QTNP62hgqI3WHRm8elsE1Q35kYNf84ASoLF/g8vTZDUga8XO/MZ
249cOCreIJjiiGb10q9Hx0Y8PMjtUb9UgxFyCvutd7MgFwvF7m+MgxdyzzeYbqJ
250ARPCzPC0CgzhF6KjqIoMaN48rTVQjSGe0ZCOzkYGWPp3lp6qw1BCBkFPgcgA
25150VO2sgNDBUtHjr2eY0OPKMX7iVdGKLwgtuuT9JhoAPfDC8wVK6eGn7tOx32
252epkrfvsbQ21WB7CrE3RYS657sq8HQ4KIVqP6cTrkPEuwnnqNoaG9oY3nR+lQ
253Haqr5/AFQ2l3ZdrLR374Yp9T86MYqqksYZcP04GZV/T+ohBDn58GHigfosPO
254lpUq8TcMKZOKHcvf0qFpvWdzvQhDrgXNIxUDdCAVE1mucxii60YXV/bTgav3
255S9fKPIZUzagRVX10sHBqyHRfwtDoSnNcTS8dqt4Pf1hdxtC0e/CV2h46rHKV
2564aoEQ3XhuJXz3T/+ifY1nms/evMzYy++osOjqtSl9XUMxWwXSte9pMP/ABtO
257ob8=
258      "]]}}},
259  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
260  Axes->True,
261  AxesOrigin->{0, 0},
262  ImageSize->{573., Automatic},
263  PlotRange->{{0., 10.}, {0., 0.006498343118590258}},
264  PlotRangeClipping->True,
265  PlotRangePadding->{
266    Scaled[0.02], 
267    Scaled[0.02]}]], "Output",
268 CellChangeTimes->{
269  3.5363846274781523`*^9, {3.5363848075345063`*^9, 3.536384814180108*^9}, 
270   3.5363848928509083`*^9, 3.5363850153421087`*^9, {3.5363850618769083`*^9, 
271   3.5363851172257085`*^9}, {3.536385160968108*^9, 3.5363851861309085`*^9}, {
272   3.536386428592139*^9, 3.5363865008054647`*^9}, {3.5363865322398677`*^9, 
273   3.5363865435500126`*^9}, 3.5363865847031555`*^9, 3.5363878444014935`*^9, 
274   3.5364003826759443`*^9},
275 ImageCache->GraphicsData["CompressedBitmap", "\<\
276eJztXAmQXEUZ7uzM7G4SIIgHlFZJyiqtlBcWgoaFNUEgBDASlEsRYZOw2XAk
277AcIhaBHOlAgyQnFEMVEg3Ec4XESDIolAJCQIiRyDQEAIKEcVlIWUVo3z/f/7
278u9+b13/3m91JiJSp7Ozse/39/fV/9fnelL55A0cd1zdv1vS+sXuf0Dd3YNb0
279E8dOmnNC41JphDEdvcaM6Btr8L1ujHzUG//5YwI+cDl24Sz6VTGD/Sbzr3+w
280bgboXsnUa1XT0z9If81MrtnyjeszExn1es1Ue6wEM9i4OoPudbvyPVVTYwb2
281Wk+1NpLZnE2/yqbWENO42vhr0FSrNR+RfqkUUhKhgIF45l5SXkQyoZEJWSZJ
282KkmVHezvMdUaaBOrc5Lqa9WqLX6UUEq1uYM+SwlzLjcjoSLUpCqUsTQbreyn
283qhu/DVet0fTJaaLpxIkmylSUYKzBmSlWwpb1WLMWrifmAewohQ3rzMvmXOso
2843CDHBtcaIhJbWufB3ybrPBkFJdcIWx+Sgj7K1SexkrZjJWVbZ4OZaYUmvi6u
285mNZcpgnWhVgzQ3A3nWbZUeGwmeUJjDTDpFhKkakITYJmuhUt94hlR1OgQ8xI
286naBLLJ/YfAuNoQt1TpXG7ICPETp+O8+1bQuWK3rt/SLvg+KJy5eZCb0L6aeD
287PrnchN5lZsVG4BxwSV/xHYdR1abATvFc20ZUW3/DXDuNVVvKqHahmbHkjWHx
288C6hxYBjXplnqz5pze/3UJ5zzrBfbIiX63MWjqkpSK1QkhU/QZdPnEo83l+wn
289ezJKnBiRcy197TT19avNjEQO/UxbbdbX6ydF4BsxVVKZNldSC7d2YgT+dEGl
290f6WgHHEA/JQ9TtBbUM65vXk5cNpW5bSLz3D1M0wzxVxpm7D4UUXEf6BgUwMj
291Jids64JJoUsXtjDcJio011bjcl3F4y6Baq4o2Gz6nD38Zkl9Mc/M1jd0m0h9
292sYiizzlD9qOWmnVGm8wxf3jec5YeUJturLxrmOjzEXhPQX09G5FTtBf/a2E5
2934YgsLmd4fNqlnxbM9J650uZeyGxBv9OzWy7gVhqa7vsmxHyt3Ly6VSrEoOJd
294BGDsVt573msk1C4ulLWq54ad5iZLyreAIqR893zXfKQq1hWPKxgHN1hOvnUm
2954eS757tWVFFzEnax3uP6ja6xELtYF+rYbUona1V35eYgq6hB1u2J1cyCVZRU
296QXdT00exCNock917Oy38Xyy0JmxrKvQ1Hb66oMvR5766nEdETmTkQZ/7NNvR
297ocPjnxy6XSw2klaGaZzN0d/+H7KbfaH3gZ65dw0HzrYRGUk3WyyIP1xQWKGZ
298+odY2FBH7pUcBH+X6ErFjcfqiTrF2J0JxUJrFkIxNOoa09Koq2kn3KhTiyGp
299MjR2HVV07CoTo/T2OIlwI34p0orTBIf9o4oO+23NqU1xVYctxEd7VJcwyVi8
300IxjiH2GKW7/99rsT16x+CT8Dty9dN3/xolULFl6xsuP3c2bfaUrPHXLQtfUG
301c/zIDmebnNK3UR6e73K8dm73+uv/FMqnLrlmDShffuEFyxPK7+y1x5Wg++Z+
302+yw2yTXcRjEUNx0AmtLYDRvespVI04Y5j8jsqavziJQnZ/Q/96YbHwPLiy65
303+IGmxmw4YP+rpTEwD4rBXNKY7nff/Y+tZHQkWf6L09j4dWtfSZsd1UodUF6z
304EnEf5UDTW28sSXPu6E43Wex33Znzl6GWNdOn3dxBzlZ5cNbAUlwS26WrhQgr
305e/tItS/xDXGbqcvvf850QKKp3H3SvEHUAfU2Nbciaj703mXPAPeF2tOvmc9E
3066uKVu9GiWrGoNE/CCfXh79tOP+2ehEtp8sqHXgAGPM1OkXrWsgnhw8CAo0Qu
30782cldokSxXbSGHL+9D6RG5Ssoqtbjlu//s20d0gTRFVoCv7G9WxoTYpwX8GJ
308Avr06UgqeOLww25I21+ok36+Hqljmb8O6Bsyxb3hbj71UB0HR+q4i+sQvzry
3097sEnfe1orgP+h/Lkw9+N1HELfd0K5eEfEqaQB/2kfWnxgvPua25Df0T8kmxG
310FVtLWLATdeIrLkkUoijcY3ZE+iL2JJ90+GWavBhZgsCcHJF9+dBkIzDNDyKy
311qyxb8lRLss+JyD6fvm4BxxSDwnCQhVwPx/TJ/VFE7Nl+ymk/gR+KFeGrKEfp
312+yfeNMBK2kIyTIyo+MQVEaKn6GLTWaWZ5KKI2OM574o7IBmBWUisWRKReYwu
313ExoQF0DOhb5JZmztjgNytNhIYlmTR/ZZGpF5JMuESsWlkOfE7mIliVySORiR
314eRh9HeXjCV2KHyGXwerLIuIOGgLFP0RkTmWKkAka4u5wTB/FByPi9guLA13x
315c0TZKm/QTGpNyJ8jnHZvTdxfIuJ2Y3HQrsQetKSJq0XEjaevI5HKEFMwIHIM
316fERiDcamfi624/tFloWy4iDib5CJFAE/pDHYSxFZO7AspE04FLBwNDRTnMI6
3172asRWZ9mWcgBsABiU3IKugLEBdoOBzNvRGR9ir52Qxb6aOgLvBD3UD3yC3i9
318HRHDazPdcApUjebBehCDoQfUBDrvRMR8nG+gKCAQYzogyJTwHaJpkPhvr6Oz
3192G7YA2hUDAJoD9ol6HqEBE9Cu0ECpoIaYCaYHGKgJqiLypYjsrbJqheNEEow
320E8wH96KyseM+dL7XdMEVgQUf0S+aRsPD1JRUF8RTsS7oCfaF/8F38BsNJn+m
321gltHBPHhmy6xuigczOCUYJpZkVEF8RS7G94PlaB5UBEsD5VlVB5bwjNdKAoH
322gOUQrPiNhlFAUJmPsYyhLrblZ9nuARNaM/DNsnlK2gkS0LqYDy6FNlOh7RNe
323ocWMUUUXM9ziUM1U+/k4vG8tgyetnQhzKB5Kh/JhQbhCKr7bvKSW1rNbUuNU
32404WwgN3hVDKugxF5hQRlPmk5tWsDXR4qaNz0WfAt5+5wL+mmwBBMef6PMuM2
325irZqVVNNbvnM+CabESZDbwL/ginhXwhEKvTZAv7VwgpurZY87dSwY4/uYK85
326BwMbsAI7sLQOtkPCbHhrXamnbJS1rledluDsMr6FPW3fsKOeYV52QYz4kKbA
327MW2C2lmHv8hw1ITWI8zwg3xgax+vw593cNQoJoYoMKJCu+pwXgfqlPQoaz/Q
328g7VD4Hgtn9ClxUFke7i/JDCYNjU4THXMT9KFCuJDOlJkdNc17KlXuI6xaC6U
329LZ0drZVRib117OOuXhBFO6Fl10kGdnIfZSzKAiP1Os7RvfEKykp3CO6u3sAi
3300cPZemXCgDYw9gAdu9Jfr8uW39SxD8TqDSw6rYjVe6iO5afH1A2JQ1g0BgXw
331tzytw5qdbbokx8hGDOuiAk9G7Mgww5E+XCftHvoIHxeY6pxXEg3qco5wRJE6
332wkcb2JcqCF4oH+1AXuD1b9zrG3472NfLCDpZC4cF6OYMXXxRU/AMtwwDQzRy
333hE0mgYXCiOvs61wHmU4M7Ea2A7roO5xzSDQgxTnnOFrHLs07Vjb6j9WxtzrO
334MCL6Bchwo4rAyiavyJaBk4xuu6O5OuwmZ9scLP0QEaH4AFkZ1sEsE5ayfdY8
335vY7rGIb+SRa6MQmmm4H1VF4HK4OOzEntKPlUHXY1w9IGgAPQzdN02FUMQ1HR
336O+xAN0/XYb9wKpHZodVfYD2X1w3L0J6oxPa/Z+iwKxkGYjJ4sCo5U4f9jGHI
3370Lm2naXDFjoDIOvix5o7vZ5MqORZAtGf6ynP0yu4zDkG/AnKs1PhBTrsUr4m
338Uyha36Y7P9Qxl2SrQkhaFZyvwy7WqrpAx/AyfRllc1VdqMN+7GwLCKA2Si5i
339WHvOdMuefPqZat+YnbnSSgz8kzbS6E6yMN/mKWqEzQWaJS62bPSZ1uiCM61B
340Om8rR2bSrzmocyUJDRsTGeNeYpm0ZTaafaOBO2LOkVFC4Gcj7dICmmjtwHbq
341PQa+mdQC57LoOJDJbPxeVsBJWj2fbd9S4CNzXtZdaVue7iRbP63MK4cWMMkb
342ITA2kuhlBgv1qE/eaQE/wvjNdfU/1TGcsumwgSzQMuZKHXOm0w64uQnUz3XM
343fOdowLi1s8CuF3deJVk1de1ZrGO4n6QzG9ABnfegO79MYQjyfS6JXgiM3Dzg
344Kl06d94lWAOJww0Ar9YxPE4oYUgKX3KtuEbHfI+vyc6hG4EH9vNOcS2XbXLG
345XKdjTs5aHxwZc72O4eew6agJ2uNSRuCRgHlZXTu93ahjTnQY1OMGzIH9Rx5l
346liAf9nGYm5utf7wrmbXKLbr05KFVtDiLuVXHzNHquU3HzNYwgV3S4zTM7Trm
347WA1zh445RsPcqWOO1jB36ZhZmvV/pWMGnGfCyxwmvRNMkJnO72W4zCXv1qX3
348u/hCb01b4XTn11EMYouzJK5HMMnLkpC5uN8RzD06huevNGDGwNdhfqNjpjtv
349Rnsc5rc6ZpqzJDTs8lJgc7xPs+S9OuZIp+tsvvhdFJPXdQBzBD7pbBr9fV+z
350n/DRJeq16BiblXmfLpMXe6h3RA5yOgps9n/H+WM2b90fxeTbG8DwEhf1qNwz
351Cma5jvm21p4VOuZbzn7AuN7+j4xp37F0jDblVWLpY+m+g8EJK9n6da0XVm2Z
352hLhjyq4hPja8klmSTSnH5gHLpo2HpmvV/uCh6UNclMJiLkc/aNm084A57aw0
353b9Ud6LxG1nWYw0MFNNLCZMRu66iPQh6czQsrC/jHli3NPwarvL9V8VTOB4lK
354Mud3jiE0hjz5kCewnQbSHpshkbIFJoYuI/1Jj/oDtfgKYHjt3NMLPaxjvqFx
355WxXFoHekM+W2ngDmAM0Qj+iYqVrmW53CECQpiRkXHWm20lfr0vd3UYqWu1y8
356JorJ9xMBDO8EePq9R3XMFM0qgRNgU7Jx9phekvcNPL1QHAO/4lmKtCKA2U9r
357+eM6Zl+t5WubbZ6UzPe/a3XpvLNIo1qsP7uWr4ti8t4ewEzmazJ3cpjAkbvJ
358mm8FMHtr9TwRxaBX4HF3AcwkzZJPRjFubl8As5dWz1PN1t9Lk/6ULn1PTfrT
359UUy+ngBmD62ewAnJPbR6ApivavU8E8Xk6wlgdtfqCbx3ZnfNmwOYiZo3p99L
360Q5CJWkwG3mAzga/lY/+5CMbl1Of1knw4g/IWpLttxTgmP9OMY/L2C2D4uR3P
361uGB9FJO3X4Jp52tssi919o0hd3O2oyfbLJsXEjZtOjU1mH+ls29Al9DBUIMX
362efN09MH1mMKDa11Gls6umu+9aOno840xhTc+fO9sdhOOXbQk8WJbdeJ7W3NA
363J/nxiqPTrvmH6MU3/+jhaxjG0FlpS+NvCY1hb36k37bsU0RPNoUFDsMnXBFg
3647EJNXH0Y1eqBenbRUksAM94lgGzyfjmKyU8K4hjU4Z73bcYQ5MtcMp9UN+jS
365E0x+UhfAfMkFN07ouZa/EsXkl0PimHzABDA7a1YJPCaRYPKdXhzjNu8KYHbS
366Iu/vUUzeY9IYgiQlMUXhaWkB6fzMCk27gHOYf+iYz9Nnl+8w1fzqolVuY+o1
367Xcbn+JrvvNcTE3oXjbstzT/AReSkX/SQvGl7HJ6/xTc6nlaQT/rFFomcyY3P
368Q+kajtIVlFPoxRMBuwT0k39HRNRW4Zc4vK7D6ZM+NuXLX8yI/wIyeZo/\
369\>"]]
370}, Open  ]],
371
372Cell[CellGroupData[{
373
374Cell[BoxData[
375 RowBox[{"ListPlot", "[", 
376  RowBox[{"Table", "[", 
377   RowBox[{
378    RowBox[{"{", 
379     RowBox[{"x", ",", 
380      RowBox[{"1", "+", 
381       RowBox[{"0.01", "*", 
382        RowBox[{"Sin", "[", 
383         RowBox[{"x", "/", "0.5"}], "]"}]}], "+", 
384       RowBox[{"RandomReal", "[", 
385        RowBox[{"NormalDistribution", "[", 
386         RowBox[{"0.", ",", "0.005"}], "]"}], "]"}]}]}], "}"}], ",", 
387    RowBox[{"{", 
388     RowBox[{"x", ",", "0", ",", "5", ",", "0.03"}], "}"}]}], "]"}], 
389  "]"}]], "Input",
390 CellChangeTimes->{{3.5363873067674932`*^9, 3.536387389104294*^9}, {
391  3.536387437573494*^9, 3.536387534558694*^9}, {3.536387588331894*^9, 
392  3.5363876542218933`*^9}, {3.5363876856870937`*^9, 3.536387777961094*^9}, {
393  3.536400527846876*^9, 3.536400578489994*^9}, {3.5364007323035593`*^9, 
394  3.536400806953239*^9}, {3.536400844287475*^9, 3.536400852243781*^9}}],
395
396Cell[BoxData[
397 GraphicsBox[
398  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
3991:eJw9lQtQU2cWx0kIJCQ88qAIEUEELNBKGaJEdPEc1MpSkGcV1ta2dtU6lkFq
4003S7CiCsWVymuU+naxtJ2VBQtSpEqCEhVQEBBnjooRSSIPMTlXhUwKIW9XO7p
401N5PJ3OS75zvn/zvn/7l9vC1mk9jMzCyP+0x/09relDe6qIeBSy4ZQ9GXfgSH
402pe/cv/6Angtg/r/ebTBMMSBvP5EUJC+BteHygs+sWOH/30AU/c+2h1IWdPyq
403Au0R719LB2h/LYQd79WpnFgwptgXhBhvQv/n92YletH7jaD6uTj9whADf+U3
404tIB0ncWxUz4Urw2SHdxDNvmywG93uQP9y8d/qJWxQvx2CFgzNlzFxR/zev9Q
4055ehdsNp4NvLr5XReB8h2PHsUxu1v4FcnLJGVuXqaqL4uuJFR4tn6Ggsx/A/d
406EFr1OK9ByQr5GKGnfJ5jBpdPEH9gD+iyV92+4Ev5PYRVkXs+3KhlwXv6eK9e
407GHsejssXUb6P4IRj4GfWDixMB0ux74O19x9k75pF+fdDzP5zPiVvsTBDYwCi
408luevWfcG1TMA/7FzXdYnYmE6WsbQIPjJFr/zYxDV9xjs67IT41xYmJFjCN7d
4093p33YQDV+wT2at2Cn3J6c8lxAf8HZRt7ln2+gPQfhhvsVKYvlw+fXgEDuhyv
410llwn0oOF17/tS4qyZ+EWH4+FhE6nBY2BpM9TiHcrqfHUUfynsEEfXFYbRHo9
411g2bjtp8MEjrvGVz5Or65di7p9xxWO4+ptDI6/zlAcm9SuDPpOQLRC3eX+Xiw
412kDtd3okRmJtWIHm6mPQdhdSLremWKhYM/BoFv0qF/aSREfQeg5NzQl+Oc/oc
4134hMcgwF/yVfeOtL/BWguOjj9hePDh8t4Ae/NOrv5jph4mMC6t/VKv4KFVD6g
414Cb6MT1S+rSE+Jvjph/LWzlEG+PSSxqHwaL5d2ytG4DUO9qZ9Oy5y87KZXy+h
4157IB4q8ya+L0E68uFhh0VDPDlvv8KaronnsRLiOcrmDVo8uysYQQeE6DMzDLG
4161TMC3wnY3qsfd+bml5cv5A9YpnwvNO9XRuDxB5RZlO6vvMoIPCZhaW3Ak+F+
4176v9JcP+7wVHzX0bgMQUXc+b6vChnBB5TcLu4S5TWQnqaoao93Cr2MuVjhtqK
418hJs2XN/M6GuGtmrfLd2VjNAv3P91B1zsMsgPRBhyvcT0tys07yIclHZpDxYx
419gv4izA4rT/QvpvxFmJJwdanpFCPwEGNdR13a+lKqR4wJbuqICe79GT5iTDp2
42037frGNUnxtsXxJkTuxmBlxjF4foVnxioXnPsPhz3fXI18TPHttij+vOHqH5z
4211M6vCEuqJ57meM3yzKJHjYzQnxJsXHzyg8gNjMBXgnvZTx7UnmOEfpXgnYn1
4221xXNjMBbgrFb5QbRYUboXws0fnpc8lsa8bfAa+Yps225/Gf62QJjBra9vaSJ
423EfrBAtlsnf5GLvGwRK+W82g+TjwscYvT/vScV8TDEhe0RoS5nSUellibdK0o
424uIR4SDFzaHa0kfOvmf6RYlzn90suqWkepBjwmsIxs4p4SFGR2dScMkU8ZLi9
425UJ+rMxIPGXZ8GvXRz9eIhww9jziHeZvR/MtQs65YVeNB8yPD8ed2rY39xMMK
426C5ZE3vqOm5cZHlb4VlSF334P8gcrzNIUVOwcIx5WOHg3LuDxIPGQ45zQL9ql
427Wpo3OZ4WZc2+Op/8Q45Wro8WvVDR/Mkx0TGr9JuV5CcKvKX+h2jNMPFQYFPR
428+StR88hfFBjhflmW70HzqcB6f8NUtDv5uzWeCUsPF+nJP61x7xseTfVI/mON
429uS4YusuT/NkaOxS7TlTakx/Z4HVpWduXGuJhg1/4yVadWkE8bLA/p9Pinpb8
4301gblCb4Hk7zJr2xxw+GU4QP+5L+2aIwsdZ2Uk3/ZYpZ7VeHIn/evLfYVPaz7
431xoYFPtyoLc7d5BDDqsmf7fDjfZt7RSuIhx02x99+c+Gf94UdnlReCopdTfeT
432HT4e3JpVoiU9lGgbuPFQkyfFU2J1cJzPzXmkjxJXiu8GDiyk+EpM1RUOnwPS
433S4nx/eVOffPoPCU23DvftSyQ7iPu+WBw8agnna/E42k18pMq0lOFc8qc3HPm
434032iwt8d41/X6en+UuGNIX3haXfqFxXuTS1wkYpIbxVW98Ttqfel/lGh+VBX
435hsaC9Fdhfnfsvlta6icVZo4WDTmYEw81vplSbZ/sx4IrH1CN3360RZ+tIj5q
4363D2hi5B2Ur+psSXP+ZcwCfFS42oHmw82NJIfqLFhp20ydpC/qZE9arZ+uI/8
437QY32rjtP+5vTfHHPpsYjeWbEQ4PReTG53SM0bxr8PV8q3dxK/qHBirUrQ9Kb
438yQ81uAv9RvZMkJ9oMCpi087UKvJHDRq+elZwZpL8RYPxd6v+jW00nxqs3mPT
439/pCb7/8D/wvi/w==
440    "]]},
441  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
442  Axes->True,
443  PlotRange->Automatic,
444  PlotRangeClipping->True]], "Output",
445 CellChangeTimes->{{3.536387376671094*^9, 3.5363873895878935`*^9}, {
446   3.5363874405062933`*^9, 3.5363875351202936`*^9}, {3.536387589049494*^9, 
447   3.536387655501094*^9}, {3.536387687293894*^9, 3.5363876977614937`*^9}, {
448   3.5363877484770937`*^9, 3.5363877786474934`*^9}, 3.5364005301559277`*^9, 
449   3.5364005608132677`*^9, {3.5364007353146877`*^9, 3.5364008081232843`*^9}, 
450   3.536400854100252*^9}]
451}, Open  ]],
452
453Cell[BoxData[""], "Input",
454 CellChangeTimes->{{3.5364004586367345`*^9, 3.5364004774211817`*^9}, 
455   3.536400513618126*^9}],
456
457Cell[CellGroupData[{
458
459Cell[BoxData[
460 RowBox[{"sig", " ", "=", " ", 
461  RowBox[{"Table", "[", 
462   RowBox[{
463    RowBox[{"{", 
464     RowBox[{"n", ",", 
465      RowBox[{"StandardDeviation", "[", 
466       RowBox[{
467        RowBox[{"Map", "[", 
468         RowBox[{"Mean", ",", 
469          RowBox[{"Table", "[", 
470           RowBox[{
471            RowBox[{"Table", "[", 
472             RowBox[{
473              RowBox[{"{", 
474               RowBox[{"x", ",", 
475                RowBox[{"1", "+", 
476                 RowBox[{"0.01", "*", 
477                  RowBox[{"Sin", "[", 
478                   RowBox[{"x", "/", "0.5"}], "]"}]}], "+", 
479                 RowBox[{"RandomReal", "[", 
480                  RowBox[{"NormalDistribution", "[", 
481                   RowBox[{"0.", ",", "0.005"}], "]"}], "]"}]}]}], "}"}], ",", 
482              RowBox[{"{", 
483               RowBox[{"x", ",", "i", ",", 
484                RowBox[{"i", "+", "n"}], ",", "0.03"}], "}"}]}], "]"}], ",", 
485            RowBox[{"{", 
486             RowBox[{"i", ",", "0", ",", "100", ",", 
487              RowBox[{"n", "+", "0.03"}]}], "}"}]}], "]"}]}], "]"}], "[", 
488        RowBox[{"[", 
489         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], ",", 
490    RowBox[{"{", 
491     RowBox[{"n", ",", "1", ",", "20", ",", "2"}], "}"}]}], "]"}]}]], "Input",
492 CellChangeTimes->{{3.5364015622116385`*^9, 3.5364016494059997`*^9}, {
493   3.5364017522911577`*^9, 3.536401759641758*^9}, {3.536401809613958*^9, 
494   3.5364018833571577`*^9}, {3.5364019171653576`*^9, 3.536401932985758*^9}, {
495   3.5364019792251577`*^9, 3.5364019806759577`*^9}, {3.5364020190987577`*^9, 
496   3.5364020275383577`*^9}, {3.536402062670558*^9, 3.5364020886289577`*^9}, {
497   3.536402120577758*^9, 3.5364022565281577`*^9}, {3.536402288367758*^9, 
498   3.5364022967615576`*^9}, 3.536402361477358*^9, 3.5364023990431576`*^9, 
499   3.5364024564027576`*^9, {3.536403154576758*^9, 3.5364031611287575`*^9}}],
500
501Cell[BoxData[
502 RowBox[{"{", 
503  RowBox[{
504   RowBox[{"{", 
505    RowBox[{"1", ",", "0.005945910528997227`"}], "}"}], ",", 
506   RowBox[{"{", 
507    RowBox[{"3", ",", "0.0005087215158455922`"}], "}"}], ",", 
508   RowBox[{"{", 
509    RowBox[{"5", ",", "0.0013550261104868426`"}], "}"}], ",", 
510   RowBox[{"{", 
511    RowBox[{"7", ",", "0.0006949472218616147`"}], "}"}], ",", 
512   RowBox[{"{", 
513    RowBox[{"9", ",", "0.0003744264019698404`"}], "}"}], ",", 
514   RowBox[{"{", 
515    RowBox[{"11", ",", "0.000976398427658014`"}], "}"}], ",", 
516   RowBox[{"{", 
517    RowBox[{"13", ",", "0.00018161939877537535`"}], "}"}], ",", 
518   RowBox[{"{", 
519    RowBox[{"15", ",", "0.0004472645312334969`"}], "}"}], ",", 
520   RowBox[{"{", 
521    RowBox[{"17", ",", "0.0003273894486279775`"}], "}"}], ",", 
522   RowBox[{"{", 
523    RowBox[{"19", ",", "0.0002773174839429241`"}], "}"}]}], "}"}]], "Output",
524 CellChangeTimes->{{3.5364024591337576`*^9, 3.5364024808499575`*^9}, 
525   3.536403165309558*^9}]
526}, Open  ]],
527
528Cell[CellGroupData[{
529
530Cell[BoxData[
531 RowBox[{"ListPlot", "[", 
532  RowBox[{"sig", ",", 
533   RowBox[{"PlotMarkers", "\[Rule]", 
534    RowBox[{"{", 
535     RowBox[{"Automatic", ",", "Medium"}], "}"}]}]}], "]"}]], "Input",
536 CellChangeTimes->{{3.5364022676977577`*^9, 3.536402272455758*^9}, {
537  3.5364023104905577`*^9, 3.5364023152953577`*^9}, {3.5364025013493576`*^9, 
538  3.536402501458558*^9}, {3.5364031909463577`*^9, 3.536403222837758*^9}}],
539
540Cell[BoxData[
541 GraphicsBox[GraphicsComplexBox[CompressedData["
5421:eJxTTMoPSmViYGAQBWIQDQEf7DU+W+y8H55hD+FzODTm/FEqX+0A5Ys4RD6X
543Mk0xDoPyZRw4AyecXnzUDcpXcjgRsE3taqcFlK/moLnObcX8f/5QvpaDGOPE
544g0rn1KF8PYey4hMdt/xtoXxDh3v3J/9cV2IK5Rs7XPbSa5urY2R/XVJkztID
545DA6o7vtgbzHJ1WRvVMWgcy8AgnFZ0w==
546   "], {
547    {Hue[0.67, 0.6, 0.6], InsetBox[
548      StyleBox["\<\"\[FilledCircle]\"\>",
549       StripOnInput->False,
550       FontSize->Medium], 12], InsetBox[
551      StyleBox["\<\"\[FilledCircle]\"\>",
552       StripOnInput->False,
553       FontSize->Medium], 13], InsetBox[
554      StyleBox["\<\"\[FilledCircle]\"\>",
555       StripOnInput->False,
556       FontSize->Medium], 14], InsetBox[
557      StyleBox["\<\"\[FilledCircle]\"\>",
558       StripOnInput->False,
559       FontSize->Medium], 15], InsetBox[
560      StyleBox["\<\"\[FilledCircle]\"\>",
561       StripOnInput->False,
562       FontSize->Medium], 16], InsetBox[
563      StyleBox["\<\"\[FilledCircle]\"\>",
564       StripOnInput->False,
565       FontSize->Medium], 17], InsetBox[
566      StyleBox["\<\"\[FilledCircle]\"\>",
567       StripOnInput->False,
568       FontSize->Medium], 18], InsetBox[
569      StyleBox["\<\"\[FilledCircle]\"\>",
570       StripOnInput->False,
571       FontSize->Medium], 19], InsetBox[
572      StyleBox["\<\"\[FilledCircle]\"\>",
573       StripOnInput->False,
574       FontSize->Medium], 20], InsetBox[
575      StyleBox["\<\"\[FilledCircle]\"\>",
576       StripOnInput->False,
577       FontSize->Medium], 21]}, {}}],
578  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
579  Axes->True,
580  AxesOrigin->{0, 0},
581  PlotRange->{{0., 19.}, {0., 0.0029715890503027205`}},
582  PlotRangeClipping->True,
583  PlotRangePadding->{
584    Scaled[0.02], 
585    Scaled[0.02]}]], "Output",
586 CellChangeTimes->{
587  3.536402273110958*^9, {3.536402311738558*^9, 3.536402316293758*^9}, 
588   3.536402386905358*^9, 3.5364024381759577`*^9, 3.5364024883535576`*^9, {
589   3.5364031704263577`*^9, 3.536403192506358*^9}, 3.5364032240585575`*^9},
590 ImageCache->GraphicsData["CompressedBitmap", "\<\
591eJztW8trE0EYn3STWotGaCu0CNqLUlTwHig92VZsWvReJW0NCaLVtufiwV4U
592YT36B+hJEBVy6q09R0Q9LRT6D1QRPK87r33O49tHko2mNJPtPH7fY775vvlm
593ttXaTuPBo9pOc702vbBVe9Jorm9Pz29uOVVGAaFCAyF0NI3ws+08ssJ2fu0m
594LnCN+Pkp+Soiy6wg/lNv2SukegS16qyuYiKLArp1FdNaIhWlSDeMNkQqDIxG
595euHPPCW6Q74MZ1gdtVhTlZSnndJCZsWrtzF2vcUoV5Bp2eg2G+/vWxRghshZ
596Zp0MV5HDnLscO6QdIZXk/JiM3DbvbpnIASPdlyXkqHB6coYAcyE4g7SJzB9u
597Xokt4EhU90HIRUpwi2va9GxCRg06e0MCzAA5v3wEpsqrCYrLowvkGSkjKOka
598AWZqvUSB2Epi0uAyJ+1T+As/oBVcFOSjyl2oO9sjunmXo9TbabmYI9VC626k
599V+1dQd0dYL9FOWzs5UuaO+0UfpByGNnHbbQx+wbN8c9aGx3b9kP5yO+0DtkH
600++4owy330SHr15RDfOMQ9gl6t0YhSgxi4+2J268BgThCe7NBiLnnR0IIgpAB
6017Qw0oFH/fXXzsGbeK0AGi0Acrif8KQp0ZWhwptTiXGAge7NRMv651JGZBIo9
602lUAsb1FOAkdDudFNwiRQOxolK2zmtXrkM6DAl+UUTKAudoH9ruhJ6bjdVQs9
603o6egm5D3YfOBsraqZu1Wej2vAvspAojGaO4B3ey8nMIfF0Lt4hkEOkO+/Vt4
6042qPlbNyDuRNrF+36aV0pAiPLTYeUjINkx3sSQcJDvc85YRu0znAl9BQg4vi6
605ejIP45mLI5AoX+QCidqgdVwgfwItEugakOMD0FJj9iATSNQGreM26E/RCW4J
606050BWhIpxwDaH0+l/VBmz48zApq/Cly1IZbl1juWagWQZ3o8UFJyG0PBxbAj
607KUkdCbQucp5gpDBqUo7LHatmtZNO5+XDSZm7hGZTLdRX+cjHQLV+0UPoIns7
608rBU+ULeXaGdLO3sNJFd/5obRFXPrensmUn1Wz9Ir+chPQBN5SSGy3Ixp7xNE
609Yegj51fj2F8wflURaCJWtAEcZoucu8ewOm56DMuj/AQ8ogsYFvTzdiQfYutV
610vnOaAO+SRGwK+on0Gtdwu6/XRGu09wbr9zVxtkQjAq+gvYwRLfF8utjctfen
611VCCul9VL5bd8ZBXoFX7JIZY4hMYT/oRAqH0+CCIxF0l0QRCSqz9Lc+nMuY/u
612nQTRoUOAK5V/Lif1z6LXFQCcyCNaOWlEE73JAOBEvhkoJ90MiF5y8PYrZOhN
613gCbgJyMh+vRvwMlI581D9D6ElpPsQzfoMGMQ5wZS5YyrvpMqaeiLXm/gvw1S
614U3L9XZz9d4bpCHa5lK0WMvF3gnRE5ehHoY6e+zzL8aag3JhUe7FGHutGobGO
615s0Bm1NUBKO/NXh+0+yl3shT3M522E29KsKVL+3U6bcXEQ0trkLb+11L1J9e5
616k6pzgS30xnq6wBbjct6OBjbo5Xz2npy7Kn9kg96sh7jJLMgZyB/k1NfiZDgk
617qYsZ24a9+Qrmc6msBH6BLQxrtvICO8BF9uFskMoNpPoXpeqbiBZdp+4JJV2Q
618SbadSnc1CnVXXnJiIbPOTpx6naz5FQq8cAsxk9V9pbvT0ORtHYporkIc/22y
619pmQKySSxtyx2IulMTyW5raSLcG4okyZshBi916DPmn+ERIW/b3vRZA==\
620\>"]]
621}, Open  ]]
622},
623WindowSize->{1438, 1362},
624WindowMargins->{{Automatic, 369}, {0, Automatic}},
625FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
626StyleDefinitions->"Default.nb"
627]
628(* End of Notebook Content *)
629
630(* Internal cache information *)
631(*CellTagsOutline
632CellTagsIndex->{}
633*)
634(*CellTagsIndex
635CellTagsIndex->{}
636*)
637(*NotebookFileOutline
638Notebook[{
639Cell[557, 20, 833, 22, 31, "Input"],
640Cell[1393, 44, 444, 10, 31, "Input"],
641Cell[CellGroupData[{
642Cell[1862, 58, 144, 2, 31, "Input"],
643Cell[2009, 62, 94, 1, 30, "Output"]
644}, Open  ]],
645Cell[2118, 66, 734, 20, 31, "Input"],
646Cell[CellGroupData[{
647Cell[2877, 90, 333, 8, 31, "Input"],
648Cell[3213, 100, 118, 1, 30, "Output"]
649}, Open  ]],
650Cell[3346, 104, 1683, 39, 31, "Input"],
651Cell[CellGroupData[{
652Cell[5054, 147, 1022, 23, 31, "Input"],
653Cell[6079, 172, 10700, 196, 368, 4542, 94, "CachedBoxData", "BoxData", \
654"Output"]
655}, Open  ]],
656Cell[CellGroupData[{
657Cell[16816, 373, 871, 20, 31, "Input"],
658Cell[17690, 395, 3086, 54, 246, "Output"]
659}, Open  ]],
660Cell[20791, 452, 122, 2, 31, "Input"],
661Cell[CellGroupData[{
662Cell[20938, 458, 1866, 40, 31, "Input"],
663Cell[22807, 500, 953, 24, 30, "Output"]
664}, Open  ]],
665Cell[CellGroupData[{
666Cell[23797, 529, 410, 8, 31, "Input"],
667Cell[24210, 539, 3748, 80, 237, 1684, 45, "CachedBoxData", "BoxData", "Output"]
668}, Open  ]]
669}
670]
671*)
672
673(* End of internal cache information *)
674
Note: See TracBrowser for help on using the repository browser.