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.