HP Prime for All
English
Русский
HP Apps : Sierpinski
| Name | Sierpinski |
| Description | Sierpinski's triangle generator. |
| Author | Mickaël Nicotera |
Source code (download):
Source code formatted by website engine
EXPORT SIERPINSKI()
BEGIN LOCAL A, B, C, N;
RECT_P();
F1 := −2;
STARTAPP("Function");
0▶Xmin;
1▶Xmax;
0▶Ymin;
1▶Ymax;
STARTVIEW(1, 1);
RANDOM(0, 1)▶A;
RANDOM(0, 1)▶B;
FOR C FROM 1 TO 20000 DO RANDOM(0, 1)▶N;
IF N < 1/3 THEN (A+1) / 2▶A;
B/2▶B;
ELSE
IF N < 2/3 THEN A/2▶A;
B/2▶B;
ELSE
(A+.5) / 2▶A;
(B+1) / 2▶B;
END;
END;
PIXON(A, B, RGB(RANDOM(0, 255), 45, 255));
END;
FREEZE;
END;