function ProtonormTable(){
 this.writeTable = wTable;
}
function wTable(lower){
 var s = "";
 s += "<table class=\"margin\" border=\"1\" cellspacing=\"0\">\n";
	s += "<tr><th>Prot.</th><th class=\"fem\">&nbsp;Female&nbsp;</th><th class=\"male\">&nbsp; &nbsp;Male&nbsp; &nbsp;</th><th>Combined</th><th class=\"eis\">EIS</th><th class=\"gen\">I.Q.</th><th class=\"gen\">General</th></tr>\n";
 var dataObj = new Protonorms();
 var conObj = new Conversions();
 var iqObj = new IQToProp();
 var iq = 0;
 var sexCom = 0;
 var eis = 0;
 if(lower){
  for(var i = -1111; i < -13; i++){
   eis = conObj.protonormToEIS(i);
   iq = conObj.eisToIQ(eis);
   s += "<tr><td>" + i + "</td>";
   s += "<td class=\"fem\">" + 0 + "</td>";
   s += "<td class=\"male\">" + 0 + "</td>";
   s += "<td>" + 0 + "</td>";
   s += "<td class=\"eis\">" + eis + "</td>";
   s += "<td class=\"gen\">" + iq + "</td>";
   s += "<td class=\"gen\">" + iqObj.prop(iq) + "</td></tr>\n";
  }
  for(var i = -13; i < 222; i++){
   sexCom = dataObj.r[i + 13].sexCombined();
   iq = conObj.eisToIQ(dataObj.r[i + 13].eis);
   s += "<tr><td>" + dataObj.r[i + 13].protonorm + "</td>";
   s += "<td class=\"fem\">" + (dataObj.r[i + 13].female / 1000).toFixed(3) + "</td>";
   s += "<td class=\"male\">" + (dataObj.r[i + 13].male / 10000).toFixed(4) + "</td>";
   s += "<td>" + (sexCom / 10000).toFixed(4) + "</td>";
   s += "<td class=\"eis\">" + dataObj.r[i + 13].eis + "</td>";
   s += "<td class=\"gen\">" + iq + "</td>";
   s += "<td class=\"gen\">" + iqObj.prop(iq) + "</td></tr>\n";
  } 
 } else{
  for(var i = 222; i < 688; i++){
   sexCom = dataObj.r[i + 13].sexCombined();
   iq = conObj.eisToIQ(dataObj.r[i + 13].eis);
   s += "<tr><td>" + dataObj.r[i + 13].protonorm + "</td>";
   s += "<td class=\"fem\">" + (dataObj.r[i + 13].female / 1000).toFixed(3) + "</td>";
   s += "<td class=\"male\">" + (dataObj.r[i + 13].male / 10000).toFixed(4) + "</td>";
   s += "<td>" + (sexCom / 10000).toFixed(4) + "</td>";
   s += "<td class=\"eis\">" + dataObj.r[i + 13].eis + "</td>";
   s += "<td class=\"gen\">" + iq + "</td>";
   s += "<td class=\"gen\">" + iqObj.prop(iq) + "</td></tr>\n";
  } 
  for(var i = 688; i < 1112; i++){
   eis = conObj.protonormToEIS(i);
   iq = conObj.eisToIQ(eis);
   s += "<tr><td>" + i + "</td>";
   s += "<td class=\"fem\">" + 1 + "</td>";
   s += "<td class=\"male\">" + 1 + "</td>";
   s += "<td>" + 1 + "</td>";
   s += "<td class=\"eis\">" + eis + "</td>";
   s += "<td class=\"gen\">" + iq + "</td>";
   s += "<td class=\"gen\">" + iqObj.prop(iq) + "</td></tr>\n";
  }
 }
	s += "</table>\n";
	return s;
}