intersezione retta e cerchio
si assegnano equazioni per
retta e cerchio (sistema)
si assegnano con ciclo for-next valori alle funzioni
si confrontano coordinate che soddisfano le due equazioni insieme
si crea grafico con derive e si confrontano valori con quelli
calcolati
esercitazione con visual basic su powerpoint
Private Sub CommandButton1_Click()
Rem intersezione retta e
circonferenza:ricerca
ListBox1.AddItem ("x^2 + y^2 = 25")
ListBox1.AddItem ("y = 2x+5")
ListBox1.AddItem ("---------------------------")
Image1.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -5 To 5
x = k
ListBox1.AddItem ("x = " & x & " y1 =
" & 2 * x + 5)
Next k
ListBox1.AddItem ("seconda funzione")
For k = -5 To 5
x = k
ListBox1.AddItem ("x = " & x & " y2 =
" & Sqr(25 - x ^ 2))
ListBox1.AddItem ("x = " & x & " y2 =
" & -Sqr(25 - x ^ 2))
Next k
End Sub
Private Sub CommandButton2_Click()
Rem intersezione retta e
circonferenza:soluzione
Image1.Visible = True
For k = -5 To 5
x = k
y11 = 2 * x + 5
y21 = Sqr(25 - x ^ 2)
If y11 = y21 Then
ListBox2.AddItem ("soluzione = " & x & " ,
" & y21)
End If
Next k
For k = -5 To 5
x = k
y12 = 2 * x + 5
y22 = -Sqr(25 - x ^ 2)
If y12 = y22 Then
ListBox2.AddItem ("soluzione = " & x & " ,
" & y22)
End If
Next k
End Sub
Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton4_Click()
ListBox2.Clear
End Sub
Private Sub CommandButton5_Click()
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End Sub
Private Sub CommandButton6_Click()
Rem intersezione retta e
circonferenza:ricerca
ListBox1.AddItem ("x^2 + y^2 = 4")
ListBox1.AddItem ("y=x-3")
ListBox1.AddItem ("---------------------------")
Image2.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -3 To 3
x = k
ListBox1.AddItem ("x = " & x & " y1 =
" & x - 3)
Next k
ListBox1.AddItem ("seconda funzione")
For k = -2 To 2
x = k
ListBox1.AddItem ("x = " & x & " y21 =
" & Sqr(4 - x ^ 2))
ListBox1.AddItem ("x = " & x & " y22 =
" & -Sqr(4 - x ^ 2))
Next k
End Sub
Private Sub CommandButton7_Click()
Rem intersezione retta e
circonferenza:soluzione
Image2.Visible = True
For k = -2 To 2
x = k
y21 = Sqr(4 - x ^ 2)
If x = y21 Then
ListBox2.AddItem ("soluzione = " & x & " ,
" & y21)
End If
Next k
ListBox2.AddItem ("nessuna soluzione")
For k = -2 To 2
x = k
y22 = -Sqr(4 - x ^ 2)
If x = y22 Then
ListBox2.AddItem ("soluzione = " & x & " ,
" & y22)
Else
End If
Next k
ListBox2.AddItem ("nessuna soluzione")
End Sub
Private Sub CommandButton8_Click()
Rem intersezione retta e
circonferenza:ricerca solo grafica
ListBox1.AddItem ("x^2 +y^2 +8x +2y +8 =0")
ListBox1.AddItem ("y = x")
ListBox1.AddItem ("---------------------------")
Image3.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -5 To 5
x = k
y1 = x
ListBox1.AddItem ("x = " & x & " y1 =
" & x)
Next k
End Sub
Private Sub CommandButton9_Click()
Rem intersezione retta e
circonferenza:ricerca solo grafica
ListBox1.AddItem ("x^2 + y^2 -6x-4y-3=0")
ListBox1.AddItem ("x=7")
ListBox1.AddItem ("---------------------------")
Image4.Visible = True
x = 7
ListBox1.AddItem ("x = " & 7)
'Next k
End Sub
vedi rettacerchio.ppt