| Last change
 on this file since 975 was             801, checked in by ansari, 26 years ago | 
        
          | 
Fichiers au format unix
 
dominique
 | 
        
          | File size:
            1.2 KB | 
      
      
| Rev | Line |  | 
|---|
| [801] | 1 | // Dominique YVON, CEA/DAPNIA/SPP 02/2000 | 
|---|
|  | 2 |  | 
|---|
|  | 3 | #include "lightsrcmappowerinband.h" | 
|---|
|  | 4 | #include "fitsioserver.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 SphereGorski<float> (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 | FitsIoServer FitsServer; | 
|---|
|  | 33 | FitsServer.load((*pMap),filename); | 
|---|
|  | 34 | } | 
|---|
|  | 35 |  | 
|---|
|  | 36 | LightSrcMapPowerInband::~LightSrcMapPowerInband() | 
|---|
|  | 37 | {       delete pMap; | 
|---|
|  | 38 | } | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.