HP Prime for All

English  Русский 
Chaos graphics-app screenshot}}
Name Chaos
Description Plots a chaos plot.
Author Unknown

Source code (download):

Source code formatted by website engine

EXPORT chaos() BEGIN RECT; M := 3.001; REPEAT A := 0.05; REPEAT X := A; FOR I FROM 1 TO 600 DO X := M*X * (1-X); END; IF M < 3.544 THEN Z := 30000; ELSE Z := 1000; END; PIXON_P((M-3) * 320, X*240, Z); A := A+0.004; UNTIL A > 1; M := M+0.003; UNTIL M > 4; FREEZE; WAIT(10); END;

Comments

© 2017 Oleksandr Sidko — mail to site author