**TI92P*calculusRsierpd¥Z () Prgm FnOff:ClrDraw PlotsOff axesoff 0xmin:1xmax 0ymin:1ymax rand()x:rand()y For k,1,3000 rand()n If nœ1/3 Then .5*xx .5*yy EndIf If n>1/3 and nœ2/3 Then .5*(.5+x)x .5*(1+y)y EndIf If n>2/3 Then .5*(1+x)x .5*yy EndIf PtOn x,y EndFor EndPrgmäåÜuK