Détail manquant
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
Salut à tous, voilà je suis sur un programme (Casio graph 35+) depuis plusieurs jours et là je l'ai fini, cependant il me manque juste un petit détail : j'ai un nuage de point dans une boucle (de 1 à 100) mais j'aimerai que le graphique reste une fois qu'il est fini. De plus j'aimerai savoir si cela est possible de nommer des lises dans le programme alors qu'au début du programme j'ai insérer la commande "ClrList".
Merci d'avance,
Glacirius.
Merci d'avance,
Glacirius.
4 réponses
bjour
Messages postés
6071
Date d'inscription
Statut
Contributeur
Dernière intervention
4 077
je plussoie, sinon on va parler dans le vide.
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
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
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:
Pour "laisser le graphique affiché", tu entends le conserver affiché après le Next de cette partie ?
Si oui, tu peux faire ceci:
Note: pour la fin de ton programme, en plus léger:
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,
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,
