Détail manquant

Ok bon bah je laisse tomber le SubName :-/
Merci ^^

Ok,

pour "nommer" des listes tu entends utiliser le Subname que tu vois en mode Listes ?
Je ne crois pas que ce soit possible depuis un programme, ou alors c'est nouveau de ce matin !

Note: ClrList efface toutes les listes du fichier en cours, si tu veux effacer une liste précise, par exemple la n°2, écris:

ClrList 2

Pour "laisser le graphique affiché", tu entends le conserver affiché après le Next de cette partie ?

For 1->I To 100 
Graph(X,Y)=(I,List 2[I+1]) 
Next 

Si oui, tu peux faire ceci:

For 1->I To 99
Graph(X,Y)=(I,List 2[I+1]) 
Next 
Graph(X,Y)=(100,List 2[100+1])¤

Note: pour la fin de ton programme, en plus léger:

"Pour autre tirage [5]puis [EXE] sinon autre chiffre"?->T
T=5=>Goto Z

Le => est un If/IfEnd en plus court, version (test logique)=>(commande si vrai)
Donc si tu tapes autre chose que 5, la condition n'est pas vraie, et le programme continue (dans ce cas ci, il s'arrête).

Cdlt,

Voilà l'algo, désolé j'ai pas trouver comment mettre les flèche pour "stocker" donc j'ai mis ça ->
et pour la fonction "afficher" (normalement un petit triangle) j'ai mis ¤

Lbl Z
ClrGraph
RclV-Win 1
ClrList
20->N
0->List 1[1]
5->List 2[1]
15->List 3[1]
0->List 4[1]
For 1->I To 100
RanInt#(1,N)->List 1[I+1]
If List 1[I+1]<=List 2[I]
Then List 2[I]-1->List 2[I+1]
Else List 2[I]+1->List 2 [I+1]
IfEnd
N-List 2[I+1]->List 3[I+1]
If List 2[I+1]=5
Then 1->List 4[I+1]
Else 0->List 4[I-1]
IfEnd
Next
List 1¤
List 2¤
List 3¤
List 4¤
ClrText
"Particules dans l'urne A"
For 1->I To 100
Graph(X,Y)=(I,List 2[I+1])
Next
ClrText
"Caracteristiques de l'urne A"¤
1-VAriable List 2¤
"Si vous voulez refaire un tirage, tapez [5] puis [EXE] sinon remplacer [5] par un autre chiffre"
?->T
If T=5
Then Goto Z
Else "Fini, appuyez sur [EXE]"
IfEnd

poste ton code --'