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
