Visual Basic 6 - Funzione Tangente^-1

Forum - Visual Basic 6 - Funzione Tangente^-1

GiuZeppelin (Normal User)
Newbie

Messaggi: 7
Iscritto: 21/02/2011

Postato alle 15:59
Martedì, 22/02/2011

Salve ragazzi, non riesco a fa eseguire la funzione trigonometrica della tangente^-1
alla calcolatrice che sto programmando. Ho letto che esprime il risultato in radianti e a me servirebbe in Gradi quindi ho provato a moltiplicare il risultato della funzione System.math.atan per PiGreco/180 che funziona per le funzioni Seno, coseno, tangente ma non quando sono elevate alla -1

Codice sorgente - presumibilmente VB.NET

Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        
        Dim PG,  atan, val As Double
        val = CDbl(TxtVal.text)
        PG = (3.14159265358979)
        atan = System.Math.Atan(val * (PG / 180))
        TxtAtan.Text = atan
    End Sub

in cosa sbaglio?

Ultima modifica effettuata da GiuZeppelin il 22/02/2011 alle 16:01

TheKaneB (Member)
Guru^2

Messaggi: 1792
Iscritto: 26/06/2009

Postato alle 22:51
Martedì, 22/02/2011

argh... non è tangente "elevato alla -1" (che sarebbe 1 / tan, nota anche come cotangente ), ma trattasi di arcotangente, cioè una cosa completamente diversa ( è la funzione "inversa" della tangente).

Dal momento che la tangente prende un angolo e sputa fuori un numero reale, la sua inversa prenderà un numero reale e sputerà fuori un angolo.

Il tuo problema non è nella programmazione ma nella matematica che sta dietro al tuo programma :P