Fonction de détection de saturation
Bonsoir à tous,
je dois rendre un devoir (je vous mets l'énoncé ci-dessous) mais je ne sais pas comment effectuer ce qui est demandé.
Voici l'énoncé
Citation:
Fonction delete_saturated
La matrice M1 (voir séance 2) contient un pixel très lumineux, alors qu'il est localisé hors
du soma. Cela peut arriver lorsqu'un des pixels de la caméra utilisée lors de l'expérience est
défectueux. Le pixel apparaît alors saturé. Pour s'aranchir du ou des pixels défectueux,
il faut créer une fonction delete_saturated qui renvoie une copie d'une image Mat dans
laquelle la valeur de chaque pixel saturé 4 est remplacée par la moyenne des valeurs des
pixels voisins sur la même ligne de la matrice (voisin de gauche et voisin de droite) 5. Si Mat
n'est pas une matrice, la fonction doit a cher un message d'erreur pertinent et renvoyer
l'argument Mat inchangé.
Il faudra gérer les situations où le pixel n'a pas de voisin de gauche et les situations où le pixel n'a pas de
voisin de droite, c'est-à-dire quand il se trouve sur la première colonne ou sur la dernière colonne de la matrice.
On n'utilisera alors qu'un seul voisin. Attention : lignes et colonnes sont échangées entre la matrice et son image.
j'ai effectué les commandes suivantes:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| delete_saturated <- function( Mat ){
if( is.matrix(Mat) ){ satured <- matrix ( NA, nrow=nrow(Mat), ncol=ncol(Mat) )
for( i in 1: nrow(Mat) ){
for( j in 1: ncol(Mat) ){
if( Mat[i, j] > 1500 ){
Mat[i, j] <- Mat[i-1,]
}#finIf2
}#finFor2
}#FinFor1
return(satured)
}#finIf1
else { "Ce n'est pas une matrice"}
}#fin |
Cependant je n'arrive pas à l'effet escompté. Pouvez-vous m'aider s'il vous plaît ?
