atan()

atan(<tangente>)

Retorna:

La arcotangente de una tangente dada.

Descripción:

Calcula la arcotangente de la tangente pasada como parámetro en milésimas, es decir, se obtiene el ángulo correspondiente a una tangente (operación inversa a la tangente, que se puede obtener con la función tan()).

Los ángulos se manipulan siempre en milésimas de grado (ver el uso de ángulos en el lenguaje), por ello la arcotangente se devuelve también en milésimas.

La <tangente> se requiere como un valor dentro del rango min_int ... max_int (de -inf a +inf), y el resultado se devuelve como un ángulo entre -90000 y 90000 (de -90 a +90 grados).

Nota: Existe otra función para calcular la arcotangente llamada atan2(), dicha función toma como parámetros <x> e <y> y devuelve la arcotangente de y/x entre -180000 y 180000 (de -180 a 180 grados).

PROGRAM ejemplo_atan;

GLOBAL
    tangente[15];
    ángulo[15];
    n;

BEGIN
    write(0,0,0,0,"Tangente");
    write(0,160,0,0,"Arcotangente(ángulo)");
    FROM n=0 TO 15;
        tangente[n] = rand(-1000, 1000);

        ángulo[n] = atan(tangente[n]); // Se calcula la arcotangente de una tangente

        write_int(0, 0,   20+n*10, 0, offset tangente[n]);
        write_int(0, 160, 20+n*10, 0, offset ángulo[n]);
    END
    write(0,0,192,0,"Pulse ESC para terminar ...");
    REPEAT
        FRAME;
    UNTIL (key(_esc));
END

Este programa imprimirá en pantalla una lista de tangentes, aleatoriamente escogidas entre -1000 y 1000 (-1.0 y 1.0), y utilizará la función atan() para calcular la arcotangente de las mismas (entre -45 y 45 grados).