Changeset 5808 in ntrip for trunk/BNC/src/bncmodel.cpp


Ignore:
Timestamp:
Aug 6, 2014, 11:16:40 AM (10 years ago)
Author:
mervart
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/BNC/src/bncmodel.cpp

    r5807 r5808  
    346346  satData->rho = (satData->xx - xRec).norm_Frobenius();
    347347
    348   double tropDelay = delay_saast(xRec, satData->eleSat) +
     348  double tropDelay = t_tropo::delay_saast(xRec, satData->eleSat) +
    349349                     trp() / sin(satData->eleSat);
    350350
     
    385385  return satData->rho + phaseCenter + antennaOffset + clk()
    386386                      + offset - satData->clk + tropDelay + wind;
    387 }
    388 
    389 // Tropospheric Model (Saastamoinen)
    390 ////////////////////////////////////////////////////////////////////////////
    391 double bncModel::delay_saast(const ColumnVector& xyz, double Ele) {
    392 
    393   Tracer tracer("bncModel::delay_saast");
    394 
    395   if (xyz[0] == 0.0 && xyz[1] == 0.0 && xyz[2] == 0.0) {
    396     return 0.0;
    397   }
    398 
    399   double ell[3];
    400   xyz2ell(xyz.data(), ell);
    401   double height = ell[2];
    402 
    403   double pp =  1013.25 * pow(1.0 - 2.26e-5 * height, 5.225);
    404   double TT =  18.0 - height * 0.0065 + 273.15;
    405   double hh =  50.0 * exp(-6.396e-4 * height);
    406   double ee =  hh / 100.0 * exp(-37.2465 + 0.213166*TT - 0.000256908*TT*TT);
    407 
    408   double h_km = height / 1000.0;
    409  
    410   if (h_km < 0.0) h_km = 0.0;
    411   if (h_km > 5.0) h_km = 5.0;
    412   int    ii   = int(h_km + 1);
    413   double href = ii - 1;
    414  
    415   double bCor[6];
    416   bCor[0] = 1.156;
    417   bCor[1] = 1.006;
    418   bCor[2] = 0.874;
    419   bCor[3] = 0.757;
    420   bCor[4] = 0.654;
    421   bCor[5] = 0.563;
    422  
    423   double BB = bCor[ii-1] + (bCor[ii]-bCor[ii-1]) * (h_km - href);
    424  
    425   double zen  = M_PI/2.0 - Ele;
    426 
    427   return (0.002277/cos(zen)) * (pp + ((1255.0/TT)+0.05)*ee - BB*(tan(zen)*tan(zen)));
    428387}
    429388
     
    654613    else if (par->type == bncParam::TROPO) {
    655614      ColumnVector xyz(3); xyz(1) = x(); xyz(2) = y(); xyz(3) = z();
    656       double aprTrp = delay_saast(xyz, M_PI/2.0);
     615      double aprTrp = t_tropo::delay_saast(xyz, M_PI/2.0);
    657616      strB << "\n    trp     = " << par->prn.toAscii().data()
    658617           << setw(7) << setprecision(3) << aprTrp << " "
Note: See TracChangeset for help on using the changeset viewer.