source: BAORadio/AmasArchive/Amas 21cm/Abell2440/etude_fichier_sca.nb @ 700

Last change on this file since 700 was 672, checked in by campagne, 12 years ago
File size: 42.8 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[     42556,       1085]
14NotebookOptionsPosition[     39330,        970]
15NotebookOutlinePosition[     39749,        986]
16CellTagsIndexPosition[     39706,        983]
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
28Cell[BoxData["\<\"E:\\\\Presentations\\\\BAO\\\\Amas 21cm\\\\Abell2440\"\>"], \
29"Output",
30 CellChangeTimes->{3.5111511711370373`*^9, 3.5111708935558796`*^9}]
31}, Open  ]],
32
33Cell[BoxData[
34 RowBox[{
35  RowBox[{"data", " ", "=", 
36   RowBox[{"Import", "[", 
37    RowBox[{"\"\<sca150585.230.txt\>\"", ",", "\"\<Table\>\""}], "]"}]}], 
38  ";"}]], "Input",
39 CellChangeTimes->{{3.511151204360359*^9, 3.51115121706663*^9}, {
40  3.511151303986321*^9, 3.511151314996422*^9}}],
41
42Cell[BoxData[
43 RowBox[{
44  RowBox[{"start", " ", "=", " ", 
45   RowBox[{"StringSplit", "[", 
46    RowBox[{"FindList", "[", 
47     RowBox[{"\"\<sca150585.230.txt\>\"", ",", "\"\<HDEP\>\""}], "]"}], 
48    "]"}]}], ";"}]], "Input",
49 CellChangeTimes->{{3.511151424236345*^9, 3.5111514430872297`*^9}, {
50   3.511151583529272*^9, 3.51115159350327*^9}, {3.5111516770216208`*^9, 
51   3.511151677674686*^9}, {3.5111517341843367`*^9, 3.5111517497698946`*^9}, {
52   3.5111517979447117`*^9, 3.511151800503968*^9}, {3.5111518815470715`*^9, 
53   3.511151882114128*^9}, {3.511152135730487*^9, 3.5111521390138154`*^9}, {
54   3.5111522432462378`*^9, 3.5111522823901515`*^9}, 3.511152351822094*^9}],
55
56Cell[CellGroupData[{
57
58Cell[BoxData[
59 RowBox[{"DateOfStart", "=", " ", 
60  RowBox[{"start", "[", 
61   RowBox[{"[", 
62    RowBox[{"1", ",", "2"}], "]"}], "]"}]}]], "Input",
63 CellChangeTimes->{{3.5111522966425767`*^9, 3.5111523174736595`*^9}}],
64
65Cell[BoxData["\<\"24/03/11\"\>"], "Output",
66 CellChangeTimes->{3.5111523180087132`*^9}]
67}, Open  ]],
68
69Cell[CellGroupData[{
70
71Cell[BoxData[
72 RowBox[{"HeureOfStart", " ", "=", " ", 
73  RowBox[{"start", "[", 
74   RowBox[{"[", 
75    RowBox[{"1", ",", "3"}], "]"}], "]"}]}]], "Input",
76 CellChangeTimes->{{3.51115233097501*^9, 3.5111523439513073`*^9}}],
77
78Cell[BoxData["\<\"9:49:16.00\"\>"], "Output",
79 CellChangeTimes->{3.511152344327345*^9}]
80}, Open  ]],
81
82Cell[BoxData[
83 RowBox[{
84  RowBox[{"acq", "=", " ", 
85   RowBox[{"StringSplit", "@", 
86    RowBox[{"FindList", "[", 
87     RowBox[{"\"\<sca150585.230.txt\>\"", ",", "\"\<PERI\>\""}], "]"}]}]}], 
88  ";"}]], "Input",
89 CellChangeTimes->{{3.511152371353047*^9, 3.511152399847896*^9}, {
90  3.5111524586487756`*^9, 3.5111525090488153`*^9}, {3.51115390249716*^9, 
91  3.5111539051904297`*^9}}],
92
93Cell[CellGroupData[{
94
95Cell[BoxData[
96 RowBox[{"PermierCycle", " ", "=", " ", 
97  RowBox[{"acq", "[", 
98   RowBox[{"[", 
99    RowBox[{"1", ",", "6"}], "]"}], "]"}]}]], "Input",
100 CellChangeTimes->{{3.511152510888999*^9, 3.511152513845295*^9}, {
101  3.5111525661455245`*^9, 3.5111525665975695`*^9}, {3.511153909967907*^9, 
102  3.511153948614772*^9}}],
103
104Cell[BoxData["\<\"1\"\>"], "Output",
105 CellChangeTimes->{3.511152514136324*^9, 3.5111525671326227`*^9, 
106  3.511153910963007*^9, 3.5111539496108713`*^9}]
107}, Open  ]],
108
109Cell[CellGroupData[{
110
111Cell[BoxData[
112 RowBox[{"DernierCycle", " ", "=", " ", 
113  RowBox[{"acq", "[", 
114   RowBox[{"[", 
115    RowBox[{
116     RowBox[{"-", "1"}], ",", "6"}], "]"}], "]"}]}]], "Input",
117 CellChangeTimes->{{3.511153956777588*^9, 3.5111539688767977`*^9}}],
118
119Cell[BoxData["\<\"24\"\>"], "Output",
120 CellChangeTimes->{3.5111539694318533`*^9}]
121}, Open  ]],
122
123Cell[BoxData[""], "Input",
124 CellChangeTimes->{{3.511153865358447*^9, 3.5111538906199727`*^9}}],
125
126Cell[CellGroupData[{
127
128Cell[BoxData[
129 RowBox[{"acq", "[", 
130  RowBox[{"[", 
131   RowBox[{"-", "1"}], "]"}], "]"}]], "Input",
132 CellChangeTimes->{{3.511154509885893*^9, 3.5111545145443587`*^9}, {
133  3.5111547233662386`*^9, 3.5111547261205144`*^9}}],
134
135Cell[BoxData[
136 RowBox[{"{", 
137  RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", ",", "\<\"10:37:00.00\"\>",
138    ",", "\<\"336\"\>", ",", "\<\"4\"\>", ",", "\<\"24\"\>", ",", "\<\"2\"\>",
139    ",", "\<\"40\"\>", ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
140    ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", 
141   ",", "\<\"375.058643\"\>", ",", "\<\"375.058643\"\>", 
142   ",", "\<\"375.058643\"\>", ",", "\<\"375.058643\"\>"}], "}"}]], "Output",
143 CellChangeTimes->{3.51115451485439*^9, 3.5111547269345956`*^9}]
144}, Open  ]],
145
146Cell[CellGroupData[{
147
148Cell[BoxData[
149 RowBox[{"Cycle2", "=", " ", 
150  RowBox[{"Cases", "[", 
151   RowBox[{"acq", ",", 
152    RowBox[{"x_", "/;", 
153     RowBox[{
154      RowBox[{"x", "[", 
155       RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", 
156      RowBox[{"ToString", "[", "2", "]"}]}]}]}], "]"}]}]], "Input",
157 CellChangeTimes->{{3.5111544112350287`*^9, 3.5111544403349385`*^9}, {
158  3.5111544872876334`*^9, 3.511154495622467*^9}, {3.51115453375628*^9, 
159  3.5111545576086645`*^9}, {3.5111546216430674`*^9, 3.51115463436734*^9}, {
160  3.511154762963198*^9, 3.511154771055007*^9}, {3.511154816757577*^9, 
161  3.5111548370976105`*^9}}],
162
163Cell[BoxData[
164 RowBox[{"{", 
165  RowBox[{
166   RowBox[{"{", 
167    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
168     ",", "\<\"9:51:32.00\"\>", ",", "\<\"15\"\>", ",", "\<\"1\"\>", 
169     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
170     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
171      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
172     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
173     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
174   RowBox[{"{", 
175    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
176     ",", "\<\"9:51:33.00\"\>", ",", "\<\"16\"\>", ",", "\<\"1\"\>", 
177     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
178     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
179     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
180     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
181     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
182   RowBox[{"{", 
183    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
184     ",", "\<\"9:51:34.00\"\>", ",", "\<\"17\"\>", ",", "\<\"1\"\>", 
185     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
186     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>",
187      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
188     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
189     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
190   RowBox[{"{", 
191    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
192     ",", "\<\"9:51:35.00\"\>", ",", "\<\"18\"\>", ",", "\<\"1\"\>", 
193     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
194     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
195     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
196     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
197     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
198   RowBox[{"{", 
199    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
200     ",", "\<\"9:51:36.00\"\>", ",", "\<\"19\"\>", ",", "\<\"1\"\>", 
201     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
202     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>",
203      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
204     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
205     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
206   RowBox[{"{", 
207    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
208     ",", "\<\"9:51:37.00\"\>", ",", "\<\"20\"\>", ",", "\<\"1\"\>", 
209     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
210     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
211     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
212     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
213     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
214   RowBox[{"{", 
215    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
216     ",", "\<\"9:51:38.00\"\>", ",", "\<\"21\"\>", ",", "\<\"2\"\>", 
217     ",", "\<\"2\"\>", ",", "\<\"1\"\>", ",", "\<\"40\"\>", 
218     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
219      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
220     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
221     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
222   RowBox[{"{", 
223    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
224     ",", "\<\"9:52:32.00\"\>", ",", "\<\"22\"\>", ",", "\<\"3\"\>", 
225     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
226     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
227      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
228     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
229     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
230   RowBox[{"{", 
231    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
232     ",", "\<\"9:52:33.00\"\>", ",", "\<\"23\"\>", ",", "\<\"3\"\>", 
233     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
234     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
235     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
236     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
237     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
238   RowBox[{"{", 
239    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
240     ",", "\<\"9:52:34.00\"\>", ",", "\<\"24\"\>", ",", "\<\"3\"\>", 
241     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
242     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>",
243      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
244     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
245     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
246   RowBox[{"{", 
247    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
248     ",", "\<\"9:52:35.00\"\>", ",", "\<\"25\"\>", ",", "\<\"3\"\>", 
249     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
250     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
251     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
252     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
253     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
254   RowBox[{"{", 
255    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
256     ",", "\<\"9:52:36.00\"\>", ",", "\<\"26\"\>", ",", "\<\"3\"\>", 
257     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
258     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>",
259      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
260     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
261     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
262   RowBox[{"{", 
263    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
264     ",", "\<\"9:52:37.00\"\>", ",", "\<\"27\"\>", ",", "\<\"3\"\>", 
265     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
266     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
267     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
268     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
269     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
270   RowBox[{"{", 
271    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
272     ",", "\<\"9:52:38.00\"\>", ",", "\<\"28\"\>", ",", "\<\"4\"\>", 
273     ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"40\"\>", 
274     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
275      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
276     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
277     ",", "\<\"375.058846\"\>"}], "}"}]}], "}"}]], "Output",
278 CellChangeTimes->{
279  3.5111544962225266`*^9, {3.51115453485639*^9, 3.5111545579116955`*^9}, {
280   3.5111546228831916`*^9, 3.5111546348313866`*^9}, {3.5111547660765095`*^9, 
281   3.511154771640066*^9}, {3.511154824774379*^9, 3.5111548392328243`*^9}}]
282}, Open  ]],
283
284Cell[CellGroupData[{
285
286Cell[BoxData[
287 RowBox[{"cycle2Calib1Start", " ", "=", " ", 
288  RowBox[{"Cycle2", "[", 
289   RowBox[{"[", 
290    RowBox[{"1", ",", "3"}], "]"}], "]"}]}]], "Input",
291 CellChangeTimes->{{3.5111549006209626`*^9, 3.511154956513551*^9}}],
292
293Cell[BoxData["\<\"9:51:32.00\"\>"], "Output",
294 CellChangeTimes->{{3.51115494819972*^9, 3.511154957040604*^9}}]
295}, Open  ]],
296
297Cell[CellGroupData[{
298
299Cell[BoxData[
300 RowBox[{"cycle2calibType1", " ", "=", " ", 
301  RowBox[{"Cases", "[", 
302   RowBox[{"Cycle2", ",", 
303    RowBox[{"x_", "/;", 
304     RowBox[{
305      RowBox[{"x", "[", 
306       RowBox[{"[", "7", "]"}], "]"}], "\[Equal]", 
307      RowBox[{"ToString", "[", 
308       RowBox[{"-", "1"}], "]"}]}]}]}], "]"}]}]], "Input",
309 CellChangeTimes->{{3.5111549916080604`*^9, 3.511155039894889*^9}, {
310  3.511155666032496*^9, 3.5111556967335663`*^9}, {3.511155784654357*^9, 
311  3.511155786140506*^9}}],
312
313Cell[BoxData[
314 RowBox[{"{", 
315  RowBox[{
316   RowBox[{"{", 
317    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
318     ",", "\<\"9:51:32.00\"\>", ",", "\<\"15\"\>", ",", "\<\"1\"\>", 
319     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
320     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
321      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
322     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
323     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
324   RowBox[{"{", 
325    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
326     ",", "\<\"9:51:33.00\"\>", ",", "\<\"16\"\>", ",", "\<\"1\"\>", 
327     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
328     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
329     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
330     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
331     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
332   RowBox[{"{", 
333    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
334     ",", "\<\"9:51:34.00\"\>", ",", "\<\"17\"\>", ",", "\<\"1\"\>", 
335     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
336     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>",
337      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
338     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
339     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
340   RowBox[{"{", 
341    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
342     ",", "\<\"9:51:35.00\"\>", ",", "\<\"18\"\>", ",", "\<\"1\"\>", 
343     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
344     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
345     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
346     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
347     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
348   RowBox[{"{", 
349    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
350     ",", "\<\"9:51:36.00\"\>", ",", "\<\"19\"\>", ",", "\<\"1\"\>", 
351     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
352     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>",
353      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
354     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
355     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
356   RowBox[{"{", 
357    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
358     ",", "\<\"9:51:37.00\"\>", ",", "\<\"20\"\>", ",", "\<\"1\"\>", 
359     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
360     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
361     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
362     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
363     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
364   RowBox[{"{", 
365    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
366     ",", "\<\"9:52:32.00\"\>", ",", "\<\"22\"\>", ",", "\<\"3\"\>", 
367     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
368     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
369      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
370     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
371     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
372   RowBox[{"{", 
373    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
374     ",", "\<\"9:52:33.00\"\>", ",", "\<\"23\"\>", ",", "\<\"3\"\>", 
375     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
376     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
377     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
378     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
379     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
380   RowBox[{"{", 
381    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
382     ",", "\<\"9:52:34.00\"\>", ",", "\<\"24\"\>", ",", "\<\"3\"\>", 
383     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
384     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>",
385      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
386     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
387     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
388   RowBox[{"{", 
389    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
390     ",", "\<\"9:52:35.00\"\>", ",", "\<\"25\"\>", ",", "\<\"3\"\>", 
391     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
392     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>", ",", "\<\"0\"\>", 
393     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
394     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
395     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
396   RowBox[{"{", 
397    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
398     ",", "\<\"9:52:36.00\"\>", ",", "\<\"26\"\>", ",", "\<\"3\"\>", 
399     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"1\"\>", 
400     ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"1\"\>",
401      ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
402     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
403     ",", "\<\"375.058846\"\>"}], "}"}], ",", 
404   RowBox[{"{", 
405    RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", 
406     ",", "\<\"9:52:37.00\"\>", ",", "\<\"27\"\>", ",", "\<\"3\"\>", 
407     ",", "\<\"2\"\>", ",", "\<\"-1\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
408     ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>", 
409     ",", "\<\"EWGD\"\>", ",", "\<\"375.058846\"\>", 
410     ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
411     ",", "\<\"375.058846\"\>"}], "}"}]}], "}"}]], "Output",
412 CellChangeTimes->{3.5111550404059396`*^9, 3.511155698612754*^9, 
413  3.511155787794671*^9}]
414}, Open  ]],
415
416Cell[CellGroupData[{
417
418Cell[BoxData[
419 RowBox[{"cycle2calibType1", "[", 
420  RowBox[{"[", 
421   RowBox[{"All", ",", "3"}], "]"}], "]"}]], "Input",
422 CellChangeTimes->{{3.5111550842783265`*^9, 3.51115508721462*^9}, {
423  3.511155703332226*^9, 3.5111557349443865`*^9}, {3.511155794905382*^9, 
424  3.5111558062305145`*^9}}],
425
426Cell[BoxData[
427 RowBox[{"{", 
428  RowBox[{"\<\"9:51:32.00\"\>", ",", "\<\"9:51:33.00\"\>", 
429   ",", "\<\"9:51:34.00\"\>", ",", "\<\"9:51:35.00\"\>", 
430   ",", "\<\"9:51:36.00\"\>", ",", "\<\"9:51:37.00\"\>", 
431   ",", "\<\"9:52:32.00\"\>", ",", "\<\"9:52:33.00\"\>", 
432   ",", "\<\"9:52:34.00\"\>", ",", "\<\"9:52:35.00\"\>", 
433   ",", "\<\"9:52:36.00\"\>", ",", "\<\"9:52:37.00\"\>"}], "}"}]], "Output",
434 CellChangeTimes->{3.5111550877246714`*^9, 3.5111557355834503`*^9, 
435  3.511155807849676*^9}]
436}, Open  ]],
437
438Cell[CellGroupData[{
439
440Cell[BoxData[
441 RowBox[{"cycle2FirstCalibStart", " ", "=", " ", 
442  RowBox[{"cycle2calibType1", "[", 
443   RowBox[{"[", 
444    RowBox[{"1", ",", "3"}], "]"}], "]"}]}]], "Input",
445 CellChangeTimes->{{3.5111563290917954`*^9, 3.5111563987287583`*^9}}],
446
447Cell[BoxData["\<\"9:51:32.00\"\>"], "Output",
448 CellChangeTimes->{3.5111563996298485`*^9}]
449}, Open  ]],
450
451Cell[CellGroupData[{
452
453Cell[BoxData[
454 RowBox[{"cycle2FirstCalibEnd", " ", "=", "  ", 
455  RowBox[{"cycle2calibType1", "[", 
456   RowBox[{"[", 
457    RowBox[{
458     RowBox[{
459      RowBox[{"Length", "[", "cycle2calibType1", "]"}], "/", "2"}], ",", 
460     "3"}], "]"}], "]"}]}]], "Input",
461 CellChangeTimes->{{3.5111564167685623`*^9, 3.5111564549893837`*^9}}],
462
463Cell[BoxData["\<\"9:51:37.00\"\>"], "Output",
464 CellChangeTimes->{3.511156456416527*^9}]
465}, Open  ]],
466
467Cell[CellGroupData[{
468
469Cell[BoxData[
470 RowBox[{"cycle2SecondCalibStart", " ", "=", " ", 
471  RowBox[{"cycle2calibType1", "[", 
472   RowBox[{"[", 
473    RowBox[{
474     RowBox[{
475      RowBox[{
476       RowBox[{"Length", "[", "cycle2calibType1", "]"}], "/", "2"}], "+", 
477      "1"}], ",", "3"}], "]"}], "]"}]}]], "Input",
478 CellChangeTimes->{{3.5111564956784525`*^9, 3.5111565154734316`*^9}}],
479
480Cell[BoxData["\<\"9:52:32.00\"\>"], "Output",
481 CellChangeTimes->{3.5111565161555*^9}]
482}, Open  ]],
483
484Cell[CellGroupData[{
485
486Cell[BoxData[
487 RowBox[{"cycle2SecondtCalibEnd", " ", "=", "  ", 
488  RowBox[{"cycle2calibType1", "[", 
489   RowBox[{"[", 
490    RowBox[{
491     RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}]}]], "Input",
492 CellChangeTimes->{{3.5111565373196163`*^9, 3.511156559026787*^9}}],
493
494Cell[BoxData["\<\"9:52:37.00\"\>"], "Output",
495 CellChangeTimes->{3.5111565597178555`*^9}]
496}, Open  ]],
497
498Cell[CellGroupData[{
499
500Cell[BoxData[
501 RowBox[{"data1cycle2", "=", 
502  RowBox[{"Cases", "[", 
503   RowBox[{"Cycle2", ",", 
504    RowBox[{"x_", "/;", 
505     RowBox[{
506      RowBox[{"x", "[", 
507       RowBox[{"[", "7", "]"}], "]"}], "\[Equal]", 
508      RowBox[{"ToString", "[", "1", "]"}]}]}]}], "]"}]}]], "Input",
509 CellChangeTimes->{{3.5111558146313543`*^9, 3.5111558721711082`*^9}}],
510
511Cell[BoxData[
512 RowBox[{"{", 
513  RowBox[{"{", 
514   RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", ",", "\<\"9:51:38.00\"\>",
515     ",", "\<\"21\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", ",", "\<\"1\"\>", 
516    ",", "\<\"40\"\>", ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
517     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", 
518    ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
519    ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>"}], "}"}], 
520  "}"}]], "Output",
521 CellChangeTimes->{3.5111558434852395`*^9, 3.5111558738222733`*^9}]
522}, Open  ]],
523
524Cell[CellGroupData[{
525
526Cell[BoxData[
527 RowBox[{
528  RowBox[{"cycle2Data1Start", "=", 
529   RowBox[{"data1cycle2", "[", 
530    RowBox[{"[", 
531     RowBox[{"1", ",", "3"}], "]"}], "]"}]}], 
532  "\[IndentingNewLine]"}]], "Input",
533 CellChangeTimes->{{3.511156976486396*^9, 3.5111570399976206`*^9}}],
534
535Cell[BoxData["\<\"9:51:38.00\"\>"], "Output",
536 CellChangeTimes->{{3.511157034597141*^9, 3.5111570406244297`*^9}}]
537}, Open  ]],
538
539Cell[CellGroupData[{
540
541Cell[BoxData[
542 RowBox[{"DateString", "[", 
543  RowBox[{
544   RowBox[{"DatePlus", "[", 
545    RowBox[{"cycle2Data1Start", ",", 
546     RowBox[{"{", 
547      RowBox[{
548       RowBox[{"ToExpression", "[", 
549        RowBox[{"data1cycle2", "[", 
550         RowBox[{"[", 
551          RowBox[{"1", ",", "8"}], "]"}], "]"}], "]"}], ",", 
552       "\"\<Second\>\""}], "}"}]}], "]"}], ",", "\"\<Time\>\""}], 
553  "]"}]], "Input",
554 CellChangeTimes->{{3.511158605464714*^9, 3.511158655769744*^9}, {
555  3.5111586887540426`*^9, 3.511158689152082*^9}, {3.5111587881369796`*^9, 
556  3.5111588261597815`*^9}, {3.511158914796644*^9, 3.5111589173168964`*^9}, {
557  3.5111633484367595`*^9, 3.5111633567222443`*^9}}],
558
559Cell[BoxData["\<\"09:52:18\"\>"], "Output",
560 CellChangeTimes->{3.511158657618929*^9, 3.5111586900131683`*^9, 
561  3.511158826871853*^9, 3.5111589179489594`*^9, 3.511163357672529*^9}]
562}, Open  ]],
563
564Cell[CellGroupData[{
565
566Cell[BoxData[
567 RowBox[{"data2cycle2", "=", 
568  RowBox[{"Cases", "[", 
569   RowBox[{"Cycle2", ",", 
570    RowBox[{"x_", "/;", 
571     RowBox[{
572      RowBox[{"x", "[", 
573       RowBox[{"[", "7", "]"}], "]"}], "\[Equal]", 
574      RowBox[{"ToString", "[", "2", "]"}]}]}]}], "]"}]}]], "Input",
575 CellChangeTimes->{{3.511155885671458*^9, 3.511155892273118*^9}}],
576
577Cell[BoxData[
578 RowBox[{"{", 
579  RowBox[{"{", 
580   RowBox[{"\<\"PERI\"\>", ",", "\<\"24/03/11\"\>", ",", "\<\"9:52:38.00\"\>",
581     ",", "\<\"28\"\>", ",", "\<\"4\"\>", ",", "\<\"2\"\>", ",", "\<\"2\"\>", 
582    ",", "\<\"40\"\>", ",", "\<\"100\"\>", ",", "\<\"0\"\>", ",", "\<\"0\"\>",
583     ",", "\<\"0\"\>", ",", "\<\"1\"\>", ",", "\<\"EWGD\"\>", 
584    ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>", 
585    ",", "\<\"375.058846\"\>", ",", "\<\"375.058846\"\>"}], "}"}], 
586  "}"}]], "Output",
587 CellChangeTimes->{3.511155892904181*^9}]
588}, Open  ]],
589
590Cell[CellGroupData[{
591
592Cell[BoxData[
593 RowBox[{"cycle2Data2Start", "=", 
594  RowBox[{"data2cycle2", "[", 
595   RowBox[{"[", 
596    RowBox[{"1", ",", "3"}], "]"}], "]"}]}]], "Input",
597 CellChangeTimes->{{3.5111590452916927`*^9, 3.5111590515713205`*^9}}],
598
599Cell[BoxData["\<\"9:52:38.00\"\>"], "Output",
600 CellChangeTimes->{3.5111590524014034`*^9}]
601}, Open  ]],
602
603Cell[CellGroupData[{
604
605Cell[BoxData[
606 RowBox[{"DateString", "[", 
607  RowBox[{
608   RowBox[{"DatePlus", "[", 
609    RowBox[{"cycle2Data2Start", ",", 
610     RowBox[{"{", 
611      RowBox[{
612       RowBox[{"ToExpression", "[", 
613        RowBox[{"data2cycle2", "[", 
614         RowBox[{"[", 
615          RowBox[{"1", ",", "8"}], "]"}], "]"}], "]"}], ",", 
616       "\"\<Second\>\""}], "}"}]}], "]"}], ",", "\"\<Time\>\""}], 
617  "]"}]], "Input",
618 CellChangeTimes->{{3.5111590758037434`*^9, 3.511159113055468*^9}, 
619   3.5111591503451967`*^9, {3.511159281949356*^9, 3.5111592953166924`*^9}, {
620   3.5111593855377135`*^9, 3.5111594117203317`*^9}}],
621
622Cell[BoxData["\<\"09:53:18\"\>"], "Output",
623 CellChangeTimes->{{3.5111590858057437`*^9, 3.511159114003563*^9}, {
624  3.511159284747636*^9, 3.5111592959897594`*^9}, {3.511159393287489*^9, 
625  3.5111594125274124`*^9}}]
626}, Open  ]],
627
628Cell[BoxData[{
629 RowBox[{
630  RowBox[{"Clear", "[", "decodeCycle", "]"}], ";"}], "\[IndentingNewLine]", 
631 RowBox[{
632  RowBox[{
633   RowBox[{"decodeCycle", "[", "c_List", "]"}], ":=", 
634   RowBox[{"Module", "[", "\[IndentingNewLine]", 
635    RowBox[{
636     RowBox[{"{", 
637      RowBox[{
638      "i", ",", "calibType1", ",", "firstCalibStart", ",", "firstCalibEnd", 
639       ",", "secondCalibStart", ",", "secondCalibEnd", ",", "data1", ",", 
640       "data1Start", ",", "data1End", ",", "data2", ",", "data2Start", ",", 
641       "data2End"}], "}"}], ",", "\[IndentingNewLine]", 
642     RowBox[{
643      RowBox[{"calibType1", " ", "=", " ", 
644       RowBox[{"Cases", "[", 
645        RowBox[{"c", ",", 
646         RowBox[{"x_", "/;", 
647          RowBox[{
648           RowBox[{"x", "[", 
649            RowBox[{"[", "7", "]"}], "]"}], "\[Equal]", 
650           RowBox[{"ToString", "[", 
651            RowBox[{"-", "1"}], "]"}]}]}]}], "]"}]}], ";", 
652      "\[IndentingNewLine]", 
653      RowBox[{"firstCalibStart", " ", "=", " ", 
654       RowBox[{
655        RowBox[{"calibType1", "[", 
656         RowBox[{"[", 
657          RowBox[{"1", ",", "2"}], "]"}], "]"}], "<>", "\"\< \>\"", "<>", 
658        RowBox[{"calibType1", "[", 
659         RowBox[{"[", 
660          RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";", 
661      "\[IndentingNewLine]", 
662      RowBox[{"i", " ", "=", " ", 
663       RowBox[{
664        RowBox[{"Length", "[", "calibType1", "]"}], "/", "2"}]}], ";", 
665      "\[IndentingNewLine]", 
666      RowBox[{"firstCalibEnd", " ", "=", "  ", 
667       RowBox[{
668        RowBox[{"calibType1", "[", 
669         RowBox[{"[", 
670          RowBox[{"i", ",", "2"}], "]"}], "]"}], "<>", "\"\< \>\"", " ", "<>", 
671        RowBox[{"calibType1", "[", 
672         RowBox[{"[", 
673          RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}], ";", 
674      "\[IndentingNewLine]", 
675      RowBox[{"secondCalibStart", " ", "=", " ", 
676       RowBox[{
677        RowBox[{"calibType1", "[", 
678         RowBox[{"[", 
679          RowBox[{
680           RowBox[{"i", "+", "1"}], ",", "2"}], "]"}], "]"}], "<>", 
681        "\"\< \>\"", "<>", " ", 
682        RowBox[{"calibType1", "[", 
683         RowBox[{"[", 
684          RowBox[{
685           RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}]}]}], ";", 
686      "\[IndentingNewLine]", 
687      RowBox[{"secondCalibEnd", " ", "=", "  ", 
688       RowBox[{
689        RowBox[{"calibType1", "[", 
690         RowBox[{"[", 
691          RowBox[{
692           RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}], "<>", "\"\< \>\"", "<>", 
693        RowBox[{"calibType1", "[", 
694         RowBox[{"[", 
695          RowBox[{
696           RowBox[{"-", "1"}], ",", "3"}], "]"}], "]"}]}]}], ";", 
697      "\[IndentingNewLine]", 
698      RowBox[{"data1", "=", 
699       RowBox[{"Cases", "[", 
700        RowBox[{"c", ",", 
701         RowBox[{"x_", "/;", 
702          RowBox[{
703           RowBox[{"x", "[", 
704            RowBox[{"[", "7", "]"}], "]"}], "\[Equal]", 
705           RowBox[{"ToString", "[", "1", "]"}]}]}]}], "]"}]}], ";", 
706      "\[IndentingNewLine]", 
707      RowBox[{"data1Start", "=", 
708       RowBox[{
709        RowBox[{"data1", "[", 
710         RowBox[{"[", 
711          RowBox[{"1", ",", "2"}], "]"}], "]"}], "<>", "\"\< \>\"", "<>", 
712        RowBox[{"data1", "[", 
713         RowBox[{"[", 
714          RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";", 
715      "\[IndentingNewLine]", 
716      RowBox[{"data1End", " ", "=", 
717       RowBox[{"DateString", "[", 
718        RowBox[{
719         RowBox[{"DatePlus", "[", 
720          RowBox[{"data1Start", ",", 
721           RowBox[{"{", 
722            RowBox[{
723             RowBox[{"ToExpression", "[", 
724              RowBox[{"data1", "[", 
725               RowBox[{"[", 
726                RowBox[{"1", ",", "8"}], "]"}], "]"}], "]"}], ",", 
727             "\"\<Second\>\""}], "}"}]}], "]"}], ",", 
728         RowBox[{"{", 
729          RowBox[{
730          "\"\<Day\>\"", ",", "\"\</\>\"", ",", "\"\<Month\>\"", ",", 
731           "\"\</\>\"", ",", "\"\<YearShort\>\"", ",", "\"\< \>\"", ",", 
732           "\"\<Time\>\""}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
733      RowBox[{"data2", "=", 
734       RowBox[{"Cases", "[", 
735        RowBox[{"c", ",", 
736         RowBox[{"x_", "/;", 
737          RowBox[{
738           RowBox[{"x", "[", 
739            RowBox[{"[", "7", "]"}], "]"}], "\[Equal]", 
740           RowBox[{"ToString", "[", "2", "]"}]}]}]}], "]"}]}], ";", 
741      "\[IndentingNewLine]", 
742      RowBox[{"data2Start", "=", 
743       RowBox[{
744        RowBox[{"data2", "[", 
745         RowBox[{"[", 
746          RowBox[{"1", ",", "2"}], "]"}], "]"}], "<>", "\"\< \>\"", "<>", 
747        RowBox[{"data2", "[", 
748         RowBox[{"[", 
749          RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], ";", 
750      "\[IndentingNewLine]", 
751      RowBox[{"data2End", " ", "=", 
752       RowBox[{"DateString", "[", 
753        RowBox[{
754         RowBox[{"DatePlus", "[", 
755          RowBox[{"data2Start", ",", 
756           RowBox[{"{", 
757            RowBox[{
758             RowBox[{"ToExpression", "[", 
759              RowBox[{"data2", "[", 
760               RowBox[{"[", 
761                RowBox[{"1", ",", "8"}], "]"}], "]"}], "]"}], ",", 
762             "\"\<Second\>\""}], "}"}]}], "]"}], ",", 
763         RowBox[{"{", 
764          RowBox[{
765          "\"\<Day\>\"", ",", "\"\</\>\"", ",", "\"\<Month\>\"", ",", 
766           "\"\</\>\"", ",", "\"\<YearShort\>\"", ",", "\"\< \>\"", ",", 
767           "\"\<Time\>\""}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
768      RowBox[{"Return", "[", 
769       RowBox[{
770       "firstCalibStart", "<>", "\"\<, \>\"", "<>", "firstCalibEnd", "<>", 
771        "\"\<, \>\"", "<>", "data1Start", "<>", "\"\<, \>\"", "<>", 
772        "data1End", "<>", "\"\<, \>\"", "<>", "secondCalibStart", "<>", 
773        "\"\<, \>\"", "<>", "secondCalibEnd", "<>", "\"\<, \>\"", "<>", 
774        "data2Start", "<>", "\"\<, \>\"", "<>", "data2End"}], "]"}]}]}], 
775    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
776 CellChangeTimes->{{3.5111667321104455`*^9, 3.5111667905752916`*^9}, {
777  3.511166844045638*^9, 3.5111670669959307`*^9}, {3.5111671129775286`*^9, 
778  3.5111674032735553`*^9}, {3.5111709694704704`*^9, 3.5111711201485367`*^9}, {
779  3.5111711987874*^9, 3.5111712505565763`*^9}, {3.5111714384493637`*^9, 
780  3.5111714389044094`*^9}, {3.511171483037822*^9, 3.511171483930911*^9}, {
781  3.511171629464463*^9, 3.511171690697586*^9}, {3.511171734478964*^9, 
782  3.5111717594094563`*^9}, {3.5111724842864494`*^9, 3.5111725120414495`*^9}, {
783  3.5111738564671555`*^9, 3.511173959045412*^9}, {3.5111740533308396`*^9, 
784  3.511174069447451*^9}, {3.5111741270322094`*^9, 3.511174130320538*^9}}],
785
786Cell[BoxData[{
787 RowBox[{
788  RowBox[{"Clear", "[", "dump", "]"}], ";"}], "\[IndentingNewLine]", 
789 RowBox[{
790  RowBox[{
791   RowBox[{"dump", "[", "f_String", "]"}], ":=", 
792   RowBox[{"Module", "[", "\[IndentingNewLine]", 
793    RowBox[{
794     RowBox[{"{", 
795      RowBox[{
796      "fileOut", ",", "start", ",", "acq", ",", "premierCycle", ",", 
797       "dernierCycle", ",", "cycles"}], "}"}], ",", "\[IndentingNewLine]", 
798     RowBox[{
799      RowBox[{"fileOut", " ", "=", " ", 
800       RowBox[{"OpenWrite", "[", 
801        RowBox[{
802         RowBox[{"FileBaseName", "[", "f", "]"}], "<>", "\"\<.out\>\""}], 
803        "]"}]}], ";", "\[IndentingNewLine]", 
804      RowBox[{"SetOptions", "[", 
805       RowBox[{"fileOut", ",", 
806        RowBox[{"FormatType", "\[Rule]", "OutputForm"}], ",", 
807        RowBox[{"PageWidth", "\[Rule]", "255"}]}], "]"}], ";", 
808      "\[IndentingNewLine]", 
809      RowBox[{"start", " ", "=", 
810       RowBox[{"StringSplit", "[", 
811        RowBox[{"FindList", "[", 
812         RowBox[{"f", ",", "\"\<HDEP\>\""}], "]"}], "]"}]}], ";", 
813      "\[IndentingNewLine]", 
814      RowBox[{"(*", 
815       RowBox[{
816        RowBox[{"Write", "[", 
817         RowBox[{"fileOut", ",", 
818          RowBox[{
819           RowBox[{"start", "[", 
820            RowBox[{"[", 
821             RowBox[{"1", ",", "2"}], "]"}], "]"}], "<>", "\"\< \>\"", "<>", 
822           RowBox[{"start", "[", 
823            RowBox[{"[", 
824             RowBox[{"1", ",", "3"}], "]"}], "]"}]}]}], "]"}], ";"}], "*)"}], 
825      "\[IndentingNewLine]", 
826      RowBox[{"acq", "=", " ", 
827       RowBox[{"StringSplit", "@", 
828        RowBox[{"FindList", "[", 
829         RowBox[{"f", ",", "\"\<PERI\>\""}], "]"}]}]}], ";", 
830      "\[IndentingNewLine]", 
831      RowBox[{"premierCycle", " ", "=", " ", 
832       RowBox[{"ToExpression", "[", 
833        RowBox[{"acq", "[", 
834         RowBox[{"[", 
835          RowBox[{"1", ",", "6"}], "]"}], "]"}], "]"}]}], ";", 
836      "\[IndentingNewLine]", 
837      RowBox[{"dernierCycle", " ", "=", " ", 
838       RowBox[{"ToExpression", "[", 
839        RowBox[{"acq", "[", 
840         RowBox[{"[", 
841          RowBox[{
842           RowBox[{"-", "1"}], ",", "6"}], "]"}], "]"}], "]"}]}], ";", 
843      "\[IndentingNewLine]", 
844      RowBox[{"(*", " ", 
845       RowBox[{
846        RowBox[{"Print", "[", 
847         RowBox[{"\"\<cycle 2\>\"", ",", 
848          RowBox[{"Cases", "[", 
849           RowBox[{"acq", ",", 
850            RowBox[{"x_", "/;", 
851             RowBox[{
852              RowBox[{"x", "[", 
853               RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", 
854              RowBox[{"ToString", "[", "2", "]"}]}]}]}], "]"}]}], "]"}], 
855        ";"}], " ", "*)"}], "\[IndentingNewLine]", 
856      RowBox[{"cycles", "=", 
857       RowBox[{"Table", "[", 
858        RowBox[{
859         RowBox[{"Cases", "[", 
860          RowBox[{"acq", ",", 
861           RowBox[{"x_", "/;", 
862            RowBox[{
863             RowBox[{"x", "[", 
864              RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", 
865             RowBox[{"ToString", "[", "n", "]"}]}]}]}], "]"}], ",", 
866         RowBox[{"{", 
867          RowBox[{"n", ",", "premierCycle", ",", "dernierCycle"}], "}"}]}], 
868        "]"}]}], ";", "\[IndentingNewLine]", 
869      RowBox[{"(*", " ", 
870       RowBox[{
871        RowBox[{"Print", "[", 
872         RowBox[{"cycles", "[", 
873          RowBox[{"[", "2", "]"}], "]"}], "]"}], ";"}], "*)"}], 
874      "\[IndentingNewLine]", 
875      RowBox[{"(*", 
876       RowBox[{
877        RowBox[{"Write", "[", 
878         RowBox[{"fileOut", ",", 
879          RowBox[{"decodeCycle", "[", 
880           RowBox[{"cycles", "[", 
881            RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}], ";"}], "*)"}], 
882      "\[IndentingNewLine]", 
883      RowBox[{"Map", "[", 
884       RowBox[{
885        RowBox[{
886         RowBox[{"Write", "[", 
887          RowBox[{"fileOut", ",", 
888           RowBox[{"decodeCycle", "[", "#", "]"}]}], "]"}], "&"}], ",", 
889        "cycles"}], "]"}], ";", "\[IndentingNewLine]", 
890      RowBox[{"Close", "[", "fileOut", "]"}], ";"}]}], "\[IndentingNewLine]", 
891    "]"}]}], ";"}]}], "Input",
892 CellChangeTimes->{{3.5111635974271193`*^9, 3.5111635982942924`*^9}, {
893   3.5111643101273737`*^9, 3.511164348477208*^9}, {3.5111643798863487`*^9, 
894   3.511164450735433*^9}, {3.511164550274386*^9, 3.5111647309164486`*^9}, 
895   3.511164767257082*^9, {3.5111649816345177`*^9, 3.5111650506394176`*^9}, {
896   3.5111651211274652`*^9, 3.511165124810834*^9}, {3.511165336807031*^9, 
897   3.5111654784131904`*^9}, {3.511165509602309*^9, 3.5111655867820263`*^9}, {
898   3.511165755045882*^9, 3.511165796529882*^9}, {3.511165869102882*^9, 
899   3.511166040667882*^9}, {3.511166151150882*^9, 3.511166174389882*^9}, {
900   3.511166262074882*^9, 3.511166450981882*^9}, {3.511166521082882*^9, 
901   3.511166525858882*^9}, {3.511166558733882*^9, 3.511166600154882*^9}, {
902   3.5111674376409917`*^9, 3.511167459079135*^9}, {3.51117019258379*^9, 
903   3.5111702101185427`*^9}, {3.511170261142645*^9, 3.5111702914586763`*^9}, {
904   3.5111712617486954`*^9, 3.511171282716792*^9}, {3.5111718811714497`*^9, 
905   3.5111719001194496`*^9}, {3.5111719551424494`*^9, 
906   3.5111719792294493`*^9}, {3.5111720229094496`*^9, 
907   3.5111720300204496`*^9}, {3.5111720755574493`*^9, 
908   3.5111721222034492`*^9}, {3.51117253141245*^9, 3.5111725398704495`*^9}, {
909   3.5111726571734495`*^9, 3.5111727762631454`*^9}, {3.5111731111166277`*^9, 
910   3.511173114791995*^9}, {3.5111731634398594`*^9, 3.5111731859031057`*^9}, {
911   3.5111732419397087`*^9, 3.5111732457770925`*^9}, {3.51117328265478*^9, 
912   3.5111733450580196`*^9}, {3.511173654775988*^9, 3.51117365599511*^9}, {
913   3.511173755174027*^9, 3.511173788525362*^9}, {3.511174413451848*^9, 
914   3.5111744549229946`*^9}, {3.51117454958646*^9, 3.5111745600085025`*^9}, {
915   3.5111747429657965`*^9, 3.5111748040269017`*^9}}],
916
917Cell[BoxData[
918 RowBox[{"dump", "[", "\"\<sca150585.230.txt\>\"", "]"}]], "Input",
919 CellChangeTimes->{{3.5111655938997383`*^9, 3.5111656168510327`*^9}}],
920
921Cell[BoxData[""], "Input",
922 CellChangeTimes->{{3.5111727214566655`*^9, 3.511172723127833*^9}}],
923
924Cell[CellGroupData[{
925
926Cell[BoxData[
927 RowBox[{"Close", "[", "\"\<sca150585.230.out\>\"", "]"}]], "Input",
928 CellChangeTimes->{{3.5111725469254494`*^9, 3.5111725569344497`*^9}, {
929  3.5111725896214495`*^9, 3.5111725938444495`*^9}}],
930
931Cell[BoxData["\<\"sca150585.230.out\"\>"], "Output",
932 CellChangeTimes->{3.5111725576824493`*^9, 3.51117259423345*^9}]
933}, Open  ]],
934
935Cell[CellGroupData[{
936
937Cell[BoxData[
938 RowBox[{"str", "=", 
939  RowBox[{"OpenWrite", "[", "\"\<test.out\>\"", "]"}]}]], "Input",
940 CellChangeTimes->{{3.5111722223314495`*^9, 3.5111722331164494`*^9}}],
941
942Cell[BoxData[
943 RowBox[{"OutputStream", "[", 
944  RowBox[{"\<\"test.out\"\>", ",", "54"}], "]"}]], "Output",
945 CellChangeTimes->{3.5111722336394496`*^9, 3.5111722931064496`*^9}]
946}, Open  ]],
947
948Cell[BoxData[
949 RowBox[{"Write", "[", 
950  RowBox[{"str", ",", 
951   RowBox[{"Flatten", "[", 
952    RowBox[{"{", 
953     RowBox[{
954      RowBox[{"-", "1"}], ",", "2"}], "}"}], "]"}]}], "]"}]], "Input",
955 CellChangeTimes->{{3.51117223872145*^9, 3.5111722483334494`*^9}, {
956  3.5111723798964496`*^9, 3.5111723874794493`*^9}}],
957
958Cell[CellGroupData[{
959
960Cell[BoxData[
961 RowBox[{"Close", "[", "str", "]"}]], "Input",
962 CellChangeTimes->{{3.51117226118145*^9, 3.5111722647624493`*^9}}],
963
964Cell[BoxData["\<\"test.out\"\>"], "Output",
965 CellChangeTimes->{3.5111722651724496`*^9, 3.51117239424745*^9}]
966}, Open  ]],
967
968Cell[BoxData[""], "Input",
969 CellChangeTimes->{{3.5111723942754498`*^9, 3.5111723954814496`*^9}}]
970},
971WindowSize->{707, 761},
972WindowMargins->{{0, Automatic}, {0, Automatic}},
973FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (November 7, 2010)",
974StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb", 
975  CharacterEncoding -> "WindowsANSI"]
976]
977(* End of Notebook Content *)
978
979(* Internal cache information *)
980(*CellTagsOutline
981CellTagsIndex->{}
982*)
983(*CellTagsIndex
984CellTagsIndex->{}
985*)
986(*NotebookFileOutline
987Notebook[{
988Cell[CellGroupData[{
989Cell[579, 22, 130, 3, 41, "Input"],
990Cell[712, 27, 157, 2, 40, "Output"]
991}, Open  ]],
992Cell[884, 32, 287, 7, 41, "Input"],
993Cell[1174, 41, 670, 12, 41, "Input"],
994Cell[CellGroupData[{
995Cell[1869, 57, 215, 5, 41, "Input"],
996Cell[2087, 64, 87, 1, 40, "Output"]
997}, Open  ]],
998Cell[CellGroupData[{
999Cell[2211, 70, 218, 5, 41, "Input"],
1000Cell[2432, 77, 87, 1, 40, "Output"]
1001}, Open  ]],
1002Cell[2534, 81, 378, 9, 41, "Input"],
1003Cell[CellGroupData[{
1004Cell[2937, 94, 317, 7, 41, "Input"],
1005Cell[3257, 103, 151, 2, 40, "Output"]
1006}, Open  ]],
1007Cell[CellGroupData[{
1008Cell[3445, 110, 238, 6, 41, "Input"],
1009Cell[3686, 118, 81, 1, 40, "Output"]
1010}, Open  ]],
1011Cell[3782, 122, 94, 1, 41, "Input"],
1012Cell[CellGroupData[{
1013Cell[3901, 127, 219, 5, 41, "Input"],
1014Cell[4123, 134, 527, 8, 60, "Output"]
1015}, Open  ]],
1016Cell[CellGroupData[{
1017Cell[4687, 147, 594, 13, 41, "Input"],
1018Cell[5284, 162, 6743, 118, 516, "Output"]
1019}, Open  ]],
1020Cell[CellGroupData[{
1021Cell[12064, 285, 225, 5, 41, "Input"],
1022Cell[12292, 292, 110, 1, 40, "Output"]
1023}, Open  ]],
1024Cell[CellGroupData[{
1025Cell[12439, 298, 485, 12, 41, "Input"],
1026Cell[12927, 312, 5664, 100, 459, "Output"]
1027}, Open  ]],
1028Cell[CellGroupData[{
1029Cell[18628, 417, 287, 6, 41, "Input"],
1030Cell[18918, 425, 490, 9, 60, "Output"]
1031}, Open  ]],
1032Cell[CellGroupData[{
1033Cell[19445, 439, 241, 5, 41, "Input"],
1034Cell[19689, 446, 89, 1, 40, "Output"]
1035}, Open  ]],
1036Cell[CellGroupData[{
1037Cell[19815, 452, 324, 8, 41, "Input"],
1038Cell[20142, 462, 87, 1, 40, "Output"]
1039}, Open  ]],
1040Cell[CellGroupData[{
1041Cell[20266, 468, 355, 9, 41, "Input"],
1042Cell[20624, 479, 85, 1, 40, "Output"]
1043}, Open  ]],
1044Cell[CellGroupData[{
1045Cell[20746, 485, 261, 6, 41, "Input"],
1046Cell[21010, 493, 89, 1, 40, "Output"]
1047}, Open  ]],
1048Cell[CellGroupData[{
1049Cell[21136, 499, 349, 9, 41, "Input"],
1050Cell[21488, 510, 559, 10, 60, "Output"]
1051}, Open  ]],
1052Cell[CellGroupData[{
1053Cell[22084, 525, 261, 7, 62, "Input"],
1054Cell[22348, 534, 113, 1, 40, "Output"]
1055}, Open  ]],
1056Cell[CellGroupData[{
1057Cell[22498, 540, 670, 16, 62, "Input"],
1058Cell[23171, 558, 180, 2, 40, "Output"]
1059}, Open  ]],
1060Cell[CellGroupData[{
1061Cell[23388, 565, 345, 9, 41, "Input"],
1062Cell[23736, 576, 533, 10, 60, "Output"]
1063}, Open  ]],
1064Cell[CellGroupData[{
1065Cell[24306, 591, 221, 5, 41, "Input"],
1066Cell[24530, 598, 89, 1, 40, "Output"]
1067}, Open  ]],
1068Cell[CellGroupData[{
1069Cell[24656, 604, 597, 15, 62, "Input"],
1070Cell[25256, 621, 213, 3, 40, "Output"]
1071}, Open  ]],
1072Cell[25484, 627, 6468, 156, 522, "Input"],
1073Cell[31955, 785, 5685, 129, 382, "Input"],
1074Cell[37643, 916, 151, 2, 41, "Input"],
1075Cell[37797, 920, 94, 1, 41, "Input"],
1076Cell[CellGroupData[{
1077Cell[37916, 925, 205, 3, 41, "Input"],
1078Cell[38124, 930, 117, 1, 40, "Output"]
1079}, Open  ]],
1080Cell[CellGroupData[{
1081Cell[38278, 936, 172, 3, 41, "Input"],
1082Cell[38453, 941, 173, 3, 40, "Output"]
1083}, Open  ]],
1084Cell[38641, 947, 311, 8, 41, "Input"],
1085Cell[CellGroupData[{
1086Cell[38977, 959, 127, 2, 41, "Input"],
1087Cell[39107, 963, 108, 1, 40, "Output"]
1088}, Open  ]],
1089Cell[39230, 967, 96, 1, 41, "Input"]
1090}
1091]
1092*)
1093
1094(* End of internal cache information *)
Note: See TracBrowser for help on using the repository browser.