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
26 LINE (x, 0)-(x, 200 - yh(x)), 0
\r
27 LINE (x, 200 - yh(x))-(x, 200), 15
\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
43 IF INKEY$ <> "" THEN SYSTEM
\r