Sperimenta con
- il numero di punte della stella (nVERTICI)
- il numero di chiodini (nCHIODI) per ogni striscia
- il salto tra un vertice e l’altro (SALTO)
|
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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 |
'------------------------------------------------------------------- Finestra DIM =800 DIM2=DIM/2 GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title ="Unisci i punti" '------------------------------------------------------------------- COSTANTI nVERTICI=60 ' Numero vertici nCHIODI =25 ' Numero chiodini SALTO =20 ' Salto tra le strisce RITARDO1=5 ' Ritardo tra una coppia e l'altra RITARDO2=1 ' Ritardo per ogni filo spazio=25 RAGGIO=dim2-SPAZIO '------------------------------------------------------------------- VERTICI delta=2*Math.Pi/nVERTICI angolo=Math.Pi/2 For i=1 TO nVERTICI verticiX[i]=DIM2+RAGGIO*Math.Cos(angolo) verticiY[i]=DIM2-RAGGIO*Math.Sin(angolo) angolo=angolo+delta ENDFOR '------------------------------------------------------------------- COSTRUZIONE For i=1 to nVERTICI i1=i+SALTO If(i1 > nVERTICI)then i1=i1-nVERTICI endif barra1Ax=verticiX[i] barra1Ay=verticiY[i] barra1Bx=DIM2 barra1By=DIM2 barra2Ax=DIM2 barra2Ay=DIM2 barra2Bx=verticiX[i1] barra2By=verticiY[i1] STRISCE() CHIODI() FILI() EndFor '--------------------------------------------------------------------- FUNZIONI Sub STRISCE GraphicsWindow.PenWidth=3 GraphicsWindow.PenColor=GraphicsWindow.GetRandomColor() GraphicsWindow.PenColor="#330000FF" GraphicsWindow.DrawLine(barra1Ax,barra1Ay, barra1Bx,barra1By) GraphicsWindow.DrawLine(barra2Ax,barra2Ay, barra2Bx,barra2By) Program.Delay(RITARDO1) EndSub '------------------------------------------------------------------- Sub CHIODI delta1=1/nCHIODI delta2=delta1/2 deltaA=1-delta2 deltaB=delta2 For j=1 To nCHIODI Chiodi1X[j]=deltaA*barra1Ax+deltaB*barra1Bx Chiodi1Y[j]=deltaA*barra1Ay+deltaB*barra1By Chiodi2X[j]=deltaA*barra2Ax+deltaB*barra2Bx Chiodi2Y[j]=deltaA*barra2Ay+deltaB*barra2By deltaA=deltaA-delta1 deltaB=deltaB+delta1 EndFor raggio=2 diametro=2*raggio GraphicsWindow.BrushColor="#66000000" For j=1 To nCHIODI GraphicsWindow.FillEllipse(Chiodi1X[j]-raggio, Chiodi1Y[j]-raggio, diametro, diametro) GraphicsWindow.FillEllipse(Chiodi2X[j]-raggio, Chiodi2Y[j]-raggio, diametro, diametro) EndFor Program.Delay(RITARDO1) EndSub '------------------------------------------------------------------- Sub FILI GraphicsWindow.PenWidth=1 c=GraphicsWindow.GetRandomColor() GraphicsWindow.PenColor="#66000033" For j=1 To nCHIODI GraphicsWindow.DrawLine(Chiodi1X[j], Chiodi1Y[j], Chiodi2X[j], Chiodi2Y[j]) Program.Delay(RITARDO2) EndFor EndSub |
Esperimento 1
|
1 2 3 |
nVERTICI=25 nCHIODI =25 SALTO =4 |
Esperimento 2
|
1 2 3 |
nVERTICI=60 nCHIODI =12 SALTO =12 |
