added IFS ( Iterated Function System ) example from Reiser's book

This commit is contained in:
Norayr Chilingarian 2014-08-28 14:23:36 +04:00
parent 0b2f1902ef
commit 06fa950748
3 changed files with 119 additions and 0 deletions

View file

@ -0,0 +1,11 @@
MODULE IFStest;
IMPORT IFS;
BEGIN
IFS.Init (200, 50, 40, 0.0, 0.85, 0.2, -0.15, 0.0, 0.04, -0.26, 0.28, 0.0, -0.04, 0.23, 0.26, 0.16, 0.85, 0.22, 0.24, 0.0, 0.0, 0.0, 0.0, 0.0, 1.6, 1.6, 0.44, 0.01, 0.85, 0.07, 0.07);
IFS.Draw
END IFStest.