Funzioni trigonometriche

di
silene
il
5 risposte
S
silene
Utente Attivo
Iscritto da
feb, 2012
Messaggi:
117

Funzioni trigonometriche

Salve,
una richiesta forse non facile.
Dopo aver calcolato il seno di un angolo (in radianti) avrei bisogno di risalire al valore dell'angolo per poter calcolare poi la lunghezza di un arco.
Qualcuno mi dà una dritta?

Grazie mille

5 Risposte

  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8762

    Re: Funzioni trigonometriche

    silene ha scritto:

    Salve,
    una richiesta forse non facile.
    Dopo aver calcolato il seno di un angolo (in radianti) avrei bisogno di risalire al valore dell'angolo per poter calcolare poi la lunghezza di un arco.
    Qualcuno mi dà una dritta?

    Grazie mille
    Come sai è solo questione di Matematica, non esiste in VBA la funzione ARCOSENO,ma conoscendone l'inviluppo matematico
    
Public Function Arcsin(x as double) as double
   Arcsin = Atn(X / Sqr(-X * X + 1))
end function
    Per la lunghezza dell'arco... sempre matematica...
    
lngArco = C * Angolo / 360
lngArco = 2*PI*raggio*Angolo/360
Dove:
C = lunghezza della circonferenza.
Angolo = angolo espresso in gradi
  • S
    silene
    Utente Attivo
    Iscritto da
    feb, 2012
    Messaggi:
    117

    Re: Funzioni trigonometriche

    Salve Alex,
    Nel codice Sin(numero) vi inserisco,in rapporto,due variabili che rappresentano che rappresentano rispettivamente l'ipotenusa ed il cateto opposto all'angolo alfa.
    Il risultato(in access) dovrebbe essere appunto il seno di un angolo espresso in radianti.
    Ma da una verifica fatta con una calcolatrice i valori non coincidono e quindi deduco che access mi restituisce un valore errato.
    Dove stà il problema?
    Grazie per l'eventuale risposta (..forse perderai la pazienza....)
    Buona notte
    Silene
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8762

    Re: Funzioni trigonometriche

    Quì trovi un'insieme di Funzioni matematiche complete un Modulo, non ho avuto modo di verificare
    la corrispondenza della tua affermazione.


    Credo, ma purtroppo senza avere riscontro da un tuo esempio non ne ho certezza, che l'errore possa dipendere dal DataType che potresti avere usato.
    E' risaputo che i DataType(FloatingPoint) introducono errori proprio per l'arrotondamento dipendente
    dalla specificità del dato.

    Tu che tipo di dato hai passato alla funzione...?
  • S
    silene
    Utente Attivo
    Iscritto da
    feb, 2012
    Messaggi:
    117

    Re: Funzioni trigonometriche

    Ciao Alex,
    credo di aver risolto il mio problema ( calcolare raggio e arco di un arcosesto ribassato)
    Codice: 
    Private Sub Comando29_Click()
Testo17 = (((L / 2) ^ 2) + ((H - H1) * (H - H1))) / ((H - H1) * 2)
sx = (L / 2) / Testo17
Testo53 = sx
Testo55 = Atn(sx / Sqr(-sx * sx + 1))
Testo57 = Testo55 * 180 / 3.14
Testo19.Value = 0.01744 * Testo17 * Testo57 * 2
End Sub
    Testo 17= calcolo il raggio del cerchio ( formuletta pratica)
    sx=calcolo il rapporto tra il cateto e l'ipotenusa del triangolo formato dal raggio, metà larghezza dell'arco e il raggio diminuito dell'altezza dell'arco. In pratica risulta, in radianti, il seno dell'angolo al centro.
    Testo 55 calcolo l'angolo( in RAD) della funzione
    Testo57 calcolo l'angolo in gradi
    Testo 19 calcolo il valore dell'arco intero.
    Cosa ne pensi?

    Buona domenica
    silene
  • /
    Anonimizzato10115
    Utente anonimizzato

    Re: Funzioni trigonometriche

    ftp://ftp.microsoft.com/softlib/mslfiles/neatcd97.ex
    nel file ci sono molte funzioni trigonometriche
    ciao
Devi accedere o registrarti per scrivere nel forum
5 risposte