source: BAORadio/AmasNancay/CorrelationToyModel.nb@ 688

Last change on this file since 688 was 673, checked in by campagne, 13 years ago
File size: 29.3 KB
RevLine 
[673]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.