Changeset 1365 for trunk/WuerzburgSoft


Ignore:
Timestamp:
06/14/02 09:08:54 (22 years ago)
Author:
tbretz
Message:
*** empty log message ***
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/WuerzburgSoft/Thomas/mphys/MParticle.cc

    r1364 r1365  
    1212ClassImp(MParticle);
    1313
    14 /***********************
     14/**************************************************
    1515 *
    16  * calc r from z:
     16 * H0 = 50./3.0857e19; // [km / Mpc s] --> [s^-1]
    1717 *
    18  *        R = 2*c/H0 *(1+z - sqrt(1+z))
    19  *
    20  *        z = -0.5 * (3 + R' +/- sqrt(R'+1))   R' = R*H0/c
    21  *
    22  *        H0 = 50./3.0857e19; // [km / Mpc s] --> [s^-1]
    23  *
    24  ************************
    25  */
    26 #include <iostream.h>
    27 #include <iomanip.h>
     18 **************************************************/
    2819
    2920Double_t MParticle::ZofR(Double_t *x, Double_t *k)
     
    5041    const Double_t R = 1./(1-r*H0/c/2);   // [1]
    5142
    52 
    5343    return R*R - 1;
    5444}
     
    6757     const Double_t R = c/H0 * 2 * (z1 - sqrt(z1)); // [m]
    6858
    69      return  R * pc/ly/1e3;                   // [kpc]
     59     return  R * pc/ly/1e3;                         // [kpc]
    7060     */
    7161     Double_t z1 = x[0] + 1;
     
    7969     const Double_t R = c/H0 * 2 * (1 - 1./sqrt(z1)); // [m]
    8070
    81      return  R * pc/ly/1e3;                           // [kpc]
     71     return R * pc/ly/1e3;                            // [kpc]
    8272}
    8373
     
    10797
    10898    return E*E / (exp(EkT)-1.); // [GeV^2]
    109 
    11099}
    111100
     
    115104    //
    116105    //  default constructor
    117     //  creates an a list of histograms for all pixels and both gain channels
    118106    //
    119 
    120     //
    121     //   set the name and title of this object
    122     //
    123 
    124     /*
    125      fName  = name  ? name  : "MParticle";
    126      fTitle = title ? title : "Container for a particle";
    127      */
    128107}
    129108
     
    159138    fPsi   = atan2(r(1), r(0));
    160139
    161     if (fTheta*2 > TMath::Pi())
     140    /*
     141     if (fTheta*2 > TMath::Pi())
    162142        fTheta = fabs(fTheta-TMath::Pi());
     143     */
    163144}
    164145
Note: See TracChangeset for help on using the changeset viewer.