var aCoef=MultiDimensionalArray(4,8);
var aM = MultiDimensionalArray(19,3);
var aF = MultiDimensionalArray(19,3);
var aAvgM  = MultiDimensionalArray(19,3);
var aAvgF  = MultiDimensionalArray(19,3);
var aData = MultiDimensionalArray(1,20);
var aDataWithAvg = MultiDimensionalArray(2,20);

var boDataInit = false;
var bIE = true;
var bReadyToCalculate = false;
var bAddTo = false;
var bNS4 = false;
var bCalculated = false;
var sAvg10 = "";
var cTime = 1;
var cPO = 2;
var cRSO = 3;
var cNewAge = 1;
var cLVH = 2;
var cCHD = 3;
var cSBPA21 = 4;
var cHyptMd01 = 5;
var cDiabts03 = 6;
var cCurSmk01 = 7;
var cRace = 8;
var cM = 1;
var cF = 2;
var cAvgM = 3;
var cAvgF = 4;
var bShowAvgRisk = false;
var iFemale = 0;
var iMale = 1;
var iRaceBlack = 2;
var iRaceWhite= 3;
var iSmokerYes= 4;
var iSmokerNo = 5;
var iAge = 6;
var iSBP= 7;
var iLVHYes= 8;
var iLVHNo= 9;
var iCHDYes = 10;
var iCHDNo = 11;
var iHBPMedYes= 12;
var iHBPMedNo= 13 ;
var iDiabYes = 14;
var iDiabNo = 15;

var oData;

function cbStatus(oCurrent,oOther) {
   if(oCurrent.checked) { 
      oOther.checked = false;
   } else {
      oOther.checked = true;
   } 
   if(bReadyToCalculate == true) { Calculate(); }
}     

function addTo(oObject,iStart,iEnd) {

   bAddTo = true;
   var sCurrentVal = String(oObject.value)
   oObject.value++;
   if(CheckRange(oObject,iStart,iEnd) == true) {
      return true;
   }
   oOBject.value = sCurrentVal;
   return false;
}   

function minusFrom(oObject,iStart,iEnd) {
  var sCurrentVal = String(oObject.value)

  oObject.value--;
  if(CheckRange(oObject,iStart,iEnd) == true) {
      return true;
   }
  oObject.value = sCurrentVal;
  return false;
}   


function CheckRange(oObject,iStart,iEnd) {

  var sMsg ="Valid Range is " + iStart + " to " + iEnd;
  if(oObject.value != "") {
     if(Math.abs(oObject.value) < iStart || Math.abs(oObject.value) > iEnd) {
        alert(sMsg);
        oObject.focus(); 
        return false;
      }
      
  }
  
//  sMsg = "In checkrange. oObject.value is " + oObject.value;
//  alert(sMsg);
  
  if(bReadyToCalculate == true) { Calculate(); }
  return true;
}   
   
  
function MultiDimensionalArray(iRows,iCols) { 
   var i; 
   var j; 
   var a = new Array(iRows + 1); 

   for (i=0; i < iRows + 1; i++) { 
       a[i] = new Array(iCols + 1); 
       for (j=0; j < iCols + 1; j++) { 
          a[i][j] = 0; 
       } 
   } 
   
   return(a); 

} 


function PopulateArrays() {
    
   
   // Coeff by gender only
   
   aCoef[cM][cRace] = 0.3514973;
   aCoef[cM][cNewAge] = 0.807621;
   aCoef[cM][cLVH] = 0.386121;
   aCoef[cM][cCHD] = 0.7332341;
   aCoef[cM][cSBPA21] = 0.369002;
   aCoef[cM][cHyptMd01] = 0.4544168;
   aCoef[cM][cCurSmk01] = 0.6931732;
   aCoef[cM][cDiabts03] = 0.8892109;
   
   aCoef[cAvgM][cNewAge] = 1.0088;
   
   aCoef[cF][cRace] = 0.4155701;
   aCoef[cF][cNewAge] = 0.689097;
   aCoef[cF][cLVH] = 0.808223;
   aCoef[cF][cCHD] = 0.6298822;
   aCoef[cF][cSBPA21] = 0.349296;
   aCoef[cF][cHyptMd01] = 0.4072694;
   aCoef[cF][cCurSmk01] = 0.8002466;
   aCoef[cF][cDiabts03] = 1.1371047;


   aCoef[cAvgF][cNewAge] = 0.89;
 
      
   for(X = 1;X <= 10 ; X++) {
      aF[X][cTime] = -X;
      aM[X][cTime] = X ;
   }
   
   // PO
      aM[0][cPO] = 0.0003396;
      aM[1][cPO] = 0.00058638;
      aM[2][cPO] = 0.0006864;
      aM[3][cPO] = 0.00109095;
      aM[4][cPO] = 0.00124477;
      aM[5][cPO] = 0.00160993;
      aM[6][cPO] = 0.00213904;
      aM[7][cPO] = 0.00246098;
      aM[8][cPO] = 0.00289525;
      aM[9][cPO] = 0.00328021;
      aM[10][cPO] = 0.0040087;
      aM[11][cPO] = 0.00463485;
      aM[12][cPO] = 0.00509804;
      aM[13][cPO] = 0.00603937;
      aM[14][cPO] = 0.00681938;
      aM[15][cPO] = 0.00743001;
      aM[16][cPO] = 0.00860613;
      aM[17][cPO] = 0.00917301;
      aM[18][cPO] = 0.01007162;
      aM[19][cPO] = 0.0109276;
      
      aF[0][cPO] = 0.00007615;
      aF[1][cPO] = 0.00019099;
      aF[2][cPO] = 0.00042344;
      aF[3][cPO] = 0.00061966;
      aF[4][cPO] = 0.00093713;
      aF[5][cPO] = 0.00125681;
      aF[6][cPO] = 0.00137845;
      aF[7][cPO] = 0.00150069;
      aF[8][cPO] = 0.00170713;
      aF[9][cPO] = 0.00204237;
      aF[10][cPO] = 0.00246819;
      aF[11][cPO] = 0.00272761;
      aF[12][cPO] = 0.0032528;
      aF[13][cPO] = 0.00347345;
      aF[14][cPO] = 0.00405182;
      aF[15][cPO] = 0.00468449;
      aF[16][cPO] = 0.00486786;
      aF[17][cPO] = 0.00528715;
      aF[18][cPO] = 0.00571058;
      aF[19][cPO] = 0.00609426;
                         
      // Avg person
    
      aAvgM[0][cPO] = 0.00085;
      aAvgM[1][cPO] = 0.00147;
      aAvgM[2][cPO] = 0.00172;
      aAvgM[3][cPO] = 0.00271;
      aAvgM[4][cPO] = 0.00309;
      aAvgM[5][cPO] = 0.00398;
      aAvgM[6][cPO] = 0.00525;
      aAvgM[7][cPO] = 0.00601;
      aAvgM[8][cPO] = 0.00705;
      aAvgM[9][cPO] = 0.00795;
      aAvgM[10][cPO] = 0.00966;
      aAvgM[11][cPO] = 0.01111;
      aAvgM[12][cPO] = 0.01217;
      aAvgM[13][cPO] = 0.01432;
      aAvgM[14][cPO] = 0.01608;
      aAvgM[15][cPO] = 0.01744;
      aAvgM[16][cPO] = 0.02005;
      aAvgM[17][cPO] = 0.02131;
      aAvgM[19][cPO] = 0.02327;
      aAvgM[19][cPO] = 0.02512;
   
      aAvgF[0][cPO] = 0.00022;
      aAvgF[1][cPO] = 0.00055;
      aAvgF[2][cPO] = 0.00122;
      aAvgF[3][cPO] = 0.00178;
      aAvgF[4][cPO] = 0.00267;
      aAvgF[5][cPO] = 0.00357;
      aAvgF[6][cPO] = 0.00391;
      aAvgF[7][cPO] = 0.00424;
      aAvgF[8][cPO] = 0.00481;
      aAvgF[9][cPO] = 0.00572;
      aAvgF[10][cPO] = 0.00687;
      aAvgF[11][cPO] = 0.00756;
      aAvgF[12][cPO] = 0.00895;
      aAvgF[13][cPO] = 0.00953;
      aAvgF[14][cPO] = 0.01104;
      aAvgF[15][cPO] = 0.01269;
      aAvgF[16][cPO] = 0.01316;
      aAvgF[17][cPO] = 0.01423;
      aAvgF[18][cPO] = 0.0153;
      aAvgF[19][cPO] = 0.01626;
     
   // RSO
   for (X = 0; X <= 19;X++) {
      aM[X][cRSO] = 6.55671
      aF[X][cRSO] = 5.79944;
      aAvgM[X][cRSO] = 5.44752;
      aAvgF[X][cRSO] = 4.806;
   }  
   return false;
}