Cambia la regola per il salto: si va a due terzi della distanza tra i due punti
|
1 2 |
xx=(xx+2*x[rand])/3 yy=(yy+2*y[rand])/3 |
Aggiungendo un 5° punto al centro si ottiene il frattale di Vicsek!
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
DIM =800 spazio=50 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Frattale di Vicsek" x[1]=spazio y[1]=spazio x[2]=DIM-spazio y[2]=spazio x[3]=spazio y[3]=DIM-spazio x[4]=DIM-spazio y[4]=DIM-spazio x[5]=DIM/2 y[5]=DIM/2 GraphicsWindow.BrushColor="#99FFFF00" For i=1 To 5 GraphicsWindow.FillEllipse(x[i]-10,y[i]-10,20,20) EndFor xx=x[1] yy=y[1] While "true" rand=Math.GetRandomNumber(5) xx=(xx+2*x[rand])/3 yy=(yy+2*y[rand])/3 GraphicsWindow.SetPixel(xx, yy, "#000000") EndWhile |
Tappeto di Sierpinski: con 8 punti disposti sui lati di un quadrato
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
DIM =800 spazio=50 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Tappeto di Sierpinski" x[1]=spazio y[1]=spazio x[2]=DIM/2 y[2]=spazio x[3]=DIM-spazio y[3]=spazio x[4]=spazio y[4]=DIM/2 x[5]=DIM-spazio y[5]=DIM/2 x[6]=spazio y[6]=DIM-spazio x[7]=DIM/2 y[7]=DIM-spazio x[8]=DIM-spazio y[8]=DIM-spazio GraphicsWindow.BrushColor="#99FFFF00" For i=1 To 8 GraphicsWindow.FillEllipse(x[i]-10,y[i]-10,20,20) EndFor xx=x[1] yy=y[1] While "true" rand=Math.GetRandomNumber(8) xx=(xx+2*x[rand])/3 yy=(yy+2*y[rand])/3 GraphicsWindow.SetPixel(xx, yy, "#000000") EndWhile |
Prova a sperimentare, per esempio escludendo uno dei punti
Disponi i punti in circolo: 4 punti
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
DIM =800 spazio=50 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Tappeto rotondo: 4 punti" x[0]=DIM/2 y[0]=spazio x[1]=DIM-spazio y[1]=DIM/2 x[2]=DIM/2 y[2]=DIM-spazio x[3]=spazio y[3]=DIM/2 GraphicsWindow.BrushColor="#99FFFF00" For i=0 To 3 GraphicsWindow.FillEllipse(x[i]-10,y[i]-10,20,20) EndFor indice=0 xx=x[indice] yy=y[indice] While "true" rand=Math.GetRandomNumber(4)-1 indice=indice+rand If(indice > 3) Then indice=indice-4 EndIf xx=(xx+2*x[indice])/3 yy=(yy+2*y[indice])/3 GraphicsWindow.SetPixel(xx, yy, "#000000") EndWhile |
4 punti + il punto centrale
5 punti
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
DIM =800 spazio=50 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Tappeto rotondo: 5 punti" DIM2=DIM/2 RAGGIO=(DIM-spazio)/2 angolo=90 deltaAngolo=360/5 For indice=0 To 4 alfa=Math.GetRadians(angolo) x[indice]=DIM2+RAGGIO*Math.Cos(alfa) y[indice]=DIM2-RAGGIO*Math.Sin(alfa) angolo=angolo+deltaAngolo EndFor GraphicsWindow.BrushColor="#99FFFF00" For i=0 To 4 GraphicsWindow.FillEllipse(x[i]-10,y[i]-10,20,20) EndFor indice=0 xx=x[indice] yy=y[indice] While "true" rand=Math.GetRandomNumber(5)-1 indice=indice+rand If(indice > 4) Then indice=indice-5 EndIf xx=(xx+2*x[indice])/3 yy=(yy+2*y[indice])/3 GraphicsWindow.SetPixel(xx, yy, "#000000") EndWhile |
5 punti + il punto centrale
6 punti
6+1
