Programmation R + matrice triangulaire sup

[Résolu/Fermé]
Signaler
-
Messages postés
98
Date d'inscription
mardi 28 juillet 2009
Statut
Membre
Dernière intervention
31 janvier 2011
-
Bonjour,

J'aimerais savoir comment vous feriez sous R pour vérifier qu'une matrice est une matrice triangulaire supérieure.
J'avais commencé un petit travail mais je suis vraiment peu certaine de moi :

{A<-matrix(1:4,nrow=2,ncol=2,byrow=TRUE);
x<-c(0,0,0);
y<-c(1,1,1);
for (i in 1:nrow(A))
{for (j in 1:ncol(A))
if ((i==j)&&(A[i,j]!=0))
{x[1]<-1;
}
if ((i>j)&(A[i,]>A[,j])!=0)
{x[2]<-1;
}
if ((i<j)&(A[i,]>A[,j])==0)
{x[3]<-1;
}}
if (x==y)
{print("la matrice est une matrice triangulaire supérieure");
} else
{print("la matrice n'est pas une matrice triangulaire supérieure");
}
}
x

Merci d'avance pour votre réponse !

1 réponse

Messages postés
98
Date d'inscription
mardi 28 juillet 2009
Statut
Membre
Dernière intervention
31 janvier 2011
3
Je suis en train d'apprendre certaines notions pour vous aider.
Merci.

Le programme ci-dessous fonctionne enfin donne la bonne réponse mais x a une valeur différente de 3.
Pouvez-vous m'aider à trouver mon erreur? Merci.

{A <- matrix(c(2,2,2,0,2,2,0,0,2),ncol=3,byrow=TRUE);
x<-0;
y<-3;
for (i in 1:nrow(A))
{for (j in 1:ncol(A))
if ((i==j)&&(A[i,j]!=0))
{x<-1;
}
if ((i>j)&&(A[i,j]!=0))
{x<-1+x;
}
if ((i<j)&&(A[i,j]==0))
{x<-1+x;
}}}
if (x==y)
{print("la matrice est une matrice triangulaire supérieure");
}else
{print("la matrice n'est pas une matrice triangulaire supérieure");
}
x
Bon, je viens de trouver, c'était juste un problème de crochet.
Bonne journée à vous
Messages postés
98
Date d'inscription
mardi 28 juillet 2009
Statut
Membre
Dernière intervention
31 janvier 2011
3
Ok de même:). J'aurais pas été utile ce coup là. Je vais tout de même m'initier à ce langage qui m'a l'air intéressant.
A bientôt.