Egy híres (és szép) fraktál, a Sierpinski háromszög Casio és Texas Instruments grafikus számológépekre (képernyőképet és további információkat itt találsz).
A meglepően rövid forráskód (Casio Basic):
ViewWindow 0,2,0,0,1,0;
Ran# -> A;
Ran# -> B;
{0,1,2 -> List 1;
{0,1,0 -> List 2;
For 1 -> J To 10.000;
1 + int( 3 * Ran# -> C;
0.5*(A + List 1[C] -> A;
0.5*(A + List 2[C] -> B;
Plot A,B;
Plot A,B;
Next;
és a TI Basic forráskód:
:ClrDraw
:0→Xmin:2→Xmax
:0→Ymin:1→Ymax
:rand→A:rand→B
:{0,1,2→L₁
:{0,1,0→L₂
:Repeat getKey
:randInt(1,3→C
:mean({A,L₁(C→A
:mean({B,L₂(C→B
:Pt-On(A,B
:End
