Discussion :

[Vince19921]

Bonjour,

je dois coder un programme en ocaml dans le cadre d'un projet scolaire, celui-ci doit appliquer cette méthode https://fr.wikipedia.org/wiki/M%C3%A...de_Nelder-Mead sur une certain fonction donnée (dans mon exemple j'ai pris le même que sur wiki : https://fr.wikipedia.org/wiki/Fonction_de_Rosenbrock ).

Comme ce langage de programmation ne m'es pas familier du tout, j'ai fais une première version en java qui fonctionne correctement et j'ai tenté de la transcrire malgré mes connaissances limitées en ocaml.

Toutes les fonctions compiles sauf la toute dernière où il m'affiche :

Characters 380-382:
;;
^^
||
Error : syntax error

Ce message ne m'avance pas plus que ça quand à l'erreur que j'aurais pu faire. C'est pourquoi j'aurais besoin de vos aide si vous en avez le temps bien sur.
Le code .ml est dans le zip ci-dessous.

Merci d'avance

[SpiceGuid]

Code :

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

1
2
3
4
5
6
7
8
 
(* Creation d'un tableau 2D *)	
let matrix (n) (m) init =
  let result = Array.make n (Array.make m init) in
    for i = 1 to n - 1 do
      result.(i) <- Array.make m init
    done;
    result;;

Ce n'est pas du tout ce que tu veux, pour créer une matrice il faut utiliser Array.make_matrix.

Error : syntax error

Avec son analyseur ascendant, OCaml n'est pas très bon (on pourrait même dire qu'il est très mauvais) pour localiser et documenter les erreurs de syntaxe. Une bonne façon de l'embrouiller c'est de déclarer avec let sans jamais spécifier de portée avec in.
Et c'est exactement l'erreur que tu as faite :

Code :

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

1
2
3
4
5
6
7
	let tabres = etape2_1(); (* où est la portée ? *)
	etape2_2 tabres;
	let sumx = etape3_1(); (* où est la portée ? *)
	let sumy = etape3_2(); (* où est la portée ? *)
	let xr = etape4_1 sumx; (* où est la portée ? *)
	let yr = etape4_2 sumy; (* où est la portée ? *)

[Vince19921]

Bonjour,

Tout d'abord merci pour votre réponse.

Concernant le premier point : j'avais récupéré cette méthode sur je ne sais plus quel site mais les résultats dans la console m'avait l'air comparable à ce que ça me retourne en java.
Du coup en googlant ce que vous me proposez je ne vois pas la différence avec ce que j'ai en exécutant la première méthode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#let mat1= Array.make_matrix 3 2 0;;
val mat1 : int array array = [|[|0; 0|]; [|0; 0|]; [|0; 0|]|]
# mat1.(0).(0)<-1;;
- : unit = ()
# let mat2 = matrix 3 2 0;;
val mat2 : int array array = [|[|0; 0|]; [|0; 0|]; [|0; 0|]|]
# mat2.(0).(0)<-1;;
- : unit = ()
# mat1;;
- : int array array = [|[|1; 0|]; [|0; 0|]; [|0; 0|]|]
# mat2;;
- : int array array = [|[|1; 0|]; [|0; 0|]; [|0; 0|]|]
#

Concernant le deuxième point j'ai du m'embrouiller sur la fin pour savoir si je devais mettre un ; ou un in mais visiblement le in l'a décoincé en effet. Du coup j'ai un autre message d'erreur qui m'indique que ma fonction etape2_2 est erronée.

Je vais essayer de remplacer toutes utilisations d'ancienne méthode de création de matrice pour commencer.

[SpiceGuid]

Peut-être enchaineetapes () ?

[Vince19921]

Peut-être enchaineetapes () ?

Oui c'est cette fonction qui doit être erronée puisque c'est elle qui introduit la récursivité. Je vais un peu creuser le truc.

[SpiceGuid]

Tu peux le vérifier en effaçant rec, ça compilerait encore.

En fait ta façon de penser est tellement Java-esque que j'en viens à me demander si un objet ne ferait pas plus vite ton affaire :

Code OCaml :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
object
   method etape1 () = ...
   val tabsimplex = etape1 ()
   method etape2 () = ...
   val tabres = etape2 ()
   method etape2_2 () = ...
   method etape3_1 () = ...
   method etape3_2 () = ...
   method etape4_1 x = ...
   method etape4_2 y = ...
initializer
   ...
end

[Vince19921]

Tu peux le vérifier en effaçant rec, ça compilerait encore.

En fait ta façon de penser est tellement Java-esque que j'en viens à me demander si un objet ne ferait pas plus vite ton affaire :

Code OCaml :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
object
   method etape1 () = ...
   val tabsimplex = etape1 ()
   method etape2 () = ...
   val tabres = etape2 ()
   method etape2_2 () = ...
   method etape3_1 () = ...
   method etape3_2 () = ...
   method etape4_1 x = ...
   method etape4_2 y = ...
initializer
   ...
end

Effectivement en jartant le rec ça compile mais ça ne donne pas le résultat attendu (que des 0 dans le tableau de simplexes au lieu de 1). Oui j'essai de traduire le java qui marche bien en ocaml de manière brute de décoffrage mais ça n'est pas la meilleur solution. Je vais me renseigner sur les objets et tenter le coup! Merci

C'est terminé je joins les fichiers si ça peut aider quelqu'un un jour! Merci à SpiceGuid pour ta patience et pour m'avoir accorder du temps