Détail manquant

Fermé
Utilisateur anonyme - Modifié par Glacirius le 30/12/2012 à 12:36
 Utilisateur anonyme - 3 janv. 2013 à 19:31
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.

4 réponses

poste ton code --'
0
bjour Messages postés 6068 Date d'inscription lundi 11 janvier 2010 Statut Contributeur Dernière intervention 2 mai 2022 4 067
3 janv. 2013 à 18:18
je plussoie, sinon on va parler dans le vide.
0
Utilisateur anonyme
3 janv. 2013 à 18:34
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
0
bjour Messages postés 6068 Date d'inscription lundi 11 janvier 2010 Statut Contributeur Dernière intervention 2 mai 2022 4 067
3 janv. 2013 à 18:57
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,
0
Utilisateur anonyme
3 janv. 2013 à 19:31
Ok bon bah je laisse tomber le SubName :-/
Merci ^^
0