HP Prime для всех

English  Русский 
Chaos graphics-app screenshot}}
Название Chaos
Описание Рисует хаотичных график
Автор Unknown

Исходный код (скачать):

Исходный код отформатирован программными средствами сайта

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;

Комментарии