---

---

---

/*
  Psychrometr Augusta - aproksymacja wartości wilgotności względnej
  skalgo, 23.06.2017, skalgo@cto.gda.pl
  license: GPL
  approximation made with genetic algorithm

  rh=psychrometr_augusta(Ts,Ts-Tw);
*/
double psychrometr_augusta(double x1,double x2)
{
  double a=1.962519588087598;
  double b=0.6868810594421535;
  double c=0;
  double d=0.2495133141072755;
  double e=-0.8250382509546905;
  double f=25.87494168758954;
  double g=0.9523956937097614;
  double h=-55.52816010417573;
  double i=0.9834666194900364;
  double j=2.921193811316689;
  double k=-1486.193496666624;
  double l=0.94239950782798;
  double m=30.46597195206784;
  double n=0.9917500896847082;
  double o=13.78343350162816;
  double p=14.82290787132509;
  double q=1.011771660637202;
  double r=111.2190927372446;
  double s=0.9556572677519803;
  double t=-9.816687144091434e-17;
  double u=a*pow(b,(x1+c)*pow(d,(x2+e)));
  double v=f*pow(g,(x1+h)*pow(i,(x2+j)));
  double w=k*pow(l,(x1+m)*pow(n,(x2+o)));
  double x=p*pow(q,(x1+r)*pow(s,(x2+t)));
  return(u+v+w+x);
}

---

---