SetDirectory["E:\\Presentations\\BAO\\Amas 21cm\\Abell2440"]

Debut et fin des plateaux de DAB

lower1 = 21;

upper1 = 35;

lower2 = 38;

upper2=51;

Calibration 1280 MHZ

calv0= Flatten[Drop[Import["calibv01280.txt","Table"],1]];

ListPlot[calv0,PlotRange->{All,{0,4}}]

level0 = Median[calv0[[1;;lower1]]]

firstPlateauV0 = Median[calv0[[lower1;;upper1]]]-level0

secondPlateauV0 = Median[calv0[[lower2;;upper2]]]-level0

CoefV0 = 0.5(firstPlateauV0+secondPlateauV0)

calv1= Flatten[Drop[Import["calibv11280.txt","Table"],1]];

ListPlot[calv1,PlotRange->{All,{0,4}}]

level1 = Median[calv0[[1;;lower1]]]

firstPlateauV1 = Median[calv1[[lower1;;upper1]]]-level1

secondPlateauV1 = Median[calv1[[lower2;;upper2]]]-level1

CoefV1 = 0.5(firstPlateauV1+secondPlateauV1)

Calibration 1380 MHZ

calv0= Flatten[Drop[Import["calibv01380.txt","Table"],1]];

ListPlot[calv0,PlotRange->{All,{0,4}}]

level0 = Median[calv0[[1;;lower1]]]

firstPlateauV0 = Median[calv0[[lower1;;upper1]]]-level0

secondPlateauV0 = Median[calv0[[lower2;;upper2]]]-level0

CoefV0 = 0.5(firstPlateauV0+secondPlateauV0)

calv1= Flatten[Drop[Import["calibv11380.txt","Table"],1]];

ListPlot[calv1,PlotRange->{All,{0,4}}]

level1 = Median[calv0[[1;;lower1]]]

firstPlateauV1 = Median[calv1[[lower1;;upper1]]]-level1

secondPlateauV1 = Median[calv1[[lower2;;upper2]]]-level1

CoefV1 = 0.5(firstPlateauV1+secondPlateauV1)

Calibration 1410 MHZ

calv0= Flatten[Drop[Import["calibv01410.txt","Table"],1]];

ListPlot[calv0,PlotRange->{All,{0,4}}]

level0 = Median[calv0[[1;;lower1]]]

firstPlateauV0 = Median[calv0[[lower1;;upper1]]]-level0

secondPlateauV0 = Median[calv0[[lower2;;upper2]]]-level0

CoefV0 = 0.5(firstPlateauV0+secondPlateauV0)

calv1= Flatten[Drop[Import["calibv11410.txt","Table"],1]];

ListPlot[calv1,PlotRange->{All,{0,4}}]

level1 = Median[calv0[[1;;lower1]]]

firstPlateauV1 = Median[calv1[[lower1;;upper1]]]-level1

secondPlateauV1 = Median[calv1[[lower2;;upper2]]]-level1

CoefV1 = 0.5(firstPlateauV1+secondPlateauV1)

ListPlot[{{1280,1.44269 23.943/(3.333844-1.44269)},{1380,1.44269 21.874/(3.276134-1.44269)},{1410, 1.44269 16.870/(2.789284-1.44269)}},PlotRange->{All,{0,30}},PlotMarkers->Automatic]