Intrínsecas matemáticas en Fortran

La caja de herramientas numérica viene en el lenguaje: hypot, atan2, modulo y compañía.

program intrinsic_math
    implicit none
    real :: opposite = 3.0, adjacent = 4.0

    ! The numeric toolbox is built into the language.
    print *, "hypotenuse: ", hypot(opposite, adjacent)
    print *, "angle, deg: ", atan2(opposite, adjacent) * 57.29578
    print *, "square root: ", sqrt(2.0)
    print *, "e cubed:     ", exp(3.0)
    print *, "wrap 370:    ", modulo(370.0, 360.0)
    print *, "nearest int: ", nint(11.2), nint(11.7)
end program intrinsic_math

Cómo funciona

1. hypot(3.0, 4.0) da la respuesta 3-4-5 sin riesgo de desborde.
2. atan2 toma opuesto y adyacente y devuelve el ángulo de cuadrante completo.
3. modulo envuelve los 370 grados; nint redondea al más cercano en vez de truncar.

Palabras clave y builtins usados aquí

• end
• exp
• hypot
• implicit
• modulo
• nint
• none
• print
• program
• real
• sqrt

El intento, en números

Líneas

12

Caracteres a escribir

433

Tokens

84

Ritmo de tres estrellas

65 tpm

Al ritmo de tres estrellas de 65 tokens por minuto, este intento toma unos 78 segundos.

Escribe este fragmento

Paso 2 de 3 en Kinds y módulos; paso 23 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →