ALS
Inscrit le: 11 Sep 2006 Messages: 647
|
Posté le: 30 Oct 2003 13:54 Sujet du message: Re: automate cellulaire |
|
|
En effet, c'est possible:
Code: |
>#affichage d'une grille n x n
>
> with(plots):
> grille:= proc(n::posint)
> local i,j,L;
> for i from 0 to n do
> L[i]:=[[i,0],[i,n]]
> end do;
> for j from 0 to n do
> L[n+1+j]:=[[0,j],[n,j]]
> end do;
> [seq(L[i],i=0..2*n+1)],axes=none,color=black
> end proc;
> plot(grille(10));
>#procédure d'affichage d'une cellule de la grille n x n
>#déterminée par ses coordonnées (ligne,colonne)
>#et sa couleur RGB (a,b,c) a,b,c entre 0 et 1
>
> with(plottools):
> dessin:=proc(ligne::posint,colonne::posint,n::posint,a,b,c)
> local x,y;
> x:=colonne-1;y:=n-ligne;
> polygon([[x,y],[colonne,y],[colonne,y+1],[x,y+1]],color=COLOR(RGB,a,b,c));
> end proc;
>#affichage des 100 cellules d'une grille 10 x 10
> display([seq(seq(dessin(i,j,10,i/10,j/10,i*j/100),j=1..10),i=1..10)]);
|
cela donne l'image suivante:

Dernière édition par ALS le 02 Nov 2003 9:33; édité 1 fois |
|