StRoot: macros/examples/Example_plot

00001 // $Id: Example_plot_Btot.C,v 1.2 2006/08/15 21:42:52 jeromel Exp $
00002 // $Log: Example_plot_Btot.C,v $
00003 // Revision 1.2  2006/08/15 21:42:52  jeromel
00004 // Fix rhic -> rhic.bnl.gov
00005 //
00006 // Revision 1.1  2000/01/24 21:29:21  love
00007 // Installed example of POISSON field calculation plotting macro
00008 //
00009 // Revision 1.1  2000/1/24 22:00:30  love
00010 
00011 //=======================================================================
00012 // owner: Bill Love
00013 // An example of using the ROOT Ntuple to make a plot of the POISSON
00014 // calculation of the STAR Magnet Full Field.
00015 //=======================================================================
00016 {
00017  gROOT->Reset();
00018 // Open the root file with bz, br, bt versus r and z in 10 cm steps.
00019  TFile f("/afs/rhic.bnl.gov/star/data/samples/POIzto6m.root");
00020 // Set a small circle plotting symbol and plot total field vs z at r = 90.
00021  ntb->SetMarkerStyle(24);
00022  ntb->SetMarkerSize(.6);
00023  ntb->Draw("bt:z","r<95 && r>85");
00024 // change to a black dot and add another r value (190).
00025  ntb->SetMarkerStyle(20);
00026  ntb->Draw("bt:z","r<195 && r>185","same");
00027 // change to an open square and do the largest r (280 cm)
00028  ntb->SetMarkerStyle(25);
00029  ntb->Draw("bt:z"," r>275","same");
00030 // Label the plot nicely.
00031    text = new TLatex(420,-950,"z(cm)");
00032    text->SetTextSize(0.05);
00033    text->SetLineWidth(2);
00034    text->Draw();
00035    text = new TLatex(-56,11000,"Btot");
00036    text->SetTextSize(0.05);
00037    text->SetLineWidth(2);
00038    text->Draw();
00039    text = new TLatex(38,10750,"STAR Magnet");
00040    text->SetTextSize(0.05);
00041    text->SetLineWidth(2);
00042    text->Draw();
00043    text = new TLatex(38,10000,"POISSON calculation");
00044    text->SetTextSize(0.05);
00045    text->SetLineWidth(2);
00046    text->Draw();
00047    text = new TLatex(336,10780,"r = 90");
00048    text->SetTextSize(0.05);
00049    text->SetLineWidth(2);
00050    text->Draw();
00051    text = new TLatex(326,5000,"r = 190");
00052    text->SetTextSize(0.05);
00053    text->SetLineWidth(2);
00054    text->Draw();
00055    text = new TLatex(170,2000,"r = 280");
00056    text->SetTextSize(0.05);
00057    text->SetLineWidth(2);
00058    text->Draw();
00059    printf (" to exit type .q\n");
00060 }
macros/examples/Example_plot_Btot.C
