soluzione sistemi secondo grado
esempio di soluzione grafica di sistemi a due equazioni e due incognite 2
si forniscono due equazioni in sistema
si ricercano valori delle y per un determinato variare della x
si visualizzano eventuali valori di x e y che soddisfano le due equazioni
si creano i grafici delle due equazioni (con derive e paint)
si confrontano i valori comuni (se ci sono) nei grafici con quelli calcolati
esercitazione per usare visualbasic su powerpoint
semplice verifica del metodo usabile per risolvere graficamente un sistema

 

Private Sub CommandButton1_Click()
Rem ricerca su campo da assegnare
Image1.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -5 To 5
x = k
y1 = -2 * x - 1
ListBox1.AddItem (x & " " & y1)
Next k
ListBox1.AddItem ("seconda funzione")
For k = -5 To 5
x = k
y2 = x ^ 2 - 4
ListBox1.AddItem (x & " " & y2)
Next k
End Sub

Private Sub CommandButton10_Click()
rem visualizza solo se soluzione comune
Image4.Visible = True
For k = -5 To 5
x = k
y1 = x - 6
y2 = x ^ 2 + 2 * x - 3
If y1 = y2 Then
ListBox2.AddItem ("----------------")
ListBox2.AddItem (x & " " & y1)
ListBox2.AddItem (x & " " & y2)
ListBox2.AddItem ("soluzioni comuni")
ListBox2.AddItem ("-------------------")
End If
Next k
ListBox2.AddItem ("nessuna soluzione")

End Sub

Private Sub CommandButton2_Click()
Rem visualizza solo se soluzione comune
Image1.Visible = True
For k = -5 To 5
x = k
y1 = -2 * x - 1
y2 = x ^ 2 - 4
If y1 = y2 Then
ListBox2.AddItem ("----------------")
ListBox2.AddItem (x & " " & y1)
ListBox2.AddItem (x & " " & y2)
ListBox2.AddItem ("soluzioni comuni")
ListBox2.AddItem ("-------------------")
End If
Next k

End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
ListBox2.Clear
End Sub

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

Private Sub CommandButton5_Click()
Rem ricerca su campo da assegnare
Image2.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -5 To 5
x = k
y1 = 2 * x - 3
ListBox1.AddItem (x & " " & y1)
Next k
ListBox1.AddItem ("seconda funzione")
For k = -5 To 5
x = k
y2 = 4 * x - x ^ 2
ListBox1.AddItem (x & " " & y2)
Next k

End Sub

Private Sub CommandButton6_Click()
Rem visualizza solo se soluzione comune
Image2.Visible = True
For k = -5 To 5
x = k
y1 = 2 * x - 4
y2 = x ^ 2 - 4 * x + 5
If y1 = y2 Then
ListBox2.AddItem ("----------------")
ListBox2.AddItem (x & " " & y1)
ListBox2.AddItem (x & " " & y2)
ListBox2.AddItem ("soluzioni comuni")
ListBox2.AddItem ("-------------------")
End If
Next k
End Sub

Private Sub CommandButton7_Click()
Rem ricerca su campo da assegnare
Image3.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -5 To 5
x = k
y1 = 2 * x - 4
ListBox1.AddItem (x & " " & y1)
Next k
ListBox1.AddItem ("seconda funzione")
For k = -5 To 5
x = k
y2 = x ^ 2 - 4 * x + 5
ListBox1.AddItem (x & " " & y2)
Next k
End Sub

Private Sub CommandButton8_Click()
Rem visualizza solo se soluzione comune
Image3.Visible = True
For k = -5 To 5
x = k
y1 = 2 * x - 4
y2 = x ^ 2 - 4 * x + 5
If y1 = y2 Then
ListBox2.AddItem ("----------------")
ListBox2.AddItem (x & " " & y1)
ListBox2.AddItem (x & " " & y2)
ListBox2.AddItem ("soluzioni comuni")
ListBox2.AddItem ("-------------------")
End If
Next k
End Sub

Private Sub CommandButton9_Click()
Rem ricerca su campo da assegnare
Image4.Visible = True
ListBox1.AddItem ("prima funzione")
For k = -5 To 5
x = k
y1 = x - 6
ListBox1.AddItem (x & " " & y1)
Next k
ListBox1.AddItem ("seconda funzione")
For k = -5 To 5
x = k
y2 = x ^ 2 + 2 * x - 3
ListBox1.AddItem (x & " " & y2)
Next k
End Sub

vedi duefunzioni.ppt