Alors en gros :
propa:=proc(N,v,x0,y0)
local i,j,li,lo,S:
li:=NULL: <-créer la séquence li qui est vide
for j from 2 to N do
lo[j]:=NULL; <- Ca rend vide de jième élement de la liste lo (je sais pas pourquoi c´est là... Elle a meme pas été défini avant)
for i from j by -1 to 1 do <- boucle à l´envers de j à 1 (j,j-n,...,2,1)
S[j][i]:=plottools[circle]([x0+v*t(i),y0],r(i,t(j)
)); <-S est une liste de liste( toujours pas défini avant !! ??), chaque sous liste contient des cercles, la première un, la seconde deux, etc.. (Car double boucle)
lo[j]:=lo[j],S[j][i]: <-Ajoute l´élément j,i de S à lo (qui est finalement un séquence et pas une liste...)
od:
li:=li,plots[display](lo[j]): <- en gros en enfourne tous ces cercle dans li
od:
end:
Bon ce truc est imonde, mal foutu et au final ne sert à rien...