// dhtml.js
var today = new Date();
var dt= today;
var zsdt=dt.getDate()+"/ "+((dt.getMonth()<9)?0:'')+(dt.getMonth()+1)+" /"+dt.getYear()+" года - "+dt.getHours()+" час. "+ dt.getMinutes()+"  мин.";
var zsvdt=dt.getDate()+"/ "+((dt.getMonth()<9)?0:'')+(dt.getMonth()+1)+" /"+"0"+(dt.getYear()-2000)+"/"+dt.getHours()+":"+ dt.getMinutes();
var obsvdate= zsvdt;
var sdat;  var smon; var syea; var shou;
var expiry = new Date(today.getTime() + 365 * 24 * 60 * 60 * 1000);
var namecok='userPrefs';
var arnmcok =new Array('fam01id01','fam01id02','fam01id03','fam01id04' );
namecok=arnmcok[0];
var currCook='';
var nmax=0; //kol obsled;
var rad; 
rad = new Array(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
var aruni = new Array(1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0);
function convDt(name) {
var nvdt = name.split('/');
 sdat=nvdt[0];
 smon=nvdt[1];
 //syea=20+nvdt[2];
syea=2+nvdt[2];  // NEW 20.03
 shou=nvdt[3];
var d=document; 
var t = new Date(); 

 var year = t.getYear();
if(year<2000) year=1900+year;
 syea =year;

 // document.write("God="+syea+" || "+year+" "  );
}

function getCookieVal (offset) {
	var endstr = document.cookie.indexOf (";", offset);
	if (endstr == -1) { endstr = document.cookie.length; }
	return unescape(document.cookie.substring(offset, endstr));
	}

function getCookie (name) {
	var arg = name + "=";
	var alen = arg.length;
	var clen = 
document.cookie.length;
	var i = 0;
	while (i < clen) {
		var j = i + alen;
		if (document.cookie.substring(i, j) == arg) {
			return getCookieVal (j);
			}
		i = document.cookie.indexOf(" ", i) + 1;
		if (i == 0) break; 
		}
	return null;
	}

function DeleteCookie (name,path,domain) {
	if (getCookie(name)) {
		document.cookie = name + "=" +
		((path) ? "; path=" + path : "") +
		((domain) ? "; domain=" + domain : "") +
		"; expires=Thu, 01-Jan-70 00:00:01 GMT";
		}
	}

function SetCookie (name,value,expires,path,domain,secure) {
  document.cookie = name + "=" + escape (value) +
    ((expires) ? "; expires=" + expires.toGMTString() : "") +
    ((path) ? "; path=" + path : "") +
    ((domain) ? "; domain=" + domain : "") +
    ((secure) ? "; secure" : "");
	}
//.................................

// Define a function to create SELECT lists on the fly
function genSelect1(name, count, start, select) {
	var optStr = "";
	for (var h = start; h <= count; h++) {
		optStr += "<OPTION VALUE=" + h + (h == select ? " SELECTED" : "") + ">" + h;
		}
	 return ("<SELECT NAME=" + name + ">" + optStr + "</SELECT>");
	}


//<input type="radio" name="pnev" checked value="0"
//      OnClick="Setval(this.name,this.value);">нет &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input
//      type="radio" name="pnev" value="1" OnClick="Setval(this.name,this.value);">да
// For creating groups of CHECKBOXes
function genBoxes(name) {
	var boxStr = '';
	var arrObj = eval(name);
	for (var i = 0; i < arrObj.length; i++) {
		boxStr += '<INPUT TYPE=CHECKBOX NAME="' + name + i + '" VALUE="' + arrObj[i][0] + ',' + arrObj[i][1] + '"> ' + arrObj[i][0] + '<BR>'
		}
	return boxStr;
	}
//.....................................
// For removing potentially dangerous characters
function safeChars(str) {
	return str.replace(/::|=|-->/g, ':;');
	}
//.....................................
function setPrefs(formObj) {
	var prefStr = '';
	var htmlStr = '';
	var rk=0;
        var currPr= '';
        var j=0;
       	if (nmax==getCookie('curObsl')) {if (confirm('Записать как новое обследование - ОК.  Изменить текущее - Отмена.')) { nmax++; if (nmax>9) nmax=9;}}
       	else { nmax++; if (nmax>9) nmax=9;}
       // d .write("NMAX="+nmax);      	
       if (currCook=='') {        // New patient
       prefStr='Num'+'::n::'+0+'-->'+
       'ObservDate ' + '::date::' + zsvdt +'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+ '-->';	
       for (var i = 0; i < formObj.length; i++) {
		if (formObj[i].type == "select-one") {
			prefStr += formObj[i].name;
                if (aruni[i]=='1'){prefStr += '::su::' + formObj[i].selectedIndex +'-->';}
                   else  {prefStr += '::s::' + formObj[i].selectedIndex +'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'-->';}
		//	htmlStr += formObj[i].name + '=' + formObj[i].options[formObj[i].selectedIndex].value + '-->';
    			}
		else if (formObj[i].type == "text") {
			if (formObj[i].value == '') { formObj[i].value = "Anonim "; }
			prefStr += formObj[i].name + '::t::' + safeChars(formObj[i].value)+ '-->';
		//	htmlStr += formObj[i].name + '=' + formObj[i].value + '-->';
			}
		else if (formObj[i].type == "radio" && formObj[i].checked) {
			prefStr += formObj[i].name;
                    if (aruni[i]=='1'){prefStr +='::ru::'+ formObj[i].value +'-->';}
                       else  {prefStr +='::r::' +  formObj[i].value +'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'*'+0+'-->';}
		//	htmlStr += formObj[i].name + '=' + formObj[i].value + '-->';
			}
                  }
           SetCookie('curObsl', 0, expiry);
               } //fin new pat
         else  {  var ki=0; 
        var prefArray = currCook.split('-->');
          for (var i = 0; i < prefArray.length-1; i++)
            {
		var currPref = prefArray[i].split('::');
                prefStr+=currPref[0]+'::'+currPref[1]+'::';
               // currPr = currPref[2];
                var currValue = currPref[2].split('*');
                
                  for (j = 0; j < currValue.length; j++) 
                 {
	         if ((j==nmax)||(currValue.length<2)) 
                   {  if (currPref[1] == 'n') { prefStr+=nmax ;}
                     else  if (currPref[1] == 'date') { prefStr+=zsvdt; }
                     else  if (currPref[1] == 't') {ki=0; prefStr+=safeChars(formObj[ki].value); }
                     else   if (formObj[ki].type == "radio")
                                 { if (formObj[ki].checked) {prefStr+= formObj[ki].value; ki++;} 
                                   else  {ki++; prefStr+= formObj[ki].value;}
                                 }
                     else   {prefStr+= formObj[ki].selectedIndex;}
                   }
	        else  {prefStr+= currValue[j] ; }
	        if((j+1)<currValue.length){prefStr+='*';} else  {prefStr+='-->'; ki++;}
          }  //fin for j
         }  //fin for i
          SetCookie('curObsl', nmax, expiry);  
     }   //fin else
	SetCookie(namecok, prefStr, expiry);
         this.location.reload();       
  }
//........................
function  delObs(formObj,nmb){
var prefStr = getCookie(namecok);
var curV;
var nm=0; 
var neStr='';    
if (prefStr == null) {  return false; }
        var prefArray = prefStr.split('-->');
          for (var i = 0; i < prefArray.length-1; i++) {
		var currPref = prefArray[i].split('::');
                 neStr+=currPref[0]+"::"+currPref[1]+"::";
                 var curValu = currPref[2].split('*');
  if (currPref[1] == "n") { if(currPref[2]>0) neStr+=(currPref[2]-1); else {expiry = new Date(today.getTime()); break;}}//del all         
 else  { if (curValu.length<2) {neStr+=curValu[0];} 
          else {
                 for (var j=0; j<9; j++)
        {if (j<nmb) neStr+=curValu[j]; else {neStr+=curValu[j+1];} neStr+="*";}
                 neStr+="0";
               }
        }
             neStr+="-->";                 		
         } // end for i
  SetCookie('curObsl', 0, expiry); SetCookie(namecok, neStr, expiry);
 this.location.reload();     
 return true;                       	
}

//........................
// Define a function to get the user preferences from the 
// the cookie upon loading
function getPrefs(formObj, nmb, vv) {
         var prefStr = getCookie(namecok);
         var curV;
         var nm=0;     
       if (prefStr == null) {  return false; }
          currCook=prefStr;
          var prefArray = prefStr.split('-->');
          for (var i = 0; i < prefArray.length-1; i++) {
		var currPref = prefArray[i].split('::');
                var curValu = currPref[2].split('*');
                 if (curValu.length<2) {curV=curValu[0];} else {curV=curValu[nm];}  
	         if (currPref[1] == "n") { nmax = curV;  nm=nmb; }
              else if (currPref[1] == "date") { obsvdate = curV; }
              else if (currPref[1] == "t") { formObj[currPref[0]].value = curV; }
              else if ((currPref[1] == "s")||(currPref[1] == "su")) { formObj[currPref[0]].selectedIndex = curV; }                  
              else if (currPref[1] == "r") { formObj[currPref[0]].value = curV; }
	      else if (currPref[1] == "c") {  formObj[currPref[0]].value = curV;
                                              formObj[currPref[0]].checked = true; }		
         }
 var cvr=getCookie('curObsl');
if (nmb!=cvr) {SetCookie('curObsl', nm, expiry); this.location.reload(); }
if (vv==1) Comptele(0);     
 return true;                       	
}
/////////////////////
function getDt(formObj) {
         var prefStr = getCookie(namecok);
         var curV;
       if (prefStr == null) {  return false; }
        var prefArray = prefStr.split('-->');
          for (var i = 0; i < 2; i++) {
		var currPref = prefArray[i].split('::');
                var curValu = currPref[2].split('*');
                // if (curValu.length<2) {curV=curValu[0];} else {curV=curValu[nm];}  
	         if (currPref[1] == "n") { nm = curValu[0]; }
               //  document.write(nm+i+" "); 
              if (currPref[1] == "date") { document.write("<br>АРХИВ  обследований:<br><table border='0' cellspacing='1' width='100%'><tr>");
 for (var j=0; j<= nm; j++)
{ var dr= curValu[j]; document.write("<td widht='100%' align='center' bgcolor='#E1FFF0'><font face='Times New Roman' size='1' color='#000080'><b><A href='#null'  onClick=' getPrefs(document.forms[0],"+j+", 1);'>"+(j+1)+"-></A>&nbsp;"+
dr+"<A href='#null' onClick=' delObs(document.forms[0],"+j+");' > X</A> </b></font></td>");
if (j==4) document.write(" </tr><tr>");
         }
         document.write(" </tr></table>");
         obsvdate = curValu[getCookie('curObsl')];
      }
    }

 return true;                       	
}
/////////////////////
function getradio(formObj, nmb) {
//     var rd = new Array(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
       var prefStr = getCookie(namecok);
       var curV;
       if (prefStr == null) {  return false; }
	var prefArray = prefStr.split('-->');
	var rk = 0;
          for (var i = 0; i < prefArray.length-1; i++) {
		var currPref = prefArray[i].split('::');
                  var curValu = currPref[2].split('*');
               if (curValu.length<2) {curV=curValu[0];} else {curV=curValu[nm];}    
               if (currPref[1] == "n") { var nm = curV; nm=nmb;}
               if ((currPref[1] == "r")||(currPref[1] == "ru")) { rad[rk] = curV; rk++;}
          }
vsex=rad[0]; vcard=rad[1]; vpnev=rad[2]; vonkol=rad[3]; vdiab=rad[4];  vurol=rad[5]; 
vjelud=rad[6];   vnerv=rad[7];  vdrug=rad[8];  vbserd=rad[9]; vbjivot=rad[10];
vbgol=rad[11];  vutoml=rad[12];  vdrjal=rad[13];     
 return true;
	}
//.......................
var vpnev=rad[2]; 
var vcard=rad[1];
var vonkol=rad[3]; 
var vdiab=rad[4]; 
var vurol=rad[5]; 
var vjelud=rad[6]; 
var vnerv=rad[7]; 
var vdrug=rad[8]; 
var vbserd=rad[9];
var vbjivot=rad[10];
var vbgol=rad[11];
var vutoml=rad[12];
var vdrjal=rad[13];
var vsex=rad[0];
function Setval(nmp,value)
 {
//alert('1'+ value + nmp); 
if(nmp=='sex') vsex=value;
if(nmp=='pnev') vpnev=value;
if(nmp=='card') vcard=value;
if(nmp=='onkol') vonkol=value;
if(nmp=='diab') vdiab=value;
if(nmp=='urol') vurol=value;
if(nmp=='jelud') vjelud=value;
if(nmp=='nerv') vnerv=value;
if(nmp=='drug') vdrug=value;
if(nmp=='bserd') vbserd=value;
if(nmp=='bjivot') vbjivot=value;
if(nmp=='bgol') vbgol=value;
if(nmp=='utoml') vutoml=value;
if(nmp=='drjal') vdrjal=value;
}
function Comptele(nez)
{
if (nez==1) convDt(zsvdt); else convDt(obsvdate);
var erro=0;
var szid="";
var i=0;
var sznm="";
sznm=document.n1.name.value;
var szjb="";
szjb=document.n1.job.value;
var szpnv="";
//szpnev=document.n1.pnev.value;

//vpnev=(if(document.n1.pnev.checked)? "0":"1");
//dt=new Date();

var nday=  (document.n1.dendec.value>0 ? document.n1.dendec.value:"") + document.n1.denone.value;
var nmes = document.n1.mes.value;
var nyear ="19"+document.n1.agedec.value + document.n1.ageone.value;
var nage= syea-nyear; 
if(nage<3) nage=2001-nyear;
var nsex= (vsex == 1 ? "мужской":"женский");
var nwei= (document.n1.weihun.value>0? document.n1.weihun.value:"");
nwei=nwei + document.n1.weidec.value + document.n1.weione.value;
var nhei=  (document.n1.heihun.value>0 ? document.n1.heihun.value:"") +document.n1.heidec.value + document.n1.heione.value;
var vsprt = document.n1.sport.value;
var vsgr = document.n1.sigar.value;
var valkg = document.n1.alkog.value;
var vjb = document.n1.job.value;
var vstrs = document.n1.stress.value;
var vptn = document.n1.pitan.value;
var vninf = document.n1.ninf.value;
var vndiab = document.n1.ndiab.value;
var vnonko = document.n1.nonko.value;
var szps="";
var doblv = vsprt + vsgr + valkg + vjb + vstrs + vptn;
var dnasl = vninf + vndiab + vnonko;
var ducht= vcard + vpnev + vonkol + vdiab + vurol + vjelud + vnerv + vdrug;
var djalb= vbserd + vbjivot + vbgol + vutoml + vdrjal;
var szsig ='';
if(vsgr>0 && vsgr<6)szig="Выкуриваете  до " + vsgr*5 + "  сигарет в сутки.";
else { if (vsgr>=6) szig="Выкуриваете  более " +(vsgr-1)*5 + "  сигарет в сутки.";
       else szig="Не курите."};
var szalk ='';
if(valkg>0 && valkg<6)szalk="  Выпиваете  до " + valkg*100 + "  грамм алкоголя в неделю.";
else { if (valkg>=6) szalk="  Выпиваете  более " +(valkg-1)*100 + "  грамм алкоголя в неделю.";
       else szalk="  Не пьете."};
var szjb ='';
if(vjb<1 )szjb="  умственный.";
else { if (vjb==1) szjb=" средний физический .";
       else szjb="  тяжелый физический."};
var szstr ='';
if(vstrs<1 )szstr="  Нет стрессов в жизни.";
else { if (vstrs>1) szstr="  Жизнь носит стрессовый характер.";
       else szstr="  Иногда бывают  стрессовые ситуации."};
var szptn ='';
if(vptn==0)szptn="  умеренный: мало жиров, сладкого.";
else { if (vptn==1) szptn=" несколько избыточный.";
       else szptn="  чрезмерный, без ограничений."};

var rserv= new Array( "&nbsp;&nbsp;&nbsp;<a href='carfrm.htm'  name='new1' target='_blank'>КАРДИОЛОГИЯ </a>","&nbsp;&nbsp;&nbsp; <a href='pulfrm.htm' name='new1' target='_blank' >  ОРГАНЫ ДЫХАНИЯ</a>",
"&nbsp;&nbsp;&nbsp;<a href='onkfrm.htm'  name='new1' target='_blank'> ОНКОЛОГИЯ</a>","&nbsp;&nbsp;&nbsp;<a href='diafrm.htm'  name='new1' target='_blank'> ДИАБЕТ</a>",
"&nbsp;&nbsp;&nbsp;<a href='tersprav/gen-urol.htm'  name='new1' target='_blank'> УРОЛОГИЯ </a>", 
"&nbsp;&nbsp;&nbsp;<a href='tersprav/gen-zhel.htm'  name='new1' target='_blank'> ЖЕЛУДОЧНО-КИШЕЧНЫЙ ТРАКТ</a>",
"&nbsp;&nbsp;&nbsp;<a href='nevfrm.htm'  name='new1' target='_blank'>НЕВРОЛОГИЯ </a>", 
"&nbsp;&nbsp;&nbsp;<a href='medolfrm.htm'  name='new1' target='_blank'>ПОМОЩЬ ВАШЕМУ ОРГАНИЗМУ</a>",
"&nbsp;&nbsp;&nbsp;<a  href='farmfrm.htm'  name='new1' target='_blank'> ЛЕКАРСТВЕННЫЕ СРЕДСТВА</a>",
"&nbsp;&nbsp;&nbsp;<a href='klinfrm.htm'  name='new1' target='_blank'> ВРАЧИ,КЛИНИКИ УКРАИНЫ </a>",
 "&nbsp;&nbsp;&nbsp;<a href='psicfrm.htm'  name='new1' target='_blank'>СОВЕТЫ  ПСИХОТЕРАПЕВТA</a>" );
var szserv="";
var arnasl;
arnasl=new Array(4);
arnasl[1] = "у одного после 60 лет";
arnasl[2] = "у одного до 60 лет";
arnasl[3] = "у двух и более";
var sznasl ="";
if(dnasl!=0) {sznasl=" были заболевания: ";if (vninf!=0){sznasl=sznasl+ "инфарктом - " + arnasl[vninf];szserv=szserv+rserv[0];}
if (vndiab!=0){sznasl=sznasl +"   сахарным диабетом - " + arnasl[vndiab];szserv=szserv+rserv[3];}
if (vnonko!=0){sznasl=sznasl + "   онкологическим заболеванием - " + arnasl[vnonko];szserv=szserv+rserv[2];}}
else sznasl=" не было указанных в опроснике заболеваний ";
var zserv="";
var szucht  ="";
// vjelud +  + ;
if (ducht!=0) {szucht=" <br>Вы ранее лечились или состоите на дисп. учете по след. заболеваниям: ";
if (vcard!=0) {szucht= szucht+"сердечно-сосудистому; " ;zserv=zserv+rserv[0];}
if (vpnev!=0) {szucht=szucht+ "  бронхо-легочному;"  ;zserv=zserv+rserv[1];}
if (vonkol!=0) {szucht=szucht+ "  онкологии;";zserv=zserv+rserv[2];}
if (vdiab!=0) {szucht=szucht+ " сахарному диабету;";zserv=zserv+rserv[3];}
if (vurol!=0) {szucht=szucht+ "  урологии;" ; zserv=zserv+rserv[4];}
if (vjelud!=0) {szucht=szucht+ "  желудочно-кишечному тракту;" ;zserv=zserv+rserv[5];} 
if (vnerv!=0) {szucht=szucht+ "  нервной системы;" ;zserv=zserv+rserv[6];} 
if (vdrug!=0) szucht=szucht+ "  другим;"  ; 
 }
else szucht=" <br>Вы ранее не лечились и не состоите на дисп. учете по указанным в опроснике заболеваниям";
//var djalb= vbserd + vbjivot + vbgol + vutoml + vdrjal;
var szjalb  ="";
if (djalb!=0) {szjalb=" <br> У Вас имеются жалобы  на следующие состояния: ";
if (vbserd!=0) {szjalb= szjalb+" боли в области сердца;" ;(vcard==0? zserv=zserv+rserv[0]:"");}
if (vbjivot!=0){ szjalb= szjalb+" боли в области живота;"  ;(vjelud==0? zserv=zserv+rserv[5]:"");}
if (vbgol!=0) {szjalb= szjalb+" головные боли;" ;(vnerv==0? zserv=zserv+rserv[6]:"");}
if (vutoml!=0) {szjalb= szjalb+" быстрая утомляемость;" ;if (vnerv==0 && vbgol==0) zserv=zserv+rserv[6];}
if (vdrjal!=0) szjalb= szjalb+" другие;"  ;
 }
else szjalb=" <br> У Вас нет  жалоб. "; 
var zod = new Array(" Овна"," Тельца"," Близнецов"," Рака"," Льва"," Девы",
       " Весов"," Скорпиона"," Стрельца"," Козерога"," Водолея"," Рыбы"," Овна");
var msc= new Array(" апреля "," мая "," июня "," июля "," августа "," сентября ",
" октября "," ноября "," декабря "," января "," февраля "," марта ");   
var grn=new Array(20,21,21,22,23,23,23,23,22,21,20,20);
var akal=new Array("Крысы", "Быка", "Тигра", "Кролика", "Дракона", "Змеи", "Лошади", "Овцы",
 "Обезьяны", "Петуха", "Собаки", "Кабана"); 
var imzod=new Array('oven.gif','telez.gif','bliznec.gif','rak.gif','lev.gif','deva.gif','vesy.gif',
'skorpion.gif','strelez.gif','kozerg.gif','vodoley.gif','ryby.gif','oven.gif');
var ing=0;
var imnz;
var nzod=" ";
for (ing=0; ing<12; ing++)
       if(nmes==ing) {if(nday<=grn[ing]){ nzod=zod[ing];imnz=imzod[ing];} else {nzod=zod[ing+1];imnz=imzod[ing+1];}break;}
var szdata="<img src=i/"+imnz+ " width='44' height='39' align='BOTTOM' vspace='3' hspace='20'alt=''>"+
"  Дата рождения - "+nday+msc[nmes]+nyear+" года . Соответствует Знаку "+nzod+
"&nbsp;&nbsp;&nbsp;&nbsp;в год "+ akal[(nyear-4)%12] + 
" &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";     
var vpuls = document.n1.puls.value;
var szpul="<br>Частота пульса, " + vpuls + " ударов/мин, ";
if (vpuls<85 && vpuls>=60) szpul = szpul + " нормальная. ";
else {
if (vpuls>=85 && vpuls<100) {if (nage>17) szpul = szpul + " соответствует умеренной тахикардии. ";
else szpul = szpul + " немного выше нормы, "; }
if (vpuls>=100) {if (nage>17) szpul = szpul + " соответствует значительной тахикардия. ";
   else szpul = szpul + " тахикардия, ";}
if (vpuls<60 && vpuls>=50)  szpul = szpul + " соответствует умеренной брадикардии, ";
if (vpuls<50)  szpul = szpul + "  соответствует значительной брадикардии. ";
}
var vsad = document.n1.sad.value;
var vdad = document.n1.dad.value;
var szad="  <br>Давление," + vsad + "/" +vdad +" мм.рт.ст., ";
var vnorv;
(nsex=="мужской"? vnorv=50+(nhei-150)*0.78 +(nage-21)/4:vnorv=50+(nhei-150)*0.7 +(nage-21)/5);
vnorv=Math.round(vnorv);                                         
 if (nwei-vnorv>5) sznorv= " Ваш вес, "+nwei+" кг, превышает норму ( "+ (vnorv+4)+ " кг. )  на " + (nwei-vnorv-4) + " кг."; 
 else {  if (vnorv-nwei>5) sznorv= " Ваш вес, "+nwei+" кг, меньше нормы  ( "+ (vnorv-4)+ " кг. )на " + (vnorv-nwei-4) + " кг."; 
         else sznorv= " Ваш вес, "+nwei+" кг, соответствует норме ( "+ vnorv+ " кг. ). ";
      }
var vnsad;
if (nsex=="мужской") vnsad=104+(nwei*0.1) +(nage*0.45);
else vnsad=97+(nwei*0.15) +(nage*0.5);
 vnsad=Math.round((vnsad+3)/5)*5;
var vndad;
if (nsex=="мужской") vndad=68+(nwei*0.07) +(nage*0.15);
else  vndad=66+(nwei*0.06) +(nage*0.12);
 vndad=Math.round((vndad+3)/5)*5;
var dead=(vsad-vnsad)+(vdad-vndad); 
 if (dead>25) szad=szad  + "  превышает норму ( "+ vnsad + "/" + vndad +" ), имеется склонность к гипертонии. "; 
 else { if (-dead>25) szad=szad +"   ниже нормы ( "+ vnsad + "/" + vndad +" ), имеется склонность к гипотонии. "; 
 else szad=szad + "  находится в пределах нормы ( "+ vnsad + "/" + vndad +" ). "; }
var dldel=document.n1.dedel1.value + document.n1.ondel1.value;
var kogip= Math.round(dldel*100/vpuls)/10;
if (kogip>6)kogip=6;
var kogi=vpuls/dldel;
var szdldel=" <br>Коэффициент устойчивости к недостатку кислорода прм задержке дыхания на "+ dldel+ "сек., "+
 " равен: "+ kogip +" (макс.=6). Полученный результат:  "; 
if (dldel>(35-nage*0.2)&& kogip>4.2) szdldel=szdldel+" отличный." ;
  else { if (dldel>(30-nage*0.2)&& kogip>3.2) szdldel=szdldel+" хороший." ;
        else {if (dldel>(23-nage*0.2)&& kogip>2.3) szdldel=szdldel+" удовлетворительный." ;
              else  szdldel=szdldel+" не удовлетворительный." ;
   } } 
var dldel2=document.n1.dedel2.value + document.n1.ondel2.value;
var dldel3=document.n1.dedel3.value + document.n1.ondel3.value;
var sznagr=" ";
var adpt=0.011*vpuls + 0.014*vsad+ 0.008*vdad + 0.009*nwei+0.0014*nage-0.009*nhei+0.1*kogi-0.52;
adpt=adpt*10;
 if (adpt<5) adpt=5; if (adpt>40) adpt=40;
adpt=Math.round(10*(45-adpt))/10;


if ((dldel2==0)||(dldel3==0)) {kerf=80; sznagr=" <br>Вы не проводили дополнительного теста под нагрузкой ( 20 приседаний).";}
 else {
var vpuls2 = document.n1.puls2.value;
var vpuls3 = document.n1.puls3.value;
var kogi2=vpuls2/dldel2;
var kogi3=vpuls3/dldel3;
var kerf= Math.round(kogi*(kogi2+kogi3)); 
if(kerf>99) kerf=99;if(kerf<20) kerf=20;
if (kogip>=4.2) kerf=49;
if (kerf<50 && adpt<=18)kerf=60;
if (kerf>70 && adpt >20 &&adpt <=31) adpt=17;
sznagr=" <br>Вы провели тест с 20 приседаниями. После приседаний частота "+
" пульса составила:  " +vpuls2 +", задержка дыхания -- " +dldel2+ " сек. Через 3 мин. после окончания  частота "+
" пульса -- " +vpuls3 +", задержка дыхания -- " +dldel3 +" сек. Коэффициент эффективности расходования"+
" физиологических резервов равен: " + (120-kerf) +"  (макс. =100), адаптационная реакция на нагрузку "; 
if (kerf<50 )sznagr=sznagr+"  благоприятная. ";
else {if (kerf>=50 && kerf<85)  sznagr=sznagr+" понижена, желательно проведение физических тренировок.  ";
       else sznagr=sznagr+" не  благоприятная, необходимо проведение физических тренировок под наблюдением врача. ";
    } 
 }

var szadpt= " <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ЗАКЛЮЧЕНИЕ:<br>    Вы набрали   " + adpt + " баллов (оптимальный диапазон: 20-31 баллов)." ;
var zakl = new Array("  Функциональные возможности сердечно- сосудистой системы хорошие",
      "  Функциональное умеренное напряжение механизмов регуляции сердечно- сосудистой системы.",
      "  Снижение функциональных возможностей сердечно- сосудистой системы с недостаточными приспособительными реакциями организма.",
      "  Резкое снижение функциональных возможностей сердечно- сосудистой системы с явлениями срыва адаптационных механизмов организма.",
      "   <i>  Уровень Вашего физического состояния: </i>", " <i>низкий.</i>", " <i>ниже среднего.</i>", " <i>средний.</i>",
      " <i>выше среднего.</i>", " <i>высокий.</i>","  Снижение функциональных возможностей сердечно- сосудистой системы со склонностью к гипотензивным состояниям.",
       "     Биологический возраст организма cоответствует ");
var rekom = new Array("  Для повышения","  Для поддержания",
" уровня физического состояния настоятельно рекомендуем ежедневно или 3, 4 раза в неделю физические тренировки продолжительностью 20-30 минут.",
" C помощью <a  href='tablnagr.htm'  name='new1' target='_blank'> дозатора очковой  нагрузки</a>", 
" выберите физические упражнения общей и специальной  направленности с таким расчетом, чтобы в течение недели суммарно набрать не менее  ",
" очков.",  "  Нагрузку дозируйте самостоятельно, руководствуясь  субъективными ощущениями и частотой пульса, чтобы пульс не превышал ", 
" уд/мин."," Дозатор очковой нагрузки рекомендуемых физических упражнений",
" в зависимости от их интенсивности и продолжительности.");
var rek1 = new Array(" <br> Советуем Вам","  прекратить курить;"," уменьшить потребление алкоголя;",
" вести более спокойный образ жизни "," и  проконсультироваться с врачем"," - психотерапевтом.",
"- эндокринологом"," - онкологом"," - кардиологом","  <br>Учитывая фактор риска наследственных заболеваний",
" рекомендуем периодически обследоваться у врача"," - кардиолога"," - эндокринолога"," - онколога",
" Посмотрите разделы нашего сервера", " <br>Так как  ","&nbsp;&nbsp; и "," Вас беспокоят",".",
" советуем внимательно ознакомиться со следущими разделами нашего сервера: ");

var szrek1='';
if(vsgr>1 || valkg>1 || vstrs>=1) szrek1=rek1[0]+(vsgr>1?rek1[1]:"")+(valkg>1?rek1[2]:"")+(vstrs==1?rek1[3] +rek1[18]+ "Ознакомьтесь с разделом: "+rserv[10]:"")+ 
(vstrs==2?rek1[3]+rek1[4]+rek1[5]+"Ознакомьтесь с разделом: "+rserv[10]:"");
if(dnasl>0)szrek1=szrek1+rek1[9]+rek1[10]+(vninf>0?rek1[11]:"")+(vndiab>0?rek1[12]:"")+(vnonko>0?rek1[13]:"")+rek1[18]+rek1[19]+szserv;
if (ducht!=0 || djalb>0){ szrek1=szrek1+rek1[15]+(ducht!=0?szucht.substring(5):"");
                          if(ducht!=0  && djalb>0)szrek1=szrek1+rek1[16];
                          if(djalb>0)szrek1=szrek1+rek1[17]+szjalb.substring(50);
                          szrek1=szrek1+rek1[19]+zserv+rserv[7]+rserv[9];
                        }
 else szrek1= szrek1+"<br> Советуем Вам не забывать о тех психологических, экологических нагрузках, гиподинамии,"+
"  с которыми приходится жить современному человеку. Заботьтесь о своем здоровье <b>сейчас! </b> Cмотрите периодически разделы:"+

rserv[7]+rserv[9]+(vstrs==0?rserv[10]:"");
                               
var blage;
var szrek="<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;РЕКОМЕНДАЦИИ:  <br>";
if (adpt>31) {szadpt=szadpt+zakl[10]+ zakl[4] +zakl[7]+zakl[11];
                blage=(nage<=22 ? blage=nage-2:blage=nage+Math.round((nage-22)*0.08));
 szrek=szrek+rekom[0]+rekom[2]+rekom[3]+rekom[4]+(25-Math.round(nage*0.05))+
rekom[5]+rekom[6]+(nage<23?140:140-nage+23)+rekom[7];
           } 
 else { if (adpt>23  && kerf<50 && ducht==0 && djalb==0) {szadpt=szadpt+zakl[0]+ zakl[4] +zakl[9]+zakl[11];
      blage=(nage<=22 ? blage=nage+1:blage=nage-Math.round((nage-22)*0.2));
szrek=szrek+rekom[1]+rekom[2]+rekom[3]+rekom[4]+(30-Math.round(nage*0.05))+
rekom[5]+rekom[6]+(nage< 23?160:160-nage+23)+rekom[7];
      }
 else {if (adpt>23 && djalb==0) {szadpt=szadpt+zakl[0]+ zakl[4] +zakl[8]+zakl[11];
       blage=(nage<=22 ? blage=nage:blage=nage-Math.round((nage-22)*0.15));
szrek=szrek+rekom[0]+rekom[2]+rekom[3]+rekom[4]+(26-Math.round(nage*0.05))+
rekom[5]+rekom[6]+(nage<23?150:150-nage+23)+rekom[7];
}
    else {if (adpt>18 )  {szadpt=szadpt+zakl[1]+ zakl[4] +zakl[7]+zakl[11];
         blage=(nage<=22 ? blage=nage-1:blage=nage+1-Math.round((nage-22)*0.08));
szrek=szrek+rekom[0]+rekom[2]+rekom[3]+rekom[4]+(24-Math.round(nage*0.05))+
rekom[5]+rekom[6]+(nage<23?145:145-nage+23)+rekom[7];
}
  else {if (adpt>12 ) {szadpt=szadpt+zakl[2]+ zakl[4] +zakl[6]+zakl[11];
       blage=(nage<=22 ? blage=nage-2:blage=nage+Math.round(4-(nage-22)*0.1));
szrek=szrek+rekom[0]+rekom[2]+rekom[3]+rekom[4]+(22-Math.round(nage*0.05))+
rekom[5]+rekom[6]+(nage<23?135:135-nage+23)+rekom[7];
}
   else  {szadpt=szadpt+zakl[3]+ zakl[4] +zakl[5]+zakl[11];
         blage=(nage<=22 ? blage=nage-2:blage=nage+Math.round((16-adpt)-(nage-22)*0.1));
 szrek=szrek+rekom[0]+rekom[2]+rekom[3]+rekom[4]+(20-Math.round(nage*0.08))+
rekom[5]+rekom[6]+(nage<23?130:130-nage+23)+rekom[7];
}
       } 
     }  
   }
 }
var szatten="<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp<b>ВНИМАНИЕ ! </b><br>"+
"  Для более углубленной оценки состояния Вашего здоровья необходимо проконсультироваться с"+
" <a href='forum326/index.php'  name='new1' target='_blank'> ПРОФЕССИОНАЛЬНЫМИ&nbsp;&nbsp;ВРАЧАМИ</a>,   провести основные клинические анализы."+
"&nbsp;&nbsp;";
//window.print();

var conc= window.open("", "Concl", "toolbar=no,scrollbars=yes,resizable=yes,fullwindow=yes, width=800, height=600 ");
conc.document.write("<html><head><title>Conclusion</title></head><body "+
" link='#400040' alink='#303030' vlink='#301030' bgcolor='#FFFFCC' ><font face='Arial' size='2' color='#001010'><b>" +
// "Регистрация выполнена, запомните Ваши данные: " + szid + "<br>obziz="+  doblv +"<br>nasl="+  dnasl +"<br>nuchet="+ ducht +"<br>jalob=" + djalb+"<HR>"+
(nsex=="мужской"?"  Уважаемый господин ":"  Уважаемая госпожа ") + sznm +
 "! <br> Вы прошли тестирование физического состояния на сервере     ШВИДКА ДОПОМОГА <br>"+
sdat+"  "+smon+"  "+syea+" года в "+shou+"<br><br>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;  АНАЛИЗ РЕЗУЛЬТАТОВ:<br>" +
sznorv + szpul + szad + szdldel + sznagr +
 "<br>"+ szadpt +blage+ " лет.<br>"+szrek+szrek1+szatten+"<HR> Вы сообщили о себе следующие данные: <br>"+ szdata +" <br>Возраст: " + nage+ "&nbsp;&nbsp;    Пол: " + nsex +  " &nbsp;&nbsp;   Вес: " + nwei + " кг.  &nbsp;&nbsp;  Рост: " +  nhei + 
" см. " + (vsprt>0 ?"<br>Вы занимаетесь спортом " +vsprt + 
" раз в неделю.   ":"<br>Вы не занимаетесь спортом   ")+
 szig   + szalk  + " Вид труда -" + szjb + szstr + "  Характер питания - " 
+ szptn + "<br>У Ваших родственников  " + sznasl+"." + szucht + szjalb + 
" <p><center><form NAME='NEWW'></p>  <input TYPE='BUTTON' VALUE='ЗАКРЫТЬ' onClick='window.close();'>"+ 
"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input   TYPE='BUTTON' VALUE='ПЕЧАТЬ' onClick='window.print();'>"+
" </center>  </form></body></html> " );
conc.location.reload();
//document.forms[0].submit();
 }