Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

calibrationBAO.nb@ 689

Last change on this file since 689 was 673, checked in by campagne, 14 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:
10	NotebookFileLineBreakTest
11	NotebookFileLineBreakTest
12	NotebookDataPosition[ 157, 7]
13	NotebookDataLength[ 42218, 1151]
14	NotebookOptionsPosition[ 37582, 986]
15	NotebookOutlinePosition[ 38003, 1002]
16	CellTagsIndexPosition[ 37960, 999]
17	WindowFrame->Normal*)
18
19	(* Beginning of Notebook Content *)
20	Notebook[{
21
22	Cell[CellGroupData[{
23	Cell[BoxData[
24	RowBox[{"SetDirectory", "[",
25	"\"\<E:\\\\Presentations\\\\BAO\\\\Amas 21cm\\\\Abell2440\>\"",
26	"]"}]], "Input",
27	CellChangeTimes->{{3.510485086467894^9, 3.510485118692116^9}}],
28
29	Cell[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
35	Cell[CellGroupData[{
36
37	Cell[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
42	Cell[BoxData[
43	RowBox[{
44	RowBox[{"lower1", " ", "=", " ", "21"}], ";"}]], "Input",
45	CellChangeTimes->{{3.5105688470383787`^9, 3.510568855485224^9}}],
46
47	Cell[BoxData[
48	RowBox[{
49	RowBox[{"upper1", " ", "=", " ", "35"}], ";"}]], "Input",
50	CellChangeTimes->{{3.510568859069582^9, 3.51056886365204^9}}],
51
52	Cell[BoxData[
53	RowBox[{
54	RowBox[{"lower2", " ", "=", " ", "38"}], ";"}]], "Input",
55	CellChangeTimes->{{3.5105688666353383`^9, 3.510568880539729^9}}],
56
57	Cell[BoxData[
58	RowBox[{
59	RowBox[{"upper2", "=", "51"}], ";"}]], "Input",
60	CellChangeTimes->{{3.5105688824399185`^9, 3.510568887863461^9}}]
61	}, Open ]],
62
63	Cell[CellGroupData[{
64
65	Cell[TextData[StyleBox["Calibration 1280 MHZ", "Section"]], "Section",
66	CellChangeTimes->{{3.5110655004498663`^9, 3.5110655155652^9},
67	3.5110655553679943`^9, 3.5110655958003426`^9}],
68
69	Cell[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
86	Cell[CellGroupData[{
87
88	Cell[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
102	Cell[BoxData[
103	GraphicsBox[
104	{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
105	1:eJxd03lIk3Ecx/FpYynZQU3zKDzSeXaY97mPx+Y9t/DIpMI0KqNCbHmkMiMi
106	O8SjaTVIKFTMUhGsSLN1mZSSClpqmtlMJWUqmEepFT7f/dEDDw+v5/38fs/B
107	7zE/cmbfUW0WiyX8u/87rm5TfB8bG4H9nJrPnIC0LaOlWUXWwYGpu7Vm7eRN
108	GBPVrXg+JnNhkS9NMVk/xdgQIvXw0pMl6tsQrztgldJDNoOXS6mJ3izZAtf9
109	i+KevSJbQlq3/CGhmcyDPGl7fk0X2QbJTWeLDdl0Pzu8n58z2rqB7IDUpw48
110	V1PyLvSmCaae65P3QJ4dy17pp/kc8WVoXXGVNvW9YLcscnia93P673s4Yzqx
111	7WBY62/GLhifPq9YfqCNVbuiQ3ElylBBdkNTScHGzEdkdyiiy6of3iR7QNqu
112	UpyqIXuib1ku55WTvVDgmLbTvIzsjUZFpaeqguyDF6nqr0X3yL5gm8cp2Zr5
113	+Mitt41NLyUD4XmWmUZvGMsAh2Ang4hK6n7g8ls+N7ym7oeJAVN1dDV1f6TN
114	n6wXZlP3RzdbMqcVTD0AjTNxd9a6UQ9AZ0mqbY0d9UBsyakqc4umHgjbDGm+
115	Vhx1AWb0jBet3akL0F/5zXENXc8SImvylpVWMnUhpNq3dUwOUQ/CO/3BEQtf
116	6kEoXSnI+eVJPRifGvmD1THUg3Gt+YJzooR6CH4Muxor46mHwCahYvKw5vlC
117	cbxwMosvpR4KTq484OrET2Y9hKEp437AaQ6znmRhGBEWNlzSrN9wnGhNvxE6
118	z1gWjkw3Ay5nhHoERlUC3tBH6hFoWVCIL7NofYrQ48FJqqX/VSbCZkerojHN
119	+Eh0RUV+N6X/TxaJhVAzq3OT1MXosJ6xHDdm5oMYUW/tyo8t0vVidMZ7N40q
120	GSvF4Jako5dL95dAMNujjNGl8RLk2RYG7t5B7yuB/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
135	Cell[CellGroupData[{
136
137	Cell[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
145	Cell[BoxData["0.998663`"], "Output",
146	CellChangeTimes->{{3.511065060034816^9, 3.511065085806346^9},
147	3.511065706432396*^9}]
148	}, Open ]],
149
150	Cell[CellGroupData[{
151
152	Cell[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
165	Cell[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
173	Cell[CellGroupData[{
174
175	Cell[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
189	Cell[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
197	Cell[CellGroupData[{
198
199	Cell[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
207	Cell[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
215	Cell[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
230	Cell[CellGroupData[{
231
232	Cell[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
243	Cell[BoxData[
244	GraphicsBox[
245	{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
246	1:eJw9kwss1VEcx/8pr4kuuZ5pWJqZ5HVv3r7X+3E9e0wxQ5MepNF6THIZG5ml
247	EGmsWLMs7jLKo5K4pBlRUYq6XrMeKF2l1W6a/++e7ezscz7n9zuP/Y5ZQmpk
248	ohLDMH5r/f+43pY8nUclKY5rIzsBbb7bo0g9YjWsLFz+Wc8l5sBYxilaMCXW
249	RYeo3JD/fJFlA+QUcnkVKuS3gaNSnbFFn9gUE+UO77i/ab05Or+1JF3bRH4H
250	dGQ5Yenfye8EX6WK4zJPbImSqemtTcvEVuh4EVN3RXFea8jnJAXiFfI26JUO
251	iOcU97PFg2FmUkmd2A5KN9KXhIr89uA0irzc/xI7QD4U//ihIt4R6JJcMhpY
252	ZZmHP7yDtdtr5CzzYTQh+CK8RbwHY/rqKc7lxE6wvztVNFBL7Iy8s235iz3E
253	LrjQOtO6t53YFfOT3RZ9VcRuqK6QJVjWEbsj14qXcbOM2AOdmSZOSYp8npj9
254	qlanLCYGpBold3KGWRatXaeh43x9N3kB4pPNngkKyAuQd/1+VuJt8l7ozi62
255	jlNisO69UKlmXB17jGXGG79ONPm5+5D3hkejJnfajbwPVGS70tuTyfvgA7dL
256	fiCNvC9KQ9qedsSQ90WqZnJZnB15P4i0lmeVo8j7obeOMRiKI++PkFzNMPE+
257	8v5wra80/eRBPgA8watMJpJ8AFQHDSPGo8kHwolzVVlI+USBGMwfmfwYTD4I
258	GeNScf8h8kF4Hb0x2uKNjH2fYDj7+qetbmHrRRSMzaW6UcxLqichWroK5sdG
259	WRYJcWq4P/Kzot5CIEWAnu0Gig/B6YzAw81aVH+hyAoVXOTT/xCFQn7mrdh1
260	guLD8F47VCP2B/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
276	Cell[CellGroupData[{
277
278	Cell[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
286	Cell[BoxData["0.998663`"], "Output",
287	CellChangeTimes->{3.511065159049285^9, 3.511065706588393^9}]
288	}, Open ]],
289
290	Cell[CellGroupData[{
291
292	Cell[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
304	Cell[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
311	Cell[CellGroupData[{
312
313	Cell[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
325	Cell[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
332	Cell[CellGroupData[{
333
334	Cell[BoxData[
335	RowBox[{"CoefV1", " ", "=", " ",
336	RowBox[{"0.5",
337	RowBox[{"(",
338	RowBox[{"firstPlateauV1", "+", "secondPlateauV1"}], ")"}]}]}]], "Input",
339	CellChangeTimes->{{3.510485724914732^9, 3.510485738382079^9}}],
340
341	Cell[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
349	Cell[CellGroupData[{
350
351	Cell["Calibration 1380 MHZ", "Section",
352	CellChangeTimes->{{3.511065608295062^9, 3.511065621538829^9}}],
353
354	Cell[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
371	Cell[CellGroupData[{
372
373	Cell[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
387	Cell[BoxData[
388	GraphicsBox[
389	{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
390	1:eJw91H8s1HEcx3E/b8rmyo92kzi/bkLmZ5Qf9zqHO7/OIb8y/XFHP/QHa4jV
391	dGrK1BRRmV9h149Z8mNx5GeMfulmmCylRaVfkhprNTq5t+/23XeP7/P73T7f
392	fd/fr6UkLSpFS0NDI0i1rx83tkVuXGJz71fzRa76BApCi7zl2mQ9FHQykWpE
393	3oackoyRuZ1kY/QpFelsGzILB2blFYNsshnml0uGju4is6F0fiA3WPquthVO
394	uE3LlEzqNuhfi22RWpM5sGXklfH1yXb47ag899CNbI+VzLeV223Jjmg7ck3n
395	zm6yE3qcy+1ZJmRnNGRb/3xsQXbBuDD0/Tc9sitGMk2P3fUhuyG1/2LPWXey
396	O1KGg9iHJv+q7YElnvLwxG0tbHgv8svbzqTIyZ4o+PVqMq+V7IXV8exPnGby
397	PihFDMGTBvJ+cKJ160s6yd5gVJ9iXq8k+2Bti1Ps+E2yL24xk8QzLWQ/JNSb
398	141WkbkYljLsZ2vIQKBh9yVJh9oyYM5Fu+zHfeo8SPb46fYpqPMwVGgaNtBE
399	3R/nY7qKc5Kp++P1jeqmwQFNdedDO9E23qxIbRkfmkaKTM/L1AMQ/5F1pbua
400	egAax1Qv4B71QEhHM7JcFdQD4ZubNlbTTT0ImCp16HpGPQhZqtcv3+wCfE78
401	kJHwnLoAF3o5x8c31yeExCQt2byDuhBX49YXRD0YhRbShYOPqAcjijk6b1BH
402	PQRl7daVO7qoh2DqxUr0rHxZPQ+heMc4ncuyVM+LLBTRxVul+jyan7CN5/Oi
403	HoZ21bQEb85rODz+X0A9HBMc0cJJO+oiVHh1zNSSZSLwdcz8y0ypR8DhT6Pe
404	qif1CAwIBkuFVtTFSHvZZtdK64EYb7JqO0T0vcnEsKjqXEqg/0GfGOl6ManL
405	oPsjYZH/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
419	Cell[CellGroupData[{
420
421	Cell[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
429	Cell[BoxData["1.00776`"], "Output",
430	CellChangeTimes->{{3.511065060034816^9, 3.511065085806346^9},
431	3.5110657067287903`*^9}]
432	}, Open ]],
433
434	Cell[CellGroupData[{
435
436	Cell[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
449	Cell[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
457	Cell[CellGroupData[{
458
459	Cell[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
473	Cell[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
481	Cell[CellGroupData[{
482
483	Cell[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
491	Cell[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
499	Cell[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
515	Cell[CellGroupData[{
516
517	Cell[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
528	Cell[BoxData[
529	GraphicsBox[
530	{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
531	1:eJw9k30s1HEcx48esM5Kbp7NOZbzOJ0Qjns7z893+IdUm6LRYq2b6clu7Cix
532	iPpL5SqReWqlSOjIiilPy8o8j6Ri8lC4TWnuc7/tt99ev9f3833Y9/2xTEyP
533	TtJkMBiB2+//786zJEiI171+2WFJoPqBPbk1aWtmxNqoC5q6xHIiPoCf4fIV
534	Ey9iFkx1Jx2L2MRGqClaLkm1IDZDU/2uuQIuMRsbDn05LS7EHJTmyeKH+MTW
535	uDeo2BRoER9Co/t6x2k7Yi4KuQu6bc7Edli8InA94UnsgL1rjhdeqc/jhJXY
536	vFGmO7EzlBJ+cjmP+DA++ZjfNFbvjwd+Tu6Wjvq8LghZ5eXPGhAfwftGeWJZ
537	+4aKXREnzkkxavurYjekbT6zsH1A7I6J9RGXME0GdvgoTi3GC32+kffApJzb
538	b7NM7AnbOjtlnTaN94LHQJ2wp488H4E/qlKzq4i90Tlkn2Q8TeyDiuT9zzU7
539	iQVYaOGsT/QQA8a1D6t1aH9S4Pe+jM4XXeR9ka95lRN1ULW+1BfVwbKnsnLy
540	QljxaqYLe6leCAHjSUTZKHk//JnP7MUseT90n6+UNGyR9wfr4i3Jhxny/hgo
541	Ttjy2yQfgNeSEqPdBrR+ALK7pnrrv5IPhJ4bvzVa7QOhMPPOSh8iH4S8czd4
542	pur5g/BWWJsy/ot8ME5qfTQWj5APxgzLvHu2nXwIDF8OMMbpvqQhOFb6hV3C
543	pPsIhdt3S5MxDfKhUHLkjnODa6r6MJgN6d/JhCov0jB0jMW1LAgpP+Hoz3p0
544	jWlPPhyfl1ZD4/aSj4D18HQMg0k+Anf1KloVhuQjkd8wNX+b8iuNhCvTQi+G
545	Qz4KS7LuWAXlWRqFmeQmjfvqfhSh53HC1HHKN0QIdjGIOGND40XgZhU0n9VR
546	8RsRKgXKYo66X8QYz5A3R1pRvRj6/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
560	Cell[CellGroupData[{
561
562	Cell[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
570	Cell[BoxData["1.00776`"], "Output",
571	CellChangeTimes->{3.511065159049285^9, 3.5110657068847876`^9}]
572	}, Open ]],
573
574	Cell[CellGroupData[{
575
576	Cell[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
588	Cell[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
595	Cell[BoxData[""], "Input",
596	CellChangeTimes->{{3.5105689348231564`^9, 3.5105689358642607`^9}}],
597
598	Cell[CellGroupData[{
599
600	Cell[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
612	Cell[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
619	Cell[CellGroupData[{
620
621	Cell[BoxData[
622	RowBox[{"CoefV1", " ", "=", " ",
623	RowBox[{"0.5",
624	RowBox[{"(",
625	RowBox[{"firstPlateauV1", "+", "secondPlateauV1"}], ")"}]}]}]], "Input",
626	CellChangeTimes->{{3.510485724914732^9, 3.510485738382079^9}}],
627
628	Cell[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
636	Cell[CellGroupData[{
637
638	Cell["Calibration 1410 MHZ", "Section",
639	CellChangeTimes->{{3.511065673095837^9, 3.5110656850452075`^9}}],
640
641	Cell[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
658	Cell[CellGroupData[{
659
660	Cell[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
674	Cell[BoxData[
675	GraphicsBox[
676	{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
677	1:eJw90wlIk2Ecx/FlRt5lDmZmaKIiZh7lmeZ+npv3tNAiBfFIpUOsBEdJc+nM
678	Dk1T0ygjETQrKSwqQs3bLEmmpPOoaWSeuEg0r1bi+98L4+W7z54/L++eZ19c
679	akSiGovF8v//2bhvXgpuXLYi+buGgst8gQPl8cKohnmmNVAm799etES9EwZ6
680	De2tq9RssLkdI6/Uab0hlGbJn8ynyY2xnBNV5DFAbQrtWYdC6Sy1GRbvjt7J
681	3UbrzfGO/8jm8jq5Jbosl/WbxqmtcOZksczUgH5vDaXQyJ6/Qm6D9cV0+X19
682	cluUZ3X/WdpNbQ/psbAJE9V8B9wcTmalbiE/iCm9uCStvdSHwG8r5ldyqB3B
683	uTfjKJUuMe2E6uixGNu4Naad0Z/o8GLZldoF7EkDYdFFalfYK0YuvUmgdoP4
684	2S4bvSTqw6gVhwc8EFG7w3NS9nQlmtoD5lc2JlAfQV0fP+jHWWpP8Aq+DS+o
685	5nGR5JuSqsihBgYHLWpfS5gWAdLVjoGKE+ReUGraRvbHknuB9+HJBR0+uTe8
686	xOOdZe5/GffGTOTngPlhFjbdB3aS85Ux7UyLfKBR4Jx//CO5L4oK659Xj5L7
687	wnNOMZDQQ+4H3VZeW3EXuR98lOqc/dPk/tga63FV0kjuj0nxSqkbzWPx0Os7
688	qFjoJuehJaX5RmMLOR950q9y7T5yPuYnHuu9lZEHbP7/qucLwJx11VrVEHkg
689	xqyE6fnN5IHIrO+5NaW5yLyfIOzJyohpkjP7SxSEuvjotLR+2m/BWMg9VRHd
690	Rx4MH3Vj7xIj2l8hyJW015yeIw+Bpmu2tZPqvIXiZZTJjkw6j6JQ+A11PKxR
691	nacwuFz7ct25kzwMrVm3bWLVaL4Aeb0aznVKxiGArov8dyudf5EAZSvCo4Va
692	TL8XgF2aARmb1ofjl/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
707	Cell[CellGroupData[{
708
709	Cell[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
717	Cell[BoxData["1.00035`"], "Output",
718	CellChangeTimes->{{3.511065060034816^9, 3.511065085806346^9},
719	3.5110657070407844`*^9}]
720	}, Open ]],
721
722	Cell[CellGroupData[{
723
724	Cell[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
737	Cell[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
745	Cell[CellGroupData[{
746
747	Cell[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
761	Cell[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
769	Cell[CellGroupData[{
770
771	Cell[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
779	Cell[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
787	Cell[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
803	Cell[CellGroupData[{
804
805	Cell[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
816	Cell[BoxData[
817	GraphicsBox[
818	{Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
819	1:eJxd02tIU3EYx/GlpS7xQhYzM9O8NNR5Ny9N99t0m9ucThPyVqEZUaa+UFEr
820	a5ZmokQZhIVJXsiQ1ESZUVFSSeDyhVY2wQtIarRsllqSmCmdZy8cjMN3n+f8
821	2cZzXDLzEk+asFgsyfp74/r/NS/YI33U37p+ZT7A9MXKJuyjtkAElyv2+m1g
822	2hbPb5Z8tjEj34kmjVWz8zK5PbK6lJ4OempHWB5b3NWym+adMSNomXxhTb0f
823	NeWaesUPmnfDMGvChL2d3ANJNQshjbbUXOxYuhyf/5PmPZGRlHjgPpvcG3uL
824	5Ob6NXKfTe2H+BTlJ7txav9NvycAQd6So9kG8kA41zW/NcxRB6Hqa3tZe+0v
825	poOxxMt/6u3xh+mDaFz2n+lwpw5BpKDG1imHOhSyEz3X24zzYeg2Ty1z8aIO
826	h2mae7JjHPUh5Ok03G4hNR/ObpZ1fTzqCChSroaOiKkjUTd+q7IilVoA2GW8
827	fm88H3g1nvJsTsS0GnCVn7/iG0suRHit9lKMgFyI6Y9hZlm+5CLMB/o4WshW
828	GBfhdmSBsFSxyngUusaGz8SkM62OQjTnQ++70+TR2Dj+ZSl5NO75VFcNSsnF
829	yHloP5snIhcjl3NXH5RILkF60UJSpfF8Cdiqw9qRc+RSaBvFmgXj+VJ81/eF
830	ucrJY/DFrqS2QEkeA2kor3joCLkMGt7A2RsychmOG/4Wd6aSy1E43c23ySWX
831	YzKgVZs5tci4AthYb0dmn9QKjHleK+tYpf2JhV+DMGptK3ks6vurK1yM+6yE
832	2OpBxrIFuRI9swHB7AnyOASdKh3wH2VaHQdvnYQ/Okgej6lkTu8QPc/qeNh2
833	6jnfjPutgk7n3tZLDRUcONblWVtoXgV+k6gwn57HPhXK0tb/cHO6PwHV2Rc8
834	VmYZRwLuNDx+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
848	Cell[CellGroupData[{
849
850	Cell[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
858	Cell[BoxData["1.00035`"], "Output",
859	CellChangeTimes->{3.511065159049285^9, 3.511065707196781^9}]
860	}, Open ]],
861
862	Cell[CellGroupData[{
863
864	Cell[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
876	Cell[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
883	Cell[BoxData[""], "Input",
884	CellChangeTimes->{{3.5105689348231564`^9, 3.5105689358642607`^9}}],
885
886	Cell[CellGroupData[{
887
888	Cell[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
900	Cell[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
907	Cell[CellGroupData[{
908
909	Cell[BoxData[
910	RowBox[{"CoefV1", " ", "=", " ",
911	RowBox[{"0.5",
912	RowBox[{"(",
913	RowBox[{"firstPlateauV1", "+", "secondPlateauV1"}], ")"}]}]}]], "Input",
914	CellChangeTimes->{{3.510485724914732^9, 3.510485738382079^9}}],
915
916	Cell[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
923	Cell[CellGroupData[{
924
925	Cell[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
960	Cell[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	},
987	WindowSize->{707, 761},
988	WindowMargins->{{Automatic, -23}, {31, Automatic}},
989	FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
990	StyleDefinitions->FrontEnd`FileName[{"Creative"}, "PastelColor.nb",
991	CharacterEncoding -> "WindowsANSI"]
992	]
993	(* End of Notebook Content *)
994
995	(* Internal cache information *)
996	(*CellTagsOutline
997	CellTagsIndex->{}
998	*)
999	(*CellTagsIndex
1000	CellTagsIndex->{}
1001	*)
1002	(*NotebookFileOutline
1003	Notebook[{
1004	Cell[CellGroupData[{
1005	Cell[579, 22, 196, 4, 41, "Input"],
1006	Cell[778, 28, 206, 3, 40, "Output"]
1007	}, Open ]],
1008	Cell[CellGroupData[{
1009	Cell[1021, 36, 174, 3, 75, "Section"],
1010	Cell[1198, 41, 151, 3, 41, "Input"],
1011	Cell[1352, 46, 148, 3, 41, "Input"],
1012	Cell[1503, 51, 151, 3, 41, "Input"],
1013	Cell[1657, 56, 141, 3, 41, "Input"]
1014	}, Open ]],
1015	Cell[CellGroupData[{
1016	Cell[1835, 64, 188, 2, 75, "Section"],
1017	Cell[2026, 68, 744, 15, 41, "Input"],
1018	Cell[CellGroupData[{
1019	Cell[2795, 87, 549, 12, 41, "Input"],
1020	Cell[3347, 101, 1535, 30, 268, "Output"]
1021	}, Open ]],
1022	Cell[CellGroupData[{
1023	Cell[4919, 136, 255, 6, 41, "Input"],
1024	Cell[5177, 144, 128, 2, 40, "Output"]
1025	}, Open ]],
1026	Cell[CellGroupData[{
1027	Cell[5342, 151, 507, 11, 41, "Input"],
1028	Cell[5852, 164, 344, 5, 40, "Output"]
1029	}, Open ]],
1030	Cell[CellGroupData[{
1031	Cell[6233, 174, 555, 12, 41, "Input"],
1032	Cell[6791, 188, 349, 5, 40, "Output"]
1033	}, Open ]],
1034	Cell[CellGroupData[{
1035	Cell[7177, 198, 279, 6, 41, "Input"],
1036	Cell[7459, 206, 325, 5, 40, "Output"]
1037	}, Open ]],
1038	Cell[7799, 214, 644, 13, 41, "Input"],
1039	Cell[CellGroupData[{
1040	Cell[8468, 231, 353, 9, 41, "Input"],
1041	Cell[8824, 242, 1507, 30, 268, "Output"]
1042	}, Open ]],
1043	Cell[CellGroupData[{
1044	Cell[10368, 277, 255, 6, 41, "Input"],
1045	Cell[10626, 285, 100, 1, 40, "Output"]
1046	}, Open ]],
1047	Cell[CellGroupData[{
1048	Cell[10763, 291, 458, 10, 41, "Input"],
1049	Cell[11224, 303, 335, 4, 40, "Output"]
1050	}, Open ]],
1051	Cell[CellGroupData[{
1052	Cell[11596, 312, 463, 10, 41, "Input"],
1053	Cell[12062, 324, 307, 4, 40, "Output"]
1054	}, Open ]],
1055	Cell[CellGroupData[{
1056	Cell[12406, 333, 226, 5, 41, "Input"],
1057	Cell[12635, 340, 275, 4, 40, "Output"]
1058	}, Open ]]
1059	}, Open ]],
1060	Cell[CellGroupData[{
1061	Cell[12959, 350, 105, 1, 89, "Section"],
1062	Cell[13067, 353, 742, 15, 41, "Input"],
1063	Cell[CellGroupData[{
1064	Cell[13834, 372, 549, 12, 41, "Input"],
1065	Cell[14386, 386, 1522, 29, 268, "Output"]
1066	}, Open ]],
1067	Cell[CellGroupData[{
1068	Cell[15945, 420, 255, 6, 41, "Input"],
1069	Cell[16203, 428, 129, 2, 40, "Output"]
1070	}, Open ]],
1071	Cell[CellGroupData[{
1072	Cell[16369, 435, 507, 11, 41, "Input"],
1073	Cell[16879, 448, 354, 5, 40, "Output"]
1074	}, Open ]],
1075	Cell[CellGroupData[{
1076	Cell[17270, 458, 555, 12, 41, "Input"],
1077	Cell[17828, 472, 348, 5, 40, "Output"]
1078	}, Open ]],
1079	Cell[CellGroupData[{
1080	Cell[18213, 482, 279, 6, 41, "Input"],
1081	Cell[18495, 490, 326, 5, 40, "Output"]
1082	}, Open ]],
1083	Cell[18836, 498, 695, 14, 41, "Input"],
1084	Cell[CellGroupData[{
1085	Cell[19556, 516, 353, 9, 41, "Input"],
1086	Cell[19912, 527, 1500, 29, 268, "Output"]
1087	}, Open ]],
1088	Cell[CellGroupData[{
1089	Cell[21449, 561, 255, 6, 41, "Input"],
1090	Cell[21707, 569, 101, 1, 40, "Output"]
1091	}, Open ]],
1092	Cell[CellGroupData[{
1093	Cell[21845, 575, 458, 10, 41, "Input"],
1094	Cell[22306, 587, 335, 4, 40, "Output"]
1095	}, Open ]],
1096	Cell[22656, 594, 96, 1, 41, "Input"],
1097	Cell[CellGroupData[{
1098	Cell[22777, 599, 463, 10, 41, "Input"],
1099	Cell[23243, 611, 299, 4, 40, "Output"]
1100	}, Open ]],
1101	Cell[CellGroupData[{
1102	Cell[23579, 620, 226, 5, 41, "Input"],
1103	Cell[23808, 627, 277, 4, 40, "Output"]
1104	}, Open ]]
1105	}, Open ]],
1106	Cell[CellGroupData[{
1107	Cell[24134, 637, 107, 1, 75, "Section"],
1108	Cell[24244, 640, 792, 15, 41, "Input"],
1109	Cell[CellGroupData[{
1110	Cell[25061, 659, 549, 12, 41, "Input"],
1111	Cell[25613, 673, 1535, 30, 268, "Output"]
1112	}, Open ]],
1113	Cell[CellGroupData[{
1114	Cell[27185, 708, 255, 6, 41, "Input"],
1115	Cell[27443, 716, 129, 2, 40, "Output"]
1116	}, Open ]],
1117	Cell[CellGroupData[{
1118	Cell[27609, 723, 507, 11, 41, "Input"],
1119	Cell[28119, 736, 341, 5, 40, "Output"]
1120	}, Open ]],
1121	Cell[CellGroupData[{
1122	Cell[28497, 746, 555, 12, 41, "Input"],
1123	Cell[29055, 760, 361, 5, 40, "Output"]
1124	}, Open ]],
1125	Cell[CellGroupData[{
1126	Cell[29453, 770, 279, 6, 41, "Input"],
1127	Cell[29735, 778, 335, 5, 40, "Output"]
1128	}, Open ]],
1129	Cell[30085, 786, 697, 14, 41, "Input"],
1130	Cell[CellGroupData[{
1131	Cell[30807, 804, 353, 9, 41, "Input"],
1132	Cell[31163, 815, 1484, 29, 268, "Output"]
1133	}, Open ]],
1134	Cell[CellGroupData[{
1135	Cell[32684, 849, 255, 6, 41, "Input"],
1136	Cell[32942, 857, 99, 1, 40, "Output"]
1137	}, Open ]],
1138	Cell[CellGroupData[{
1139	Cell[33078, 863, 458, 10, 41, "Input"],
1140	Cell[33539, 875, 335, 4, 40, "Output"]
1141	}, Open ]],
1142	Cell[33889, 882, 96, 1, 41, "Input"],
1143	Cell[CellGroupData[{
1144	Cell[34010, 887, 463, 10, 41, "Input"],
1145	Cell[34476, 899, 309, 4, 40, "Output"]
1146	}, Open ]],
1147	Cell[CellGroupData[{
1148	Cell[34822, 908, 226, 5, 41, "Input"],
1149	Cell[35051, 915, 286, 4, 40, "Output"]
1150	}, Open ]],
1151	Cell[CellGroupData[{
1152	Cell[35374, 924, 1232, 33, 122, "Input"],
1153	Cell[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.

Context Navigation

source: BAORadio/AmasNancay/Abell2440/calibrationBAO.nb@ 689

Download in other formats: