Modifica il codice del cerchio in coordinate polari utilizzando la funzione coseno.
Equazione generale: 
a = b
Con a=1, b=1, n = 4, 3, 2, 1, 1/2, 1/3, 1/4, 1/5
a < b
Con a=1/2, b=1, n = 4, 3, 2, 1, 1/2, 1/3, 1/4, 1/5
a > b
Con a=1, b=1/2, n = 4, 3, 2, 1, 1/2, 1/3, 1/4, 1/5
|
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 |
'------------------------------------------------------ Scelte grafiche DIM=600 ' Finestra COLORE1="#30000090" ' Raggio SPESSORE=1 ' COLORE2="#60000000" ' Punto nero r=2 ' --- Raggio '------------------------------------------------------ Scelte specifiche '--------------------------------------------------------------------------------- a=1 b=1/2 n=1/4 RAGGIO=0.3*DIM ' Fattore di scala GIRI =4 ' Numero di giri '-------------------------------------------------------------------------------- RITARDO=10 ' Per rallentare l'animazione '------------------------------------------------------ FINESTRA GRAFICA GraphicsWindow.Title ="a=" + a + ", b=1/2, n=1/4, GIRI=" + GIRI GraphicsWindow.Width =DIM GraphicsWindow.Height =DIM GraphicsWindow.PenWidth =SPESSORE GraphicsWindow.PenColor =COLORE1 GraphicsWindow.BrushColor=COLORE2 '------------------------------------------------------ COSTANTI DI SERVIZIO W2=DIM/2 ' Origine H2=DIM/2 pi2=2*Math.Pi ' 2 pi greco d=2*r ' diametro del punto nero angolo=0 ' valore iniziale deltaAngolo=1 ' incremento di 1° NUMERO=360*GIRI ' numero totale di punti neri '------------------------------------------------------ For i=1 to NUMERO phi=Math.GetRadians(angolo)+pi2*Math.Floor(angolo/360) '---------------------------------------- FUNZIONE! ro=a+b*Math.Cos(n*phi) '---------------------------------------- x=W2+ro*RAGGIO*Math.Cos(phi) ' Coordinate y=H2-ro*RAGGIO*Math.sin(phi) GraphicsWindow.DrawLine(W2,H2, x,y) ' Raggio grigio GraphicsWindow.FillEllipse(x-r,y-r,d,d) ' Punto nero '---------------------------------------- angolo=angolo+deltaAngolo Program.Delay(RITARDO) EndFor |
Continua a cambiare il valore dei parametri a, b, n.
In alcuni casi dovrai cambiare il valore di RAGGIO e/o GIRI.