funzioni arcoseno e arcocoseno

descrizione formule per ottenere arcoseno e arcocoseno utilizzando la funzione
arcotangente ATN fornita da visual basic su powerpoint ,conoscendo il valore
del seno o coseno di un angolo
Rem cerchio trigonometrico
Rem richiamo a funzione per arcoseno e arcocoseno
Rem oppure formula immediata
esercitazione con visualbasic su powerpoint

Private Sub CommandButton1_Click()
Rem calcolo di arcoseno e arcocoseno con richiamo a funzione
Rem creata per supplire a mancanza in VBA
Rem escluso seno=1 o -1 e coseno 0
ListBox1.AddItem ("usare valori in radianti")
ListBox1.AddItem ("trovo arcotangente : atn(tangente)")
ListBox1.AddItem ("trovo arcoseno : atn(seno/sqr(1-seno^seno)) ")
ListBox1.AddItem ("trovo arcocoseno : atn(sqr(1-coseno^2)/coseno) ")
ListBox1.AddItem ("trasformo in gradi : radianti*180/3.14 ")
ListBox1.AddItem ("--------------------------------------")
Dim seno As Double
Dim coseno As Double
Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim a1 As Double
Dim b1 As Double
Dim c1 As Double
Dim d1 As Double
a = 0.5
b = -0.5
c = 0.868
d = 0
a1 = 0.5
b1 = -0.5
c1 = 0.868
d1 = 1
ListBox1.AddItem ("ricavando il valore della tangente si ricorre alla funzione")
ListBox1.AddItem ("che fornisce l'arcotangente che risulta lo stesso anche per")
ListBox1.AddItem ("i valori del seno e coseno dello stesso arco")
ListBox1.AddItem ("seno^2 + coseno^2 =1 ")
ListBox1.AddItem ("seno^2 = 1 - coseno^2")
ListBox1.AddItem ("coseno^2 = 1 - seno^2 ")
ListBox1.AddItem ("tangente = seno/coseno = seno/(sqr(1-seno^2))")
ListBox1.AddItem ("tangente = seno/coseno = sqr(1-coseno^2)/coseno ")
ListBox1.AddItem ("arcotangente(tangente) >>> atn(tangente) >>> arco in radianti")
ListBox1.AddItem ("noto seno ,cerco coseno e tangente:poi atn(tangente)")
ListBox1.AddItem ("arcoseno= atn(seno/(sqr(1-seno^2))")
ListBox1.AddItem ("noto coseno ,cerco seno e tangente:poi atn(tangente)")
ListBox1.AddItem ("arcocoseno = atn(sqr(1-coseno^2)/coseno")
ListBox1.AddItem ("usando funzione o formula immediata ")
ListBox1.AddItem ("--------------------------------------")
ListBox1.AddItem ("si visualizza :valore del seno,angolo in radianti,in gradi")
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("seno = " & a)
ListBox1.AddItem (arcoseno(a))
ListBox1.AddItem (arcoseno(a) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("seno = " & b)
ListBox1.AddItem (arcoseno(b))
ListBox1.AddItem (arcoseno(b) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("seno = " & c)
ListBox1.AddItem (arcoseno(c))
ListBox1.AddItem (arcoseno(c) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("seno = " & d)
ListBox1.AddItem (arcoseno(d))
ListBox1.AddItem (arcoseno(d) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("si visualizza :valore del coseno,angolo in radianti,in gradi")
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("coseno = " & a1)
ListBox1.AddItem (arcocoseno(a1))
ListBox1.AddItem (arcocoseno(a1) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("coseno = " & b1)
ListBox1.AddItem (arcocoseno(b1))
ListBox1.AddItem (arcocoseno(b1) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("coseno = " & c1)
ListBox1.AddItem (arcocoseno(c1))
ListBox1.AddItem (arcocoseno(c1) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
ListBox1.AddItem ("coseno = " & d1)
ListBox1.AddItem (arcocoseno(d1))
ListBox1.AddItem (arcocoseno(d1) * 180 / 3.14)
ListBox1.AddItem ("-------------------------")
End Sub

Private Function arcoseno(seno As Double) As Double
radiantiseno = Atn(seno / (Sqr(1 - seno ^ 2)))
arcoseno = radiantiseno
End Function

Private Function arcocoseno(coseno As Double) As Double
radianticoseno = Atn(Sqr(1 - coseno ^ 2) / coseno)
arcocoseno = radianticoseno
End Function

Private Sub CommandButton2_Click()
Rem cerchio trigonometrico
Rem richiamo a funzione per arcoseno e arcocoseno
Rem oppure formula immediata
Dim seno As Double
Dim coseno As Double
angologradi = 30
angoloradianti = angologradi * 3.14 / 180
seno = Sin(angoloradianti)
coseno = Cos(angoloradianti)
tangente = Tan(angoloradianti)
ListBox1.AddItem ("angolo in gradi = " & angologradi)
ListBox1.AddItem ("angolo in radianti = " & angoloradianti)
ListBox1.AddItem ("seno = " & seno)
ListBox1.AddItem ("coseno = " & coseno)
ListBox1.AddItem ("tangente = " & tangente)
ListBox1.AddItem ("------funzioni inverse ----")
arcotangente = Atn(tangente)
graditangente = arcotangente * 180 / 3.14
ListBox1.AddItem ("tangente = " & tangente)
ListBox1.AddItem ("arcotangente = " & arcotangente)
ListBox1.AddItem ("arcotangente in gradi = " & graditangente)
ListBox1.AddItem ("-----richiamo a funzione -")
ListBox1.AddItem ("seno = " & seno)
ListBox1.AddItem ("arcoseno in radianti = " & arcoseno(seno))
ListBox1.AddItem ("arcoseno in gradi = " & arcoseno(seno) * 180 / 3.14)
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("coseno = " & coseno)
ListBox1.AddItem ("arcocoseno in radianti = " & arcocoseno(coseno))
ListBox1.AddItem ("arcocoseno in gradi = " & arcocoseno(coseno) * 180 / 3.14)
ListBox1.AddItem ("------------------------------")
archi.Visible = True
ListBox1.AddItem ("---formula immediata ---")
ListBox1.AddItem ("valori in radianti ")
arccoseno = Atn(Sqr(1 - coseno ^ 2) / coseno)
arcseno = Atn(seno / Sqr(1 - seno ^ 2))
arctangente = Atn(tangente)
ListBox1.AddItem ("valori in gradi")
tangenteg = arctangente * 180 / 3.14
senog = arcseno * 180 / 3.14
cosenog = arccoseno * 180 / 3.14
ListBox1.AddItem ("arcotangente = " & arctangente & " in gradi = " & tangenteg)
ListBox1.AddItem ("arcoseno = " & arcseno & " in gradi = " & senog)
ListBox1.AddItem ("arcocoseno = " & arccoseno & " in gradi =" & cosenog)
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
archi.Visible = False
End Sub

vedi trigono.ppt