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