fascio improprio di rette

descrizione generica fascio improprio di rette
scrivere equazione generica fascio improprio
scrivere equazione del fascio assegnato e passante per punto Q assegnato
ciclo for-nex e grafica con derive
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem fascio improprio di rette
ListBox1.AddItem ("fascio improprio di rette:insieme delle rette del piano")
ListBox1.AddItem ("parallele a una retta data ")
ListBox1.AddItem ("retta data r : ax +by + c = 0")
ListBox1.AddItem ("retta parallela p : ax + by + k = 0")
ListBox1.AddItem ("retta r : 3x+5y -9 = 0")
ListBox1.AddItem ("retta p1 : 3x+5y -3 = 0")
ListBox1.AddItem ("retta p2 : 3x+5y -2 = 0")
For k = -5 To 5
x = k
y1 = (9 - 3 * x) / 5
y2 = (3 - 3 * x) / 5
y3 = (2 - 3 * x) / 5
ListBox1.AddItem (x & " , " & y1 & " , " & y2)
If y1 = y2 And y1 = y3 Then
ListBox1.AddItem ("intersezione ")
End If
Next k
ListBox1.AddItem ("nessuna intersezione:parallele")
ListBox1.AddItem ("grafica con derive ")
parallele1.Visible = True
End Sub

Private Sub CommandButton2_Click()
parallele1.Visible = False
parallele2.Visible = False
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
Rem parallela fascio improprio passante per punto assegnato Q
ListBox1.AddItem ("scrivere equazione della retta p appartenente a fascio improprio ")
ListBox1.AddItem ("individuato dalla retta r , e passante per punto Q assegnato")
ListBox1.AddItem ("retta fascio improprio r : 3x + 5y - 9 =0 punto Q (x1,y1)= (1, -3)")
ListBox1.AddItem ("---------------------------------------------")
ListBox1.AddItem ("retta parallela a r : 3x+5y + k = 0")
ListBox1.AddItem ("deve essere :3*x1 + 5*y1 + k = 0")
ListBox1.AddItem (" 3 -15 + k = 0 >>>> k = 12")
ListBox1.AddItem ("equazione p : 3x+5y+k = 0 >>>> 3x+5y+12=0")
For h = -10 To 10
x = h
y1 = (9 - 3 * x) / 5
y2 = (-12 - 3 * x) / 5
ListBox1.AddItem (x & " , " & y1 & " , " & y2)
Next h
ListBox1.AddItem ("nessuna intersezione:parallele")
ListBox1.AddItem ("vedi grafica con derive")
parallele2.Visible = True

End Sub

vedi parallele.ppt