grafica con ellisse

descrizione funzione grafica della ellisse
calcolo dei fuochi ed eccentricità
esempio come cerchio
esempio con rettangolo che la comprende
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem ellisse normale
ListBox1.AddItem (" b^2*x^2 + a^2*y^2 = a^2*b^2 ")
ListBox1.AddItem ("x^2/a^2 + y^2/b^2 = 1 ")
ListBox1.AddItem ("fuoco dell'ellisse : c = sqr(a^2-b^2); c= - sqr(a^2-b^2)")
ListBox1.AddItem ("eccentricità : e =c/a ")
ListBox1.AddItem ("x^2/9 +y^2/4 =1 ")
a = 3
b = 2
c1 = Sqr(a ^ 2 - b ^ 2)
c2 = -Sqr(a ^ 2 - b ^ 2)
e = c1 / a
ListBox1.AddItem ("fuochi : " & c1 & " , " & c2)
ListBox1.AddItem ("eecentricità = " & e)
ListBox1.AddItem ("grafico con derive")
Image1.Visible = True
ListBox1.AddItem ("calcolo alcuni valori(simmetria) per ellisse sopra e sotto asse x")
For x = -a To a
y1 = (b / a) * Sqr(a ^ 2 - x ^ 2)
y2 = -(b / a) * Sqr(a ^ 2 - x ^ 2)
ListBox1.AddItem (x & " , " & y1 & " " & y2)
Next x
End Sub

Private Sub CommandButton2_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton3_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
End Sub

Private Sub CommandButton4_Click()
Rem ellisse come cerchio
ListBox1.AddItem (" b^2*x^2 + a^2*y^2 = a^2*b^2 ")
ListBox1.AddItem ("x^2/a^2 + y^2/b^2 = 1 ")
ListBox1.AddItem ("fuoco dell'ellisse : c = sqr(a^2-b^2); c= - sqr(a^2-b^2)")
ListBox1.AddItem ("eccentricità : e =c/a ")
ListBox1.AddItem ("x^2/9 +y^2/9 =1 ")
a = 3
b = 3
c1 = Sqr(a ^ 2 - b ^ 2)
c2 = -Sqr(a ^ 2 - b ^ 2)
e = c1 / a
ListBox1.AddItem ("fuochi : " & c1 & " , " & c2)
ListBox1.AddItem ("eecentricità = " & e)
ListBox1.AddItem ("grafico con derive")
Image2.Visible = True
ListBox1.AddItem ("calcolo alcuni valori(simmetria) per ellisse sopra e sotto asse x")
For x = -a To a
y1 = (b / a) * Sqr(a ^ 2 - x ^ 2)
y2 = -(b / a) * Sqr(a ^ 2 - x ^ 2)
ListBox1.AddItem (x & " , " & y1 & " " & y2)

Next x

End Sub

Private Sub CommandButton5_Click()
Rem ellisse normale e rettangolo che la contiene
ListBox1.AddItem (" b^2*x^2 + a^2*y^2 = a^2*b^2 ")
ListBox1.AddItem ("x^2/a^2 + y^2/b^2 = 1 ")
ListBox1.AddItem ("fuoco dell'ellisse : c = sqr(a^2-b^2); c= - sqr(a^2-b^2)")
ListBox1.AddItem ("eccentricità : e =c/a ")
ListBox1.AddItem ("x^2/9 +y^2/4 =1 ")
a = 3
b = 2
c1 = Sqr(a ^ 2 - b ^ 2)
c2 = -Sqr(a ^ 2 - b ^ 2)
e = c1 / a
ListBox1.AddItem ("fuochi : " & c1 & " , " & c2)
ListBox1.AddItem ("eecentricità = " & e)
ListBox1.AddItem ("grafico con derive")
Image3.Visible = True
ListBox1.AddItem ("ellisse compresa tra le rette parallele agli assi x,y")
ListBox1.AddItem ("x = a , x = -a , y= b , y = -b")
End Sub

vedi xellisse.ppt