![](http://l4c.me/uploads/matrices-1297832884_full550.jpg)
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:](/images/smiles/icon_wink.gif)