| Line |  | 
|---|
| 1 | // Dominique YVON, CEA/DAPNIA/SPP 02/2000 | 
|---|
| 2 |  | 
|---|
| 3 | #include "lightsrcmappowerinband.h" | 
|---|
| 4 | #include "fitsspherehealpix.h" | 
|---|
| 5 |  | 
|---|
| 6 | double LightSrcMapPowerInband::powerDensAmpli(double theta,double phi) | 
|---|
| 7 | {       return (*pMap)(theta,phi); | 
|---|
| 8 | // Return power density Amplidude at coordinates | 
|---|
| 9 | // (W/m2/Hz/st) | 
|---|
| 10 | } | 
|---|
| 11 |  | 
|---|
| 12 | double LightSrcMapPowerInband::spectre(double freq) | 
|---|
| 13 | {       if((freq>freqMax)||(freq<freqMin)) return 0.; | 
|---|
| 14 | else return SpectreAmpli; | 
|---|
| 15 | } | 
|---|
| 16 |  | 
|---|
| 17 | LightSrcMapPowerInband::LightSrcMapPowerInband | 
|---|
| 18 | (char filename[],long nside, double MinFreq, double MaxFreq) | 
|---|
| 19 | :freqMax(MaxFreq), freqMin(MinFreq), nlat(nside) | 
|---|
| 20 | { | 
|---|
| 21 | resolution=2*3.14159/4./nlat; // Resolution angulaire de la carte lue pour ce fond. | 
|---|
| 22 | // Radians | 
|---|
| 23 | SpectreAmpli=1./(freqMax-freqMin); | 
|---|
| 24 | if(MinFreq>MaxFreq) cerr<<"Erreur freq Min>freq Max in LightSrcMapPowerInband"<<endl; | 
|---|
| 25 |  | 
|---|
| 26 | try {        pMap=new SphereHEALPix<r_4> (nlat);     } | 
|---|
| 27 | catch(bad_alloc) { | 
|---|
| 28 | cerr<<"Memory booking error LightSrcMapPowerInband, nlat= "<<nlat<<endl; | 
|---|
| 29 | exit(-1); | 
|---|
| 30 | } | 
|---|
| 31 | cout<<"On lit la carte "<<filename<<endl; | 
|---|
| 32 |  | 
|---|
| 33 | FITS_SphereHEALPix<r_4> FSphere(*pMap); | 
|---|
| 34 | FSphere.Read(filename); | 
|---|
| 35 | } | 
|---|
| 36 |  | 
|---|
| 37 | LightSrcMapPowerInband::~LightSrcMapPowerInband() | 
|---|
| 38 | {       delete pMap; | 
|---|
| 39 | } | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.