var weight_kg;
var height_m;
var height_cm;
var pols_cm;
var sex;
var lengte;
var vet_percent;
var sex_value;
var lichaamsbouw;
var i, j;

// Lichaamsbouw naar lengte en polsomvang
lichaamsbouw = new Array(5);

for (i = 0; i < 5; i++)
  lichaamsbouw[i] = new Array(13);

//-150 cm
lichaamsbouw[0][ 0] = 4;
lichaamsbouw[0][ 1] = 3.5;
lichaamsbouw[0][ 2] = 3;
lichaamsbouw[0][ 3] = 2.5;
lichaamsbouw[0][ 4] = 2;
lichaamsbouw[0][ 5] = 1.5;
lichaamsbouw[0][ 6] = 1;
lichaamsbouw[0][ 7] = 0.5;
lichaamsbouw[0][ 8] = 0;
lichaamsbouw[0][ 9] = 0;
lichaamsbouw[0][10] = 0;
lichaamsbouw[0][11] = 0;
lichaamsbouw[0][12] = 0;

//-160 cm
lichaamsbouw[1][ 0] = 4;
lichaamsbouw[1][ 1] = 4;
lichaamsbouw[1][ 2] = 3.5;
lichaamsbouw[1][ 3] = 3;
lichaamsbouw[1][ 4] = 2.5;
lichaamsbouw[1][ 5] = 2;
lichaamsbouw[1][ 6] = 1.5;
lichaamsbouw[1][ 7] = 1;
lichaamsbouw[1][ 8] = 0.5;
lichaamsbouw[1][ 9] = 0;
lichaamsbouw[1][10] = 0;
lichaamsbouw[1][11] = 0;
lichaamsbouw[1][12] = 0; 

//-170 cm
lichaamsbouw[2][ 0] = 4;   
lichaamsbouw[2][ 1] = 4;
lichaamsbouw[2][ 2] = 4;
lichaamsbouw[2][ 3] = 3.5;
lichaamsbouw[2][ 4] = 3;
lichaamsbouw[2][ 5] = 2.5;
lichaamsbouw[2][ 6] = 2;
lichaamsbouw[2][ 7] = 1.5;
lichaamsbouw[2][ 8] = 1;
lichaamsbouw[2][ 9] = 0.5;
lichaamsbouw[2][10] = 0;
lichaamsbouw[2][11] = 0;
lichaamsbouw[2][12] = 0;

//-180 cm
lichaamsbouw[3][ 0] = 4;   
lichaamsbouw[3][ 1] = 4;
lichaamsbouw[3][ 2] = 4;
lichaamsbouw[3][ 3] = 4;
lichaamsbouw[3][ 4] = 3.5;
lichaamsbouw[3][ 5] = 3;
lichaamsbouw[3][ 6] = 2.5;
lichaamsbouw[3][ 7] = 2;
lichaamsbouw[3][ 8] = 1.5;
lichaamsbouw[3][ 9] = 1;
lichaamsbouw[3][10] = 0.5;
lichaamsbouw[3][11] = 0;
lichaamsbouw[3][12] = 0;

//180+ cm
lichaamsbouw[4][ 0] = 4;   
lichaamsbouw[4][ 1] = 4;
lichaamsbouw[4][ 2] = 4; 
lichaamsbouw[4][ 3] = 4;
lichaamsbouw[4][ 4] = 4;
lichaamsbouw[4][ 5] = 3.5;
lichaamsbouw[4][ 6] = 3;
lichaamsbouw[4][ 7] = 2.5;
lichaamsbouw[4][ 8] = 2;
lichaamsbouw[4][ 9] = 1.5;
lichaamsbouw[4][10] = 1;
lichaamsbouw[4][11] = 0.5;
lichaamsbouw[4][12] = 0;

function dispnum(x) 
{
   x = Math.floor(x*10)/10; // 2 decimal places
   return(x);
}

function clear_vetpercent()
{ // clears all the contents of the form
   
   document.data3.weight_kg.value='';
   document.data3.height_cm.value ='';
   document.data3.height_m.value ='';
   document.data3.pols_cm.value  ='';
   document.data3.vet_percent.value=''; 

   document.data3.gewicht_vet.value='';  
   document.data3.gewicht_spieren.value='';    
   document.data3.gewicht_onderste_spieren.value=''; 

   document.data3.energie_vet.value='';  
   document.data3.energie_spieren.value='';    
   document.data3.energie_onderste_spieren.value=''; 
}

function initialise_vetpercent() 
{ // initialise the variables
   
   if (document.data3.weight_kg.value == '') 
       document.data3.weight_kg.value = 0;
   if (document.data3.height_cm.value == '') 
       document.data3.height_cm.value = 0;
   if (document.data3.height_m.value == '') 
       document.data3.height_m.value = 0;
   if (document.data3.pols_cm.value == '') 
       document.data3.pols_cm.value = 0;
   if (document.data3.vet_percent.value == '')
       document.data3.vet_percent.value = 0;   
   if (document.data3.gewicht_vet.value == '')
       document.data3.gewicht_vet.value = 0;   
   if (document.data3.gewicht_spieren.value == '')
       document.data3.gewicht_spieren.value = 0;   
   if (document.data3.gewicht_onderste_spieren.value == '')
       document.data3.gewicht_onderste_spieren.value = 0;   

   if (document.data3.energie_vet.value == '')
       document.data3.energie_vet.value = 0;   
   if (document.data3.energie_spieren.value == '')
       document.data3.energie_spieren.value = 0;   
   if (document.data3.energie_onderste_spieren.value == '')
       document.data3.energie_onderste_spieren.value = 0;   
}
function compute_vetpercent() 
{ // the main routine

  initialise_vetpercent();
        
  weight_kg = parseFloat(document.data3.weight_kg.value);
  height_m  = parseFloat(document.data3.height_m.value);
  height_cm = parseFloat(document.data3.height_cm.value);
  pols_cm   = parseFloat(document.data3.pols_cm.value);
  
  for (i=0; i<document.data3.sex.length; i++) 
  {
     if (document.data3.sex[i].checked)
     {
        sex = document.data3.sex[i].value
     }
  }
    
  if (sex == 'man')
     sex_value = 115;
  else
     sex_value = 125;
  
  // Bepaal lichaamsbouw
  col = pols_cm - 10;
    
  lengte = (height_m * 100) + height_cm;
  
  if (lengte < 150)
  {
     row = 0;
  }
  else if (lengte < 160)
  {
     row = 1;
  }
  else if (lengte < 170)
  {
     row = 2;
  }
  else if (lengte < 180)
  {
     row = 3;
  }
  else
  {
     row = 4;
  }

  vet_percent  = lichaamsbouw[row][col];
  
  vet_percent += sex_value;
  vet_percent += weight_kg;
  vet_percent -= lengte;
  
  gewicht_vet = weight_kg * vet_percent / 100;
  energie_vet = gewicht_vet * 0.86 * 0.90 * 1000; // gram 

  mager_gewicht = weight_kg - gewicht_vet;
  gewicht_spieren = mager_gewicht / 2;
  energie_spieren = gewicht_spieren * 15 * 0.90; // gram
  
  gewicht_onderste_spieren = gewicht_spieren / 2;
  energie_onderste_spieren = 
     gewicht_onderste_spieren  * 15 * 0.90; // gram
  
  // Display Percentage vetzuur
  document.data3.vet_percent.value = dispnum(vet_percent);
  
  // Display Gewicht 
  document.data3.gewicht_vet.value = dispnum(gewicht_vet);
  document.data3.gewicht_spieren.value 
     = dispnum(gewicht_spieren); 
  document.data3.gewicht_onderste_spieren.value 
    = dispnum(gewicht_onderste_spieren);       
  
  // Display Energie vetzuurreserves
  document.data3.energie_vet.value = dispnum(energie_vet);
  document.data3.energie_spieren.value 
     = dispnum(energie_spieren);
  document.data3.energie_onderste_spieren.value 
   = dispnum(energie_onderste_spieren);                                                                
}