Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line | 
|---|---|---|---|
| 326 | f9daq | 1 | void printgain(char * foutput=NULL){  | 
        
| 2 | |||
| 3 | char fname[0xff];  | 
        ||
| 4 | char run[0xff];  | 
        ||
| 5 | sprintf(fname,"%s",gSystem->BaseName(_file0->GetName()));  | 
        ||
| 6 | fname[11]=0;  | 
        ||
| 7 | strncpy(run,fname,4);  | 
        ||
| 8 | run[4]=0;  | 
        ||
| 9 | TIter nxt(gDirectory->GetListOfKeys());  | 
        ||
| 10 | TKey *key;  | 
        ||
| 11 | |||
| 12 | FILE *fo=stdout;  | 
        ||
| 13 | if (foutput!=NULL && strlen(foutput)>1) {  | 
        ||
| 14 | fo = fopen(foutput,"a");  | 
        ||
| 15 | printf("FILE=%s",foutput);  | 
        ||
| 16 |    } | 
        ||
| 17 | while ((key = (TKey*)nxt())) {  | 
        ||
| 18 | |||
| 19 | TClass *cl = gROOT->GetClass(key->GetClassName());  | 
        ||
| 20 | |||
| 21 | if (!cl->InheritsFrom("TCanvas")) continue;  | 
        ||
| 22 | TCanvas *c1 = (TCanvas*)key->ReadObj();  | 
        ||
| 23 | TPad *pad = (TPad *)c1->GetListOfPrimitives()->At(1);  | 
        ||
| 24 | |||
| 25 | TH2F *h2 = (TH2F*)pad->GetListOfPrimitives()->At(0);  | 
        ||
| 26 |       TCanvas c2; | 
        ||
| 27 | if (h2) {  | 
        ||
| 28 | h2->Print();  | 
        ||
| 29 | fprintf(fo,"<gain run='%s' sn='%s'>\n", run,&fname[5]);  | 
        ||
| 30 | for (int i=0;i < h2->GetNbinsX();i++){  | 
        ||
| 31 | for (int j=0;j < h2->GetNbinsY();j++){  | 
        ||
| 32 | fprintf(fo,"<v i='%d'>%g</v>\n",i* h2->GetNbinsY()+j, h2->GetBinContent(i+1,j+1));  | 
        ||
| 33 |           } | 
        ||
| 34 |         } | 
        ||
| 35 | fprintf(fo,"</gain>\n");  | 
        ||
| 36 |       }     | 
        ||
| 37 | else printf("not found\n");  | 
        ||
| 38 | |||
| 39 |    } | 
        ||
| 40 | //   TCanvas *c1 = gDirectory->Get("0063_ZJ6743_Gain") | 
        ||
| 41 | //   hFra40 = (TH1F*)c1->GetPrimitive("hFracEtcorr2Part"); | 
        ||
| 42 | |||
| 43 | } |