Programmation graphique (OcamL)

Invité · 29/05/2008, 18h23

Bonjour,

il s'agit encore une fois d'un programme que je souhaiterais faire tourner pour mon TIPE.

Celui-ci consiste à programmer un flux de voitures sur une route droite, sans entrée ni sortie.
Je représente ainsi la route par une matrice.

J'ai déjà commencé, et bien avancé la 1ère partie du travail, c'est-à-dire le programme qui à partir d'une certaine matrice, remplie de valeurs (voulant dire "case occupée" ou "case voiture" ou "case camion", ce genre de choses), renvoie une autre matrice, qui correspond à l'avancée de tous les véhicules.

Ce qui me reste à faire, et me bloque, car nous n'avons pas eu de cours là-dessus, est la programmation de la représentation graphique des différentes matrices.
C'est-à-dire représenter la matrice, avec les cases de différentes couleurs, et en appuyant sur une touche, afficher la matrice qui suit.

Je vous remercie d'avance, soit des indications, soit des liens, possible que j'ai pu rater un post qui traitait justement du même sujet, je m'en excuse d'avance

Cordialement,
Nicolas.

**gorgonite** · 29/05/2008, 18h56

Envoyé par mton062

J'ai déjà commencé, et bien avancé la 1ère partie du travail, c'est-à-dire le programme qui à partir d'une certaine matrice, remplie de valeurs (voulant dire "case occupée" ou "case voiture" ou "case camion", ce genre de choses), renvoie une autre matrice, qui correspond à l'avancée de tous les véhicules.

pourquoi ne pas faire le traitement sur la matrice ?
des enregistrements avec des champs mutables te feraient sans doute gagner pas mal de perfs

Envoyé par mton062

Ce qui me reste à faire, et me bloque, car nous n'avons pas eu de cours là-dessus, est la programmation de la représentation graphique des différentes matrices.

normalement, tout prof de prépa essaie de présenter sommairement le module Graphics

Invité · 29/05/2008, 19h01

Ahh, merci pour l'idée des enregistrements !
Il est vrai que nous n'avons pas trop fait de programme à l'aide de ceux-ci, mais je vais me renseigner activement sur la question.

Quant au module Graphics, vu le prof qu'on a eu, ça a été présenté très très sommairement !!
On va dire que je saurais écrire Graphics.cma,

Code :

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

#open Graphics

mais après c'est le grand vide

**gorgonite** · 29/05/2008, 19h15

http://caml.inria.fr/pub/docs/manual.../Graphics.html

quel lycée ?

Invité · 29/05/2008, 19h21

Comme par hasard, les statistiques comparatives aux concours entre Info et SI est assez en faveur de la SI pour notre lycée ^^
Un seul prof d'informatique

M'enfin on peut toujours se débrouiller, avec un peu de temps.

EDIT gorgonite : fallait me répondre par MP... de très loin, certains auraient pu parler de diffamation, ou ton prof aurait pu te chercher des noises

**gorgonite** · 29/05/2008, 19h28

<mode troll>
forcemment avec un lycée pareil... tout dans le nom, rien dans le prof

</mode>

je n'ai jamais connu de MP info venant de ce lycée... c'est peut-être un signe

**InOCamlWeTrust** · 30/05/2008, 00h14

Envoyé par mton062

On va dire que je saurais écrire Graphics.cma,

Code :

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

#open Graphics

mais après c'est le grand vide

Les profs d'info en prépa sont là pour enseigner les

Code :

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

1
2
 
let e = 3 in e + 2

ou encore, plus osé

Code :

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

1
2
 
let rec fact n = if n = 0 then 1 else n * (fact ( n - 1))

ou, soyons fous, des programmes en O(n^(n*exp(n)^(N_IMPORTE_QUOI_A_LA_QUARANTIEME_PUISSANCE)))...

Malheureusement, les quelques vrais profs n'ont pas la liberté d'enseigner ce qui devrait être enseigné : ils ont pour consigne de s'en tenir au programme... et vu le gros crétin au ministère qui fait pression depuis des années et des années, on n'est pas sorti de l'auberge !

De façon plus générale, pour apprendre à programmer, il n'y a qu'une seule façon, et c'est la seule bonne : apprendre tout seul et passer des nuits entières sur des problèmes que l'on trouvera, avec de l'expérience, triviaux. Ni plus ni MOINSSSSE (comme on dit ici à Toulouse).

Invité · 02/06/2008, 14h39

Mais en quoi exactement les enregistrements sont-ils plus simples dans ce programme-là ?
Je vais regarder un peu ce que ça change, mais ne maîtrisant pas tellement les enregistrements... quoiqu'en regardant des cours sur internet, ça ne m'a pas l'air très compliqué d'accès

**InOCamlWeTrust** · 02/06/2008, 19h15

Les enregistrements ("articles" pour les puristes) sont des n-uplets doont les champs sont nommés : pour accéder à un élément, on peut utiliser son nom de champ, tout de même plus pratique que la solution classique où il faut filtrer à la main avant d'espérer récupérer quelque chose.

**gasche** · 02/06/2008, 19h38

Ce dont il parlait dans ton cas précis, c'est pas d'une différence de simplicité mais d'une différence de rapidité : au lieu de recréer tout un tableau plein de nouveaux objets, tu peux essayer de modifier chaque objet pour contenir la nouvelle valeur.

Quand on peut faire ça, c'est en effet plus rapide. Le problème c'est que c'est plus sensible aux bugs, et surtout que dans la plupart des cas tu ne peux pas, parce que tu as besoin de l'état précédent de tous les agents quand tu "mets à jour le système" (et donc si tu commences à en modifier une partie, ceux de la fin n'ont plus accès à l'état précédent, et sont donc modifiés incorrectement).

Bref, c'est une décision à prendre, mais je te conseille plutôt pour ma part de rester à quelque chose de simple et avec le moins de modifications possibles pour l'instant, quitte à changer ensuite si tu constates des problèmes de performances.

Invité · 04/06/2008, 13h49

Et bien merci pour les différentes indications, je vais rester finalement comme j'avais fait au départ, pour éviter de remodifier tous les programmes

Autre question :
J'ai écrit :

Code :

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

let matApres = ref (Matrix.make m+6 n False)

(m et n étant donnés).

Si après, je veux modifier les cases de matApres une à une, qu'est-ce que je dois utiliser ?

Code :

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

 !matApres.[i].[j] := valeur

ou

Code :

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

 matApres.[i].[j] <- valeur

ou tout simplement aucune des 2 ? ^_^

**gorgonite** · 04/06/2008, 14h04

Envoyé par mton062

je vais rester finalement comme j'avais fait au départ, pour éviter de remodifier tous les programmes

cela signifie que n'a pas fait assez modulaire

Envoyé par mton062

Autre question :
J'ai écrit :

Code :

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

let matApres = ref (Matrix.make m+6 n False)

(m et n étant donnés).

Si après, je veux modifier les cases de matApres une à une, qu'est-ce que je dois utiliser ?

Code :

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

 !matApres.[i].[j] := valeur

ou

Code :

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

 matApres.[i].[j] <- valeur

ou tout simplement aucune des 2 ? ^_^

dès le départ tu as faux... inutile de faire une référence matrice

et je crois bien que la syntaxe est plutot celle-ci :

Code :

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

matApres.(i).(j) <- valeur

Invité · 04/06/2008, 14h06

Ah oui, je crée juste ma matrice, et remplace ses cases au fur et à mesure...
Oui c'est vrai ! Merciiii

**gasche** · 04/06/2008, 19h57

dès le départ tu as faux... inutile de faire une référence matrice

Euh, il y a plusieurs manières de faire (par exemple avec un tableau modulaire de taille 2, du genre une référence tour_courant et map.(!tour_courant mod 2).(x).(y), et .((!tour_courant + 1) mod 2) pour l'état précédent), mais l'idée d'une référence sur une matrice ne me paraît pas idiote :

Code :

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

1
2
3
4
5
6
7
let old_map = ref (Array.make_matrix ...)
let cur_map = ref (Array.make_matrix ...)
 
let () = for iteration = ... do
  (* son code avec !cur_map.(x).(y) <- ... *)
  old_map := !cur_map
done

Ça me paraît pas spécialement mauvais comme manière de faire, en tout cas conceptuellement c'est pas une mauvaise idée.

On peut même carrément échanger old_map et cur_map à la fin, pour avoir une matrice (old_map, déjà utilisée mais on regarde pas les valeurs) déjà allouée dans old_map.

Invité · 09/06/2008, 16h09

Bon, moi qui pensait que mon tout premier programme marcherait forcément, je suis bien déçu ^^

Celui-ci a uniquement pour but de compter le nombre d'apparitions d'un certain élément dans un tableau.

Ca donne pour moi :

Code :

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

1
2
3
4
5
6
7
8
let nbre elem tab =
  let nb = ref 0 and i = ref 0 in
    while !i <= Array.length tab do 
      (if tab.[!i] = elem then incr nb;
       incr i)
    done;
  nb
;;

Le problème est apparemment au niveau de tab.[!i] ... soit disant que j'utilise l'expression tab comme un string.

Je pense que le problème est simple à régler, et si ça se trouve, il y a déjà un programme du genre dans le répertoire CamL

**HanLee** · 09/06/2008, 17h02

Salut,

D'une part tes bornes sont mauvaises, tu risques un segfault (tu tentes d'accéder à l'élément après le dernier élément du tableau), et puis c'est pas des crochets qu'il faut mettre, mais des parenthèses pour les tableaux : tab.(i).

Une version plus fonctionnelle et plus simple, moins sujette aux bugs de ta fonction :

Code Caml :

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

1
2
let nbre elem tab = Array.fold_left
    (fun nb x -> if x = elem then nb+1 else nb) 0 tab

Invité · 09/06/2008, 17h21

Merci Hanlee

Pourrais-je juste savoir ce que signifie le Array.fold_left ?

alex_pi · 09/06/2008, 17h30

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
# let count elt tab =
  Array.fold_left (fun count e -> if e = elt then count +1 else count) 0 tab;;
 
val count : 'a -> 'a array -> int = <fun>
 
 
# let a = [|1;2;3;4;5;1;1;2|];;
 
val a : int array = [|1; 2; 3; 4; 5; 1; 1; 2|]
 
 
# count 1 a;;
- : int = 3
# count 3 a;;
- : int = 1

Ah, le fonctionnel !

(EDIT] : grrr, je me suis fait doubler !

**HanLee** · 09/06/2008, 17h38

De manière informelle, à partir d'une graine (ici 0), tu manges les éléments de ton conteneur un par un, pour fabriquer un nouvel élément à chaque fois.

Imagine que tu as un tableau qui contient les valeurs [a;b;c;d;e] de type A, une fonction binaire de B -> A -> B, qu'on notera +, un élément neutre noté nil.

Alors fold_left du tableau avec + et l'élément neutre nil retourne ça :

Code :

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

nil + a + b + c + d + e

par associativité à gauche, c'est à dire plus exactement :

Code :

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

(((((nil + a) + b) + c) + d) + e)

fold_right c'est la même chose, mais avec une associativité à droite.

@alex_pi : et bam!

Invité · 09/06/2008, 17h52

Ca ressemble un peu au principe de la récursivité pour les listes...
Enfin je note ça à mes connaissances, j'espère savoir le réutiliser

Bon imaginons que je veuille créer un programme qui somme tous les éléments d'un tableau, ça donnerait donc :

Code :

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

1
2
3
let sommeTab tab = Array.fold_left (ou right)
   (fun nb x -> ..........................) 0 tab
;;

En fait là je vois pas trop quoi mettre à la place des pointillés.
Je n'ai pas besoin de ce programme, mais au moins pour comprendre l'utilisation de cet arrayfoldleft ^^

Programmation graphique (OcamL)

Caml

Discussions similaires

Partager

Partager