Changeset 2144 in Sophya
- Timestamp:
- Jul 31, 2002, 12:25:34 PM (23 years ago)
- Location:
- trunk/SophyaLib/SkyT
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SophyaLib/SkyT/blackbody.cc
r927 r2144 1 1 //-------------------------------------------------------------------------- 2 2 // File and Version Information: 3 // $Id: blackbody.cc,v 1. 6 2000-04-14 07:28:11ansari Exp $3 // $Id: blackbody.cc,v 1.7 2002-07-31 10:25:34 ansari Exp $ 4 4 // 5 5 // Description: … … 55 55 double cel = ConvTools::cel; 56 56 double kb = ConvTools::kb; 57 double puiss1 = nu*pow(10 ,9);57 double puiss1 = nu*pow(10.,9); 58 58 if(puiss1 > 1.e99) puiss1=1.e99; 59 59 if(puiss1 < -1.e99) puiss1=-1.e99; 60 double puiss2 = hpl*nu*pow(10 ,9)/(kb*temperature);60 double puiss2 = hpl*nu*pow(10.,9)/(kb*temperature); 61 61 if(puiss2 > 1.e99) puiss2=1.e99; 62 62 if(puiss2 < -1.e99) puiss2=-1.e99; -
trunk/SophyaLib/SkyT/derivblackbody.cc
r927 r2144 1 1 //-------------------------------------------------------------------------- 2 2 // File and Version Information: 3 // $Id: derivblackbody.cc,v 1. 4 2000-04-14 07:28:12ansari Exp $3 // $Id: derivblackbody.cc,v 1.5 2002-07-31 10:25:34 ansari Exp $ 4 4 // 5 5 // Description: … … 59 59 double cel = ConvTools::cel; 60 60 double kb = ConvTools::kb; 61 double puiss1 = nu*pow(10 ,9);61 double puiss1 = nu*pow(10.,9); 62 62 if(puiss1 > 1.e99) puiss1=1.e99; 63 63 if(puiss1 < -1.e99) puiss1=-1.e99; 64 double puiss2 = hpl*nu*pow(10 ,9)/(kb*temperature);64 double puiss2 = hpl*nu*pow(10.,9)/(kb*temperature); 65 65 if(puiss2 > 1.e99) puiss2=1.e99; 66 66 if(puiss2 < -1.e99) puiss2=-1.e99; -
trunk/SophyaLib/SkyT/radspec.cc
r927 r2144 1 1 //-------------------------------------------------------------------------- 2 2 // File and Version Information: 3 // $Id: radspec.cc,v 1. 5 2000-04-14 07:28:13ansari Exp $3 // $Id: radspec.cc,v 1.6 2002-07-31 10:25:34 ansari Exp $ 4 4 // 5 5 // Description: … … 157 157 static double RadSpectra_logFluxFunction(double tau) 158 158 { 159 double value = _rayIntLog->flux(pow(10 ,tau))*pow(10,tau);159 double value = _rayIntLog->flux(pow(10.,tau))*pow(10.,tau); 160 160 return(value); 161 161 } … … 251 251 static double RadSpectra_logFilteredFlux(double tau) 252 252 { 253 double nu = pow(10 ,tau);253 double nu = pow(10.,tau); 254 254 double flux = _raypourfinteg->flux(nu)*nu; 255 255 double result = flux * _filter->transmission(nu); -
trunk/SophyaLib/SkyT/specresp.cc
r927 r2144 1 1 //-------------------------------------------------------------------------- 2 2 // File and Version Information: 3 // $Id: specresp.cc,v 1. 5 2000-04-14 07:28:13ansari Exp $3 // $Id: specresp.cc,v 1.6 2002-07-31 10:25:34 ansari Exp $ 4 4 // 5 5 // Description: … … 154 154 static double SpectralResponse_logTransmission(double tau) 155 155 { 156 double value = _myLogSpecResp->transmission(pow(10 ,tau))*pow(10,tau);156 double value = _myLogSpecResp->transmission(pow(10.,tau))*pow(10.,tau); 157 157 return(value); 158 158 }
Note:
See TracChangeset
for help on using the changeset viewer.