/* agua.java - biblioteca de propriedades da agua*/
/* válido para água a pressão normal - faixa de temperatura 0 a 360 C */
/* dados do Caderno de Dados de fundamentos de engenharia de alimentos
*/
import java.applet.*;
import java.awt.*;
import java.text.*;
public class agua extends Applet
{

 double cpagua(double t) /* calor específico kcal/kg.C - R^2=0,99874 */
 {
  return(0.99450036+0.0034583926*t-1.9662498E-4*t*t+3.9480288E-6*t*t*t-3.6765615E-8*t*t*t*t+1.7415129E-10*t*t*t*t*t-4.0643876E-13*t*t*t*t*t*t+3.7192251E-16*t*t*t*t*t*t*t);
 }

 double calorlatagua(double t) /* calor latente kcal/kg - R^2=0,99964 */
 {
  return(595.10427-0.35713904*t-0.0036180483*t*t+1.906342E-5*t*t*t-4.2270238E-8*t*t*t*t);
 }

 double condtermagua(double t) /* condutividade termica - kcal/h.m.oC - R^2=0,99982 */
 {
  return(0.47544091+0.0021600042*t-1.4598133E-5*t*t+4.4970702E-8*t*t*t-6.8959266E-1*t*t*t*t);
 }

 double densagua(double t) /* densidade kg/m3 - R^2=0,99999 */
 {
   return(1000.0163-0.019620666*t-0.0034517530*t*t-4.0295927E-5*t*t*t+6.0425178E-7*t*t*t*t-3.362154E-9*t*t*t*t*t+8.5021633E-12*t*t*t*t*t*t-8.2532596E-15*t*t*t*t*t*t*t);
 }

 double diftermagua(double t) /* difusividade térmica m3/h - R^2=0,9998 */
 {
   return((0.47352099+0.0022559466*t-1.223383E-5*t*t+3.0694373E-8*t*t*t-1.8665939E-11*t*t*t*t-1.0559631E-13*t*t*t*t*t)*0.001);
 }

 double exptermagua(double t)  /* expansão térmica l/C - R^2=0,99697 */
 {
   return((0.0036079254+5.1768104E-5*t+4.7864131E-4*t*t-8.2400128E-6*t*t*t+5.7987125E-8*t*t*t*t-1.8145652E-10*t*t*t*t*t+2.1115922E-13*t*t*t*t*t*t)*0.01);
 }

 double prandtlagua(double t) /* Prandtl - R^2=0,99892 */
 {
   return(13.492784-0.44830282*t+0.0079163376*t*t-7.8385821E-5*t*t*t+4.4391613E-7*t*t*t*t-1.4182722E-9*t*t*t*t*t+2.3681463E-12*t*t*t*t*t*t-1.5997339E-15*t*t*t*t*t*t*t);
 }

 double presvapagua(double t) /* pressao de vapor - kg/cm2 - R^2=0,99: para converter para atm multiplique por 0.9678, */
 /*para converter para Pascal multiplique por 9806.0 */
 {
   return(-0.099784515+0.014525828*t-2.849723E-4*t*t+1.9406948E-6*t*t*t+2.7261274E-9*t*t*t*t+1.4191568E-11*t*t*t*t*t);
 }

 double tensupagua(double t) /* tensao superficial  kg/m - R^2=0,99954 */
 {
   return((7.7768908-0.016972952*t-1.2713227E-5*t*t)*0.001);
 }

 double viscagua(double t) /* viscosidade dinamica centiPoise R^2=0,9996 para converter a kg/m.s multiplique por 0.001 */
 {
   return(1.7800445-0.053594552*t+9.1040165E-4*t*t-8.936371E-6*t*t*t+5.0983739E-8*t*t*t*t-1.6595146E-10*t*t*t*t*t+2.8501666E-13*t*t*t*t*t*t-2.0006495E-16*t*t*t*t*t*t*t);
 }
}