I – Circonferenze – 2
Lemniscata Inviluppo di circonferenze con centro sull’iperbole e passanti per il centro dell’iperbole Prima stesura…
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 |
DIM =800 DIM2=DIM/2 RAGGIO1 =DIM/8 RAGGIO12=RAGGIO1*RAGGIO1 QUANTI=50 DELTA =2*RAGGIO1/QUANTI GraphicsWindow.Width =DIM GraphicsWindow.Height=DIM GraphicsWindow.Title="Inviluppo di circonferenze" x=RAGGIO1 y=0 '------------------------------------------------------------------------------------------ VERTICI IPERBOLE GraphicsWindow.BrushColor="#660000FF" GraphicsWindow.FillEllipse(DIM2+x-5,DIM2-5, 10,10) GraphicsWindow.FillEllipse(DIM2-x-5,DIM2-5, 10,10) '------------------------------------------------------------------------------------------ Prime 2 circonferenze raggio2 =RAGGIO1 diametro2=2*raggio2 GraphicsWindow.PenWidth=1 GraphicsWindow.PenColor="#99000000" GraphicsWindow.DrawEllipse(DIM2+raggio2-raggio2,DIM2-raggio2, diametro2,diametro2) GraphicsWindow.DrawEllipse(DIM2-raggio2-raggio2,DIM2-raggio2, diametro2,diametro2) Program.Delay(50) '------------------------------------------------------------------------------------------ 4*QUANTI punti e circonferenze For i=1 To QUANTI xn=x+DELTA yn=Math.SquareRoot(xn*xn-RAGGIO12) raggio2 =Math.SquareRoot(xn*xn+yn*yn) diametro2=2*raggio2 GraphicsWindow.PenWidth=10 GraphicsWindow.PenColor="#660000FF" GraphicsWindow.DrawLine(DIM2+x,DIM2+y, DIM2+xn,DIM2+yn) GraphicsWindow.DrawLine(DIM2+x,DIM2-y, DIM2+xn,DIM2-yn) GraphicsWindow.DrawLine(DIM2-x,DIM2+y, DIM2-xn,DIM2+yn) GraphicsWindow.DrawLine(DIM2-x,DIM2-y, DIM2-xn,DIM2-yn) GraphicsWindow.PenWidth=1 GraphicsWindow.PenColor="#99000000" GraphicsWindow.DrawEllipse(DIM2+xn-raggio2,DIM2+yn-raggio2, diametro2,diametro2) GraphicsWindow.DrawEllipse(DIM2+xn-raggio2,DIM2-yn-raggio2, diametro2,diametro2) GraphicsWindow.DrawEllipse(DIM2-xn-raggio2,DIM2+yn-raggio2, diametro2,diametro2) GraphicsWindow.DrawEllipse(DIM2-xn-raggio2,DIM2-yn-raggio2, diametro2,diametro2) x=xn y=yn Program.Delay(50) EndFor |
Strofoide Inviluppo di circonferenze con centro sulla parabola e… Leggi tutto »I – Circonferenze – 2