Comment montrer des parcelles à l'intérieur d'une boucle dans mathematica

Je me demande si vous avez un bon moyen de montrer les parcelles à l'intérieur d'une boucle dans le mma. Habituellement, la sortie de Plot fonction n'est pas montré, par exemple, dans le code suivant:

For[i = 1, i <= 10, i++, Plot[Sin[i*x], {x, -Pi, Pi}]]

Merci pour votre aide.

Modifier

Dans le cadre de mon question précédentej'ai déjà la boucle For, par exemple, à l'instar de ce For[i = 1, i <= 10, i++, Plot[Sin[i*x], {x, -Pi, Pi}]]. Compte tenu de ce fait, je veux avoir quelque chose comme "appuyez sur une touche pour continuer..." à l'intérieur de la boucle, puis sur actualiser l'intrigue à chaque fois que j'appuie sur une clé aléatoire. Quelqu'un pourrait-il donner un travail complet de code?

source d'informationauteur Qiang Li

wolfram-mathematica

Suffit d'utiliser Print:

For[i = 1, i <= 10, i++, Plot[Sin[i*x], {x, -Pi, Pi}] //Print]

ou Monitor:

Monitor[For[i = 1, i <= 10, i++, p = Plot[Sin[i*x], {x, -Pi, Pi}]; 
  Pause[0.5]], p]

(Pause est utilisé ici pour donner le temps à la vue de l'intrigue, la boucle est assez rapide ici. Supprimer le cas échéant)

MODIFIER

Sur demande, une version qui est contrôlée par souris clique sur le graphique (touches besoin le graphique pour avoir le focus, donc vous devez cliquer de toute façon)

Monitor[For[i = 1, i <= 10, , p = Plot[Sin[i*x], {x, -Pi, Pi}]], 
EventHandler[p, {"MouseDown" :> i++}]]

C'est une question assez stupide pour le faire. La boucle redessine le tracé continu. Donc, un peu (mais toujours aussi moche) version:

s = True;
Monitor[
 For[i = 1, i <= 10, ,
  If[s,
   (* Put main loop body here*) 
   p = Plot[Sin[i*x], {x, -Pi, Pi}] 
   (* end of main body *) ;
   s = False (* prevents continuous re-evaluating main body *)
   ]
  ]
 , EventHandler[p, {"MouseDown" :> (i++; s = True)}]
 ]

12

Il suffit de retourner une liste de parcelles, au lieu d'utiliser un For boucle:
```
Table[Plot[Sin[i*x], {x, -Pi, Pi}], {i, 1, 10}]
```
Si vous les voulez tous concaténée comme une parcelle de terrain, Show[listOfPlots] est une façon de le faire:
```
Show[Table[Plot[Sin[i*x], {x, -Pi, Pi}], {i, 1, 10}]]
```
Mise à JOUR

Voici une façon simple à l'aide de Dynamic et EventHandler:
```
DynamicModule[{i = 1},
 EventHandler[Dynamic[Plot[Sin[i*x], {x, -Pi, Pi}]],
  {"KeyDown" :> i++}
  ]
```
Et voici un peu plus de fantaisie interface faite avec Animate:
```
Animate[Plot[Sin[i*x], {x, -Pi, Pi}], {i, 1, 10, 1}, AnimationRunning -> False]
```

Si vous voulez vraiment avoir l'utilisateur d'appuyer sur une touche entre les Parcelles, de la façon la plus simple pourrait être

For[i = 1, i <= 10, i++, 
    If[!ChoiceDialog[Plot[Sin[i*x], {x, -Pi, Pi}], 
         WindowTitle -> "Plot #" <> ToString[i] 
                                 <> ":  Press OK or Enter to continue"],
    Abort[]]]

Comment montrer des parcelles à l'intérieur d'une boucle dans mathematica

Vous devez vous connecter pour publier un commentaire.