Trigonometric functions: Difference between revisions

Line 59:

{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}

{{works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386}}

<pre>

main:(

REAL pi = 4 * arc tan(1);

Line 82:

print((temp, " ", temp * 180 / pi, new line))

)

</~~pre~~>

</lang>

Output:

<pre>

Line 185:

=={{header|Forth}}==

45e pi f* 180e f/ \ radians

<lang forth> 45e pi f* 180e f/ \ radians

cr fdup fsin f. \ also available: fsincos ( r -- sin cos )

Line 192:

cr fdup fasin f.

cr fdup facos f.

cr fatan f. \ also available: fatan2 ( r1 r2 -- atan[r1/r2] )

cr fatan f. \ also available: fatan2 ( r1 r2 -- atan[r1/r2] )</lang>

=={{header|Fortran}}==

Line 224:

0.785398 45.0000

The following trigonometric functions are also available

ATAN2(y,x) ! Arctangent(y/x), ''-pi < result <= +pi''

<lang fortran> ATAN2(y,x) ! Arctangent(y/x), ''-pi < result <= +pi''

SINH(x) ! Hyperbolic sine

COSH(x) ! Hyperbolic cosine

TANH(x) ! Hyperbolic tangent

TANH(x) ! Hyperbolic tangent</lang>

=={{header|Haskell}}==

Line 284:

Sine, cosine, and tangent of a single angle, indicated as pi-over-four radians and as 45 degrees:

>,:(1&o. ; 2&o. ; 3&o.) (4%~o. 1), 180%~o. 45

0.707107 0.707107

1 1

Arcsine, arccosine, and arctangent of one-half, in radians and degrees:

>,:([ , 180p_1&*)&.> (_1&o. ; _2&o. ; _3&o.) 0.5

0.523599 30

1.0472 60

Line 360:

=={{header|Logo}}==

[[UCB Logo]] has sine, cosine, and arctangent; each having variants for degrees or radians.

print sin 45

<lang logo> print sin 45

print cos 45

print arctan 1

Line 366:

print radsin :pi / 4

print radcos :pi / 4

print 4 * radarctan 1

print 4 * radarctan 1</lang>

=={{header|OCaml}}==

Line 437:

flag to 'true' arguments are in radians.

<pre>

sin(30) =>

cos(45) =>

Line 453:

arccos(0.7) =>

arctan(0.7) =>

</~~pre~~>

</lang>

=={{header|Python}}==