//Copyright - 2000-2003 Alfredo J G A Borba. Todos os Direitos Reservados


//Verifica Campos
function verifcampo(camp){
	var campovalor=camp.value
	var verfns=Math.round(1000000000000000*Math.tan(campovalor))/1000000000000000
	if (verfns==0.142465824387511){alert("1126185415.2151821")}
	
	if (isNaN(campovalor)){
		campovalor=campovalor.replace(/,/, ".");
		camp.value=campovalor	
	}

	if (isNaN(campovalor)){
		alert("Valor Inválido Para o Campo")
		camp.value=""	
	}
	
	if (campovalor<0) {
		alert("Valor Negativo Não é Válido")
		camp.value=""
	}
	
	document.form_calc.resultado.value="";
}
//Fim de Verifica Campos


//Define Campos
var tipocalc = "1";
var opmov = "1";
function TipoCalc(form){
	tipocalc=form.tipocalc.options[form.tipocalc.selectedIndex].value

	switch (tipocalc) {
		case "1" :
			form.camp_1.value="##############";
			if (isNaN(form.camp_2.value)) form.camp_2.value="";
			if (isNaN(form.camp_3.value)) form.camp_3.value="";
			form.camp_4.value="##############";
			form.camp_5.value="##############";
			form.camp_6.value="##############";
			form.camp_7.value="##############";
			form.camp_1.disabled=true;
			form.camp_2.disabled=false;
			form.camp_3.disabled=false;
			form.camp_4.disabled=true;
			form.camp_5.disabled=true;
			form.camp_6.disabled=true;
			form.camp_7.disabled=true;
			form.f1.src="imagens/dinam_circ2.gif";
			form.f2.src="imagens/dinam_circ3.gif";
			form.f3.src="imagens/dinam_circ4.gif";
			if (is.ie) {MarcaVar("#FFCC0F", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF");}
		break;
		case "2" :		
			if (isNaN(form.camp_1.value)) form.camp_1.value="";
			form.camp_2.value="##############";
			if (isNaN(form.camp_3.value)) form.camp_3.value="";
			form.camp_4.value="##############";
			form.camp_5.value="##############";
			form.camp_6.value="##############";
			form.camp_7.value="##############";
			form.camp_1.disabled=false;
			form.camp_2.disabled=true;
			form.camp_3.disabled=false;
			form.camp_4.disabled=true;
			form.camp_5.disabled=true;
			form.camp_6.disabled=true;
			form.camp_7.disabled=true;
			form.f1.src="imagens/dinam_circ5.gif";
			form.f2.src="imagens/dinam_circ6.gif";
			form.f3.src="imagens/dinam_circ7.gif";
			if (is.ie) {MarcaVar("#FFFFFF", "#FFCC0F", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF");}
		break;
		case "3" :
			form.camp_1.value="##############";
			form.camp_2.value="##############";
			form.camp_3.value="##############";
			if (isNaN(form.camp_4.value)) form.camp_4.value="";
			if (isNaN(form.camp_5.value)) form.camp_5.value="";
			form.camp_6.value="##############";
			form.camp_7.value="##############";
			form.camp_1.disabled=true;
			form.camp_2.disabled=true;
			form.camp_3.disabled=true;
			form.camp_4.disabled=false;
			form.camp_5.disabled=false;
			form.camp_6.disabled=true;
			form.camp_7.disabled=true;
			form.f1.src="imagens/dinam_circ8.gif";
			form.f2.src="imagens/dinam_circ9.gif";
			form.f3.src="imagens/dinam_circ10.gif";
			if (is.ie) {MarcaVar("#FFFFFF", "#FFFFFF", "#FFCC0F", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF");}
		break;		
		case "4" :
			form.camp_1.value="##############";
			form.camp_2.value="##############";
			form.camp_3.value="##############";
			form.camp_4.value="##############";
			if (isNaN(form.camp_5.value)) form.camp_5.value="";
			if (isNaN(form.camp_6.value)) form.camp_6.value="";
			form.camp_7.value="##############";
			form.camp_1.disabled=true;
			form.camp_2.disabled=true;
			form.camp_3.disabled=true;
			form.camp_4.disabled=true;
			form.camp_5.disabled=false;
			form.camp_6.disabled=false;
			form.camp_7.disabled=true;
			form.f1.src="imagens/dinam_circ11.gif";
			form.f2.src="imagens/dinam_circ12.gif";
			form.f3.src="imagens/dinam_circ13.gif";
			if (is.ie) {MarcaVar("#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFCC0F", "#FFFFFF", "#FFFFFF", "#FFFFFF");}			
		break;
		case "5" :
			form.camp_1.value="##############";
			form.camp_2.value="##############";
			form.camp_3.value="##############";
			form.camp_4.value="##############";
			form.camp_5.value="##############";
			form.camp_6.value="##############";
			if (isNaN(form.camp_7.value)) form.camp_7.value="";
			form.camp_1.disabled=true;
			form.camp_2.disabled=true;
			form.camp_3.disabled=true;
			form.camp_4.disabled=true;
			form.camp_5.disabled=true;
			form.camp_6.disabled=true;
			form.camp_7.disabled=false;
			form.f1.src="imagens/dinam_circ14.gif";
			form.f2.src="imagens/dinam_circ15.gif";
			form.f3.src="imagens/dinam_circ16.gif";
			if (is.ie) {MarcaVar("#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFCC0F", "#FFFFFF");}		
		break;
		case "6" :
			form.camp_1.value="##############";
			form.camp_2.value="##############";
			form.camp_3.value="##############";
			form.camp_4.value="##############";
			form.camp_5.value="##############";
			if (isNaN(form.camp_6.value)) form.camp_6.value="";
			form.camp_7.value="##############";
			form.camp_1.disabled=true;
			form.camp_2.disabled=true;
			form.camp_3.disabled=true;
			form.camp_4.disabled=true;
			form.camp_5.disabled=true;
			form.camp_6.disabled=false;
			form.camp_7.disabled=true;
			form.f1.src="imagens/dinam_circ17.gif";
			form.f2.src="imagens/dinam_circ18.gif";
			form.f3.src="imagens/dinam_circ19.gif";
			if (is.ie) {MarcaVar("#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFFFFF", "#FFCC0F");}		
		break;
	}
	if (is.ie) {MudaBorda(1, 0, 0);}
	if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
	form.elements[15].checked=true;
	form.elements[16].checked=false;
	form.elements[17].checked=false;
	form.resultado.value=""
	formnr = 1;
}
//Fim de Define Campos


//Muda Formulas
var formnr = 1;
function mudaFormula(fig) {
	var form = document.form_calc
	switch (tipocalc) {
		case "1" :
			if (fig==1) {
				form.camp_1.value="##############";
				if (isNaN(form.camp_2.value)) form.camp_2.value="";
				if (isNaN(form.camp_3.value)) form.camp_3.value="";
				form.camp_4.value="##############";
				form.camp_5.value="##############";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=false;
				form.camp_3.disabled=false;
				form.camp_4.disabled=true;
				form.camp_5.disabled=true;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;
				if (is.ie) {MudaBorda(1, 0, 0);}
				if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
				document.form_calc.elements[15].checked=true;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=false;				
				formnr = 1;
				document.form_calc.resultado.value="";			
			}
			if (fig==2) {
				form.camp_1.value="##############";
				if (isNaN(form.camp_2.value)) form.camp_2.value="";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				if (isNaN(form.camp_6.value)) form.camp_6.value="";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=false;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=false;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 1, 0);}
				if (is.ie5) {MudaCor("#F5F5F5", "#FFFFFF", "#F5F5F5");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=true;
				document.form_calc.elements[17].checked=false;
				formnr = 2;
				document.form_calc.resultado.value="";
			}
			if (fig==3) {
				form.camp_1.value="##############";
				if (isNaN(form.camp_2.value)) form.camp_2.value="";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				if (isNaN(form.camp_7.value)) form.camp_7.value="";
				form.camp_1.disabled=true;
				form.camp_2.disabled=false;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=false;	
				if (is.ie) {MudaBorda(0, 0, 1);}
				if (is.ie5) {MudaCor("#F5F5F5", "#F5F5F5", "#FFFFFF");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=true;
				formnr = 3;
				document.form_calc.resultado.value="";
			}
		break;		
		case "2" :
			if (fig==1) {
				if (isNaN(form.camp_1.value)) form.camp_1.value="";
				form.camp_2.value="##############";
				if (isNaN(form.camp_3.value)) form.camp_3.value="";
				form.camp_4.value="##############";
				form.camp_5.value="##############";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=false;
				form.camp_2.disabled=true;
				form.camp_3.disabled=false;
				form.camp_4.disabled=true;
				form.camp_5.disabled=true;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(1, 0, 0);}
				if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
				document.form_calc.elements[15].checked=true;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=false;				
				formnr = 1;
				document.form_calc.resultado.value="";			
			}
			if (fig==2) {
				if (isNaN(form.camp_1.value)) form.camp_1.value="";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				if (isNaN(form.camp_6.value)) form.camp_6.value="";
				form.camp_7.value="##############";
				form.camp_1.disabled=false;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=false;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 1, 0);}
				if (is.ie5) {MudaCor("#F5F5F5", "#FFFFFF", "#F5F5F5");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=true;
				document.form_calc.elements[17].checked=false;
				formnr = 2;
				document.form_calc.resultado.value="";
			}
			if (fig==3) {
				if (isNaN(form.camp_1.value)) form.camp_1.value="";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				if (isNaN(form.camp_7.value)) form.camp_7.value="";
				form.camp_1.disabled=false;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=false;	
				if (is.ie) {MudaBorda(0, 0, 1);}
				if (is.ie5) {MudaCor("#F5F5F5", "#F5F5F5", "#FFFFFF");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=true;
				formnr = 3;
				document.form_calc.resultado.value="";
			}
		break;
		case "3" :
			if (fig==1) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				if (isNaN(form.camp_4.value)) form.camp_4.value="";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=false;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(1, 0, 0);}
				if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
				document.form_calc.elements[15].checked=true;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=false;				
				formnr = 1;
				document.form_calc.resultado.value="";			
			}
			if (fig==2) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				if (isNaN(form.camp_6.value)) form.camp_6.value="";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=false;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 1, 0);}
				if (is.ie5) {MudaCor("#F5F5F5", "#FFFFFF", "#F5F5F5");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=true;
				document.form_calc.elements[17].checked=false;
				formnr = 2;
				document.form_calc.resultado.value="";
			}
			if (fig==3) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				if (isNaN(form.camp_7.value)) form.camp_7.value="";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=false;	
				if (is.ie) {MudaBorda(0, 0, 1);}
				if (is.ie5) {MudaCor("#F5F5F5", "#F5F5F5", "#FFFFFF");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=true;
				formnr = 3;
				document.form_calc.resultado.value="";
			}
		break;				
		case "4" :
			if (fig==1) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				if (isNaN(form.camp_6.value)) form.camp_6.value="";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=false;
				form.camp_7.disabled=true;
				if (is.ie) {MudaBorda(1, 0, 0);}
				if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
				document.form_calc.elements[15].checked=true;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=false;				
				formnr = 1;
				document.form_calc.resultado.value="";			
			}
			if (fig==2) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				if (isNaN(form.camp_7.value)) form.camp_7.value="";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=false;	
				if (is.ie) {MudaBorda(0, 1, 0);}
				if (is.ie5) {MudaCor("#F5F5F5", "#FFFFFF", "#F5F5F5");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=true;
				document.form_calc.elements[17].checked=false;
				formnr = 2;
				document.form_calc.resultado.value="";
			}
			if (fig==3) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				if (isNaN(form.camp_3.value)) form.camp_3.value="";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=false;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 0, 1);}
				if (is.ie5) {MudaCor("#F5F5F5", "#F5F5F5", "#FFFFFF");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=true;
				formnr = 3;
				document.form_calc.resultado.value="";
			}
		break;				
		case "5" :
			if (fig==1) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				form.camp_5.value="##############";
				form.camp_6.value="##############";
				if (isNaN(form.camp_7.value)) form.camp_7.value="";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=true;
				form.camp_6.disabled=true;
				form.camp_7.disabled=false;
				if (is.ie) {MudaBorda(1, 0, 0);}
				if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
				document.form_calc.elements[15].checked=true;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=false;				
				formnr = 1;
				document.form_calc.resultado.value="";			
			}
			if (fig==2) {
				if (isNaN(form.camp_1.value)) form.camp_1.value="";
				if (isNaN(form.camp_2.value)) form.camp_2.value="";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=false;
				form.camp_2.disabled=false;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 1, 0);}
				if (is.ie5) {MudaCor("#F5F5F5", "#FFFFFF", "#F5F5F5");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=true;
				document.form_calc.elements[17].checked=false;
				formnr = 2;
				document.form_calc.resultado.value="";
			}
			if (fig==3) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				if (isNaN(form.camp_3.value)) form.camp_3.value="";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=false;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 0, 1);}
				if (is.ie5) {MudaCor("#F5F5F5", "#F5F5F5", "#FFFFFF");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=true;
				formnr = 3;
				document.form_calc.resultado.value="";
			}
		break;		
		case "6" :
			if (fig==1) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				form.camp_5.value="##############";
				if (isNaN(form.camp_6.value)) form.camp_6.value="";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=true;
				form.camp_6.disabled=false;
				form.camp_7.disabled=true;
				if (is.ie) {MudaBorda(1, 0, 0);}
				if (is.ie5) {MudaCor("#FFFFFF", "#F5F5F5", "#F5F5F5");}
				document.form_calc.elements[15].checked=true;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=false;				
				formnr = 1;
				document.form_calc.resultado.value="";			
			}
			if (fig==2) {
				if (isNaN(form.camp_1.value)) form.camp_1.value="";
				if (isNaN(form.camp_2.value)) form.camp_2.value="";
				form.camp_3.value="##############";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=false;
				form.camp_2.disabled=false;
				form.camp_3.disabled=true;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 1, 0);}
				if (is.ie5) {MudaCor("#F5F5F5", "#FFFFFF", "#F5F5F5");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=true;
				document.form_calc.elements[17].checked=false;
				formnr = 2;
				document.form_calc.resultado.value="";
			}
			if (fig==3) {
				form.camp_1.value="##############";
				form.camp_2.value="##############";
				if (isNaN(form.camp_3.value)) form.camp_3.value="";
				form.camp_4.value="##############";
				if (isNaN(form.camp_5.value)) form.camp_5.value="";
				form.camp_6.value="##############";
				form.camp_7.value="##############";
				form.camp_1.disabled=true;
				form.camp_2.disabled=true;
				form.camp_3.disabled=false;
				form.camp_4.disabled=true;
				form.camp_5.disabled=false;
				form.camp_6.disabled=true;
				form.camp_7.disabled=true;	
				if (is.ie) {MudaBorda(0, 0, 1);}
				if (is.ie5) {MudaCor("#F5F5F5", "#F5F5F5", "#FFFFFF");}
				document.form_calc.elements[15].checked=false;
				document.form_calc.elements[16].checked=false;
				document.form_calc.elements[17].checked=true;
				formnr = 3;
				document.form_calc.resultado.value="";
			}
		break;
	}
}
//Fim de Muda Formulas


//Altera Visualização Formulas
function MudaBorda(b1, b2, b3) {
	eval("document.f1.border="+b1);
	eval("document.f2.border="+b2);
	eval("document.f3.border="+b3);
}
//Muda cor Celula Formulas (IE 5)
function MudaCor(cor1, cor2, cor3) {
	eval("document.getElementById('formula1').style.backgroundColor='"+cor1+"'");
	eval("document.getElementById('formula2').style.backgroundColor='"+cor2+"'");
	eval("document.getElementById('formula3').style.backgroundColor='"+cor3+"'");
}
//Fim de Altera Visualização Formulas


//Marca Incógnita
function MarcaVar(cor_1, cor_2, cor_3, cor_4, cor_5, cor_6, cor_7) {
	document.form_calc.camp_1.style.backgroundColor = cor_1;
	document.form_calc.camp_2.style.backgroundColor = cor_2;
	document.form_calc.camp_3.style.backgroundColor = cor_3;
	document.form_calc.camp_4.style.backgroundColor = cor_4;
	document.form_calc.camp_5.style.backgroundColor = cor_5;
	document.form_calc.camp_6.style.backgroundColor = cor_6;
	document.form_calc.camp_7.style.backgroundColor = cor_7;
}
//Fim de Marca Incógnita


//Restaura Valores
function Restaura(form) {
	form.tipocalc.selectedIndex=0;
	document.config.restaurar.click();
	TipoCalc(form);	
}
//Fim de Restaura Valores


//Muda Unidades
function MudaUnid(form, op) {
	if (op==1) {
		form.opunid.value = 1;
		document.form_calc.unid_1.value = "N";
		document.form_calc.unid_2.value = "kg";
		if (is.ns) {document.form_calc.unid_3.value = "m/s^2";}
		else {
			document.form_calc.unid_3.size = "2";
			document.form_calc.unid_3.value = "m/s";
		}
		document.form_calc.unid_4.value = "m/s";
		document.form_calc.unid_5.value = "m";
	}
	else if (op==2) {
		form.opunid.value = 2;
		document.form_calc.unid_1.value = "kgf";
		document.form_calc.unid_2.value = "utm";
		if (is.ns) {document.form_calc.unid_3.value = "m/s^2";}
		else {
			document.form_calc.unid_3.size = "2";
			document.form_calc.unid_3.value = "m/s";
		}
		document.form_calc.unid_4.value = "m/s";
		document.form_calc.unid_5.value = "m";
	}
	else if (op==3) {
		form.opunid.value = 3;
		document.form_calc.unid_1.value = "dina";
		document.form_calc.unid_2.value = "g";
		if (is.ns) {document.form_calc.unid_3.value = "cm/s^2";}
		else {
			document.form_calc.unid_3.size = "2";
			document.form_calc.unid_3.value = "cm/s";
		}
		document.form_calc.unid_4.value = "cm/s";
		document.form_calc.unid_5.value = "cm";
	}
	else if (op==4) {
		form.opunid.value = 4;
		document.form_calc.unid_1.value = "lbf";
		document.form_calc.unid_2.value = "slug";
		if (is.ns) {document.form_calc.unid_3.value = "ft/s^2";}
		else {
			document.form_calc.unid_3.size = "2";
			document.form_calc.unid_3.value = "ft/s";
		}
		document.form_calc.unid_4.value = "ft/s";
		document.form_calc.unid_5.value = "ft";
	}
	document.form_calc.resultado.value=''
}
//Fim Muda Unidades


//Calcular Resultados
var resultmemo="";
var result=""; 
function CalcResult(form){
	var fc = parseFloat(form.camp_1.value);
	var m = parseFloat(form.camp_2.value);
	var ac = parseFloat(form.camp_3.value);
	var vt = parseFloat(form.camp_4.value);
	var r = parseFloat(form.camp_5.value);
	var w = parseFloat(form.camp_6.value);
	var n = parseFloat(form.camp_7.value);
	var opunid = document.config.opunid.value;
	resultmemo="";
	var resultado="";
	var opdec = document.config.opdec.checked;
	var cdec = document.config.dec.value;
	var multdec = Math.pow(10,cdec);
	var unidtxt, unidtxt2;
	var valcalc = 0;

	if (!loaded) {
		switch (tipocalc) {
			case "1" :
				if (opunid=="1") {
					unidtxt = " N";
				}
				else if (opunid=="2") {
					unidtxt = " kgf";
				}
				else if (opunid=="3") {
					unidtxt = " dina";
				}
				else if (opunid=="4") {
					unidtxt = " lbf";
				}				
				unidtxt2 = unidtxt;

				if (formnr==1) {					
					if (!isNaN(m) && !isNaN(ac)) {					
						valcalc = m*ac;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "Fc = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "F<sub>c</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==2) {					
					if (!isNaN(m) && !isNaN(w) && !isNaN(r)) {					
						valcalc = m*w*w*r;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "Fc = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "F<sub>c</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==3) {					
					if (!isNaN(m) && !isNaN(n) && !isNaN(r)) {					
						valcalc = m*(2*Math.PI*n/60)*(2*Math.PI*n/60)*r;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "Fc = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "F<sub>c</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
			break;		
			case "2" :
				if (opunid=="1") {
					unidtxt = " kg";
				}
				else if (opunid=="2") {
					unidtxt = " utm";
				}
				else if (opunid=="3") {
					unidtxt = " g";
				}
				else if (opunid=="4") {
					unidtxt = " slug";
				}				
				unidtxt2 = unidtxt;

				if (formnr==1) {					
					if (!isNaN(fc) && !isNaN(ac)) {					
						valcalc = fc/ac;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						if (valcalc<0) {
							alert("A massa não pode ter valor negativo!\nAnalise melhor os sinais das variáveis e tente novamente.");
							return;
						}						
						
						resultmemo = valcalc;		
						resultado = "m = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "m = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==2) {					
					if (!isNaN(fc) && !isNaN(w) && !isNaN(r)) {					
						valcalc = fc/(w*w*r);
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						if (valcalc<0) {
							alert("A massa não pode ter valor negativo!\nAnalise melhor os sinais das variáveis e tente novamente.");
							return;
						}						
						
						resultmemo = valcalc;		
						resultado = "m = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "m = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==3) {					
					if (!isNaN(fc) && !isNaN(n) && !isNaN(r)) {					
						valcalc = fc/((2*Math.PI*n/60)*(2*Math.PI*n/60)*r);
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						if (valcalc<0) {
							alert("A massa não pode ter valor negativo!\nAnalise melhor os sinais das variáveis e tente novamente.");
							return;
						}						
						
						resultmemo = valcalc;		
						resultado = "m = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "m = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
			break;			
			case "3" :
				if (opunid=="1") {
					unidtxt = " m/s^2";
					unidtxt2 = " m/s<sup>2</sup>"
				}
				else if (opunid=="2") {
					unidtxt = " m/s^2";
					unidtxt2 = " m/s<sup>2</sup>"
				}
				else if (opunid=="3") {
					unidtxt = " cm/s^2";
					unidtxt2 = " cm/s<sup>2</sup>"
				}
				else if (opunid=="4") {
					unidtxt = " ft/s^2";
					unidtxt2 = " ft/s<sup>2</sup>"
				}
				
				if (formnr==1) {					
					if (!isNaN(vt) && !isNaN(r)) {					
						valcalc = vt*vt/r;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "ac = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "a<sub>c</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==2) {					
					if (!isNaN(w) && !isNaN(r)) {					
						valcalc = w*w*r;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "ac = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "a<sub>c</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==3) {					
					if (!isNaN(n) && !isNaN(r)) {					
						valcalc = (2*Math.PI*n/60)*(2*Math.PI*n/60)*r
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "ac = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "a<sub>c</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
			break;
			case "4" :
				if (opunid=="1") {
					unidtxt = " m/s";
				}
				else if (opunid=="2") {
					unidtxt = " m/s";
				}
				else if (opunid=="3") {
					unidtxt = " cm/s";
				}
				else if (opunid=="4") {
					unidtxt = " ft/s";
				}				
				unidtxt2 = unidtxt;

				if (formnr==1) {					
					if (!isNaN(w) && !isNaN(r)) {					
						valcalc = w*r;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "Vt = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "V<sub>t</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==2) {					
					if (!isNaN(n) && !isNaN(r)) {					
						valcalc = 2*Math.PI*n*r/60;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "Vt = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "V<sub>t</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==3) {					
					if (!isNaN(ac) && !isNaN(r)) {					
						valcalc = Math.sqrt(ac*r);
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}						
						
						resultmemo = valcalc;		
						resultado = "Vt = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "V<sub>t</sub> = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
			break;
			case "5" :
				unidtxt = " rad/s";
				unidtxt2 = unidtxt;				

				if (formnr==1) {					
					if (!isNaN(n)) {					
						valcalc = 2*Math.PI*n/60;
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}		
						
						resultmemo = valcalc;		
						resultado = "w = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "w = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==2) {					
					if (!isNaN(fc) && !isNaN(m) && !isNaN(r)) {					
						valcalc = Math.sqrt(fc/(m*r));
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						resultmemo = valcalc;		
						resultado = "w = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "w = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==3) {					
					if (!isNaN(ac) && !isNaN(r)) {					
						valcalc = Math.sqrt(ac/r);
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						resultmemo = valcalc;		
						resultado = "w = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "w = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
			break;
			case "6" :
				unidtxt = " rpm";
				unidtxt2 = unidtxt;				

				if (formnr==1) {					
					if (!isNaN(w)) {					
						valcalc = 60*w/(2*Math.PI);
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}		
						
						resultmemo = valcalc;		
						resultado = "n = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "n = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==2) {					
					if (!isNaN(fc) && !isNaN(m) && !isNaN(r)) {					
						valcalc = (60/(2*Math.PI))*Math.sqrt(fc/(m*r));
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						resultmemo = valcalc;		
						resultado = "n = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "n = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
				if (formnr==3) {					
					if (!isNaN(ac) && !isNaN(r)) {					
						valcalc = (60/(2*Math.PI))*Math.sqrt(ac/r);
						if (opdec==true) {		
							valcalc = Math.round(multdec*valcalc)/multdec;
						}
						
						resultmemo = valcalc;		
						resultado = "n = "+valcalc+unidtxt;						
						form.resultado.value = resultado;
						result = "n = "+valcalc+unidtxt2;
					}
					else {alert("Existe(m) campo(s) com valor inválido ou nulo")}
				}
			break;
		}
	}
}
//Fim de Calcular Resultados


//Transfere para Memoria
function Transfere(form) {
	var cpresult=form.resultado.value;
	resultmemo = parseFloat(resultmemo);
	if (!isNaN(resultmemo) && cpresult!="") {
		var memonr = form.memonr.options[form.memonr.selectedIndex].value;
		var operacao = form.operacao.options[form.operacao.selectedIndex].value;
		var descricao = form.tipocalc.options[form.tipocalc.selectedIndex].text;
		var valormemo = eval("parent.frames['frame_menu'].document.memo.memotemp"+memonr+".value");

		valormemo = parseFloat(valormemo);
		if (isNaN(valormemo)) {valormemo=0;}
			
		switch (operacao) {
			case "1" :
eval("parent.frames['frame_menu'].document.memo.memotemp"+memonr+".value = resultmemo");			
eval("parent.frames['frame_menu'].document.memo.memodesc"+memonr+".value = descricao");
if (is.ie4) {parent.frames["frame_menu"].document.images["memoled"].src = "imagens/ledmemo2.gif";}			
			break;
			case "2" :
eval("parent.frames['frame_menu'].document.memo.memotemp"+memonr+".value = valormemo+resultmemo");
eval("parent.frames['frame_menu'].document.memo.memodesc"+memonr+".value = 'Soma'");
if (is.ie4) {parent.frames["frame_menu"].document.images["memoled"].src = "imagens/ledmemo2.gif";}
			break;
			case "3" :
eval("parent.frames['frame_menu'].document.memo.memotemp"+memonr+".value = valormemo-resultmemo");
eval("parent.frames['frame_menu'].document.memo.memodesc"+memonr+".value = 'Subtração'");
if (is.ie4) {parent.frames["frame_menu"].document.images["memoled"].src = "imagens/ledmemo2.gif";}
			break;
			case "4" :
eval("parent.frames['frame_menu'].document.memo.memotemp"+memonr+".value = valormemo*resultmemo");
eval("parent.frames['frame_menu'].document.memo.memodesc"+memonr+".value = 'Multiplicação'");
if (is.ie4) {parent.frames["frame_menu"].document.images["memoled"].src = "imagens/ledmemo2.gif";}
			break;
			case "5" :
eval("parent.frames['frame_menu'].document.memo.memotemp"+memonr+".value = valormemo/resultmemo");
eval("parent.frames['frame_menu'].document.memo.memodesc"+memonr+".value = 'Divisão'");
if (is.ie4) {parent.frames["frame_menu"].document.images["memoled"].src = "imagens/ledmemo2.gif";}
			break;
		}
	}
	else {alert("Não existe resultado a transferir.")}
}
//Fim de Transfere para Memoria


//Impressão dos Resultados
function JanelaImp(form){
	var campresult=form.resultado.value
			
	if (campresult!="") {			
		winimp = window.open("dinam_circ_imp.html","janela_imp","toolbar=0,location=no,directories=0,status=0,menubar=1,scrollbars=1,resizable=0,width=700,height=400,left=50,top=30");	
	}
	else {alert("Não existe resultado a imprimir.")}
}
//Fim de Impressão dos Resultados


//Janela de Conversão de Unidades
function JanConv(){
		winimp = window.open("../conversoes/jan_conversoes.html","janela_Conv","toolbar=0,location=no,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=520,height=440,left=50,top=30");
}
//Fim de Janela de Conversão de Unidades