<!--

function to_number(value) {
  value = value.replace(/.*\=/gim,"");
  if(isNaN(value)) value = 0;
  if(!value) value = 0;
  return value;
}

function Calc() {
var errh;
var errw;
var tsum;

tsum = 0;
tsum_shpon = 0;

errh=MM_validateForm('dh','','RinRange1:3');
errw=MM_validateForm('dw','','RinRange0.4:4.0');

if(errh) {
	alert(errh);	
	document.RES.dh.value = 2;
	Calc();
} else if(errw) {
	alert(errw);
 	document.RES.dw.value = 0.87;	
 	Calc();
} else
{

dhh=parseFloat(document.RES.dh.value);
if(dhh<2) dhh = 2;
dhw=parseFloat(document.RES.dw.value);
if(dhw<0.87) dhw = 0.87;

    tsum=tsum_shpon=0;
    ustanov = document.RES.ustanov.value;
    sh=true;
    formula0="dh,dw"; //не сумировать
    formula1="calc3,calc4,calc5,calc6,calc7";
    formula2="calc14,calc8";
    formula3="calc22";
    formula4="calc20,calc21,calc18";


 for (i = 0; i < document.RES.elements.length-1; i++){
        if(!document.RES.elements[i].name) continue;
        if(document.RES.elements[i].name.indexOf("calc")==-1) {
                if(document.RES.elements[i].name!="dw" && document.RES.elements[i].name!="dh") {
                continue;
                }
        }

  if(formula0.indexOf(document.RES.elements[i].name)==-1) {
    if(formula1.indexOf(document.RES.elements[i].name)!=-1) {
        tsum+=1*to_number(document.RES.elements[i].value)*dhh*dhw;
    }
    else if(formula2.indexOf(document.RES.elements[i].name)!=-1) {
        tsum+=1*to_number(document.RES.elements[i].value)*(dhh+dhw)*2;
    }
    else if(formula3.indexOf(document.RES.elements[i].name)!=-1) {
        tsum+=1*to_number(document.RES.elements[i].value)*dhh*dhw;
    }
    else if(formula4.indexOf(document.RES.elements[i].name)!=-1) {
        if(sh) {
            tsum_shpon+=to_number(document.RES.calc18.value)*to_number(document.RES.calc21.value)*to_number(document.RES.calc20.value);
            sh=false;
        }
    }
    else {
        tsum+=1*to_number(document.RES.elements[i].value);
    }
  }// else {
      //  dhh=parseFloat(document.RES.dh.value);
     //   dhw=parseFloat(document.RES.dw.value);
  //}
 }

    tsum+=tsum_shpon;
    tsum=tsum+" ";
    if(tsum.indexOf('.')!=-1) {tt=tsum.indexOf('.'); tsum=tsum.substring(0,tt);}
    document.RES.result.value=Math.round(tsum*ustanov);
}
}
function MM_findObj(n, d) {
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() {
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name;nt=val.title; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nt+' не правильный e-mail адрес.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nt+' : вводите числовые значения!\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nt+' д.б. число между '+min+' и '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nt+' Обязательно для заполнения.\n'; }
  } if  (errors) {
        return 'Ошибка:\n'+errors;
    } else return '';

}
-->