Inhaltsverzeichnis
Werbung
RAD
131 R B 64 R B PDIM
0 100 XRNG 0 100 YRNG
1 11 FOR j
ERASE
(50., 50.) '5*(j-1)'
0 '2*π'
NUM ARC
PICT RCL
NEXT
11 ANIMATE
»
Speichern Sie dieses Programm in der Variablen PANIM (Plot ANIMation).
Um das Programm auszuführen, drücken Sie (falls erforderlich) J und
@PANIM. Der Taschenrechner braucht über eine Minute, um die Grafiken zu
erzeugen und die Animation zu starten. Deshalb sollten Sie sich ein wenig
gedulden. Auf dem Display erscheint das Symbol einer Sanduhr für eine
scheinbar lange Zeit. Danach erscheint eine Animation, die an Wellen
erinnert,
die
sich
beim
Wasseroberfläche bilden. Drücken Sie $, um die Animation zu beenden.
Die 11 Grafiken, die vom Programm erzeugt wurden, stehen im Stack
weiterhin zur Verfügung. Wenn Sie die Animation erneut ausführen möchten,
verwenden Sie einfach: 11 ANIMATE. (Die Funktion ANIMATE können Sie mit
„°L@) G ROB L @ANIMA aufrufen). Die Animation wird erneut ausgeführt.
Drücken Sie $, um die Animation wieder zu beenden. Beachten Sie, dass
die Zahl 11 weiterhin auf Ebene 1 des Stacks bleibt. Drücken Sie ƒ, um
diese aus dem Stack zu entfernen.
Setzen der Winkeleinheit
auf Radianten
PICT auf 131x64 Pixel setzen
x-
und
setzen
Schleife bei j = 1 ..11 starten
Aktuelles PICT löschen
NUM
Die Mittelpunkte der Kreise (50,50)
Kreis mit einem Radius von r
= 5(j-1) zeichnen
Aktuelles PICT in den Stack
ablegen
Ende der FOR-NEXT-Schleife
Animieren
Programm beenden
Eintauchen
eines
y-Bereiche
auf
0-100
kleinen
Steines
auf
Seite 22-32
der
Quicklinks ausblenden:
Werbung
Inhaltsverzeichnis
