Comunidad de diseño web y desarrollo en internet online

matrices con actionscript 2

Citar            
MensajeEscrito el 16 Feb 2011 05:58 am
bueno para este pequeño tutorial es necesario añadir los componentes combox, texinput, button y textarea.



fotograma1:

Código ActionScript :


stop();
lbl1.color=0xFFFFFF;//es para cambiar el color de label
lbl2.color=0xFFFFFF;

var m:Array=new Array(9);//es para crear una matriz de filas
var idn:Array=new Array(9);
var s:Array=new Array(9);
var v1:String="";//es para crear variable de tipo cadena
var v2:String="";
var v3:String="";
var i:Number;//es para crear variable de tipo numerico
var j:Number;
var p:Number;
var cont:Number=0;

idn[0]=new Array(9);
idn[1]=new Array(9);
idn[2]=new Array(9);

m[0]=new Array(9);//es para crear columnas a la matriz de filas creada
m[1]=new Array(9);
m[2]=new Array(9);

s[0]=new Array(9);
s[1]=new Array(9);
s[2]=new Array(9);

var listenerObject:Object = new Object();//es para crear un objeto
listenerObject.click = function(eventObj:Object){//es para asignarle 
//al objeto el click del //button
   
   if(cbo1.selectedItem.label=="1"){
     if(cbo2.selectedItem.label=="1")
     m[0][0]=txtvalor.text;
    if(cbo2.selectedItem.label=="2")
    m[0][1]=txtvalor.text;
    if(cbo2.selectedItem.label=="3")
    m[0][2]=txtvalor.text;
    }
   else if(cbo1.selectedItem.label=="2"){
   if(cbo2.selectedItem.label=="1")
     m[1][0]=txtvalor.text;
    if(cbo2.selectedItem.label=="2")
    m[1][1]=txtvalor.text;
    if(cbo2.selectedItem.label=="3")
    m[1][2]=txtvalor.text; }
    
   else if(cbo1.selectedItem.label=="3"){
   if(cbo2.selectedItem.label=="1")
     m[2][0]=txtvalor.text;
    if(cbo2.selectedItem.label=="2")
    m[2][1]=txtvalor.text;
    if(cbo2.selectedItem.label=="3")
    m[2][2]=txtvalor.text; }
      
  };

btnagregar.addEventListener("click", listenerObject);//btnagregar es 
el nombre del button

function matriz():Void{//es la funcion para resolver
// matricez de dimensines 3x3

//var m:Array=new Array(9);
//var idn:Array=new Array(9);
//var v1:String="";
//var v2:String="";
//var v3:String="";
//var i:Number;
//var j:Number;
//var p:Number;

//Matriz
//m[0]=new Array(9);
//m[1]=new Array(9);
//m[2]=new Array(9);

//m[0][0]=1;
//m[0][1]=5;
//m[0][2]=3;

//m[1][0]=2;
//m[1][1]=7;
//m[1][2]=4;

//m[2][0]=3;
//m[2][1]=8;
//m[2][2]=6;

 s[0][0]=m[0][0];
 s[0][1]=m[0][1];
 s[0][2]=m[0][2];
      
 s[1][0]=m[1][0];
 s[1][1]=m[1][1];
 s[1][2]=m[1][2];
      
 s[2][0]=m[2][0];
 s[2][1]=m[2][1];
 s[2][2]=m[2][2];

idn[0][0]=1;
idn[0][1]=0;
idn[0][2]=0;

idn[1][0]=0;
idn[1][1]=1;
idn[1][2]=0;

idn[2][0]=0;
idn[2][1]=0;
idn[2][2]=1;

for(i=0;i<3;i++){
  for(j=0;j<3;j++){

if(3-i==3){

  v1+=m[i][j]+"  ";
}
else if(3-i==2){
  v2+=m[i][j]+"  ";
}
else if(3-i==1){
  v3+=m[i][j]+"  ";
}

}
}
txt1.text="La matriz es:"+"\n\n"+v1+"\n"+v2+"\n"+v3;
v1="";
v2="";
v3="";

//Matriz identidad



 for(i=0;i<3;i++){
    for(j=0;j<3;j++){

  if(3-i==3){

    v1+=idn[i][j]+"  ";
  }
  else if(3-i==2){
    v2+=idn[i][j]+"  ";
  }
  else if(3-i==1){
    v3+=idn[i][j]+"  ";
}
 }
  }
txt2.text="La matriz identidad es :"+"\n\n"+v1+"\n"+v2+"\n"+v3;
v1="";
v2="";
v3="";

//Matriz inversa


  //ceros
  if (m[0][1]>0){
       p=m[0][1];
       m[0][1]=((m[2][1]/m[2][1])*p)-m[0][1];
       m[0][0]=((m[2][0]/m[2][1])*p)-m[0][0];
       m[0][2]=((m[2][2]/m[2][1])*p)-m[0][2];
       idn[0][1]=((idn[2][1]/m[2][1])*p)-idn[0][1];
       idn[0][0]=((idn[2][0]/m[2][1])*p)-idn[0][0];
       idn[0][2]=((idn[2][2]/m[2][1])*p)-idn[0][2];
  }
  else if (m[0][1]<0){
       p=((m[0][1]*m[0][1])/m[0][1])*-1;
       m[0][1]=((m[2][1]/m[2][1])*p)+m[0][1];
       m[0][0]=((m[2][0]/m[2][1])*p)+m[0][0];
       m[0][2]=((m[2][2]/m[2][1])*p)+m[0][2];
       idn[0][1]=((idn[2][1]/m[2][1])*p)+idn[0][1];
       idn[0][0]=((idn[2][0]/m[2][1])*p)+idn[0][0];
       idn[0][2]=((idn[2][2]/m[2][1])*p)+idn[0][2];
}

     if (m[1][0]>0){
       p=m[1][0];
       m[1][0]=((m[2][0]/m[2][0])*p)-m[1][0];
       m[1][1]=((m[2][1]/m[2][0])*p)-m[1][1];
       m[1][2]=((m[2][2]/m[2][0])*p)-m[1][2];
       idn[1][0]=((idn[2][0]/m[2][0])*p)-idn[1][0];
       idn[1][1]=((idn[2][1]/m[2][0])*p)-idn[1][1];
       idn[1][2]=((idn[2][2]/m[2][0])*p)-idn[1][2];
  }
  else if (m[1][0]<0){
      p=(m[1][0])*-1;
      m[1][0]=((m[2][0]/m[2][0])*p)+m[1][0];
      m[1][1]=((m[2][1]/m[2][0])*p)+m[1][1];
      m[1][2]=((m[2][2]/m[2][0])*p)+m[1][2];
      idn[1][0]=((idn[2][0]/m[2][0])*p)+idn[1][0];
      idn[1][1]=((idn[2][1]/m[2][0])*p)+idn[1][1];
      idn[1][2]=((idn[2][2]/m[2][0])*p)+idn[1][2];
 }


 if (m[2][1]>0){
    p=m[2][1];
    m[2][1]=((m[1][1]/m[1][1])*p)-m[2][1];
    m[2][0]=((m[1][0]/m[1][1])*p)-m[2][0];
    m[2][2]=((m[1][2]/m[1][1])*p)-m[2][2];
    idn[2][1]=((idn[1][1]/m[1][1])*p)-idn[2][1];
    idn[2][0]=((idn[1][0]/m[1][1])*p)-idn[2][0];
    idn[2][2]=((idn[1][2]/m[1][1])*p)-idn[2][2];
}
 else if (m[2][1]<0){
    p=m[2][1]*-1;
    m[2][1]=((m[1][1]/m[1][1])*p)+m[2][1];
    m[2][0]=((m[1][0]/m[1][1])*p)+m[2][0];
    m[2][2]=((m[1][2]/m[1][1])*p)+m[2][2];
    idn[2][1]=((idn[1][1]/m[1][1])*p)+idn[2][1];
    idn[2][0]=((idn[1][0]/m[1][1])*p)+idn[2][0];
    idn[2][2]=((idn[1][2]/m[1][1])*p)+idn[2][2];
}
//unos
  if ((m[0][0]>0) or (m[0][0]<0) ){
      p=m[0][0];
      m[0][0]=(m[0][0]/p);
      m[0][1]=(m[0][1]/p);
      m[0][2]=(m[0][2]/p);
      idn[0][0]=(idn[0][0]/p);
      idn[0][1]=(idn[0][1]/p);
      idn[0][2]=(idn[0][2]/p);
  }
  if ((m[1][1]>0) or (m[1][1]<0) ){
      p=m[1][1];
      m[1][1]=(m[1][1]/p);
      m[1][0]=(m[1][0]/p);
      m[1][2]=(m[1][2]/p);
      idn[1][1]=(idn[1][1]/p);
      idn[1][0]=(idn[1][0]/p);
      idn[1][2]=(idn[1][2]/p);
  }

  if ((m[2][2]>0) or (m[2][2]<0) ){
     p=m[2][2];
     m[2][2]=(m[2][2]/p);
     m[2][1]=(m[2][1]/p);
     m[2][0]=(m[2][0]/p);
     idn[2][2]=(idn[2][2]/p);
     idn[2][1]=(idn[2][1]/p);
     idn[2][0]=(idn[2][0]/p);
 }
//ceros

 if (m[2][0]>0){
    p=m[2][0];
    m[2][0]=((m[0][0]/m[0][0])*p)-m[2][0];
    m[2][1]=((m[0][1]/m[0][0])*p)-m[2][1];
    m[2][2]=((m[0][2]/m[0][0])*p)-m[2][2];
    idn[2][0]=((idn[0][0]/m[0][0])*p)-idn[2][0];
    idn[2][1]=((idn[0][1]/m[0][0])*p)-idn[2][1];
    idn[2][2]=((idn[0][2]/m[0][0])*p)-idn[2][2];
 }
else if (m[2][0]<0){
   p=m[2][0]*-1;
   m[2][0]=((m[0][0]/m[0][0])*p)+m[2][0];
   m[2][1]=((m[0][1]/m[0][0])*p)+m[2][1];
   m[2][2]=((m[0][2]/m[0][0])*p)+m[2][2];
   idn[2][0]=((idn[0][0]/m[0][0])*p)+idn[2][0];
   idn[2][1]=((idn[0][1]/m[0][0])*p)+idn[2][1];
   idn[2][2]=((idn[0][2]/m[0][0])*p)+idn[2][2];
}

 //unos

 if ((m[2][2]>0) or (m[2][2]<0) ){
    p=m[2][2];
    m[2][2]=(m[2][2]/p);
    m[2][1]=(m[2][1]/p);
    m[2][0]=(m[2][0]/p);
    idn[2][2]=(idn[2][2]/p);
    idn[2][1]=(idn[2][1]/p);
    idn[2][0]=(idn[2][0]/p);
}
// ceros

 if (m[0][2]>0){
    p=m[0][2];
    m[0][2]=((m[2][2]/m[2][2])*p)-m[0][2];
    m[0][1]=((m[2][1]/m[2][2])*p)-m[0][1];
    m[0][0]=((m[2][0]/m[2][2])*p)-m[0][0];
    idn[0][2]=((idn[2][2]/m[2][2])*p)-idn[0][2];
    idn[0][1]=((idn[2][1]/m[2][2])*p)-idn[0][1];
    idn[0][0]=((idn[2][0]/m[2][2])*p)-idn[0][0];
}
  else if (m[0][2]<0){
    p=m[0][2]*-1;
    m[0][2]=((m[2][2]/m[2][2])*p)+m[0][2];
    m[0][1]=((m[2][1]/m[2][2])*p)+m[0][1];
    m[0][0]=((m[2][0]/m[2][2])*p)+m[0][0];
    idn[0][2]=((idn[2][2]/m[2][2])*p)+idn[0][2];
    idn[0][1]=((idn[2][1]/m[2][2])*p)+idn[0][1];
    idn[0][0]=((idn[2][0]/m[2][2])*p)+idn[0][0];
}

  if (m[1][2]>0){
   p=m[1][2];
   m[1][2]=((m[2][2]/m[2][2])*p)-m[1][2];
   m[1][1]=((m[2][1]/m[2][2])*p)-m[1][1];
   m[1][0]=((m[2][0]/m[2][2])*p)-m[1][0];
   idn[1][2]=((idn[2][2]/m[2][2])*p)-idn[1][2];
   idn[1][1]=((idn[2][1]/m[2][2])*p)-idn[1][1];
   idn[1][0]=((idn[2][0]/m[2][2])*p)-idn[1][0];
}
 else if (m[1][2]<0){
  p=m[1][2]*-1;
  m[1][2]=((m[2][2]/m[2][2])*p)+m[1][2];
  m[1][1]=((m[2][1]/m[2][2])*p)+m[1][1];
  m[1][0]=((m[2][0]/m[2][2])*p)+m[1][0];
  idn[1][2]=((idn[2][2]/m[2][2])*p)+idn[1][2];
  idn[1][1]=((idn[2][1]/m[2][2])*p)+idn[1][1];
  idn[1][0]=((idn[2][0]/m[2][2])*p)+idn[1][0];
}

//limpiar

if ((m[1][1]>0) or (m[1][1]<0) ){

m[1][1]=m[1][1]*-1;
m[1][0]=m[1][0]*-1;
m[1][2]=m[1][2]*-1;
idn[1][1]=idn[1][1]*-1;
idn[1][0]=idn[1][0]*-1;
idn[1][2]=idn[1][2]*-1;
}

for(i=0;i<3;i++){
 for(j=0;j<3;j++){

 if(m[i][j]<0){
   m[i][0]=m[i][0]*-1;
   m[i][1]=m[i][1]*-1;
   m[i][2]=m[i][2]*-1;
   idn[i][0]=idn[i][0]*-1;
   idn[i][1]=idn[i][1]*-1;
   idn[i][2]=idn[i][2]*-1;
 }
 }
  }

// conversion inversa
 for(i=0;i<3;i++){
 for(j=0;j<3;j++){

 if(3-i==3){

   v1+=m[i][j]+"  ";
 }
 else if(3-i==2){
   v2+=m[i][j]+"  ";
 }
 else if(3-i==1){
   v3+=m[i][j]+"  ";
 }
  }
   }
 //"La conversion identidad es:"+"\n"+v1+"\n"+v2+"\n"+v3);
 v1="";
 v2="";
 v3="";

  //matriz inversa

  for(i=0;i<3;i++){
for(j=0;j<3;j++){

if(3-i==3){

  v1+=idn[i][j]+"  ";
}
else if(3-i==2){
  v2+=idn[i][j]+"  ";
}
else if(3-i==1){
  v3+=idn[i][j]+"  ";
}
 }
  }
txt3.text="La matriz inversa es:"+"\n\n"+v1+"\n"+v2+"\n"+v3;
 v1="";
 v2="";
 v3="";
}

var listenerObject:Object = new Object();//es para crear el objeto
listenerObject.click = function(eventObj:Object){//es para asignarle
// el button al objeto
matriz();//es para llamar al metodo matriz 

       m[0][0]=s[0][0];
       m[0][1]=s[0][1];
       m[0][2]=s[0][2];
      
       m[1][0]=s[1][0];
      m[1][1]=s[1][1];
      m[1][2]=s[1][2];
      
      m[2][0]=s[2][0];
      m[2][1]=s[2][1];
      m[2][2]=s[2][2];

};
btn.addEventListener("click", listenerObject);


espero les sea de utilidad, suerte :wink:

Por guitarleo

Claber

171 de clabLevel

2 tutoriales

Genero:Masculino  

guitarleo

firefox
Citar            
MensajeEscrito el 16 Feb 2011 06:05 am
Un tutorial es explicar, esto es más un ejemplo.

Por Hernán

BOFH

6148 de clabLevel

19 tutoriales
23 articulos

Genero:Masculino   REC Desarrollador de GAIA

Marketing & IT

chrome

 

Cristalab BabyBlue v4 + V4 © 2011 Cristalab
Powered by ClabEngines v4, HTML5, love and ponies.