cotangente

studio di cotangente e arcocotangente e loro derivate
con visual basic su powerpoint

Private Sub CommandButton10_Click()
Rem arcocotangente
arcocotangente.Visible = True
ListBox1.AddItem ("funzione y = acot(x) ")
'For x = -4 To 4
'y = Atn(x)
'ListBox1.AddItem ("x = " & x & " y = " & y)
'Next x
End Sub

Private Sub CommandButton11_Click()
Rem derivata arcocotangente
deriarcocotangente.Visible = True
ListBox1.AddItem ("--- derivata ---")
For x = -4 To 4
y1 = -1 / (1 + x ^ 2)
ListBox1.AddItem ("x = " & x & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton12_Click()
Rem funzione e derivata arcocotangente
Rem gonio8
gonio8.Visible = True
ListBox1.AddItem ("--- funzione e derivata ---")
For x = -4 To 4
'y = Atn(x)
y1 = -1 / (1 + x ^ 2)
ListBox1.AddItem ("x = " & x & " y = " & y & " y' = " & y1)
Next x
End Sub

Private Sub CommandButton13_Click()
Rem formule e grafici
tuttocotangente.Visible = True
ListBox1.AddItem ("funzione cotangente = cot(x) ")
ListBox1.AddItem ("derivata = -(1+ cot(x)^2) ")
ListBox1.AddItem ("funzione arcocotangente = acot(x) ")
ListBox1.AddItem ("derivata = -1 / (1+x^2) ")
ListBox1.AddItem (" ")
End Sub

Private Sub CommandButton5_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton6_Click()

gonio4.Visible = False
gonio8.Visible = False
cotangente.Visible = False
dericotangente.Visible = False
tuttocotangente.Visible = False
arcocotangente.Visible = False
deriarcocotangente.Visible = False
End Sub

Private Sub CommandButton7_Click()
Rem cotangente
cotangente.Visible = True
ListBox1.AddItem (" funzione : y = cot(x)) ")
ListBox1.AddItem ("derivata prima : y' = -(1/sin(x)^2) ")
ListBox1.AddItem ("--------funzione --")
For x = -2 To 2 Step 0.2
y = 1 / Tan(x)
ListBox1.AddItem ("x = " & x & " y= " & y)
Next x
ListBox1.AddItem ("-------------------------")
For a = 1 To 360 Step 11
x = a * 3.14 / 180
y = 1 / Tan(x)
ListBox1.AddItem ("a = " & a & " y= " & y)
Next a
End Sub

Private Sub CommandButton8_Click()
Rem derivata
dericotangente.Visible = True
ListBox1.AddItem ("--derivata ---")
For x = -2 To 2 Step 0.2
y1 = -(1 / Sin(x) ^ 2)
ListBox1.AddItem ("x = " & x & " y'= " & y1)
Next x
ListBox1.AddItem ("---------------------")
For a = 1 To 360 Step 11
x = a * 3.14 / 180
y1 = -(1 / Sin(x) ^ 2)
ListBox1.AddItem ("a = " & a & " y'= " & y1)
Next a
End Sub

Private Sub CommandButton9_Click()
Rem funzione e derivata
ListBox1.AddItem ("---funzione e derivata --")
gonio4.Visible = True
For x = -2 To 2 Step 0.2
y = 1 / Tan(x)
y1 = -(1 / Sin(x) ^ 2)
ListBox1.AddItem ("x = " & x & " y= " & y & " y' = " & y1)
Next x
ListBox1.AddItem ("-------------------------")
For a = 1 To 360 Step 11
x = a * 3.14 / 180
y = 1 / Tan(x)
y1 = -(1 / Sin(x) ^ 2)
ListBox1.AddItem ("a = " & a & " y= " & y & " y' = " & y1)
Next a
End Sub



Private Sub tuttocotangente_Click()
Rem formule e grafici
tuttocotagente.Visible = True
ListBox1.AddItem ("funzione cotangente = cot(x) ")
ListBox1.AddItem ("derivata = -(1+cot(x)^2) ")
ListBox1.AddItem ("funzione arcocotangente = acot(x) ")
ListBox1.AddItem ("derivata = -1/(1+x^2) ")

End Sub

Private Sub UserForm_Click()
Rem gonio8
gonio8.Visible = True
ListBox1.AddItem ("funzione y = acot(x) ")
ListBox1.AddItem ("derivata prima y' = -1/(1+x^2)")
For x = -4 To 4
y = Atn(x)
ListBox1.AddItem ("x = " & x & " y = " & y)
Next x
ListBox1.AddItem ("--- derivata ---")
For x = -4 To 4
y1 = -1 / (1 + x ^ 2)
ListBox1.AddItem ("x = " & x & " y' = " & y1)
Next x
ListBox1.AddItem ("--- funzione e derivata ---")
For x = -4 To 4
y = Atn(x)
y1 = -1 / (1 + x ^ 2)
ListBox1.AddItem ("x = " & x & " y = " & y & " y' = " & y1)
Next x
End Sub

vedi cotangente.ppt