1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
initialisiere picfile;
zeichne überschrift;
zeichne achsen;
zeichne sinuskurve;
wähle darstellung;
plot (p) .
initialisiere picfile:
PICFILE VAR p :: picture file ("SINUS") .
zeichne überschrift:
PICTURE VAR überschrift :: nilpicture;
move (überschrift, -pi/2.0, 1.0);
draw (überschrift, "sinus (x) [-pi, +pi]", 0.0, 1.0, 0.6);
put picture (p, überschrift) .
zeichne achsen:
PICTURE VAR achsen :: nilpicture;
zeichne x achse;
zeichne y achse;
put picture (p, achsen) .
zeichne x achse:
move (achsen, -pi, 0.0);
draw (achsen, pi, 0.0) .
zeichne y achse:
move (achsen, 0.0, -1.0);
draw (achsen, 0.0, +1.0) .
zeichne sinuskurve:
PICTURE VAR sinus :: nilpicture;
REAL VAR x :: -pi;
move (sinus, x, sin (x));
REP x INCR 0.1;
draw (sinus, x, sin (x))
UNTIL x >= pi PER;
put picture (p, sinus) .
wähle darstellung:
window (p, -pi, pi, -1.0, 1.3);
viewport (p, 0.0, 0.0, 0.0, 0.0) .
|
