source: BAORadio/AmasArchive/Amas 21cm/Abell2440/calibrationBAO.nb

Last change on this file was 672, checked in by campagne, 12 years ago
File size: 42.6 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[     42218,       1151]
14NotebookOptionsPosition[     37582,        986]
15NotebookOutlinePosition[     38003,       1002]
16CellTagsIndexPosition[     37960,        999]
17WindowFrame->Normal*)
18
19(* Beginning of Notebook Content *)
20Notebook[{
21
22Cell[CellGroupData[{
23Cell[BoxData[
24 RowBox[{"SetDirectory", "[", 
25  "\"\<E:\\\\Presentations\\\\BAO\\\\Amas 21cm\\\\Abell2440\>\"", 
26  "]"}]], "Input",
27 CellChangeTimes->{{3.510485086467894*^9, 3.510485118692116*^9}}],
28
29Cell[BoxData["\<\"E:\\\\Presentations\\\\BAO\\\\Amas 21cm\\\\Abell2440\"\>"], \
30"Output",
31 CellChangeTimes->{3.5105689779304667`*^9, 3.5105690348801613`*^9, 
32  3.511064938384456*^9, 3.5110657060580034`*^9}]
33}, Open  ]],
34
35Cell[CellGroupData[{
36
37Cell[TextData[StyleBox["Debut et fin des plateaux de DAB", "Section"]], \
38"Section",
39 CellChangeTimes->{{3.511065442593546*^9, 3.511065494257103*^9}, 
40   3.5110655637914*^9}],
41
42Cell[BoxData[
43 RowBox[{
44  RowBox[{"lower1", " ", "=", " ", "21"}], ";"}]], "Input",
45 CellChangeTimes->{{3.5105688470383787`*^9, 3.510568855485224*^9}}],
46
47Cell[BoxData[
48 RowBox[{
49  RowBox[{"upper1", " ", "=", " ", "35"}], ";"}]], "Input",
50 CellChangeTimes->{{3.510568859069582*^9, 3.51056886365204*^9}}],
51
52Cell[BoxData[
53 RowBox[{
54  RowBox[{"lower2", " ", "=", " ", "38"}], ";"}]], "Input",
55 CellChangeTimes->{{3.5105688666353383`*^9, 3.510568880539729*^9}}],
56
57Cell[BoxData[
58 RowBox[{
59  RowBox[{"upper2", "=", "51"}], ";"}]], "Input",
60 CellChangeTimes->{{3.5105688824399185`*^9, 3.510568887863461*^9}}]
61}, Open  ]],
62
63Cell[CellGroupData[{
64
65Cell[TextData[StyleBox["Calibration 1280 MHZ", "Section"]], "Section",
66 CellChangeTimes->{{3.5110655004498663`*^9, 3.5110655155652*^9}, 
67   3.5110655553679943`*^9, 3.5110655958003426`*^9}],
68
69Cell[BoxData[
70 RowBox[{
71  RowBox[{"calv0", "=", " ", 
72   RowBox[{"Flatten", "[", 
73    RowBox[{"Drop", "[", 
74     RowBox[{
75      RowBox[{"Import", "[", 
76       RowBox[{"\"\<calibv01280.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
77      "1"}], "]"}], "]"}]}], ";"}]], "Input",
78 CellChangeTimes->{{3.510485126860933*^9, 3.5104851547187185`*^9}, {
79  3.510485210853331*^9, 3.5104852183190775`*^9}, {3.510568257000381*^9, 
80  3.510568276243305*^9}, {3.5105683234930296`*^9, 3.5105683261923*^9}, {
81  3.5105683755972395`*^9, 3.510568377628443*^9}, {3.5105689538710613`*^9, 
82  3.510568956222296*^9}, {3.510569023660039*^9, 3.5105690240910826`*^9}, {
83  3.511064999755643*^9, 3.5110650004264517`*^9}, {3.5110653389332542`*^9, 
84  3.5110653450324244`*^9}}],
85
86Cell[CellGroupData[{
87
88Cell[BoxData[
89 RowBox[{"ListPlot", "[", 
90  RowBox[{"calv0", ",", 
91   RowBox[{"PlotRange", "\[Rule]", 
92    RowBox[{"{", 
93     RowBox[{"All", ",", 
94      RowBox[{"{", 
95       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
96 CellChangeTimes->{{3.510485159057152*^9, 3.510485166604907*^9}, {
97  3.510485226189865*^9, 3.510485240596305*^9}, {3.510568473122991*^9, 
98  3.5105685426859465`*^9}, {3.51056858732241*^9, 3.5105686369613733`*^9}, {
99  3.510568669384615*^9, 3.5105687303767138`*^9}, {3.510568794084084*^9, 
100  3.5105688198266582`*^9}}],
101
102Cell[BoxData[
103 GraphicsBox[
104  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1051:eJxd03lIk3Ecx/FpYynZQU3zKDzSeXaY97mPx+Y9t/DIpMI0KqNCbHmkMiMi
106O8SjaTVIKFTMUhGsSLN1mZSSClpqmtlMJWUqmEepFT7f/dEDDw+v5/38fs/B
1077zE/cmbfUW0WiyX8u/87rm5TfB8bG4H9nJrPnIC0LaOlWUXWwYGpu7Vm7eRN
108GBPVrXg+JnNhkS9NMVk/xdgQIvXw0pMl6tsQrztgldJDNoOXS6mJ3izZAtf9
109i+KevSJbQlq3/CGhmcyDPGl7fk0X2QbJTWeLDdl0Pzu8n58z2rqB7IDUpw48
110V1PyLvSmCaae65P3QJ4dy17pp/kc8WVoXXGVNvW9YLcscnia93P673s4Yzqx
1117WBY62/GLhifPq9YfqCNVbuiQ3ElylBBdkNTScHGzEdkdyiiy6of3iR7QNqu
112UpyqIXuib1ku55WTvVDgmLbTvIzsjUZFpaeqguyDF6nqr0X3yL5gm8cp2Zr5
113+Mitt41NLyUD4XmWmUZvGMsAh2Ang4hK6n7g8ls+N7ym7oeJAVN1dDV1f6TN
114n6wXZlP3RzdbMqcVTD0AjTNxd9a6UQ9AZ0mqbY0d9UBsyakqc4umHgjbDGm+
115Vhx1AWb0jBet3akL0F/5zXENXc8SImvylpVWMnUhpNq3dUwOUQ/CO/3BEQtf
1166kEoXSnI+eVJPRifGvmD1THUg3Gt+YJzooR6CH4Muxor46mHwCahYvKw5vlC
117cbxwMosvpR4KTq484OrET2Y9hKEp437AaQ6znmRhGBEWNlzSrN9wnGhNvxE6
118z1gWjkw3Ay5nhHoERlUC3tBH6hFoWVCIL7NofYrQ48FJqqX/VSbCZkerojHN
119+Eh0RUV+N6X/TxaJhVAzq3OT1MXosJ6xHDdm5oMYUW/tyo8t0vVidMZ7N40q
120GSvF4Jako5dL95dAMNujjNGl8RLk2RYG7t5B7yuB/cXu/S/71Pw/w1M4/Q==
121
122    "]]},
123  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
124  Axes->True,
125  AxesOrigin->{0, Automatic},
126  PlotRange->{All, {0, 4}},
127  PlotRangeClipping->True]], "Output",
128 CellChangeTimes->{
129  3.510568543339012*^9, {3.510568593199998*^9, 3.5105686374844255`*^9}, {
130   3.5105686742290993`*^9, 3.5105687307887554`*^9}, {3.5105687969993753`*^9, 
131   3.5105688202857037`*^9}, 3.5105689783645105`*^9, 3.510569035179191*^9, 
132   3.5110650041548996`*^9, 3.511065706385597*^9}]
133}, Open  ]],
134
135Cell[CellGroupData[{
136
137Cell[BoxData[
138 RowBox[{"level0", " ", "=", " ", 
139  RowBox[{"Median", "[", 
140   RowBox[{"calv0", "[", 
141    RowBox[{"[", 
142     RowBox[{"1", ";;", "lower1"}], "]"}], "]"}], "]"}]}]], "Input",
143 CellChangeTimes->{{3.5110650299108295`*^9, 3.511065084152725*^9}}],
144
145Cell[BoxData["0.998663`"], "Output",
146 CellChangeTimes->{{3.511065060034816*^9, 3.511065085806346*^9}, 
147   3.511065706432396*^9}]
148}, Open  ]],
149
150Cell[CellGroupData[{
151
152Cell[BoxData[
153 RowBox[{"firstPlateauV0", " ", "=", " ", 
154  RowBox[{
155   RowBox[{"Median", "[", 
156    RowBox[{"calv0", "[", 
157     RowBox[{"[", 
158      RowBox[{"lower1", ";;", "upper1"}], "]"}], "]"}], "]"}], "-", 
159   "level0"}]}]], "Input",
160 CellChangeTimes->{{3.5104853309903436`*^9, 3.510485459518195*^9}, {
161  3.5105684434050198`*^9, 3.5105684489285717`*^9}, {3.5105685562363014`*^9, 
162  3.5105686094556227`*^9}, {3.510568892881963*^9, 3.510568899942669*^9}, {
163  3.511065099160117*^9, 3.5110651019681535`*^9}}],
164
165Cell[BoxData["1.333027`"], "Output",
166 CellChangeTimes->{3.5104854048187256`*^9, 3.510485460199263*^9, 
167  3.510485759516192*^9, 3.5105682912378044`*^9, 3.5105683412928095`*^9, 
168  3.510568393279008*^9, 3.510568641949872*^9, 3.5105689139200664`*^9, 
169  3.510568978415515*^9, 3.510569035216195*^9, 3.5110651035125732`*^9, 
170  3.5110657064635954`*^9}]
171}, Open  ]],
172
173Cell[CellGroupData[{
174
175Cell[BoxData[
176 RowBox[{"secondPlateauV0", " ", "=", " ", 
177  RowBox[{
178   RowBox[{"Median", "[", 
179    RowBox[{"calv0", "[", 
180     RowBox[{"[", 
181      RowBox[{"lower2", ";;", "upper2"}], "]"}], "]"}], "]"}], "-", 
182   "level0"}]}]], "Input",
183 CellChangeTimes->{{3.510485466973941*^9, 3.510485503540597*^9}, {
184  3.510485745583799*^9, 3.5104857458898296`*^9}, {3.5105686462232995`*^9, 
185  3.5105686574044175`*^9}, {3.5105686914878254`*^9, 3.510568714078084*^9}, {
186  3.510568903906065*^9, 3.510568909599634*^9}, {3.511065108099032*^9, 
187  3.5110651126854906`*^9}}],
188
189Cell[BoxData["1.292897`"], "Output",
190 CellChangeTimes->{
191  3.5104855048687296`*^9, 3.510485749006141*^9, 3.5105682912768087`*^9, 
192   3.5105683413138113`*^9, 3.5105683933020096`*^9, {3.5105687099826746`*^9, 
193   3.5105687148391604`*^9}, 3.510568916197294*^9, 3.5105689784595194`*^9, 
194   3.510569035237197*^9, 3.5110651134031*^9, 3.511065706479195*^9}]
195}, Open  ]],
196
197Cell[CellGroupData[{
198
199Cell[BoxData[
200 RowBox[{"CoefV0", " ", "=", " ", 
201  RowBox[{"0.5", 
202   RowBox[{"(", 
203    RowBox[{"firstPlateauV0", "+", "secondPlateauV0"}], ")"}]}]}]], "Input",
204 CellChangeTimes->{{3.5104855275750003`*^9, 3.510485554926735*^9}, {
205  3.510485751407381*^9, 3.5104857516414046`*^9}}],
206
207Cell[BoxData["1.312962`"], "Output",
208 CellChangeTimes->{
209  3.510485555287771*^9, {3.510485752134454*^9, 3.5104857636606064`*^9}, 
210   3.5105682912988105`*^9, 3.5105683413358135`*^9, 3.510568393325012*^9, 
211   3.5105687422469006`*^9, 3.510568978481522*^9, 3.510569035259199*^9, 
212   3.511065117911558*^9, 3.5110657065103946`*^9}]
213}, Open  ]],
214
215Cell[BoxData[
216 RowBox[{
217  RowBox[{"calv1", "=", " ", 
218   RowBox[{"Flatten", "[", 
219    RowBox[{"Drop", "[", 
220     RowBox[{
221      RowBox[{"Import", "[", 
222       RowBox[{"\"\<calibv11280.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
223      "1"}], "]"}], "]"}]}], ";"}]], "Input",
224 CellChangeTimes->{{3.510485582467489*^9, 3.5104855859028325`*^9}, {
225  3.51056826929161*^9, 3.5105682788805685`*^9}, {3.5105683296836486`*^9, 
226  3.5105683317928596`*^9}, {3.51056838190487*^9, 3.510568385624242*^9}, {
227  3.510568962172891*^9, 3.5105689658952637`*^9}, {3.510569029622636*^9, 
228  3.5105690299226656`*^9}, {3.5110651299705124`*^9, 3.5110651304385185`*^9}}],
229
230Cell[CellGroupData[{
231
232Cell[BoxData[
233 RowBox[{"ListPlot", "[", 
234  RowBox[{"calv1", ",", 
235   RowBox[{"PlotRange", "\[Rule]", 
236    RowBox[{"{", 
237     RowBox[{"All", ",", 
238      RowBox[{"{", 
239       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
240 CellChangeTimes->{{3.510485598649107*^9, 3.5104855988751297`*^9}, {
241  3.510568802164892*^9, 3.5105688243971148`*^9}}],
242
243Cell[BoxData[
244 GraphicsBox[
245  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
2461:eJw9kwss1VEcx/8pr4kuuZ5pWJqZ5HVv3r7X+3E9e0wxQ5MepNF6THIZG5ml
247EGmsWLMs7jLKo5K4pBlRUYq6XrMeKF2l1W6a/++e7ezscz7n9zuP/Y5ZQmpk
248ohLDMH5r/f+43pY8nUclKY5rIzsBbb7bo0g9YjWsLFz+Wc8l5sBYxilaMCXW
249RYeo3JD/fJFlA+QUcnkVKuS3gaNSnbFFn9gUE+UO77i/ab05Or+1JF3bRH4H
250dGQ5Yenfye8EX6WK4zJPbImSqemtTcvEVuh4EVN3RXFea8jnJAXiFfI26JUO
251iOcU97PFg2FmUkmd2A5KN9KXhIr89uA0irzc/xI7QD4U//ihIt4R6JJcMhpY
252ZZmHP7yDtdtr5CzzYTQh+CK8RbwHY/rqKc7lxE6wvztVNFBL7Iy8s235iz3E
253LrjQOtO6t53YFfOT3RZ9VcRuqK6QJVjWEbsj14qXcbOM2AOdmSZOSYp8npj9
254qlanLCYGpBold3KGWRatXaeh43x9N3kB4pPNngkKyAuQd/1+VuJt8l7ozi62
255jlNisO69UKlmXB17jGXGG79ONPm5+5D3hkejJnfajbwPVGS70tuTyfvgA7dL
256fiCNvC9KQ9qedsSQ90WqZnJZnB15P4i0lmeVo8j7obeOMRiKI++PkFzNMPE+
2578v5wra80/eRBPgA8watMJpJ8AFQHDSPGo8kHwolzVVlI+USBGMwfmfwYTD4I
258GeNScf8h8kF4Hb0x2uKNjH2fYDj7+qetbmHrRRSMzaW6UcxLqichWroK5sdG
259WRYJcWq4P/Kzot5CIEWAnu0Gig/B6YzAw81aVH+hyAoVXOTT/xCFQn7mrdh1
260guLD8F47VCP2B/kwSC2cZNkz5MPRbH68ZqiPZYRjtLi1b0SV9gtHzz2bk7W0
261/5NwlJgYZ59T5I9A4dT+Ub6E4iOQ0rBbZ1xxnggcOeqm3bO66PkPUqJFVg==
262
263    "]]},
264  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
265  Axes->True,
266  AxesOrigin->{0, Automatic},
267  PlotRange->{All, {0, 4}},
268  PlotRangeClipping->True]], "Output",
269 CellChangeTimes->{
270  3.5104855992771697`*^9, 3.510568291350816*^9, 3.510568341382818*^9, 
271   3.5105683933710165`*^9, {3.5105688140000753`*^9, 3.510568824869162*^9}, 
272   3.5105689785275264`*^9, 3.510569035306204*^9, 3.5110651353369813`*^9, 
273   3.5110657065571938`*^9}]
274}, Open  ]],
275
276Cell[CellGroupData[{
277
278Cell[BoxData[
279 RowBox[{"level1", " ", "=", " ", 
280  RowBox[{"Median", "[", 
281   RowBox[{"calv0", "[", 
282    RowBox[{"[", 
283     RowBox[{"1", ";;", "lower1"}], "]"}], "]"}], "]"}]}]], "Input",
284 CellChangeTimes->{{3.511065150219572*^9, 3.5110651582848754`*^9}}],
285
286Cell[BoxData["0.998663`"], "Output",
287 CellChangeTimes->{3.511065159049285*^9, 3.511065706588393*^9}]
288}, Open  ]],
289
290Cell[CellGroupData[{
291
292Cell[BoxData[
293 RowBox[{"firstPlateauV1", " ", "=", " ", 
294  RowBox[{
295   RowBox[{"Median", "[", 
296    RowBox[{"calv1", "[", 
297     RowBox[{"[", 
298      RowBox[{"lower1", ";;", "upper1"}], "]"}], "]"}], "]"}], "-", 
299   "level1"}]}]], "Input",
300 CellChangeTimes->{{3.5104856456538067`*^9, 3.5104856850247436`*^9}, {
301  3.510568752023878*^9, 3.5105687663173075`*^9}, {3.5105689197226467`*^9, 
302  3.5105689337120457`*^9}, {3.5110651629805355`*^9, 3.511065164478155*^9}}],
303
304Cell[BoxData["0.9792170000000001`"], "Output",
305 CellChangeTimes->{{3.5104856655577974`*^9, 3.510485685530794*^9}, 
306   3.510568291380819*^9, 3.5105683414188223`*^9, 3.5105683934040203`*^9, 
307   3.510568767270403*^9, 3.5105689347901535`*^9, 3.51056897856353*^9, 
308   3.5105690353422074`*^9, 3.5110651654297667`*^9, 3.5110657066039925`*^9}]
309}, Open  ]],
310
311Cell[CellGroupData[{
312
313Cell[BoxData[
314 RowBox[{"secondPlateauV1", " ", "=", " ", 
315  RowBox[{
316   RowBox[{"Median", "[", 
317    RowBox[{"calv1", "[", 
318     RowBox[{"[", 
319      RowBox[{"lower2", ";;", "upper2"}], "]"}], "]"}], "]"}], "-", 
320   "level1"}]}]], "Input",
321 CellChangeTimes->{{3.5104856974139824`*^9, 3.5104857138706284`*^9}, {
322  3.5105687714528213`*^9, 3.5105687850551815`*^9}, {3.5105689411467886`*^9, 
323  3.5105689462793016`*^9}, {3.5110651685810075`*^9, 3.5110651703126297`*^9}}],
324
325Cell[BoxData["1.0435019999999997`"], "Output",
326 CellChangeTimes->{3.510485714809722*^9, 3.5105682914028206`*^9, 
327  3.5105683414388237`*^9, 3.510568393425022*^9, 3.5105687860472803`*^9, 
328  3.5105689467363477`*^9, 3.510568978585532*^9, 3.5105690353652096`*^9, 
329  3.5110651709834385`*^9, 3.511065706635192*^9}]
330}, Open  ]],
331
332Cell[CellGroupData[{
333
334Cell[BoxData[
335 RowBox[{"CoefV1", " ", "=", " ", 
336  RowBox[{"0.5", 
337   RowBox[{"(", 
338    RowBox[{"firstPlateauV1", "+", "secondPlateauV1"}], ")"}]}]}]], "Input",
339 CellChangeTimes->{{3.510485724914732*^9, 3.510485738382079*^9}}],
340
341Cell[BoxData["1.0113595`"], "Output",
342 CellChangeTimes->{{3.5104857311753583`*^9, 3.510485738956136*^9}, 
343   3.510568291422823*^9, 3.510568341459826*^9, 3.510568393445024*^9, 
344   3.5105689786065345`*^9, 3.510569035386212*^9, 3.5110651734950705`*^9, 
345   3.511065706650792*^9}]
346}, Open  ]]
347}, Open  ]],
348
349Cell[CellGroupData[{
350
351Cell["Calibration 1380 MHZ", "Section",
352 CellChangeTimes->{{3.511065608295062*^9, 3.511065621538829*^9}}],
353
354Cell[BoxData[
355 RowBox[{
356  RowBox[{"calv0", "=", " ", 
357   RowBox[{"Flatten", "[", 
358    RowBox[{"Drop", "[", 
359     RowBox[{
360      RowBox[{"Import", "[", 
361       RowBox[{"\"\<calibv01380.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
362      "1"}], "]"}], "]"}]}], ";"}]], "Input",
363 CellChangeTimes->{{3.510485126860933*^9, 3.5104851547187185`*^9}, {
364  3.510485210853331*^9, 3.5104852183190775`*^9}, {3.510568257000381*^9, 
365  3.510568276243305*^9}, {3.5105683234930296`*^9, 3.5105683261923*^9}, {
366  3.5105683755972395`*^9, 3.510568377628443*^9}, {3.5105689538710613`*^9, 
367  3.510568956222296*^9}, {3.510569023660039*^9, 3.5105690240910826`*^9}, {
368  3.511064999755643*^9, 3.5110650004264517`*^9}, {3.5110653389332542`*^9, 
369  3.511065370240247*^9}}],
370
371Cell[CellGroupData[{
372
373Cell[BoxData[
374 RowBox[{"ListPlot", "[", 
375  RowBox[{"calv0", ",", 
376   RowBox[{"PlotRange", "\[Rule]", 
377    RowBox[{"{", 
378     RowBox[{"All", ",", 
379      RowBox[{"{", 
380       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
381 CellChangeTimes->{{3.510485159057152*^9, 3.510485166604907*^9}, {
382  3.510485226189865*^9, 3.510485240596305*^9}, {3.510568473122991*^9, 
383  3.5105685426859465`*^9}, {3.51056858732241*^9, 3.5105686369613733`*^9}, {
384  3.510568669384615*^9, 3.5105687303767138`*^9}, {3.510568794084084*^9, 
385  3.5105688198266582`*^9}}],
386
387Cell[BoxData[
388 GraphicsBox[
389  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
3901:eJw91H8s1HEcx3E/b8rmyo92kzi/bkLmZ5Qf9zqHO7/OIb8y/XFHP/QHa4jV
391dGrK1BRRmV9h149Z8mNx5GeMfulmmCylRaVfkhprNTq5t+/23XeP7/P73T7f
392fd/fr6UkLSpFS0NDI0i1rx83tkVuXGJz71fzRa76BApCi7zl2mQ9FHQykWpE
3933oackoyRuZ1kY/QpFelsGzILB2blFYNsshnml0uGju4is6F0fiA3WPquthVO
394uE3LlEzqNuhfi22RWpM5sGXklfH1yXb47ag899CNbI+VzLeV223Jjmg7ck3n
395zm6yE3qcy+1ZJmRnNGRb/3xsQXbBuDD0/Tc9sitGMk2P3fUhuyG1/2LPWXey
396O1KGg9iHJv+q7YElnvLwxG0tbHgv8svbzqTIyZ4o+PVqMq+V7IXV8exPnGby
397PihFDMGTBvJ+cKJ160s6yd5gVJ9iXq8k+2Bti1Ps+E2yL24xk8QzLWQ/JNSb
398141WkbkYljLsZ2vIQKBh9yVJh9oyYM5Fu+zHfeo8SPb46fYpqPMwVGgaNtBE
3993R/nY7qKc5Kp++P1jeqmwQFNdedDO9E23qxIbRkfmkaKTM/L1AMQ/5F1pbua
400egAax1Qv4B71QEhHM7JcFdQD4ZubNlbTTT0ImCp16HpGPQhZqtcv3+wCfE78
401kJHwnLoAF3o5x8c31yeExCQt2byDuhBX49YXRD0YhRbShYOPqAcjijk6b1BH
402PQRl7daVO7qoh2DqxUr0rHxZPQ+heMc4ncuyVM+LLBTRxVul+jyan7CN5/Oi
403HoZ21bQEb85rODz+X0A9HBMc0cJJO+oiVHh1zNSSZSLwdcz8y0ypR8DhT6Pe
404qif1CAwIBkuFVtTFSHvZZtdK64EYb7JqO0T0vcnEsKjqXEqg/0GfGOl6ManL
405oPsjYZH/JVJBHZFIKmx42uNA90fC0Jg7NO2xyP0H0qsx1Q==
406    "]]},
407  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
408  Axes->True,
409  AxesOrigin->{0, Automatic},
410  PlotRange->{All, {0, 4}},
411  PlotRangeClipping->True]], "Output",
412 CellChangeTimes->{
413  3.510568543339012*^9, {3.510568593199998*^9, 3.5105686374844255`*^9}, {
414   3.5105686742290993`*^9, 3.5105687307887554`*^9}, {3.5105687969993753`*^9, 
415   3.5105688202857037`*^9}, 3.5105689783645105`*^9, 3.510569035179191*^9, 
416   3.5110650041548996`*^9, 3.511065706713191*^9}]
417}, Open  ]],
418
419Cell[CellGroupData[{
420
421Cell[BoxData[
422 RowBox[{"level0", " ", "=", " ", 
423  RowBox[{"Median", "[", 
424   RowBox[{"calv0", "[", 
425    RowBox[{"[", 
426     RowBox[{"1", ";;", "lower1"}], "]"}], "]"}], "]"}]}]], "Input",
427 CellChangeTimes->{{3.5110650299108295`*^9, 3.511065084152725*^9}}],
428
429Cell[BoxData["1.00776`"], "Output",
430 CellChangeTimes->{{3.511065060034816*^9, 3.511065085806346*^9}, 
431   3.5110657067287903`*^9}]
432}, Open  ]],
433
434Cell[CellGroupData[{
435
436Cell[BoxData[
437 RowBox[{"firstPlateauV0", " ", "=", " ", 
438  RowBox[{
439   RowBox[{"Median", "[", 
440    RowBox[{"calv0", "[", 
441     RowBox[{"[", 
442      RowBox[{"lower1", ";;", "upper1"}], "]"}], "]"}], "]"}], "-", 
443   "level0"}]}]], "Input",
444 CellChangeTimes->{{3.5104853309903436`*^9, 3.510485459518195*^9}, {
445  3.5105684434050198`*^9, 3.5105684489285717`*^9}, {3.5105685562363014`*^9, 
446  3.5105686094556227`*^9}, {3.510568892881963*^9, 3.510568899942669*^9}, {
447  3.511065099160117*^9, 3.5110651019681535`*^9}}],
448
449Cell[BoxData["1.3281500000000002`"], "Output",
450 CellChangeTimes->{3.5104854048187256`*^9, 3.510485460199263*^9, 
451  3.510485759516192*^9, 3.5105682912378044`*^9, 3.5105683412928095`*^9, 
452  3.510568393279008*^9, 3.510568641949872*^9, 3.5105689139200664`*^9, 
453  3.510568978415515*^9, 3.510569035216195*^9, 3.5110651035125732`*^9, 
454  3.5110657067599897`*^9}]
455}, Open  ]],
456
457Cell[CellGroupData[{
458
459Cell[BoxData[
460 RowBox[{"secondPlateauV0", " ", "=", " ", 
461  RowBox[{
462   RowBox[{"Median", "[", 
463    RowBox[{"calv0", "[", 
464     RowBox[{"[", 
465      RowBox[{"lower2", ";;", "upper2"}], "]"}], "]"}], "]"}], "-", 
466   "level0"}]}]], "Input",
467 CellChangeTimes->{{3.510485466973941*^9, 3.510485503540597*^9}, {
468  3.510485745583799*^9, 3.5104857458898296`*^9}, {3.5105686462232995`*^9, 
469  3.5105686574044175`*^9}, {3.5105686914878254`*^9, 3.510568714078084*^9}, {
470  3.510568903906065*^9, 3.510568909599634*^9}, {3.511065108099032*^9, 
471  3.5110651126854906`*^9}}],
472
473Cell[BoxData["1.208715`"], "Output",
474 CellChangeTimes->{
475  3.5104855048687296`*^9, 3.510485749006141*^9, 3.5105682912768087`*^9, 
476   3.5105683413138113`*^9, 3.5105683933020096`*^9, {3.5105687099826746`*^9, 
477   3.5105687148391604`*^9}, 3.510568916197294*^9, 3.5105689784595194`*^9, 
478   3.510569035237197*^9, 3.5110651134031*^9, 3.51106570677559*^9}]
479}, Open  ]],
480
481Cell[CellGroupData[{
482
483Cell[BoxData[
484 RowBox[{"CoefV0", " ", "=", " ", 
485  RowBox[{"0.5", 
486   RowBox[{"(", 
487    RowBox[{"firstPlateauV0", "+", "secondPlateauV0"}], ")"}]}]}]], "Input",
488 CellChangeTimes->{{3.5104855275750003`*^9, 3.510485554926735*^9}, {
489  3.510485751407381*^9, 3.5104857516414046`*^9}}],
490
491Cell[BoxData["1.2684325`"], "Output",
492 CellChangeTimes->{
493  3.510485555287771*^9, {3.510485752134454*^9, 3.5104857636606064`*^9}, 
494   3.5105682912988105`*^9, 3.5105683413358135`*^9, 3.510568393325012*^9, 
495   3.5105687422469006`*^9, 3.510568978481522*^9, 3.510569035259199*^9, 
496   3.511065117911558*^9, 3.5110657068067884`*^9}]
497}, Open  ]],
498
499Cell[BoxData[
500 RowBox[{
501  RowBox[{"calv1", "=", " ", 
502   RowBox[{"Flatten", "[", 
503    RowBox[{"Drop", "[", 
504     RowBox[{
505      RowBox[{"Import", "[", 
506       RowBox[{"\"\<calibv11380.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
507      "1"}], "]"}], "]"}]}], ";"}]], "Input",
508 CellChangeTimes->{{3.510485582467489*^9, 3.5104855859028325`*^9}, {
509  3.51056826929161*^9, 3.5105682788805685`*^9}, {3.5105683296836486`*^9, 
510  3.5105683317928596`*^9}, {3.51056838190487*^9, 3.510568385624242*^9}, {
511  3.510568962172891*^9, 3.5105689658952637`*^9}, {3.510569029622636*^9, 
512  3.5105690299226656`*^9}, {3.5110651299705124`*^9, 3.5110651304385185`*^9}, {
513  3.511065374420752*^9, 3.5110653747795267`*^9}}],
514
515Cell[CellGroupData[{
516
517Cell[BoxData[
518 RowBox[{"ListPlot", "[", 
519  RowBox[{"calv1", ",", 
520   RowBox[{"PlotRange", "\[Rule]", 
521    RowBox[{"{", 
522     RowBox[{"All", ",", 
523      RowBox[{"{", 
524       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
525 CellChangeTimes->{{3.510485598649107*^9, 3.5104855988751297`*^9}, {
526  3.510568802164892*^9, 3.5105688243971148`*^9}}],
527
528Cell[BoxData[
529 GraphicsBox[
530  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
5311:eJw9k30s1HEcx48esM5Kbp7NOZbzOJ0Qjns7z893+IdUm6LRYq2b6clu7Cix
532iPpL5SqReWqlSOjIiilPy8o8j6Ri8lC4TWnuc7/tt99ev9f3833Y9/2xTEyP
533TtJkMBiB2+//786zJEiI171+2WFJoPqBPbk1aWtmxNqoC5q6xHIiPoCf4fIV
534Ey9iFkx1Jx2L2MRGqClaLkm1IDZDU/2uuQIuMRsbDn05LS7EHJTmyeKH+MTW
535uDeo2BRoER9Co/t6x2k7Yi4KuQu6bc7Edli8InA94UnsgL1rjhdeqc/jhJXY
536vFGmO7EzlBJ+cjmP+DA++ZjfNFbvjwd+Tu6Wjvq8LghZ5eXPGhAfwftGeWJZ
537+4aKXREnzkkxavurYjekbT6zsH1A7I6J9RGXME0GdvgoTi3GC32+kffApJzb
538b7NM7AnbOjtlnTaN94LHQJ2wp488H4E/qlKzq4i90Tlkn2Q8TeyDiuT9zzU7
539iQVYaOGsT/QQA8a1D6t1aH9S4Pe+jM4XXeR9ka95lRN1ULW+1BfVwbKnsnLy
540QljxaqYLe6leCAHjSUTZKHk//JnP7MUseT90n6+UNGyR9wfr4i3Jhxny/hgo
541Ttjy2yQfgNeSEqPdBrR+ALK7pnrrv5IPhJ4bvzVa7QOhMPPOSh8iH4S8czd4
542pur5g/BWWJsy/ot8ME5qfTQWj5APxgzLvHu2nXwIDF8OMMbpvqQhOFb6hV3C
543pPsIhdt3S5MxDfKhUHLkjnODa6r6MJgN6d/JhCov0jB0jMW1LAgpP+Hoz3p0
544jWlPPhyfl1ZD4/aSj4D18HQMg0k+Anf1KloVhuQjkd8wNX+b8iuNhCvTQi+G
545Qz4KS7LuWAXlWRqFmeQmjfvqfhSh53HC1HHKN0QIdjGIOGND40XgZhU0n9VR
5468RsRKgXKYo66X8QYz5A3R1pRvRj6/mNabFeqF2O4qOnd4Hb//gP7Jkjp
547    "]]},
548  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
549  Axes->True,
550  AxesOrigin->{0, Automatic},
551  PlotRange->{All, {0, 4}},
552  PlotRangeClipping->True]], "Output",
553 CellChangeTimes->{
554  3.5104855992771697`*^9, 3.510568291350816*^9, 3.510568341382818*^9, 
555   3.5105683933710165`*^9, {3.5105688140000753`*^9, 3.510568824869162*^9}, 
556   3.5105689785275264`*^9, 3.510569035306204*^9, 3.5110651353369813`*^9, 
557   3.511065706853588*^9}]
558}, Open  ]],
559
560Cell[CellGroupData[{
561
562Cell[BoxData[
563 RowBox[{"level1", " ", "=", " ", 
564  RowBox[{"Median", "[", 
565   RowBox[{"calv0", "[", 
566    RowBox[{"[", 
567     RowBox[{"1", ";;", "lower1"}], "]"}], "]"}], "]"}]}]], "Input",
568 CellChangeTimes->{{3.511065150219572*^9, 3.5110651582848754`*^9}}],
569
570Cell[BoxData["1.00776`"], "Output",
571 CellChangeTimes->{3.511065159049285*^9, 3.5110657068847876`*^9}]
572}, Open  ]],
573
574Cell[CellGroupData[{
575
576Cell[BoxData[
577 RowBox[{"firstPlateauV1", " ", "=", " ", 
578  RowBox[{
579   RowBox[{"Median", "[", 
580    RowBox[{"calv1", "[", 
581     RowBox[{"[", 
582      RowBox[{"lower1", ";;", "upper1"}], "]"}], "]"}], "]"}], "-", 
583   "level1"}]}]], "Input",
584 CellChangeTimes->{{3.5104856456538067`*^9, 3.5104856850247436`*^9}, {
585  3.510568752023878*^9, 3.5105687663173075`*^9}, {3.5105689197226467`*^9, 
586  3.5105689337120457`*^9}, {3.5110651629805355`*^9, 3.511065164478155*^9}}],
587
588Cell[BoxData["0.9792700000000001`"], "Output",
589 CellChangeTimes->{{3.5104856655577974`*^9, 3.510485685530794*^9}, 
590   3.510568291380819*^9, 3.5105683414188223`*^9, 3.5105683934040203`*^9, 
591   3.510568767270403*^9, 3.5105689347901535`*^9, 3.51056897856353*^9, 
592   3.5105690353422074`*^9, 3.5110651654297667`*^9, 3.5110657069003873`*^9}]
593}, Open  ]],
594
595Cell[BoxData[""], "Input",
596 CellChangeTimes->{{3.5105689348231564`*^9, 3.5105689358642607`*^9}}],
597
598Cell[CellGroupData[{
599
600Cell[BoxData[
601 RowBox[{"secondPlateauV1", " ", "=", " ", 
602  RowBox[{
603   RowBox[{"Median", "[", 
604    RowBox[{"calv1", "[", 
605     RowBox[{"[", 
606      RowBox[{"lower2", ";;", "upper2"}], "]"}], "]"}], "]"}], "-", 
607   "level1"}]}]], "Input",
608 CellChangeTimes->{{3.5104856974139824`*^9, 3.5104857138706284`*^9}, {
609  3.5105687714528213`*^9, 3.5105687850551815`*^9}, {3.5105689411467886`*^9, 
610  3.5105689462793016`*^9}, {3.5110651685810075`*^9, 3.5110651703126297`*^9}}],
611
612Cell[BoxData["0.987425`"], "Output",
613 CellChangeTimes->{3.510485714809722*^9, 3.5105682914028206`*^9, 
614  3.5105683414388237`*^9, 3.510568393425022*^9, 3.5105687860472803`*^9, 
615  3.5105689467363477`*^9, 3.510568978585532*^9, 3.5105690353652096`*^9, 
616  3.5110651709834385`*^9, 3.5110657069315863`*^9}]
617}, Open  ]],
618
619Cell[CellGroupData[{
620
621Cell[BoxData[
622 RowBox[{"CoefV1", " ", "=", " ", 
623  RowBox[{"0.5", 
624   RowBox[{"(", 
625    RowBox[{"firstPlateauV1", "+", "secondPlateauV1"}], ")"}]}]}]], "Input",
626 CellChangeTimes->{{3.510485724914732*^9, 3.510485738382079*^9}}],
627
628Cell[BoxData["0.9833475`"], "Output",
629 CellChangeTimes->{{3.5104857311753583`*^9, 3.510485738956136*^9}, 
630   3.510568291422823*^9, 3.510568341459826*^9, 3.510568393445024*^9, 
631   3.5105689786065345`*^9, 3.510569035386212*^9, 3.5110651734950705`*^9, 
632   3.5110657069471865`*^9}]
633}, Open  ]]
634}, Open  ]],
635
636Cell[CellGroupData[{
637
638Cell["Calibration 1410 MHZ", "Section",
639 CellChangeTimes->{{3.511065673095837*^9, 3.5110656850452075`*^9}}],
640
641Cell[BoxData[
642 RowBox[{
643  RowBox[{"calv0", "=", " ", 
644   RowBox[{"Flatten", "[", 
645    RowBox[{"Drop", "[", 
646     RowBox[{
647      RowBox[{"Import", "[", 
648       RowBox[{"\"\<calibv01410.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
649      "1"}], "]"}], "]"}]}], ";"}]], "Input",
650 CellChangeTimes->{{3.510485126860933*^9, 3.5104851547187185`*^9}, {
651  3.510485210853331*^9, 3.5104852183190775`*^9}, {3.510568257000381*^9, 
652  3.510568276243305*^9}, {3.5105683234930296`*^9, 3.5105683261923*^9}, {
653  3.5105683755972395`*^9, 3.510568377628443*^9}, {3.5105689538710613`*^9, 
654  3.510568956222296*^9}, {3.510569023660039*^9, 3.5105690240910826`*^9}, {
655  3.511064999755643*^9, 3.5110650004264517`*^9}, {3.5110653389332542`*^9, 
656  3.5110653450324244`*^9}, {3.5110654013288546`*^9, 3.511065404043063*^9}}],
657
658Cell[CellGroupData[{
659
660Cell[BoxData[
661 RowBox[{"ListPlot", "[", 
662  RowBox[{"calv0", ",", 
663   RowBox[{"PlotRange", "\[Rule]", 
664    RowBox[{"{", 
665     RowBox[{"All", ",", 
666      RowBox[{"{", 
667       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
668 CellChangeTimes->{{3.510485159057152*^9, 3.510485166604907*^9}, {
669  3.510485226189865*^9, 3.510485240596305*^9}, {3.510568473122991*^9, 
670  3.5105685426859465`*^9}, {3.51056858732241*^9, 3.5105686369613733`*^9}, {
671  3.510568669384615*^9, 3.5105687303767138`*^9}, {3.510568794084084*^9, 
672  3.5105688198266582`*^9}}],
673
674Cell[BoxData[
675 GraphicsBox[
676  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
6771:eJw90wlIk2Ecx/FlRt5lDmZmaKIiZh7lmeZ+npv3tNAiBfFIpUOsBEdJc+nM
678Dk1T0ygjETQrKSwqQs3bLEmmpPOoaWSeuEg0r1bi+98L4+W7z54/L++eZ19c
679akSiGovF8v//2bhvXgpuXLYi+buGgst8gQPl8cKohnmmNVAm799etES9EwZ6
680De2tq9RssLkdI6/Uab0hlGbJn8ynyY2xnBNV5DFAbQrtWYdC6Sy1GRbvjt7J
6813UbrzfGO/8jm8jq5Jbosl/WbxqmtcOZksczUgH5vDaXQyJ6/Qm6D9cV0+X19
682cluUZ3X/WdpNbQ/psbAJE9V8B9wcTmalbiE/iCm9uCStvdSHwG8r5ldyqB3B
683uTfjKJUuMe2E6uixGNu4Naad0Z/o8GLZldoF7EkDYdFFalfYK0YuvUmgdoP4
6842S4bvSTqw6gVhwc8EFG7w3NS9nQlmtoD5lc2JlAfQV0fP+jHWWpP8Aq+DS+o
6855nGR5JuSqsihBgYHLWpfS5gWAdLVjoGKE+ReUGraRvbHknuB9+HJBR0+uTe8
686xOOdZe5/GffGTOTngPlhFjbdB3aS85Ux7UyLfKBR4Jx//CO5L4oK659Xj5L7
687wnNOMZDQQ+4H3VZeW3EXuR98lOqc/dPk/tga63FV0kjuj0nxSqkbzWPx0Os7
688qFjoJuehJaX5RmMLOR950q9y7T5yPuYnHuu9lZEHbP7/qucLwJx11VrVEHkg
689xqyE6fnN5IHIrO+5NaW5yLyfIOzJyohpkjP7SxSEuvjotLR+2m/BWMg9VRHd
690Rx4MH3Vj7xIj2l8hyJW015yeIw+Bpmu2tZPqvIXiZZTJjkw6j6JQ+A11PKxR
691nacwuFz7ct25kzwMrVm3bWLVaL4Aeb0aznVKxiGArov8dyudf5EAZSvCo4Va
692TL8XgF2aARmb1ofjl/9EIdeQaYSjRHzOLkWH1ocjIvMnx2JynvsPielTEQ==
693
694    "]]},
695  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
696  Axes->True,
697  AxesOrigin->{0, Automatic},
698  PlotRange->{All, {0, 4}},
699  PlotRangeClipping->True]], "Output",
700 CellChangeTimes->{
701  3.510568543339012*^9, {3.510568593199998*^9, 3.5105686374844255`*^9}, {
702   3.5105686742290993`*^9, 3.5105687307887554`*^9}, {3.5105687969993753`*^9, 
703   3.5105688202857037`*^9}, 3.5105689783645105`*^9, 3.510569035179191*^9, 
704   3.5110650041548996`*^9, 3.511065707009585*^9}]
705}, Open  ]],
706
707Cell[CellGroupData[{
708
709Cell[BoxData[
710 RowBox[{"level0", " ", "=", " ", 
711  RowBox[{"Median", "[", 
712   RowBox[{"calv0", "[", 
713    RowBox[{"[", 
714     RowBox[{"1", ";;", "lower1"}], "]"}], "]"}], "]"}]}]], "Input",
715 CellChangeTimes->{{3.5110650299108295`*^9, 3.511065084152725*^9}}],
716
717Cell[BoxData["1.00035`"], "Output",
718 CellChangeTimes->{{3.511065060034816*^9, 3.511065085806346*^9}, 
719   3.5110657070407844`*^9}]
720}, Open  ]],
721
722Cell[CellGroupData[{
723
724Cell[BoxData[
725 RowBox[{"firstPlateauV0", " ", "=", " ", 
726  RowBox[{
727   RowBox[{"Median", "[", 
728    RowBox[{"calv0", "[", 
729     RowBox[{"[", 
730      RowBox[{"lower1", ";;", "upper1"}], "]"}], "]"}], "]"}], "-", 
731   "level0"}]}]], "Input",
732 CellChangeTimes->{{3.5104853309903436`*^9, 3.510485459518195*^9}, {
733  3.5105684434050198`*^9, 3.5105684489285717`*^9}, {3.5105685562363014`*^9, 
734  3.5105686094556227`*^9}, {3.510568892881963*^9, 3.510568899942669*^9}, {
735  3.511065099160117*^9, 3.5110651019681535`*^9}}],
736
737Cell[BoxData["0.77481`"], "Output",
738 CellChangeTimes->{3.5104854048187256`*^9, 3.510485460199263*^9, 
739  3.510485759516192*^9, 3.5105682912378044`*^9, 3.5105683412928095`*^9, 
740  3.510568393279008*^9, 3.510568641949872*^9, 3.5105689139200664`*^9, 
741  3.510568978415515*^9, 3.510569035216195*^9, 3.5110651035125732`*^9, 
742  3.511065707056384*^9}]
743}, Open  ]],
744
745Cell[CellGroupData[{
746
747Cell[BoxData[
748 RowBox[{"secondPlateauV0", " ", "=", " ", 
749  RowBox[{
750   RowBox[{"Median", "[", 
751    RowBox[{"calv0", "[", 
752     RowBox[{"[", 
753      RowBox[{"lower2", ";;", "upper2"}], "]"}], "]"}], "]"}], "-", 
754   "level0"}]}]], "Input",
755 CellChangeTimes->{{3.510485466973941*^9, 3.510485503540597*^9}, {
756  3.510485745583799*^9, 3.5104857458898296`*^9}, {3.5105686462232995`*^9, 
757  3.5105686574044175`*^9}, {3.5105686914878254`*^9, 3.510568714078084*^9}, {
758  3.510568903906065*^9, 3.510568909599634*^9}, {3.511065108099032*^9, 
759  3.5110651126854906`*^9}}],
760
761Cell[BoxData["1.1013200000000003`"], "Output",
762 CellChangeTimes->{
763  3.5104855048687296`*^9, 3.510485749006141*^9, 3.5105682912768087`*^9, 
764   3.5105683413138113`*^9, 3.5105683933020096`*^9, {3.5105687099826746`*^9, 
765   3.5105687148391604`*^9}, 3.510568916197294*^9, 3.5105689784595194`*^9, 
766   3.510569035237197*^9, 3.5110651134031*^9, 3.5110657070875835`*^9}]
767}, Open  ]],
768
769Cell[CellGroupData[{
770
771Cell[BoxData[
772 RowBox[{"CoefV0", " ", "=", " ", 
773  RowBox[{"0.5", 
774   RowBox[{"(", 
775    RowBox[{"firstPlateauV0", "+", "secondPlateauV0"}], ")"}]}]}]], "Input",
776 CellChangeTimes->{{3.5104855275750003`*^9, 3.510485554926735*^9}, {
777  3.510485751407381*^9, 3.5104857516414046`*^9}}],
778
779Cell[BoxData["0.9380650000000001`"], "Output",
780 CellChangeTimes->{
781  3.510485555287771*^9, {3.510485752134454*^9, 3.5104857636606064`*^9}, 
782   3.5105682912988105`*^9, 3.5105683413358135`*^9, 3.510568393325012*^9, 
783   3.5105687422469006`*^9, 3.510568978481522*^9, 3.510569035259199*^9, 
784   3.511065117911558*^9, 3.5110657071343822`*^9}]
785}, Open  ]],
786
787Cell[BoxData[
788 RowBox[{
789  RowBox[{"calv1", "=", " ", 
790   RowBox[{"Flatten", "[", 
791    RowBox[{"Drop", "[", 
792     RowBox[{
793      RowBox[{"Import", "[", 
794       RowBox[{"\"\<calibv11410.txt\>\"", ",", "\"\<Table\>\""}], "]"}], ",", 
795      "1"}], "]"}], "]"}]}], ";"}]], "Input",
796 CellChangeTimes->{{3.510485582467489*^9, 3.5104855859028325`*^9}, {
797  3.51056826929161*^9, 3.5105682788805685`*^9}, {3.5105683296836486`*^9, 
798  3.5105683317928596`*^9}, {3.51056838190487*^9, 3.510568385624242*^9}, {
799  3.510568962172891*^9, 3.5105689658952637`*^9}, {3.510569029622636*^9, 
800  3.5105690299226656`*^9}, {3.5110651299705124`*^9, 3.5110651304385185`*^9}, {
801  3.5110654135015974`*^9, 3.5110654186336355`*^9}}],
802
803Cell[CellGroupData[{
804
805Cell[BoxData[
806 RowBox[{"ListPlot", "[", 
807  RowBox[{"calv1", ",", 
808   RowBox[{"PlotRange", "\[Rule]", 
809    RowBox[{"{", 
810     RowBox[{"All", ",", 
811      RowBox[{"{", 
812       RowBox[{"0", ",", "4"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
813 CellChangeTimes->{{3.510485598649107*^9, 3.5104855988751297`*^9}, {
814  3.510568802164892*^9, 3.5105688243971148`*^9}}],
815
816Cell[BoxData[
817 GraphicsBox[
818  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
8191:eJxd02tIU3EYx/GlpS7xQhYzM9O8NNR5Ny9N99t0m9ucThPyVqEZUaa+UFEr
820a5ZmokQZhIVJXsiQ1ESZUVFSSeDyhVY2wQtIarRsllqSmCmdZy8cjMN3n+f8
8212cZzXDLzEk+asFgsyfp74/r/NS/YI33U37p+ZT7A9MXKJuyjtkAElyv2+m1g
8222hbPb5Z8tjEj34kmjVWz8zK5PbK6lJ4OempHWB5b3NWym+adMSNomXxhTb0f
823NeWaesUPmnfDMGvChL2d3ANJNQshjbbUXOxYuhyf/5PmPZGRlHjgPpvcG3uL
8245Ob6NXKfTe2H+BTlJ7txav9NvycAQd6So9kG8kA41zW/NcxRB6Hqa3tZe+0v
825poOxxMt/6u3xh+mDaFz2n+lwpw5BpKDG1imHOhSyEz3X24zzYeg2Ty1z8aIO
826h2mae7JjHPUh5Ok03G4hNR/ObpZ1fTzqCChSroaOiKkjUTd+q7IilVoA2GW8
827fm88H3g1nvJsTsS0GnCVn7/iG0suRHit9lKMgFyI6Y9hZlm+5CLMB/o4WshW
828GBfhdmSBsFSxyngUusaGz8SkM62OQjTnQ++70+TR2Dj+ZSl5NO75VFcNSsnF
829yHloP5snIhcjl3NXH5RILkF60UJSpfF8Cdiqw9qRc+RSaBvFmgXj+VJ81/eF
830ucrJY/DFrqS2QEkeA2kor3joCLkMGt7A2RsychmOG/4Wd6aSy1E43c23ySWX
831YzKgVZs5tci4AthYb0dmn9QKjHleK+tYpf2JhV+DMGptK3ks6vurK1yM+6yE
8322OpBxrIFuRI9swHB7AnyOASdKh3wH2VaHQdvnYQ/Okgej6lkTu8QPc/qeNh2
8336jnfjPutgk7n3tZLDRUcONblWVtoXgV+k6gwn57HPhXK0tb/cHO6PwHV2Rc8
834VmYZRwLuNDx+YzpA3ycBFfqEJ07b5gX/AOWURyw=
835    "]]},
836  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
837  Axes->True,
838  AxesOrigin->{0, Automatic},
839  PlotRange->{All, {0, 4}},
840  PlotRangeClipping->True]], "Output",
841 CellChangeTimes->{
842  3.5104855992771697`*^9, 3.510568291350816*^9, 3.510568341382818*^9, 
843   3.5105683933710165`*^9, {3.5105688140000753`*^9, 3.510568824869162*^9}, 
844   3.5105689785275264`*^9, 3.510569035306204*^9, 3.5110651353369813`*^9, 
845   3.511065707181182*^9}]
846}, Open  ]],
847
848Cell[CellGroupData[{
849
850Cell[BoxData[
851 RowBox[{"level1", " ", "=", " ", 
852  RowBox[{"Median", "[", 
853   RowBox[{"calv0", "[", 
854    RowBox[{"[", 
855     RowBox[{"1", ";;", "lower1"}], "]"}], "]"}], "]"}]}]], "Input",
856 CellChangeTimes->{{3.511065150219572*^9, 3.5110651582848754`*^9}}],
857
858Cell[BoxData["1.00035`"], "Output",
859 CellChangeTimes->{3.511065159049285*^9, 3.511065707196781*^9}]
860}, Open  ]],
861
862Cell[CellGroupData[{
863
864Cell[BoxData[
865 RowBox[{"firstPlateauV1", " ", "=", " ", 
866  RowBox[{
867   RowBox[{"Median", "[", 
868    RowBox[{"calv1", "[", 
869     RowBox[{"[", 
870      RowBox[{"lower1", ";;", "upper1"}], "]"}], "]"}], "]"}], "-", 
871   "level1"}]}]], "Input",
872 CellChangeTimes->{{3.5104856456538067`*^9, 3.5104856850247436`*^9}, {
873  3.510568752023878*^9, 3.5105687663173075`*^9}, {3.5105689197226467`*^9, 
874  3.5105689337120457`*^9}, {3.5110651629805355`*^9, 3.511065164478155*^9}}],
875
876Cell[BoxData["0.6400999999999999`"], "Output",
877 CellChangeTimes->{{3.5104856655577974`*^9, 3.510485685530794*^9}, 
878   3.510568291380819*^9, 3.5105683414188223`*^9, 3.5105683934040203`*^9, 
879   3.510568767270403*^9, 3.5105689347901535`*^9, 3.51056897856353*^9, 
880   3.5105690353422074`*^9, 3.5110651654297667`*^9, 3.5110657072279806`*^9}]
881}, Open  ]],
882
883Cell[BoxData[""], "Input",
884 CellChangeTimes->{{3.5105689348231564`*^9, 3.5105689358642607`*^9}}],
885
886Cell[CellGroupData[{
887
888Cell[BoxData[
889 RowBox[{"secondPlateauV1", " ", "=", " ", 
890  RowBox[{
891   RowBox[{"Median", "[", 
892    RowBox[{"calv1", "[", 
893     RowBox[{"[", 
894      RowBox[{"lower2", ";;", "upper2"}], "]"}], "]"}], "]"}], "-", 
895   "level1"}]}]], "Input",
896 CellChangeTimes->{{3.5104856974139824`*^9, 3.5104857138706284`*^9}, {
897  3.5105687714528213`*^9, 3.5105687850551815`*^9}, {3.5105689411467886`*^9, 
898  3.5105689462793016`*^9}, {3.5110651685810075`*^9, 3.5110651703126297`*^9}}],
899
900Cell[BoxData["0.8339399999999999`"], "Output",
901 CellChangeTimes->{3.510485714809722*^9, 3.5105682914028206`*^9, 
902  3.5105683414388237`*^9, 3.510568393425022*^9, 3.5105687860472803`*^9, 
903  3.5105689467363477`*^9, 3.510568978585532*^9, 3.5105690353652096`*^9, 
904  3.5110651709834385`*^9, 3.5110657072435803`*^9}]
905}, Open  ]],
906
907Cell[CellGroupData[{
908
909Cell[BoxData[
910 RowBox[{"CoefV1", " ", "=", " ", 
911  RowBox[{"0.5", 
912   RowBox[{"(", 
913    RowBox[{"firstPlateauV1", "+", "secondPlateauV1"}], ")"}]}]}]], "Input",
914 CellChangeTimes->{{3.510485724914732*^9, 3.510485738382079*^9}}],
915
916Cell[BoxData["0.7370199999999999`"], "Output",
917 CellChangeTimes->{{3.5104857311753583`*^9, 3.510485738956136*^9}, 
918   3.510568291422823*^9, 3.510568341459826*^9, 3.510568393445024*^9, 
919   3.5105689786065345`*^9, 3.510569035386212*^9, 3.5110651734950705`*^9, 
920   3.5110657072747803`*^9}]
921}, Open  ]],
922
923Cell[CellGroupData[{
924
925Cell[BoxData[
926 RowBox[{"\[IndentingNewLine]", 
927  RowBox[{"ListPlot", "[", 
928   RowBox[{
929    RowBox[{"{", 
930     RowBox[{
931      RowBox[{"{", 
932       RowBox[{"1280", ",", 
933        RowBox[{"1.44269", " ", 
934         RowBox[{"23.943", "/", 
935          RowBox[{"(", 
936           RowBox[{"3.333844", "-", "1.44269"}], ")"}]}]}]}], "}"}], ",", 
937      RowBox[{"{", 
938       RowBox[{"1380", ",", 
939        RowBox[{"1.44269", " ", 
940         RowBox[{"21.874", "/", 
941          RowBox[{"(", 
942           RowBox[{"3.276134", "-", "1.44269"}], ")"}]}]}]}], "}"}], ",", 
943      RowBox[{"{", 
944       RowBox[{"1410", ",", " ", 
945        RowBox[{"1.44269", " ", 
946         RowBox[{"16.870", "/", 
947          RowBox[{"(", 
948           RowBox[{"2.789284", "-", "1.44269"}], ")"}]}]}]}], "}"}]}], "}"}], 
949    ",", 
950    RowBox[{"PlotRange", "\[Rule]", 
951     RowBox[{"{", 
952      RowBox[{"All", ",", 
953       RowBox[{"{", 
954        RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
955    RowBox[{"PlotMarkers", "\[Rule]", "Automatic"}]}], "]"}]}]], "Input",
956 CellChangeTimes->{{3.5110667102249165`*^9, 3.5110667371038885`*^9}, {
957  3.5110668667095194`*^9, 3.51106704109344*^9}, {3.511067093400575*^9, 
958  3.511067097597002*^9}, {3.5110672336766744`*^9, 3.511067276951352*^9}}],
959
960Cell[BoxData[
961 GraphicsBox[
962  GraphicsComplexBox[{{1280., 18.26521090826025}, {1380., 
963   17.21208886663569}, {1410., 18.073881437166662`}, {1280., 
964   18.26521090826025}, {1380., 17.21208886663569}, {1410., 
965   18.073881437166662`}}, {
966    {Hue[0.67, 0.6, 0.6], InsetBox[
967      StyleBox["\<\"\[FilledCircle]\"\>",
968       StripOnInput->False,
969       FontSize->8.96], 4], InsetBox[
970      StyleBox["\<\"\[FilledCircle]\"\>",
971       StripOnInput->False,
972       FontSize->8.96], 5], InsetBox[
973      StyleBox["\<\"\[FilledCircle]\"\>",
974       StripOnInput->False,
975       FontSize->8.96], 6]}, {}}],
976  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
977  Axes->True,
978  AxesOrigin->{1280., 0},
979  PlotRange->{All, {0, 30}},
980  PlotRangeClipping->True,
981  PlotRangePadding->{Automatic, Automatic}]], "Output",
982 CellChangeTimes->{{3.511066976805428*^9, 3.5110670414834423`*^9}, 
983   3.511067098501808*^9, {3.51106725943244*^9, 3.511067277466155*^9}}]
984}, Open  ]]
985}, Open  ]]
986},
987WindowSize->{707, 761},
988WindowMargins->{{Automatic, -23}, {31, Automatic}},
989FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
990StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb", 
991  CharacterEncoding -> "WindowsANSI"]
992]
993(* End of Notebook Content *)
994
995(* Internal cache information *)
996(*CellTagsOutline
997CellTagsIndex->{}
998*)
999(*CellTagsIndex
1000CellTagsIndex->{}
1001*)
1002(*NotebookFileOutline
1003Notebook[{
1004Cell[CellGroupData[{
1005Cell[579, 22, 196, 4, 41, "Input"],
1006Cell[778, 28, 206, 3, 40, "Output"]
1007}, Open  ]],
1008Cell[CellGroupData[{
1009Cell[1021, 36, 174, 3, 75, "Section"],
1010Cell[1198, 41, 151, 3, 41, "Input"],
1011Cell[1352, 46, 148, 3, 41, "Input"],
1012Cell[1503, 51, 151, 3, 41, "Input"],
1013Cell[1657, 56, 141, 3, 41, "Input"]
1014}, Open  ]],
1015Cell[CellGroupData[{
1016Cell[1835, 64, 188, 2, 75, "Section"],
1017Cell[2026, 68, 744, 15, 41, "Input"],
1018Cell[CellGroupData[{
1019Cell[2795, 87, 549, 12, 41, "Input"],
1020Cell[3347, 101, 1535, 30, 268, "Output"]
1021}, Open  ]],
1022Cell[CellGroupData[{
1023Cell[4919, 136, 255, 6, 41, "Input"],
1024Cell[5177, 144, 128, 2, 40, "Output"]
1025}, Open  ]],
1026Cell[CellGroupData[{
1027Cell[5342, 151, 507, 11, 41, "Input"],
1028Cell[5852, 164, 344, 5, 40, "Output"]
1029}, Open  ]],
1030Cell[CellGroupData[{
1031Cell[6233, 174, 555, 12, 41, "Input"],
1032Cell[6791, 188, 349, 5, 40, "Output"]
1033}, Open  ]],
1034Cell[CellGroupData[{
1035Cell[7177, 198, 279, 6, 41, "Input"],
1036Cell[7459, 206, 325, 5, 40, "Output"]
1037}, Open  ]],
1038Cell[7799, 214, 644, 13, 41, "Input"],
1039Cell[CellGroupData[{
1040Cell[8468, 231, 353, 9, 41, "Input"],
1041Cell[8824, 242, 1507, 30, 268, "Output"]
1042}, Open  ]],
1043Cell[CellGroupData[{
1044Cell[10368, 277, 255, 6, 41, "Input"],
1045Cell[10626, 285, 100, 1, 40, "Output"]
1046}, Open  ]],
1047Cell[CellGroupData[{
1048Cell[10763, 291, 458, 10, 41, "Input"],
1049Cell[11224, 303, 335, 4, 40, "Output"]
1050}, Open  ]],
1051Cell[CellGroupData[{
1052Cell[11596, 312, 463, 10, 41, "Input"],
1053Cell[12062, 324, 307, 4, 40, "Output"]
1054}, Open  ]],
1055Cell[CellGroupData[{
1056Cell[12406, 333, 226, 5, 41, "Input"],
1057Cell[12635, 340, 275, 4, 40, "Output"]
1058}, Open  ]]
1059}, Open  ]],
1060Cell[CellGroupData[{
1061Cell[12959, 350, 105, 1, 89, "Section"],
1062Cell[13067, 353, 742, 15, 41, "Input"],
1063Cell[CellGroupData[{
1064Cell[13834, 372, 549, 12, 41, "Input"],
1065Cell[14386, 386, 1522, 29, 268, "Output"]
1066}, Open  ]],
1067Cell[CellGroupData[{
1068Cell[15945, 420, 255, 6, 41, "Input"],
1069Cell[16203, 428, 129, 2, 40, "Output"]
1070}, Open  ]],
1071Cell[CellGroupData[{
1072Cell[16369, 435, 507, 11, 41, "Input"],
1073Cell[16879, 448, 354, 5, 40, "Output"]
1074}, Open  ]],
1075Cell[CellGroupData[{
1076Cell[17270, 458, 555, 12, 41, "Input"],
1077Cell[17828, 472, 348, 5, 40, "Output"]
1078}, Open  ]],
1079Cell[CellGroupData[{
1080Cell[18213, 482, 279, 6, 41, "Input"],
1081Cell[18495, 490, 326, 5, 40, "Output"]
1082}, Open  ]],
1083Cell[18836, 498, 695, 14, 41, "Input"],
1084Cell[CellGroupData[{
1085Cell[19556, 516, 353, 9, 41, "Input"],
1086Cell[19912, 527, 1500, 29, 268, "Output"]
1087}, Open  ]],
1088Cell[CellGroupData[{
1089Cell[21449, 561, 255, 6, 41, "Input"],
1090Cell[21707, 569, 101, 1, 40, "Output"]
1091}, Open  ]],
1092Cell[CellGroupData[{
1093Cell[21845, 575, 458, 10, 41, "Input"],
1094Cell[22306, 587, 335, 4, 40, "Output"]
1095}, Open  ]],
1096Cell[22656, 594, 96, 1, 41, "Input"],
1097Cell[CellGroupData[{
1098Cell[22777, 599, 463, 10, 41, "Input"],
1099Cell[23243, 611, 299, 4, 40, "Output"]
1100}, Open  ]],
1101Cell[CellGroupData[{
1102Cell[23579, 620, 226, 5, 41, "Input"],
1103Cell[23808, 627, 277, 4, 40, "Output"]
1104}, Open  ]]
1105}, Open  ]],
1106Cell[CellGroupData[{
1107Cell[24134, 637, 107, 1, 75, "Section"],
1108Cell[24244, 640, 792, 15, 41, "Input"],
1109Cell[CellGroupData[{
1110Cell[25061, 659, 549, 12, 41, "Input"],
1111Cell[25613, 673, 1535, 30, 268, "Output"]
1112}, Open  ]],
1113Cell[CellGroupData[{
1114Cell[27185, 708, 255, 6, 41, "Input"],
1115Cell[27443, 716, 129, 2, 40, "Output"]
1116}, Open  ]],
1117Cell[CellGroupData[{
1118Cell[27609, 723, 507, 11, 41, "Input"],
1119Cell[28119, 736, 341, 5, 40, "Output"]
1120}, Open  ]],
1121Cell[CellGroupData[{
1122Cell[28497, 746, 555, 12, 41, "Input"],
1123Cell[29055, 760, 361, 5, 40, "Output"]
1124}, Open  ]],
1125Cell[CellGroupData[{
1126Cell[29453, 770, 279, 6, 41, "Input"],
1127Cell[29735, 778, 335, 5, 40, "Output"]
1128}, Open  ]],
1129Cell[30085, 786, 697, 14, 41, "Input"],
1130Cell[CellGroupData[{
1131Cell[30807, 804, 353, 9, 41, "Input"],
1132Cell[31163, 815, 1484, 29, 268, "Output"]
1133}, Open  ]],
1134Cell[CellGroupData[{
1135Cell[32684, 849, 255, 6, 41, "Input"],
1136Cell[32942, 857, 99, 1, 40, "Output"]
1137}, Open  ]],
1138Cell[CellGroupData[{
1139Cell[33078, 863, 458, 10, 41, "Input"],
1140Cell[33539, 875, 335, 4, 40, "Output"]
1141}, Open  ]],
1142Cell[33889, 882, 96, 1, 41, "Input"],
1143Cell[CellGroupData[{
1144Cell[34010, 887, 463, 10, 41, "Input"],
1145Cell[34476, 899, 309, 4, 40, "Output"]
1146}, Open  ]],
1147Cell[CellGroupData[{
1148Cell[34822, 908, 226, 5, 41, "Input"],
1149Cell[35051, 915, 286, 4, 40, "Output"]
1150}, Open  ]],
1151Cell[CellGroupData[{
1152Cell[35374, 924, 1232, 33, 122, "Input"],
1153Cell[36609, 959, 945, 23, 265, "Output"]
1154}, Open  ]]
1155}, Open  ]]
1156}
1157]
1158*)
1159
1160(* End of internal cache information *)
Note: See TracBrowser for help on using the repository browser.