function calc(){
  /*
       funções de calculo de dimensionador de acoplamentos
        algoritimo desenvolvido por Gibran Cavalcante
        gibran.cas@gmail.com / 	gcasweb.orgfree.com
		
    */
  /*colunas do modelo
      0 -> modelo
      1 -> torque
      2 -> cubo normal min
      3 -> cubo normal max
      4 -> cubo integral min
      5 -> cubo integral max
    */
  
  var modelo = new Array(
  ["AA 25", 4.5, 10, 23, 10, 38],
  ["AA 35", 9, 10, 32, 10, 50],
  ["AA 50", 34, 20, 46, 20, 72],
  ["AA 70", 94, 26, 65, 26, 105],
  ["AA 90", 170, 30, 85, 30, 120],
  ["AA 105",250, 40, 100, 40, 145],
  ["AA 140/100", 680, 75, 100, 75, 190],
  ["AA 140/140", 680, 75, 140, 75, 190],
  ["AA 200/90", 2015, 70, 100, 70, 270],
  ["AA 200/140", 2015, 110, 140, 110, 270],
  ["AA 200/200", 2015, 130, 200, 130 ,270],
  ["AA 300/150", 6890, 120, 150, 120, 150],
  ["AA 300/200", 6890, 140, 200, 140, 200],
  ["AA 300/250", 6890, 140, 250, 140, 250],
  ["AA 300/300", 6890, 140, 300, 140, 300],
  ["AA 400/250", 13500, 140, 250, 140, 250],
  ["AA 400/400", 13500, 200, 400, 200, 400]
  );
  /*coletar attrib*/
  var atrib = document.calc;
  ptcn = atrib.pote.value;
  rpm = atrib.rot.value;
  fatser = atrib.fs.value;
  ector = atrib.econdutor.value;
  ezido = atrib.econduzido.value;
  //trq = atrib.tqe.value;
  
  /*calcular torque*/
  var p1 = 716.2;
  t1 = ptcn * fatser/rpm;
  res_torq = p1*t1
  atrib.tqe.value = res_torq.toFixed(2);
  res_torq1 = Math.ceil(res_torq);
  
  var con1 = document.getElementById("teste");
  var con2 = document.getElementById("obs_box");
  /*parte mais foda: varrer o vetor e ver o que dá certo*/
  for (i=0; i<modelo.length; i++){
	torq_prod = modelo[i][1];
	var torq_per = res_torq1 * 70/100;
	var total_per = res_torq1 + torq_per;
	if(total_per >= torq_prod){
	  if(ector >= modelo[i][2] && ezido >= modelo[i][2]){
	    /*aki vejo o tipo de cubo - eixo*/	  
	    /*aki eixo condutor*/
	    if(ector <= modelo[i][3]){
	      /*tipo_p: tipo do cubo - eixo condutor*/
		  tipo_p = "";
	    } else if(ector >= modelo[i][3] || ector <= modelo[i][5]){
	      tipo_p = "CI";
	    }
	    /*aki eh o cubo conduzido*/
	    if(ezido <= modelo[i][3]){
	      /*tipo_s: tipo do cubo - eixo conduzido*/
		  tipo_s = "";
	    }else if(ezido >= modelo[i][3] || ezido <= modelo[i][5]){
	      tipo_s = "CI";
	    } 	  
        /*tratar mensagem obs*/
        if(ector < modelo[i][2] || ezido < modelo[i][2]){
          obs_txt = "medidas de eixos incompativeis, favor contactar o fabricante";
	      tipo_p = "";
	      tipo_s = "";
        }else if(ector > modelo[i][5] || ezido > modelo[i][5]){
	      obs_txt = "medidas de eixos incompativeis, favor contactar o fabricante";
	      tipo_p = "";
	      tipo_s = "";
        }else{
	      obs_txt = "ok";
        }	 
        /*aki printo o resultado*/
        con1.innerHTML = modelo[i][0] + "&nbsp;"+tipo_p+"&nbsp;"+tipo_s;
	  }
	}	  
    con2.innerHTML = obs_txt;	  
  }  
}

function limp(){
  var atrib = document.calc;
  atrib.pote.value=null;
  atrib.rot.value=null;
  atrib.fs.value=null;
  atrib.econdutor.value=null;
  atrib.econduzido.value=null;
  atrib.tqe.value=null;
  var con1 = document.getElementById("teste");
  var con2 = document.getElementById("obs_box");
  con1.innerHTML="";
  con2.innerHTML="";
  
}