grafifunzioni

esci con testvba.htm

grafifunzioni.ppt
studio di varie funzioni e loro grafici

Private Sub CommandButton1_Click()
Rem funzione1
funzione1.Visible = True
ListBox2.AddItem (" y = (3*x^2-1)/(1+x^2)^3 ")
For k = -5 To 5
x = k
y = (3 * x ^ 2 - 1) / (1 + x ^ 2) ^ 3
ListBox1.AddItem (x & " y = " & y)
Next k
End Sub

Private Sub CommandButton10_Click()
Rem funzione8
funzione8.Visible = True
ListBox2.AddItem (" y = exp(abs((x-1)/x))")
ListBox2.AddItem ("step 0.2 per evitare x=0")

For k = -2.1 To 2.1 Step 0.2
x = k
y = Exp(Abs((x - 1) / x))
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("----------------------")
End Sub

Private Sub CommandButton11_Click()
Rem funzione
funzione9.Visible = True
ListBox2.AddItem (" y = (x^3+x)/(x^2-1)")
ListBox2.AddItem ("step 0.1 per evitare x=0")

For k = -3 To 3 Step 0.1
x = k
y = (x ^ 3 + x) / (x ^ 2 - 1)
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("----------------------")
End Sub

Private Sub CommandButton12_Click()
Rem funzione10
funzione10.Visible = True
ListBox2.AddItem (" y = (x+1)^3/x^2")
ListBox2.AddItem ("step 0.2 per evitare x=0")

For k = -3.1 To 3.1 Step 0.2
x = k
y = (x + 1) ^ 3 / x ^ 2
ListBox1.AddItem (x & " y = " & y)
Next k
End Sub

Private Sub CommandButton13_Click()
Rem funzione11
funzione11.Visible = True
ListBox2.AddItem (" y = ln|1/(1-x) - 1/(1+2x)|")
ListBox2.AddItem ("step 0.1")

For k = -3.1 To 3.1 Step 0.1
x = k
y = Log(Abs((1 / (1 - x)) - (1 / (1 + 2 * x))))
ListBox1.AddItem (x & " y = " & y)
Next k

End Sub

Private Sub CommandButton14_Click()
Rem funzione12
funzione12.Visible = True
ListBox2.AddItem (" y = sqr(abs((x(x-2)/(x^2-1)))")
ListBox2.AddItem ("step 0.1")

For k = -2 To 5 Step 0.1
x = k
y = Sqr(Abs((x * (x - 2) / (x ^ 2 - 1))))
ListBox1.AddItem (x & " y = " & y)
Next k
End Sub

Private Sub CommandButton15_Click()
Rem funzione 13
funzione13.Visible = True
ListBox2.AddItem (" y = x*exp(x)/sqr(2*x-1)")
ListBox2.AddItem ("step 0.1")

For k = 1 To 5 Step 0.1
x = k
y = x * Exp(x) / Sqr(2 * x - 1)
ListBox1.AddItem (x & " y = " & y)
Next k

End Sub

Private Sub CommandButton16_Click()
Rem funzione 14
funzione14.Visible = True
ListBox2.AddItem (" y = 1/sqr(x+abs(x^2-x))")
ListBox2.AddItem ("step 0.1")

For k = -2 To 5 Step 0.1
x = k
y = 1 / Sqr(x + Abs(x ^ 2 - x))
ListBox1.AddItem (x & " y = " & y)
Next k

End Sub

Private Sub CommandButton2_Click()
funzione1.Visible = False
funzione2.Visible = False
funzione3.Visible = False
funzione4.Visible = False
funzione5.Visible = False
funzione6.Visible = False
funzione7.Visible = False
funzione8.Visible = False
funzione9.Visible = False
funzione10.Visible = False
funzione11.Visible = False
funzione12.Visible = False
funzione13.Visible = False
funzione14.Visible = False
End Sub

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

Private Sub CommandButton4_Click()
Rem funzione2
funzione2.Visible = True
ListBox1.AddItem ("notare espediente per ottenere")
ListBox1.AddItem ("valori della y negativi ")
ListBox2.AddItem ("y = x*sqr(1-x^2) >> x^2*(1-x^2)")
ListBox1.AddItem ("---calcolo di y con vari step---")
For k = 0 To 1 Step 0.1
x = k
y = x ^ 2 * (1 - x ^ 2)
y = Sqr(y)
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("-------------------")
For k = -1 To 1
x = k
y = x ^ 2 * (1 - x ^ 2)
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("--------------------------")
For k = -1 To 0 Step 0.1
x = k
y = x ^ 2 * (1 - x ^ 2)
y = Sqr(y)
y = -y
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("--------------------------")

For k = -1 To 1 Step 0.1
x = k
y = x ^ 2 * (1 - x ^ 2)
y = Sqr(y)
If x < 0 Then
y = -y
Else
y = y
End If
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("--------------------------")



End Sub

Private Sub CommandButton5_Click()
Rem funzione3
funzione3.Visible = True
ListBox2.AddItem (" y = 2^x * x^2 ")
For k = -2 To 2
x = k
y = 2 ^ x * x ^ 2
ListBox1.AddItem (x & " y = " & y)
Next k


End Sub

Private Sub CommandButton6_Click()
Rem funzione4
Dim y As Double
funzione4.Visible = True
ListBox2.AddItem (" y =x^2*e^-x >>> x^2/2.3^-x ")
For k = -2 To 3
x = k
y = x ^ 2 * Exp(-x)
ListBox1.AddItem (x & " y = " & y)
Next k
End Sub

Private Sub CommandButton7_Click()
Rem funzione5
funzione5.Visible = True
ListBox2.AddItem (" y =x^3lnx ")
For k = 0.1 To 2 Step 0.1
x = k
y = x ^ 3 * Log(x)
ListBox1.AddItem (x & " y = " & y)
Next k

End Sub

Private Sub CommandButton8_Click()
Rem funzione6
funzione6.Visible = True
ListBox2.AddItem (" y =x -2*sin(x) ")
For k = -2 To 2
x = k
y = x - 2 * Sin(x)
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("----------------------")
For k = -10 To 10
x = k
y = x - 2 * Sin(x)
ListBox1.AddItem (x & " y = " & y)
Next k

End Sub

Private Sub CommandButton9_Click()
Rem funzione7
funzione7.Visible = True
ListBox2.AddItem (" y = e^-x/lnx ")
ListBox2.AddItem ("step 0.2 per evitare x=1")
For k = 0.1 To 2 Step 0.2
x = k
y = Exp(-x) / Log(x)
ListBox1.AddItem (x & " y = " & y)
Next k
ListBox1.AddItem ("----------------------")

End Sub