// Meteorology calculator javascript is copyright (c) 1996 by Kurt Mayer.

// Feel free to steal the code, but be sure to include this copyright. 

// Drop me a line if you choose to do so. Thanks. 

var Temp;



function computec(obj) {

   if (obj.cel.value == "")  { 

   obj.cel.value = (eval(obj.fahr.value)-32)*5/9;}

   else  {

   if (obj.fahr.value == "")  {

   obj.fahr.value = (eval(obj.cel.value)*9/5)+32;}

}

}   

function resetc(obj) {

obj.fahr.value="";

obj.cel.value="";

}

function computews(obj) {

   if (obj.knots.value == "" && obj.mph.value == "")  

   { 

   obj.knots.value = (eval(obj.mps.value)/.514791);

   obj.mph.value = (eval(obj.mps.value)/.44704);

   }

   else

   if (obj.knots.value == "" && obj.mps.value == "")

   { 

   obj.knots.value = (eval(obj.mph.value)/1.15155);

   obj.mps.value = (eval(obj.mph.value)/2.23694); 

   }

   else  

   if (obj.mph.value == "" && obj.mps.value == "")  

   { 

   obj.mph.value = (eval(obj.knots.value)/.868391);

   obj.mps.value = (eval(obj.knots.value)/1.94254); 

   }



}   

function resetws(obj) {

obj.knots.value="";

obj.mps.value="";

obj.mph.value="";

}



function computewc(obj) {

if (obj.corf2[0].checked)  {

var t=5*(obj.Temp.value-32)/9;

}

if (obj.corf2[1].checked)  {

var t=5*(obj.Temp.value)/5;

}

if (obj.corf[1].checked)  {

var w=obj.Wind.value*.44704;

}

if (obj.corf[0].checked)  {

var w=obj.Wind.value/1.609*.44704;

}

var h=(10.45+10*Math.pow(w,.5)-w)*(33-t);

var WC=33-h/22.04;

if (obj.corf2[0].checked)  {

    obj.Windchill.value=WC*9/5+32;

}

if (obj.corf2[1].checked)  {

    obj.Windchill.value=WC 

}



}

function resetwc(obj) {

obj.Windchill.value="";

obj.Temp.value="";

obj.Wind.value="";

}



function computerh(obj) {

if (obj.corf[0].checked)  {

var TMP=5*(obj.Temp.value-32)/9+273.16;

var DWP=5*(obj.Dewp.value-32)/9+273.16;

}

if (obj.corf[1].checked)  {

var TMP=5*(obj.Temp.value)/5 + 273.16;

var DWP=5*(obj.Dewp.value)/5 + 273.16;

}

TMP=(Math.log(1013.25)/Math.LN10-7.90298*(373.16/TMP-1)+5.02808*Math.log(373.16/TMP)/Math.LN10)-(1.3816e-7*(Math.pow(10,(11.334*(1-TMP/373.16)))-1))+8.1328e-3*(Math.pow(10,(-3.49149*(373.16/TMP-1)))-1);

DWP=(Math.log(1013.25)/Math.LN10-7.90298*(373.16/DWP-1)+5.02808*Math.log(373.16/DWP)/Math.LN10)-(1.3816e-7*(Math.pow(10,(11.334*(1-DWP/373.16)))-1))+8.1328e-3*(Math.pow(10,(-3.49149*(373.16/DWP-1)))-1);

obj.Relh.value=100*Math.exp((DWP-TMP)*Math.LN10);

}

function reseth(obj) {

obj.Relh.value="";

obj.Temp.value="";

obj.Dewp.value="";

}



function computehi1(obj) {

if (obj.bullet[0].checked==1)  {

var TMP=5*(obj.Temp.value-32)/9+273.16;

var DWP=5*(obj.Dewp.value-32)/9+273.16;

}

if (obj.bullet[1].checked)  {

var TMP=5*(obj.Temp.value)/5 + 273.16;

var DWP=5*(obj.Dewp.value)/5 + 273.16;

}

TMP=(Math.log(1013.25)/Math.LN10-7.90298*(373.16/TMP-1)+5.02808*Math.log(373.16/TMP)/Math.LN10)-(1.3816e-7*(Math.pow(10,(11.334*(1-TMP/373.16)))-1))+8.1328e-3*(Math.pow(10,(-3.49149*(373.16/TMP-1)))-1);

DWP=(Math.log(1013.25)/Math.LN10-7.90298*(373.16/DWP-1)+5.02808*Math.log(373.16/DWP)/Math.LN10)-(1.3816e-7*(Math.pow(10,(11.334*(1-DWP/373.16)))-1))+8.1328e-3*(Math.pow(10,(-3.49149*(373.16/DWP-1)))-1);

var RH=100*Math.exp((DWP-TMP)*Math.LN10);

obj.Relh.value=RH;

if (obj.bullet[0].checked==1)  {

var TMP=5*(obj.Temp.value)/5

}

if (obj.bullet[1].checked)  {

var TMP=9*(obj.Temp.value)/5+32;

}

obj.Heat.value=-42.379+2.04901523*TMP+10.14333127*RH-.22475541*TMP*RH-.00683783*TMP*TMP-.05481717*RH*RH+.00122874*TMP*TMP*RH+.00085282*TMP*RH*RH-.00000199*TMP*TMP*RH*RH;

if (obj.bullet[1].checked)  {

obj.Heat.value=5*(obj.Heat.value-32)/9;

}

}

function resethi1(obj) {

obj.Dewp.value="";

obj.Temp.value="";

obj.Relh.value="";

obj.Heat.value="";

}



function computehi2(obj) {

if (obj.bullet[0].checked==1)  {

var TMP=5*(obj.Temp.value)/5

}

if (obj.bullet[1].checked)  {

var TMP=9*(obj.Temp.value)/5+32;

}

obj.Heat.value=-42.379+2.04901523*TMP+10.14333127*obj.Relh.value-.22475541*TMP*obj.Relh.value-.00683783*TMP*TMP-.05481717*obj.Relh.value*obj.Relh.value+.00122874*TMP*TMP*obj.Relh.value+.00085282*TMP*obj.Relh.value*obj.Relh.value-.00000199*TMP*TMP*obj.Relh.value*obj.Relh.value;

if (obj.bullet[1].checked)  {

obj.Heat.value=5*(obj.Heat.value-32)/9;

}

}



function resethi2(obj) {

obj.Temp.value="";

obj.Heat.value="";

obj.Relh.value="";

}