{

  gROOT->Reset();

TFile* myDAT1 = new TFile("r4172.root");


 TTree* coinc1 = (TTree*) myDAT1->Get("ntuple");

((TTreePlayer*)(coinc1->GetPlayer()))->SetScanRedirect(true);



float n=coinc1->GetEntries("EventNumber");
cout<<"Event Number tot: "<<n<<endl;

float cont;
float cont2;
float cont3;
float cont4;
float cont5;
float cont6;
float cont7;

int m;
Double_t neutron_counter;
char datum[500];
char selection[500];

int c1,c2;

c1=0;
c2=n;

	
//Det E(1,2)

sprintf(datum,"((((TDC14)-(TDC15))*0.223)-3)*7.41:EventNumber");
sprintf(selection,"(EventNumber>=%f && EventNumber<=%f) && ( ((TDC14)+(TDC15))*0.223>=380 && ((TDC14)+(TDC15))*0.223<=470 ) && ( ( ((((TDC14)-(TDC15))*0.223)-3)*7.41>=0 && ((((TDC14)-(TDC15))*0.223)-3)*7.41<=120.0 ) && ((TDC14)-(TDC15))*0.223 !=0 )",c1,c2);
coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoE.txt");
coinc1->Scan(datum,selection);

//Det M(1,2)

sprintf(datum,"((((TDC10)-(TDC11))*0.223)+54)*6.82:EventNumber");
sprintf(selection,"(EventNumber>=%f && EventNumber<=%f) && ( ((TDC10)+(TDC11))*0.223>=410 && ((TDC10)+(TDC11))*0.223<=510)  &&  ( (((((TDC10)-(TDC11))*0.223)+54)*6.82>=0 && ((((TDC10)-(TDC11))*0.223)+54)*6.82<=200) && ((TDC10)-(TDC11))*0.223 !=0 )",c1,c2);

coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoM.txt");
coinc1->Scan(datum,selection);

//Det F(1,2)

sprintf(datum,"((((TDC0)-(TDC1))*0.223)+18)*7.37:EventNumber");
sprintf(selection,"(EventNumber>=%f && EventNumber<=%f) && ( ((TDC0)+(TDC1))*0.223>=600 && ((TDC0)+(TDC1))*0.223<=730 ) && ( (((((TDC0)-(TDC1))*0.223)+18)*7.37>=0 && ((((TDC0)-(TDC1))*0.223)+18)*7.37<=220) && ((TDC0)-(TDC1))*0.223 !=0 )",c1,c2);
coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoF.txt");
coinc1->Scan(datum,selection);


//Det G(1,2)

sprintf(datum,"((((TDC2)-(TDC3))*0.223)+14)*7.24:EventNumber");
sprintf(selection,"(EventNumber>=%f && EventNumber<=%f) && (((TDC2)+(TDC3))*0.223>=600 && ((TDC2)+(TDC3))*0.223<=745) && ( ( ((((TDC2)-(TDC3))*0.223)+14)*7.24>=0 && ((((TDC2)-(TDC3))*0.223)+14)*7.24<=230 ) && ((TDC2)-(TDC3))*0.223 !=0 )",c1,c2);
coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoG.txt");
coinc1->Scan(datum,selection);

//Det H(1,2)

sprintf(datum,"((((TDC4)-(TDC5))*0.223)+10)*7.75:EventNumber");
sprintf(selection,"(EventNumber>=%f && EventNumber<=%f) && (((TDC4)+(TDC5))*0.223>=550 && ((TDC4)+(TDC5))*0.223<=740) && ( (((((TDC4)-(TDC5))*0.223)+10)*7.75>=0 &&((((TDC4)-(TDC5))*0.223)+10)*7.75<=190) && ((TDC4)-(TDC5))*0.223 !=0 )",c1,c2);
coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoH.txt");
coinc1->Scan(datum,selection);



//Det K(1,2)

sprintf(datum,"((((TDC16)-(TDC17))*0.223)+28)*6.71:EventNumber");
sprintf(selection,"(EventNumber>=%f && EventNumber<=%f) && ((TDC16*0.223>=100 && TDC16*0.223<=260) && (TDC17*0.223>=100  && TDC17*0.223<=260)) && ( ((((TDC16)-(TDC17))*0.223)+28)*6.71>=0 && ((((TDC16)-(TDC17))*0.223)+28)*6.71<=230  &&((TDC16)-(TDC17))*0.223 !=0 )",c1,c2);
coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoK.txt");
coinc1->Scan(datum,selection);

//Det I(1,2)
sprintf(datum,"((((TDC6)-(TDC7))*0.223)+16)*5.48:EventNumber");
sprintf(selection,"(EventNumber>=%i && EventNumber<=%i) && ( ((TDC6)+(TDC7))*0.223>=560 && ((TDC6)+(TDC7))*0.223<=730) && ( ((((TDC6)-(TDC7))*0.223)+16)*5.48>=0 && ((((TDC6)-(TDC7))*0.223)+16)*5.48<=120 && ((TDC6)-(TDC7))*0.223 !=0 )",c1,c2);
coinc1->Draw(datum,selection,"goff");
((TTreePlayer*)(coinc1->GetPlayer()))->SetScanFileName("totoI.txt");
coinc1->Scan(datum,selection);

	
}