28 const double Tcel = T_Ads - 273.15;
29 const double b[] = { 999.9,2.03E-02,-6.16E-03,2.26E-05,-4.68E-08 };
31 return b[0] + Tcel * (b[1] + Tcel * (b[2] + Tcel * (b[3] + Tcel * b[4]) ) );
34 const double rho_100 =
35 b[0] + b[1] * 1.e2 + b[2] * 1.e4 + b[3] * 1.e6 + b[4] * 1.e8;
36 const double aT_100 = -1. / rho_100 * (b[1] + 2. * b[2] * 1.e2 +
37 3. * b[3] * 1.e4 + 4. * b[4] * 1.e6);
38 return rho_100 * (1. - aT_100 * (Tcel - 100.));
43 const double Tcel = T_Ads - 273.15;
44 const double b[] = { 999.9,2.03E-02,-6.16E-03,2.26E-05,-4.68E-08 };
46 const double r = b[0] + Tcel * (b[1] + Tcel * (b[2] + Tcel * (b[3] + Tcel * b[4]) ) );
47 return -1.0/r * ( b[1] + Tcel * (2.0*b[2] + Tcel * (3.0*b[3] + Tcel * 4.0*b[4]) ) );
50 const double rho_100 =
51 b[0] + b[1] * 1.e2 + b[2] * 1.e4 + b[3] * 1.e6 + b[4] * 1.e8;
52 const double aT_100 = -1. / rho_100 * (b[1] + 2. * b[2] * 1.e2 +
53 3. * b[3] * 1.e4 + 4. * b[4] * 1.e6);
54 return aT_100 / (1. - aT_100 * (Tcel - 100.));