Citazione:

---

Messaggio inserito da ki4rett4

Ragazzi anche quest' esercizio in R non si trova eppure pensavo di averlo svolto correttamente, non capisco dove sia l' errore!!Spero che qualcuno possa guidarmi i questa difficile ricerca!!Grazie a tutti ancora
L' esercizio è:
Scrivere una funzione, isSimmetrica(m), che restituisce TRUE se la matrice quadrata data in input è una matrice simmetrica, FALSE altrimenti. Una matrice quadrata si dice simmetrica se gli elementi simmetrici rispetto alla diagonale principale sono uguali (cioè se m[i,j]== m[j,i] per ogni i e j).

Io l' ho svolto così:
isSimmetrica<-function(m){
righe<-c(1:nrow(m))
colonne<-c(1:ncol(m))
for(i in righe){
for(j in colonne){
if(m[i,j]==m[j,i]){
condizione<-TRUE
}else{
condizione<-FALSE
}
}
}
return(condizione)
}

Come esempio di matrice quadrata simmetrica ho utilizzato questa, giusto per provare l' esercizio e mi dà TRUE, ma anche utilizzando una matrice non simmetrica mi dà TRUE....quindi non saprei...
x<-c(1,2,3,2,0,5,3,5,6)
m<-matrix(x,3)

[,1] [,2] [,3]
[1,] 1 2 3
[2,] 2 0 5
[3,] 3 5 6

---

else
   {
   condizione<-FALSE
   }

else
   {
   condizione<-FALSE
   break;
   }