grafica sistemi due rette

rette intersecanti, parallele, coincidenti, perpendicolari
Rem retta passante per punto dato noto m
Rem retta parallela a retta data passante per punto dato
Rem retta parallela a retta data passante per punto dato noto m
Rem retta perpendicolare a retta e passante per punto noto
Rem retta perpendicolare a retta e passante per punto noto con m noto
esercitazione con visual basic su powerpoint

Private Sub CommandButton1_Click()
Rem rette intersecanti
ListBox1.AddItem ("y1 = m1*x + q1")
ListBox1.AddItem ("y2 = m2*x + q2")
m1 = 2
q1 = 3
m2 = 3
q2 = 5
ListBox1.AddItem ("y1=2x+3")
ListBox1.AddItem ("y2 =3x+5")
ListBox1.AddItem ("ricerca valore comune")
For x = -5 To 5
y1 = m1 * x + q1
y2 = m2 * x + q2
ListBox1.AddItem (x & " " & y1 & " " & y2)
If y1 = y2 Then
ListBox1.AddItem ("rette si intersecano in punto : " & x & " , " & y1 & " " & y2)
End If
Next x
duerette1.Visible = True
End Sub

Private Sub CommandButton11_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton12_Click()
duerette1.Visible = False
duerette2.Visible = False
duerette3.Visible = False
duerette4.Visible = False
duerette5.Visible = False
duerette6.Visible = False
duerette7.Visible = False
duerette8.Visible = False
duerette9.Visible = False
End Sub

Private Sub CommandButton2_Click()
Rem rette parallele
ListBox1.AddItem ("y1 = m1*x + q1")
ListBox1.AddItem ("y2 = m2*x + q2")
m1 = 2
q1 = 3
m2 = 2
q2 = 5
ListBox1.AddItem ("y1=2x+3")
ListBox1.AddItem ("y2 =2x+5")
ListBox1.AddItem ("ricerca valore comune")
For x = -5 To 5
y1 = m1 * x + q1
y2 = m2 * x + q2
ListBox1.AddItem (x & " " & y1 & " " & y2)
If y1 = y2 Then
ListBox1.AddItem ("rette intersecanti")
End If
Next x
ListBox1.AddItem ("rette senza punti in comune")
duerette2.Visible = True
End Sub

Private Sub CommandButton3_Click()
Rem rette coincidenti
ListBox1.AddItem ("y1 = m1*x + q1")
ListBox1.AddItem ("y2 = m2*x + q2")
m1 = 2
q1 = 3
m2 = 2
q2 = 3
ListBox1.AddItem ("y1=2x+3")
ListBox1.AddItem ("y2 =2x+3")
ListBox1.AddItem ("ricerca valore comune")
For x = -5 To 5
y1 = m1 * x + q1
y2 = m2 * x + q2
ListBox1.AddItem (x & " " & y1 & " " & y2)
Next x
ListBox1.AddItem ("rette con tutti i punti in comune")
duerette3.Visible = True
End Sub

Private Sub CommandButton4_Click()
Rem retta passante per punto dato noto m
ListBox1.AddItem ("(y -y1)=m(x-x1)")
x1 = 5
y1 = -2
m = 3
ListBox1.AddItem ("punto(5,-2), m=3")
ListBox1.AddItem (" (y+2)= 3(x-5) >>> 3x-y-17 = 0")
For x = -5 To 5
y = 3 * x - 17
ListBox1.AddItem (x & " " & y)
Next x
ListBox1.AddItem ("grafico con derive")
duerette4.Visible = True
End Sub

Private Sub CommandButton5_Click()
Rem retta parallela a retta data passante per punto dato
ListBox1.AddItem ("retta data : 3x - 2y + 5 =0")
ListBox1.AddItem ("punto dato :(-1,4)")
ListBox1.AddItem ("retta cercata : a(x-x1)+b(y-y1)=0 ")
ListBox1.AddItem ("retta cercata :3(x+1) -2(y-4)=0 >>> 3x - 2y + 11 = 0")
For x = -5 To 5
y = (3 * x + 11) / 2
ListBox1.AddItem (x & " " & y)
Next x
ListBox1.AddItem ("grafica con derive")
duerette5.Visible = True
End Sub

Private Sub CommandButton6_Click()
Rem retta parallela a retta data passante per punto dato noto m
ListBox1.AddItem ("retta data : y=5x-2")
ListBox1.AddItem ("punto dato :(3,-1)")
ListBox1.AddItem ("retta cercata : (y-y1)=m(x-x1)")
ListBox1.AddItem ("retta cercata :(y+1) = 5(x-3) >>> 5x - y - 16 = 0")
For x = -5 To 5
y = 5 * x - 16
ListBox1.AddItem (x & " " & y)
Next x
ListBox1.AddItem ("grafica con derive")
duerette6.Visible = True
End Sub

Private Sub CommandButton7_Click()
Rem rette perpendicolari tra loro
ListBox1.AddItem ("y1 = m1*x + q1 ")
ListBox1.AddItem ("y2 = m2*x + q2")
ListBox1.AddItem ("sono perpendicolari se m1 = - 1/m2")
ListBox1.AddItem ("4x+3y+5 = 0 >>> y = -(4/3)x - 5/4 ")
ListBox1.AddItem ("3x - 4y + 1 =0 >>> y = (3/4)x + 1/4 ")
ListBox1.AddItem (" coefficienti angolari reciproci e di segno contrario")
For x = -5 To 5
y1 = -(4 / 3) * x - 5 / 4
y2 = 3 / 4 * x + 1 / 4
ListBox1.AddItem (x & " " & y1 & " " & y2)
Next x
duerette7.Visible = True
End Sub



Private Sub CommandButton8_Click()
Rem retta perpendicolare a retta e passante per punto noto
ListBox1.AddItem ("retta data : ax+by+c = 0")
ListBox1.AddItem ("retta cercata : b(x-x1)-a(y-y1)=0")
ListBox1.AddItem ("retta data : 3x-5y+7 = 0 ...punto (3,-2) ")
ListBox1.AddItem ("retta cercata : -5(x-3)-3(y+2)=0 >>> 5x+3y-9 = 0 ")
For x = -5 To 5
y = (9 - 5 * x) / 3
ListBox1.AddItem (x & " " & y)
Next x
ListBox1.AddItem ("grafica con derive")
duerette8.Visible = True
End Sub

Private Sub CommandButton9_Click()
Rem retta perpendicolare a retta e passante per punto noto con m noto
ListBox1.AddItem ("retta data : y = mx + q")
ListBox1.AddItem ("retta cercata : (y-y1) = (-1/m)(x-x1)")
ListBox1.AddItem ("retta data : y= 2x+3 ...punto (3,-2) ")
ListBox1.AddItem ("retta cercata : (y+2)=(-1/2)*(x-3)")
For x = -5 To 5
y = (-1 / 2) * (x - 3) - 2
ListBox1.AddItem (x & " " & y)
Next x
ListBox1.AddItem ("grafica con derive")
duerette9.Visible = True

End Sub

vedi duerette.ppt