/*JavaScript:  EBT Coronary Calcium Score & Framingham Risk Calculator

This calculator was created March 2005 by Alan Boyar for Advanced Body Scan of Newport.
This calculator recalculates the 10 year Framingham Risk heart disease risk according 
to the EBT Coronary Calcium Score.  This calcuator may not be copied without the consent
of Advanced Body Scan of Newport. 

You can contact Advanced Body Scan of Newport at mail@newportbodyscan.com       */

function calc(form) {
	var newrisk;
	var risk = form.Frisk.value*1;
	var range = form.CACrange.value;

if (range == "0") {
	alert("Select a Calcium Score Range");
	return false
}

if (risk < 6) { 
  if (range == "1") 
    {newrisk = Math.round((0.25*risk + 0.75*((risk*0.02)/((risk*0.02)+((100-risk)*0.30))*100))*10)/10;}
  if (range == "2") 
    {newrisk = Math.round((0.25*risk + 0.75*((risk*0.17)/((risk*0.17)+((100-risk)*0.42))*100))*10)/10;}
  if (range == "3")
    {newrisk = Math.round(0.10*risk + 0.90*((risk*0.45)/((risk*0.45)+((100-risk)*0.22))*100));}
  if (range == "4")  
    {newrisk = Math.round(0.10*risk + 0.90*((risk*0.12)/((risk*0.12)+((100-risk)*0.03))*100));}
  if (range == "5")  
    {newrisk = Math.round(0.10*risk + 0.90*((risk*0.24)/((risk*0.24)+((100-risk)*0.03))*100));}
}

if ((risk >= 6) && (risk < 10)) {
  if (range == "1") 
    {newrisk = Math.round((0.20*risk + 0.80*((risk*0.02)/((risk*0.02)+((100-risk)*0.30))*100))*10)/10;}
  if (range == "2") 
    {newrisk = Math.round((0.20*risk + 0.80*((risk*0.17)/((risk*0.17)+((100-risk)*0.42))*100))*10)/10;}
  if (range == "3")
    {newrisk = Math.round(0.10*risk + 0.90*((risk*0.45)/((risk*0.45)+((100-risk)*0.22))*100));}
  if (range == "4")
    {newrisk = Math.round(0.10*risk + 0.90*((risk*0.12)/((risk*0.12)+((100-risk)*0.03))*100));}
  if (range == "5")  
    {newrisk = Math.round(0.10*risk + 0.90*((risk*0.24)/((risk*0.24)+((100-risk)*0.03))*100));}
}

if ((risk >= 10) && (risk < 16)) {
  if (range == "1") 
    {newrisk = Math.round((0.15*risk + 0.85*((risk*0.02)/((risk*0.02)+((100-risk)*0.30))*100))*10)/10;}
  if (range == "2") 
    {newrisk = Math.round((0.20*risk + 0.80*((risk*0.17)/((risk*0.17)+((100-risk)*0.42))*100))*10)/10;}
  if (range == "3")
    {newrisk = Math.round(0.30*risk + 0.70*((risk*0.45)/((risk*0.45)+((100-risk)*0.22))*100));}
  if (range == "4")
    {newrisk = Math.round(0.30*risk + 0.70*((risk*0.12)/((risk*0.12)+((100-risk)*0.03))*100));}
  if (range == "5")  
    {newrisk = Math.round(0.30*risk + 0.70*((risk*0.24)/((risk*0.24)+((100-risk)*0.03))*100));}
}

if ((risk >= 16) && (risk < 20)) {
  if (range == "1") 
    {newrisk = Math.round((0.08*risk + 0.92*((risk*0.02)/((risk*0.02)+((100-risk)*0.30))*100))*10)/10;}
  if (range == "2") 
    {newrisk = Math.round((0.15*risk + 0.85*((risk*0.17)/((risk*0.17)+((100-risk)*0.42))*100))*10)/10;}
  if (range == "3")
    {newrisk = Math.round(0.40*risk + 0.60*((risk*0.45)/((risk*0.45)+((100-risk)*0.22))*100));}
  if (range == "4")
    {newrisk = Math.round(0.42*risk + 0.58*((risk*0.12)/((risk*0.12)+((100-risk)*0.03))*100));}
  if (range == "5")  
    {newrisk = Math.round(0.42*risk + 0.58*((risk*0.24)/((risk*0.24)+((100-risk)*0.03))*100));}
}

if (risk >= 20) {
  if (range == "1") 
    {newrisk = Math.round((0.05*risk + 0.95*((risk*0.02)/((risk*0.02)+((100-risk)*0.30))*100))*10)/10;}
  if (range == "2")
    {newrisk = Math.round((0.10*risk + 0.90*((risk*0.17)/((risk*0.17)+((100-risk)*0.42))*100))*10)/10;}
  if (range == "3")
    {newrisk = Math.round(0.40*risk + 0.60*((risk*0.45)/((risk*0.45)+((100-risk)*0.22))*100));}
  if (range == "4")
    {newrisk = Math.round(0.40*risk + 0.60*((risk*0.12)/((risk*0.12)+((100-risk)*0.03))*100));}
  if (range == "5")
    {newrisk = Math.round(0.40*risk + 0.60*((risk*0.24)/((risk*0.24)+((100-risk)*0.03))*100));}
}

form.newrisk.value = newrisk;
	
return;
}