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