Discussion :

[Marc68]

Bonjour,

Je suis en 1ère année de licence et je n'arrive pas à trouver de solution pour un TP. Le TP concerne le traitement d'une image. Dans un premier temps, il fallait définir une fonction « noir_et_blanc » et l'appliquer à l'image à l'aide d'une fonction « traiter ».

Code OCaml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
#let noir_et_blanc r v b =if(niveau_gris r v b<128) 
then 0 else 255 ;;
 
#traiter noir_et_blanc noir_et_blanc noir_et_blanc;;

Avec cette fonction, le seuil est fixé a 128.

La question suivante demande de mettre le seuil en paramètre.
J'ai donc écrit la fonction :

Code OCaml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
#let noir_et_blanc x r v b =if(niveau_gris r v b<x) 
then 0 else 255 ;;

Cependant, ça ne marche pas avec la fonction « traiter » qui prend en paramètre trois fonctions de type int->int->int->int alors que ma fonction est de type int->int->int->int->int.

Le prof m'a dit d'utiliser une fonction Local mais je ne trouve pas comment faire…
et toutes les autres question me posent le même problème.

Merci d'avance,
Marc.

[Cacophrene]

Bonsoir,

Je précise d'emblée que ce message n'est pas une agression.

Moi c'est la présentation de ton message qui me pose problème. Je suis disposé à t'aider (aider n'est pas résoudre), comme je le fais régulièrement sur ce forum, mais à la condition expresse que tu te donnes la peine d'utiliser les balises de code pour tes extraits OCaml... et que tu soignes un petit peu ton orthographe. Ce n'est pas juste du pinaillage : sans ça, la fonction de recherche du forum sera vite mise en échec.

Cordialement,
Cacophrène

[aubanel]

Bonjour,
il y a plusieurs niveaux de réponse à ta question, et je ne suis pas sûr d'avoir compris toutes tes contraintes.

Essaye de ne pas perdre de vue que caml est un language fonctionel, tu peux donc écrire de nouvelles fonctions du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
let nb_128 r v b = noir_et_blanc 128 r v b 
let nb_200 r v b = noir_et_blanc 200 r v b

et les passer en toutes quiétude à ta fonction traiter, elles prennent bien trois paramètres.
Mainenant imaginons que tu ne veulles pas entrer les fonction en dur, tu peux faire une fonction qui prend en paramètre un seuil et te renvoie une fonction à trois paramètres utilisant ce seuil. Du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
let nb_seuil seuil =  (fun r v b -> noir_et_blanc seuil r v b)

Ouaip, une fonction qui renvoie une fonction. Du coup tu peux tranquillou faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
let _ = traiter (nb_seuil 33) (nb_seuil 127) (nb_seuil 203)

Sinon tu peux utiliser le mécanisme de Curryfication pour éviter la fonction intermédiaire, et simplement écrire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
let _ = traiter (noir_et_blanc 33) (noir_et_blanc 127) (noir_et_blanc 203)