coseno

funzione e derivata coseno e arcocoseno
con visual basic su powerpoint

Private Sub CommandButton10_Click()
Rem derivata arcocoseno
deriarcocoseno.Visible = True
For x = -0.9 To 0.9 Step 0.1
y1 = -1 / Sqr(1 - x ^ 2)
ListBox1.AddItem ("x = " & x & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton11_Click()
Rem arcocoseno e sua derivata
Rem gonio7
Dim coseno As Double
gonio7.Visible = True
ListBox1.AddItem ("--funzione e derivata --")
For x = -0.9 To 0.9 Step 0.1
coseno = Sin(x)
y = Atn(Sqr(1 - coseno ^ 2) / coseno)
y1 = -1 / Sqr(1 - x ^ 2)
ListBox1.AddItem ("x = " & x & " y = " & y & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton12_Click()
Rem tutto coseno
tuttocoseno.Visible = True
ListBox1.AddItem ("funzione y = cos(x) ")
ListBox1.AddItem ("derivata y' = - sin(x) ")
ListBox1.AddItem ("funzione arcocoseno acos(x) = atn(sqr(1-coseno^2)/coseno) cfr.codice ")
ListBox1.AddItem ("acos(x) in funzione di atn(x) ")
ListBox1.AddItem ("derivata arcocoseno = y1 = -1 / Sqr(1 - x ^ 2) ")

End Sub

Private Sub CommandButton2_Click()
Rem coseno
coseno.Visible = True
ListBox1.AddItem (" funzione : y = cos(x) ")
ListBox1.AddItem ("derivata prima : y' = - sin(x) ")
ListBox1.AddItem ("--------funzione --")
For x = 0 To 6.28 Step 0.2
y = Cos(x)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi = " & gradi & " y= " & y)
Next x
ListBox1.AddItem ("------------------")
For a = 0 To 360 Step 10
x = a * 3.14 / 180
y = Cos(x)
ListBox1.AddItem ("a = " & a & " y= " & y)
Next a

End Sub

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton6_Click()


dericoseno.Visible = False
coseno.Visible = False
cosenox.Visible = False
arcocoseno.Visible = False
deriarcocoseno.Visible = False
gonio7.Visible = False
tuttocoseno.Visible = False
End Sub

Private Sub CommandButton7_Click()
Rem derivata
dericoseno.Visible = True
ListBox1.AddItem ("--derivata ---")
For x = 0 To 6.28 Step 0.1
y1 = -Sin(x)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi = " & gradi & " y'= " & y1)
Next x
ListBox1.AddItem ("----------------")
For a = 0 To 360 Step 10
x = a * 3.14 / 180
y1 = -Sin(x)
ListBox1.AddItem ("a = " & a & " y'= " & y1)
Next a
End Sub

Private Sub CommandButton8_Click()
Rem coseno e derivata
cosenox.Visible = True
For x = 0 To 6.28 Step 0.5
y = Left(Cos(x), 5)
y1 = Left(-Sin(x), 5)
gradi = Left((x * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " gradi = " & gradi & " y= " & y & " y' = " & y1)
Next x
ListBox1.AddItem ("-------------------")
For a = 0 To 360 Step 10
x = a * 3.14 / 180
y = Left(Cos(x), 5)
y1 = Left(-Sin(x), 5)
ListBox1.AddItem ("a = " & a & " y= " & y & " y' = " & y1)
Next a
End Sub

Private Sub CommandButton9_Click()
Rem arcocoseno
Dim coseno As Double
arcocoseno.Visible = True
ListBox1.AddItem ("funzione arcocoseno y = acos(x) ")
ListBox1.AddItem ("derivata prima y' = -1/sqr(1-x^2) ")
For x = -0.9 To 0.9 Step 0.1
coseno = Cos(x)
y = Atn(Sqr(1 - coseno ^ 2) / coseno)
gradi = Left((y * 180 / 3.14), 5)
ListBox1.AddItem ("x = " & x & " y = " & y & " gradi = " & gradi)
Next x
End Sub

vedi coseno.ppt