function fClear()
{
	document.calc.elements.l.value = "";
	document.calc.elements.d.options[0].selected = true;	
	document.calc.elements.h.value = "";
	document.calc.elements.density.options[0].selected = true;
	document.calc.elements.m.value = "";
}

function fClearM()
{
	document.calc.elements.m.value = "";
}

function fCalc()
{
	L = document.calc.elements.l;
	D = document.calc.elements.d;
	H = document.calc.elements.h;
	DS = document.calc.elements.density;
	M = document.calc.elements.m;
	
	flag = 1;

		if(flag && !L)
		{
			alert("Внимание поле `Длина трубы` не существует. Обратитесь к администрации сайта.");
			flag = 0;
		}
		
		if(flag && L.value=="")
		{
			alert("Внимание значение поля `Длина трубы` не может быть пустым.");
			flag = 0;
		}
	
		if(flag && isNaN(L.value))
		{
			alert("Внимание значение поля `Длина трубы` должно быть числом.");
			flag = 0;
		}
		
		if(flag && !D)
		{
			alert("Внимание поле `Диаметр трубы` не существует. Обратитесь к администрации сайта.");
			flag = 0;
		}
		
		if(flag && D.value==0)
		{
			alert("Внимание значение поля `Диаметр трубы` должно быть выбрано.");
			flag = 0;
		}
	
		if(flag && isNaN(D.value))
		{
			alert("Внимание некорректное значение поля `Диаметр трубы`.");
			flag = 0;
		}		
	
		if(flag && !H)
		{
			alert("Внимание поле `Толщина стенки` не существует. Обратитесь к администрации сайта.");
			flag = 0;
		}
		
		if(flag && H.value=="")
		{
			alert("Внимание значение поля `Толщина стенки` не может быть пустым.");
			flag = 0;
		}
	
		if(flag && isNaN(H.value))
		{
			alert("Внимание значение поля `Толщина стенки` должно быть числом.");
			flag = 0;
		}		
		
		if(flag && !DS)
		{
			alert("Внимание поле `Тип металла` не существует. Обратитесь к администрации сайта.");
			flag = 0;
		}
		
		if(flag && DS.value==0)
		{
			alert("Внимание значение поля `Тип металла` должно быть выбрано.");
			flag = 0;
		}
	
		if(flag && isNaN(DS.value))
		{
			alert("Внимание некорректное значение поля `Тип металла`.");
			flag = 0;
		}		
		
		if(flag && !M)
		{
			alert("Внимание поле `Масса трубы` не существует. Обратитесь к администрации сайта.");
			flag = 0;
		}
		
		if(flag)
			M.value = Math.ceil(3.1415926*H.value*DS.value*(D.value - H.value)/1000*L.value);
}