grafica funzione circonferenza

descrizione numerica e grafica della funzione circonferenza
data una equazione, determinare il centro, il raggio
mediante ciclo for-next calcolare valori per circonferenza (x,y)
creazione del grafico
confronto tra valoiri calcolati e valori leggibili su grafico
esempi con a,b,c tutti diversi da 0
esempi con varie combinazioni di a,b,c uguali a 0
esercitazione con visual basic su powerpoint (applicata a studio di funzione)
codificazione ridondante per maggiore leggibilità didattica

Private Sub CommandButton1_Click()
Rem grafica cerchio
ListBox1.AddItem ("equazione normale della circonferenza")
ListBox1.AddItem ("x^2 + y^2 + ax + by + c = 0 ")
ListBox1.AddItem ("coordinate del centro : centro(- a/2 , - b/2) ")
ListBox1.AddItem ("raggio del cerchio : raggio =sqr(a^2/4 + b^2/4 -c) ")
ListBox1.AddItem ("--------------------------------------------------------")
ListBox1.AddItem ("cerchio passa per origine:manca termine noto c")
ListBox1.AddItem ("x^2 + y^2 + ax + by = 0 ")
ListBox1.AddItem ("equazione del cerchio di noto centro e raggio ")
ListBox1.AddItem ("(x - x0)^2 + (y + y0)^2 = raggio^2 ")
ListBox1.AddItem ("equazione del cerchio con centro nelle origini ")
ListBox1.AddItem (" x^2 + y^2 = raggio^2 ")
ListBox1.AddItem ("----------------------------------------")
ListBox1.AddItem ("x^2 + y^2 -4x +6y - 3 =0")
a = -4
b = 6
c = -3
x0 = -a / 2
y0 = -b / 2
raggio = Sqr(a ^ 2 / 4 + b ^ 2 / 4 - c)
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image1.Visible = True
ListBox1.AddItem ("calcolo valori per cerchio")
For x = -2 To 4
h = x ^ 2 - 4 * x - 3
y1 = (-b + Sqr(b ^ 2 - 4 * h)) / 2
y2 = (-b - Sqr(b ^ 2 - 4 * h)) / 2
ListBox1.AddItem (x & " " & y1 & " " & y2)
Next x
End Sub

Private Sub CommandButton2_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
Image7.Visible = False
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem grafica cerchio con centro nelle origini
ListBox1.AddItem ("equazione del cerchio con centro nelle origini ")
ListBox1.AddItem (" x^2 + y^2 = raggio^2 ")
ListBox1.AddItem ("----------------------------------------")
ListBox1.AddItem ("x^2 + y^2 = 4^2")
raggio = 4
a = 0
b = 0
c = 0
x0 = -a / 2
y0 = -b / 2
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image2.Visible = True
ListBox1.AddItem ("calcolo valori x,y simmetrici")
For x = -raggio To raggio
y1 = Sqr(raggio ^ 2 - x ^ 2)
y2 = -Sqr(raggio ^ 2 - x ^ 2)
ListBox1.AddItem (x & " , " & y1 & " " & y2)
Next x
End Sub


Private Sub CommandButton5_Click()
Rem grafica cerchio che passa per origini
ListBox1.AddItem ("cerchio passa per origine:manca termine noto c")
ListBox1.AddItem ("x^2 + y^2 + ax + by = 0 ")
ListBox1.AddItem ("x^2 + y^2 -6x +8y = 0")
a = -6
b = 8
c = 0
x0 = -a / 2
y0 = -b / 2
raggio = Sqr(a ^ 2 / 4 + b ^ 2 / 4 - c)
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image3.Visible = True
ListBox1.AddItem ("calcolo valori per cerchio")
For x = -2 To 5
h = x ^ 2 - 6 * x
y1 = (-b + Sqr(b ^ 2 - 4 * h)) / 2
y2 = (-b - Sqr(b ^ 2 - 4 * h)) / 2
ListBox1.AddItem (x & " " & y1 & " " & y2)
Next x
End Sub


Private Sub CommandButton6_Click()
ListBox1.AddItem ("centro su asse y")
ListBox1.AddItem ("x^2 + y^2 + by + c= 0 ")
ListBox1.AddItem ("x^2 + y^2 +6y -3 = 0")
a = 0
b = 6
c = -3
x0 = -a / 2
y0 = -b / 2
raggio = Sqr(a ^ 2 / 4 + b ^ 2 / 4 - c)
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image4.Visible = True
ListBox1.AddItem ("calcolo valoiri per cerchio")
For x = -2 To 2
c = c + x ^ 2
y1 = (-b + Sqr(b ^ 2 - 4 * c)) / 2
y2 = (-b - Sqr(b ^ 2 - 4 * c)) / 2
ListBox1.AddItem (x & " " & y1 & " " & y2)
Next x
End Sub

Private Sub CommandButton7_Click()
ListBox1.AddItem ("centro su asse x")
ListBox1.AddItem ("x^2 + y^2 -ax + c= 0 ")
ListBox1.AddItem ("x^2 + y^2 -4x -3 = 0")
a = -4
b = 0
c = -3
x0 = -a / 2
y0 = -b / 2
raggio = Sqr(a ^ 2 / 4 + b ^ 2 / 4 - c)
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image5.Visible = True
ListBox1.AddItem ("calcola valori per cerchio")
For x = 0 To 4
h = 3 + 4 * x - x ^ 2
y1 = Sqr(h)
y2 = -Sqr(h)
ListBox1.AddItem (x & " , " & y1 & " " & y2)
Next x
End Sub

Private Sub CommandButton8_Click()
ListBox1.AddItem ("tangente asse x :centro su asse y")
ListBox1.AddItem ("x^2 + y^2 +by= 0 ")
ListBox1.AddItem ("x^2 + y^2 +6y = 0")
a = 0
b = 6
c = 0
x0 = -a / 2
y0 = -b / 2
raggio = Sqr(a ^ 2 / 4 + b ^ 2 / 4 - c)
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image6.Visible = True
ListBox1.AddItem ("calcola valori per cerchio")
For x = -3 To 3
c = x ^ 2
y1 = ((-b + Sqr(b ^ 2 - 4 * c)) / 2)
y2 = ((-b - Sqr(b ^ 2 - 4 * c)) / 2)
ListBox1.AddItem (x & ", " & y1 & " " & y2)
Next x
End Sub

Private Sub CommandButton9_Click()
ListBox1.AddItem ("tangente asse y :centro su asse x")
ListBox1.AddItem ("x^2 + y^2 +ax= 0 ")
ListBox1.AddItem ("x^2 + y^2 -4x = 0")
a = -4
b = 0
c = 0
x0 = -a / 2
y0 = -b / 2
raggio = Sqr(a ^ 2 / 4 + b ^ 2 / 4 - c)
ListBox1.AddItem ("x0 = " & x0)
ListBox1.AddItem ("y0 = " & y0)
ListBox1.AddItem ("raggio = " & raggio)
ListBox1.AddItem ("crea grafico con derive")
Image7.Visible = True
ListBox1.AddItem ("calcola valori per cerchio")
For x = 0 To raggio * 2
y1 = Sqr(4 * x - x ^ 2)
y2 = -Sqr(4 * x - x ^ 2)
ListBox1.AddItem (x & ", " & y1 & " " & y2)
Next x
End Sub

vedi xcerchio.ppt