Cita:
#include <iostream>
using namespace std;
int main ()
/*Este programa pide al usuario una matriz de orden n la diagonaliza por el
metodo de Gauss-Jordan sin pivote*/
{
//Genero las variables, la matriz, la pido al usuario y la muestro por pantalla
int n;double long t;int w;
cout<<"Introduzca el orden de la matriz:"<<endl;
cin>>n;int q=n+1;
double A[n][2*n];double B[n][n];
for(int i=1;i<=n;i++){
for(int k=1;k<=n;k++){
cout<<"Introduzca el elemento de la fila "<<i<<" y la columna "<<k<<endl;
cin>>A[i][k];
}
}
cout<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=n;k++){
cout<<A[i][k]<<" ";
if(k==n){cout<<endl;}
}
}
//Genero la matriz identidad
for(int i=1;i<=n;i++){
for(int j=1;j<=n;j++){
if(j==i){B[i][j]=1;}
else{B[i][j]=0;}
}
}
//Acoplo la matriz identidad para trabajar con ella
for(int j=1;j<=n;j++){
int a=1;
for(int i=n+1;i<=2*n;i++){
A[j][i]=B[j][a];
a++;
}
}
//Muestro la matriz con la que voy a trabajar
cout<<endl<<endl<<"La matriz introducida con la identidad acoplada es:"<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=2*n;k++){
cout<<A[i][k]<<" ";
}
cout<<endl;
}
cout<<endl<<endl;
//Triangulo la matriz
for(int i=1;i<=n;i++){
for(int k=i+1;k<=n;k++){
t=A[k][i]/A[i][i];
for(int j=1;j<=2*n;j++){
A[k][j]=A[k][j]-t*A[i][j];
}
}
}
cout<<endl<<endl;
//Muestro la matriz triangulada
cout<<"La matriz triangulada es:"<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=2*n;k++){
cout<<A[i][k]<<" ";
}
cout<<endl;
}
cout<<endl<<endl;
//Aplico Gauss-Jordan
for(int i=1;i<=n;i++){
q--;w=q;
for(int k=i+1;k<=n;k++){
w--;
t=A[w][q]/A[q][q];
for(int j=1;j<=2*n;j++){
A[w][j]=A[w][j]-t*A[q][j];
}
}
}
for(int i=1;i<=n;i++){
for(int j=1;j<=2*n;j++){
A[i][j]=A[i][j]/A[i][i];
}
}
//Muestro la matriz diagonalizada y la inversa:
cout<<"La matriz diagonalizada y la inversa de A es:"<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=2*n;k++){
cout<<A[i][k]<<" ";
}
cout<<endl;
}
system("pause");return 0;
}
using namespace std;
int main ()
/*Este programa pide al usuario una matriz de orden n la diagonaliza por el
metodo de Gauss-Jordan sin pivote*/
{
//Genero las variables, la matriz, la pido al usuario y la muestro por pantalla
int n;double long t;int w;
cout<<"Introduzca el orden de la matriz:"<<endl;
cin>>n;int q=n+1;
double A[n][2*n];double B[n][n];
for(int i=1;i<=n;i++){
for(int k=1;k<=n;k++){
cout<<"Introduzca el elemento de la fila "<<i<<" y la columna "<<k<<endl;
cin>>A[i][k];
}
}
cout<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=n;k++){
cout<<A[i][k]<<" ";
if(k==n){cout<<endl;}
}
}
//Genero la matriz identidad
for(int i=1;i<=n;i++){
for(int j=1;j<=n;j++){
if(j==i){B[i][j]=1;}
else{B[i][j]=0;}
}
}
//Acoplo la matriz identidad para trabajar con ella
for(int j=1;j<=n;j++){
int a=1;
for(int i=n+1;i<=2*n;i++){
A[j][i]=B[j][a];
a++;
}
}
//Muestro la matriz con la que voy a trabajar
cout<<endl<<endl<<"La matriz introducida con la identidad acoplada es:"<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=2*n;k++){
cout<<A[i][k]<<" ";
}
cout<<endl;
}
cout<<endl<<endl;
//Triangulo la matriz
for(int i=1;i<=n;i++){
for(int k=i+1;k<=n;k++){
t=A[k][i]/A[i][i];
for(int j=1;j<=2*n;j++){
A[k][j]=A[k][j]-t*A[i][j];
}
}
}
cout<<endl<<endl;
//Muestro la matriz triangulada
cout<<"La matriz triangulada es:"<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=2*n;k++){
cout<<A[i][k]<<" ";
}
cout<<endl;
}
cout<<endl<<endl;
//Aplico Gauss-Jordan
for(int i=1;i<=n;i++){
q--;w=q;
for(int k=i+1;k<=n;k++){
w--;
t=A[w][q]/A[q][q];
for(int j=1;j<=2*n;j++){
A[w][j]=A[w][j]-t*A[q][j];
}
}
}
for(int i=1;i<=n;i++){
for(int j=1;j<=2*n;j++){
A[i][j]=A[i][j]/A[i][i];
}
}
//Muestro la matriz diagonalizada y la inversa:
cout<<"La matriz diagonalizada y la inversa de A es:"<<endl<<endl;
for(int i=1;i<=n;i++){
for(int k=1;k<=2*n;k++){
cout<<A[i][k]<<" ";
}
cout<<endl;
}
system("pause");return 0;
}