2 ' made by Svjatoslav Agejenko
\r
4 ' H-Page: svjatoslav.eu
\r
5 ' E-Mail: svjatoslav@svjatoslav.eu
\r
9 DIM SHARED yh(1 TO 300)
\r
10 DIM SHARED yhs(1 TO 300)
\r
24 ' LINE (x, 0)-(x, 200 - yh(x)), 0
\r
25 ' LINE (x, 200 - yh(x))-(x, 200), 15
\r
26 PSET (x, 200 - yh(x)), 31
\r
31 hk = (yh(x - 1) + yh(x + 1) + yh(x + 2) + yh(x - 2)) / 4
\r
32 yhs(x) = yhs(x) + (hk - yh(x)) / 5
\r
33 yhs(x) = yhs(x) / 1.01
\r
37 yh(x) = yh(x) + yhs(x)
\r
38 ' yh(x - 1) = yh(x - 1) + yhs(x) / 2
\r
39 ' yh(x + 1) = yh(x + 1) + yhs(x) / 2
\r
44 ' yh(x) = (yh(x) * 100 + yh(x + 1) + yh(x - 1)) / 102
\r
47 IF RND * 100 < 2 THEN
\r
50 FOR x = 0 TO 3.14 STEP 3.14 / s
\r
51 yh(p) = yh(p) + SIN(x) * s * 3
\r
56 IF INKEY$ <> "" THEN SYSTEM
\r