/////////////////////////////////////////////////////////////////////////
//   windchill.js -- <!--  Wind Chill Computer copyright 1996 Bernard N. Meisner
//
//   Author:  Bernard N. Meisner, Scientific Services Division, NWS SRHQ
//
//   Latest Revision:  December 28, 1999
/////////////////////////////////////////////////////////////////////////

function ComputeWindChill() {
     Temp = document.Input.Temperature.value;
     Wind = document.Input.WindSpeed.value;
     if ( document.Input.WindUnits[0].checked ) WindMph = Wind; 
     if ( document.Input.WindUnits[1].checked ) WindMph = 1.15078*Wind; 
     if ( document.Input.WindUnits[2].checked ) WindMph = 2.23693*Wind;
     if ( document.Input.WindUnits[3].checked ) WindMph = 0.62136*Wind;
     Windmps = WindMph/2.23693
     
     if ( document.Input.TempUnits[0].checked )  {
          WindChill = (91.4 - (91.4 - Temp) * (0.478 + 0.301*Math.sqrt(WindMph) - 0.02*WindMph));
          Units = ' F';
     }
    else {
          WindChill = (33 - (33 - Temp) * (0.478 + 0.301*Math.sqrt(WindMph) - 0.02*WindMph));
          Units = ' C';
     }
     if ( WindMph <= 4 ) WindChill = Temp;
     if ( WindChill > Temp) WindChill = Temp;
     document.Input.windchill.value = Math.round(WindChill) + Units;

     if ( document.Input.TempUnits[0].checked )  {
          Steadman = 3.16 - (1.20*WindMph) + (0.980*Temp) + (0.0044*WindMph*WindMph) + (0.0083*WindMph*Temp);
          Units = ' F';
     }
    else {
          Steadman = 1.41 - (1.162*Windmps) + (0.980*Temp) + (0.0124*Windmps*Windmps) + (0.0185*Windmps*Temp);
          Units = ' C';
     }
     if ( WindMph <= 4 ) Steadman = Temp;
     if ( Steadman > Temp) Steadman = Temp;
     document.Input.steadman.value = Math.round(Steadman) + Units;
    

     if ( document.Input.TempUnits[0].checked )  {
          Canwindchill = (12.1452 + 11.6222*Math.sqrt(Windmps) -1.16222*Windmps)*(91.4 - Temp)/1.80;
     }
    else {
     	    Canwindchill = (12.1452 + 11.6222*Math.sqrt(Windmps) -1.16222*Windmps)*(33 - Temp);
     } 
    document.Input.canwindchill.value = Math.round(Canwindchill);
}

//  End of windchill.js