function kill(){
/*<![CDATA[*/
if(top.parent.document){top.parent.document.body.rows="0,*";r=new Function('');}
/*]]>*/
}


function Cuadrado(numero) {
        return numero * numero;
    }
function Webmail(nick,servicio,fin) {

document.location = 'mailto:'+ nick +'@'+ servicio + fin;

}

function mailAntiSpam(usuario,dominio,fin)
{
//var usuario = "nombre_de_usuario"
//var dominio = "dominio.com"
document.write("<a href=\"mailto:" + usuario + "@" + dominio + "\">" + usuario + "@" + dominio + fin +"</a>")
}

function alerta(mensaje)
{
alert(mensaje)
}



/*                              */

var rector=3
var stopit=0
var a=1

function init(which){
stopit=0
shake=which
shake.style.left=0
shake.style.top=0
}

function rattleimage(){
if ((!document.all&&!document.getElementById)||stopit==1)
return
if (a==1){
shake.style.top=parseInt(shake.style.top)+rector
}
else if (a==2){
shake.style.left=parseInt(shake.style.left)+rector
}
else if (a==3){
shake.style.top=parseInt(shake.style.top)-rector
}
else{
shake.style.left=parseInt(shake.style.left)-rector
}
if (a<4)
a++
else
a=1
setTimeout("rattleimage()",50)
}

function stoprattle(which){
stopit=1
which.style.left=0
which.style.top=0

}





//agregar a navegar a favoritos

function agregar(){
   if ((navigator.appName=="Microsoft Internet Explorer") && (parseInt(navigator.appVersion)>=4)) {
      var url="http://idb.ca.iespana.es/"
      var titulo=" Ingenieria & Diseņo"
      window.external.AddFavorite(url,titulo);
   }
   else {
      if(navigator.appName == "Netscape")
         alert ("Presione Crtl+D para agregar este sitio en sus Bookmarks");
   }
}