HP Prime for All
English
Русский
| Name | Chaos |
| Description | Plots a chaos plot. |
| Author | Unknown |
Source code formatted by website engine
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;