<!-- Author: Brian Mackenzie -->
<!-- Date: 11th March 2006 -->
<!-- Version: 1.0 -->
<!-- Function:  Calculate waist to hip ratio -->
<!-- Required by: whrt.htm -->
<!-- Copyright Brian Mackenzie 2006 -->

function pcalculate()
{
  var waist = document.whrt.waist.value;
  var hip = document.whrt.hip.value;
  var gender = document.whrt.gender.options[document.whrt.gender.selectedIndex].value;

  waist = waist *1;
  hip = hip * 1;
  ratio = waist/hip;
  ass = "High";
  
  if (gender=="Male")
    {
      if  (ratio<0.95) ass="Average"
	  if (ratio<0.9) ass="Good";
      if (ratio<0.85) ass="Excellent";
	}

  if (gender=="Female")
    {
      if  (ratio<0.85) ass="Average"
	  if (ratio<0.8) ass="Good";
      if (ratio<0.75) ass="Excellent";
    }

  document.whrt.assess.value = ass;
}

function pclear()
{
  document.whrt.assess.value = "";
}