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

"E:\\Presentations\\BAO\\Amas 21cm"

<<Calendar`

calE=Import["calib1410MhzEst.txt","Table"];

Needs["ErrorBarPlots`"]

calib1410E = Table[{{DaysBetween[{2001,1,31},{Quotient[calE[[n,1]],10000],Quotient[Mod[calE[[n,1]],10000],100],Mod[Mod[calE[[n,1]],10000],100]}],calE[[n,4]]},ErrorBar[calE[[n,5]]]},{n,1,Length[calE]}];

ErrorListPlot[calib1410E,PlotRange->{All,{0,25}},PlotMarkers->Automatic,LabelStyle->Directive[Blue,Large],Frame->True,FrameLabel->{{"Coeff. calibration Est (Jy)",""},{"Jour depuis 31 Jan. 2001","1410 MHz"}},GridLines->Automatic]

calO=Import["calib1410MhzOuest.txt","Table"];

calib1410O = Table[{{DaysBetween[{2001,1,31},{Quotient[calO[[n,1]],10000],Quotient[Mod[calO[[n,1]],10000],100],Mod[Mod[calO[[n,1]],10000],100]}],calO[[n,4]]},ErrorBar[calO[[n,5]]]},{n,1,Length[calO]}];

ErrorListPlot[calib1410O,PlotRange->{All,{0,25}},PlotMarkers->Automatic,LabelStyle->Directive[Blue,Large],Frame->True,FrameLabel->{{"Coeff. calibration Ouest (Jy)",""},{"Jour depuis 31 Jan. 2001","1410 MHz"}},GridLines->Automatic]