<!-- Author: Brian Mackenzie -->
<!-- Date: 11th March 2004 -->
<!-- Version: 1.0 -->
<!-- Function:  Calculate the results from the  RAST test -->
<!-- Required by: rast.htm -->
<!-- Copyright Brian Mackenzie 2004 -->

function rastcalculate()
{
  var weightunits = document.rast.weightunits.options[document.rast.weightunits.selectedIndex].value;
  var weight = document.rast.weight.value;
   
  if (weightunits == "Pounds")
    {
      weight /= 2.2;
    }
  
  var t1 = document.rast.t1.value;
  var t2 = document.rast.t2.value;
  var t3 = document.rast.t3.value;
  var t4 = document.rast.t4.value;
  var t5 = document.rast.t5.value;
  var t6 = document.rast.t6.value;

  p1=weight*35*35/(t1*t1*t1);
  p2=weight*35*35/(t2*t2*t2);
  p3=weight*35*35/(t3*t3*t3);
  p4=weight*35*35/(t4*t4*t4);
  p5=weight*35*35/(t5*t5*t5);
  p6=weight*35*35/(t6*t6*t6);

  maxp=p1;

  if (p2>maxp)
    {
      maxp=p2;
    }

  if (p3>maxp)
    {
      maxp=p3;
    }

  if (p4>maxp)
    {
      maxp=p4;
    }

  if (p5>maxp)
    {
      maxp=p5;
    }

  if (p6>maxp)
    {
      maxp=p6;
    }

  minp=p1;

  if (p2<minp)
    {
      minp=p2;
    }

  if (p3<minp)
    {
      minp=p3;
    }

  if (p4<minp)
    {
      minp=p4;
    }

  if (p5<minp)
    {
      minp=p5;
    }

  if (p6<minp)
    {
      minp=p6;
    }

  avgp=(p1+p2+p3+p4+p5+p6)/6;

  tt1=t1*1;
  tt2=t2*1;
  tt3=t3*1;
  tt4=t4*1
  tt5=t5*1;
  tt6=t6*1;

  fatin=(maxp-minp)/(tt1+tt2+tt3+tt4+tt5+tt6);

  document.rast.p1.value = Math.round(p1);
  document.rast.p2.value = Math.round(p2);
  document.rast.p3.value = Math.round(p3);
  document.rast.p4.value = Math.round(p4);
  document.rast.p5.value = Math.round(p5);
  document.rast.p6.value = Math.round(p6);
  document.rast.maxp.value = Math.round(maxp);
  document.rast.minp.value = Math.round(minp);
  document.rast.avgp.value=Math.round(avgp);
  document.rast.fatin.value=fatin;
}

function valclear()
{
  document.rast.p1.value = "";
  document.rast.p2.value = "";
  document.rast.p3.value = "";
  document.rast.p4.value = "";
  document.rast.p5.value = "";
  document.rast.p6.value = "";
  document.rast.maxp.value = "";
  document.rast.minp.value = "";
  document.rast.avgp.value = "";
  document.rast.fatin.value = "";
}