Trigonometric functions: Difference between revisions
Added Easylang
(Added Quackery.) |
(Added Easylang) |
||
(17 intermediate revisions by 15 users not shown) | |||
Line 20:
{{trans|Python}}
<
V deg = 45.0
print(‘Sine: ’sin(rad)‘ ’sin(radians(deg)))
Line 30:
print(‘Arccosine: ’arccosine‘ ’degrees(arccosine))
V arctangent = atan(tan(rad))
print(‘Arctangent: ’arctangent‘ ’degrees(arctangent))</
{{out}}
Line 46:
(This doesn't have the inverse functions; the Taylor series for those take too long to converge.)
<
(if (zp n)
1
Line 124:
(cw "~%tangent of pi / 4 radians: ")
(cw (as-decimal-str (tangent (/ *pi-approx* 4)) 20))
(cw "~%")))</
<pre>sine of pi / 4 radians: 0.70710678118654752440
Line 133:
=={{header|ActionScript}}==
Actionscript supports basic trigonometric and inverse trigonometric functions via the Math class, including the atan2 function, but not the hyperbolic functions.
<
trace("sin(Pi/4) = ", Math.sin(Math.PI/4));
trace("cos(Pi/4) = ", Math.cos(Math.PI/4));
Line 149:
trace("arctan(0.5) = ", Math.atan(0.5)*180/Math.PI);
trace("arctan2(-1,-2) = ", Math.atan2(-1,-2)*180/Math.PI);
</syntaxhighlight>
=={{header|Ada}}==
Line 155:
The examples below specify the cycle for degrees and for radians. <br>
The output of the inverse trig functions is in units of the specified cycle (degrees or radians).
<
use Ada.Numerics.Elementary_Functions;
with Ada.Float_Text_Io; use Ada.Float_Text_Io;
Line 189:
Put (Arccot (X => Cot (Angle_Degrees, Degrees_Cycle)),
Arccot (X => Cot (Angle_Degrees, Degrees_Cycle)));
end Trig;</
{{out}}
Line 211:
{{works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386}}
<
REAL pi = 4 * arc tan(1);
# Pi / 4 is 45 degrees. All answers should be the same. #
Line 232:
temp := arc tan(tan(radians));
print((temp, " ", temp * 180 / pi, new line))
)</
{{out}}
<pre>
Line 244:
=={{header|ALGOL W}}==
<
% Algol W only supplies sin, cos and arctan as standard. We can define %
% arcsin, arccos and tan functions using these. The standard functions %
Line 305:
end
end.</
{{out}}
<pre>
Line 333:
{{trans|C}}
<
radians: pi/4
Line 354:
print "arctangent"
print [atan tan radians, (atan tan radians)*180/pi]</
{{out}}
Line 370:
arctangent
0.7853981633974483 45.0</pre>
=={{header|Asymptote}}==
<syntaxhighlight lang="asymptote">real pi = 4 * atan(1);
real radian = pi / 4.0;
real angulo = 45.0 * pi / 180;
write("Radians : ", radian);
write("Degrees : ", angulo / pi * 180);
write();
write("Sine : ", sin(radian), sin(angulo));
write("Cosine : ", cos(radian), cos(angulo));
write("Tangent : ", tan(radian), tan(angulo));
write();
real temp = asin(sin(radian));
write("Arc Sine : ", temp, temp * 180 / pi);
temp = acos(cos(radian));
write("Arc Cosine : ", temp, temp * 180 / pi);
temp = atan(tan(radian));
write("Arc Tangent : ", temp, temp * 180 / pi);</syntaxhighlight>
{{out}}
<pre>Radians : 0.785398163397448
Degrees : 45
Sine : 0.707106781186547 0.707106781186547
Cosine : 0.707106781186548 0.707106781186548
Tangent : 1 1
Arc Sine : 0.785398163397448 45
Arc Cosine : 0.785398163397448 45
Arc Tangent : 0.785398163397448 45</pre>
=={{header|AutoHotkey}}==
{{trans|C}}
<
radians := pi / 4
degrees := 45.0
Line 400 ⟶ 431:
0.785398 45.000000
0.785398 45.000000
*/</
=={{header|Autolisp}}==
Autolisp provides <b>(sin x) (cos x) (tan x)</b> and <b>(atan x)</b>.
Function arguments are expressed in radians.
<syntaxhighlight lang="autolisp">
(defun rad_to_deg (rad)(* 180.0 (/ rad PI)))
(defun deg_to_rad (deg)(* PI (/ deg 180.0)))
Line 431 ⟶ 462:
(list "atan pi/12" (atan (/ pi 12)) "atan 15 deg" (rad_to_deg(atan(deg_to_rad 15))))
)
</syntaxhighlight>
{{out}}
<pre>
Line 459 ⟶ 490:
<tt>atan2(y, x)</tt> actually computes the angle of the point ''(x, y)'', in the range ''[-pi, pi]''. When x > 0, this angle is the principle arctangent of ''y/x'', in the range ''(-pi/2, pi/2)''. The calculations for arcsine and arccosine use points on the unit circle at ''x<sup>2</sup> + y<sup>2</sup> = 1''. To calculate arcsine in the range ''[-pi/2, pi/2]'', we take the angle of points on the half-circle ''x = sqrt(1 - y<sup>2</sup>)''. To calculate arccosine in the range ''[0, pi]'', we take the angle of points on the half-circle ''y = sqrt(1 - x<sup>2</sup>)''.
<
function tan(x) {
return sin(x) / cos(x)
Line 498 ⟶ 529:
print " acos(-sqrt(2) / 2) =", acos(-sqrt(2) / 2) / degrees
print " atan(sqrt(3)) =", atan(sqrt(3)) / degrees
}</
{{out}}
Line 521 ⟶ 552:
The inverse tangent takes dX and dY parameters, rather than a single argument. This is because it is most often used to calculate angles.
<
Disp cos(43)▶Dec,i
Disp tan⁻¹(10,10)▶Dec,i</
{{out}}
Line 541 ⟶ 572:
=={{header|BaCon}}==
<
' The RAD() function converts from degrees to radians
Line 556 ⟶ 587:
PRINT "Arc Tangent: ", TAN(r), " is ", DEG(ATN(TAN(r))), " degrees (or ", ATN(TAN(r)), " radians)"
PRINT
NEXT</
{{out}}
Line 607 ⟶ 638:
{{works with|QuickBasic|4.5}}
QuickBasic 4.5 does not have arcsin and arccos built in. They are defined by identities found [[wp:Arctan#Relationships_among_the_inverse_trigonometric_functions|here]].
<
radians = pi / 4 'a.k.a. 45 degrees
degrees = 45 * pi / 180 'convert 45 degrees to radians once
Line 621 ⟶ 652:
arccos = 2 * ATN(SQR(1 - thecos ^ 2) / (1 + thecos))
PRINT arccos + " " + arccos * 180 / pi
PRINT ATN(TAN(radians)) + " " + ATN(TAN(radians)) * 180 / pi 'arctan</
==={{header|Applesoft BASIC}}===
The arcsine and arccoscine functions, while not intrinsic to Applesoft BASIC, are
calculated using the existing BASIC functions and implemented as FN ASN and FN ACS
using the DEF FN function.
<syntaxhighlight lang="gwbasic"> 100 TAU = 8 * ATN (1)
110 RAD = TAU / 8
120 DEG = 45.0
130 DEF FN RAD(DEG) = DEG * TAU / 360
140 DEF FN DEG(RAD) = RAD / TAU * 360
150 DEF FN ASN(RAD) = ATN (RAD / SQR ( - RAD * RAD + 1))
160 DEF FN ACS(RAD) = - ATN (RAD / SQR ( - RAD * RAD + 1)) + TAU / 4
170 PRINT " SINE: " SIN (RAD);: HTAB (25): PRINT SIN ( FN RAD(DEG))
180 PRINT " COSINE: " COS (RAD);: HTAB (25): PRINT COS ( FN RAD(DEG))
190 PRINT " TANGENT: " TAN (RAD);: HTAB (25): PRINT TAN ( FN RAD(DEG))
200 ARC = FN ASN( SIN (RAD))
210 PRINT " ARCSINE: "ARC;: HTAB (25): PRINT FN DEG(ARC)
220 ARC = FN ACS( COS (RAD))
230 PRINT " ARCCOSINE: "ARC;: HTAB (25): PRINT FN DEG(ARC)
240 ARC = ATN ( TAN (RAD))
250 PRINT " ARCTANGENT: "ARC;: HTAB (25): PRINT FN DEG(ARC);</syntaxhighlight>
{{out}}
<pre>
SINE: .707106781 .707106781
COSINE: .707106781 .707106781
TANGENT: 1 1
ARCSINE: .785398163 45
ARCCOSINE: .785398164 45.0000001
ARCTANGENT: .785398163 45
</pre>
==={{header|BASIC256}}===
<syntaxhighlight lang="basic256">radian = pi / 4
angulo = 45.0 * pi / 180
print "Radians : "; radians(angulo); " ";
print "Degrees : "; degrees(radian)
print
print "Sine : "; sin(radian); " "; sin(angulo)
print "Cosine : "; cos(radian); " "; cos(angulo)
print "Tangent : "; tan(radian); " "; tan(angulo)
print
#temp = asin(sin(radians(angulo)))
temp = asin(sin(radian))
print "Arc Sine : "; temp; " "; degrees(temp)
temp = acos(cos(radian))
print "Arc Cosine : "; temp; " "; degrees(temp)
temp = atan(tan(radian))
print "Arc Tangent : "; temp; " "; degrees(temp)
end</syntaxhighlight>
==={{header|BBC BASIC}}===
<
angle_radians = PI/5
Line 637 ⟶ 717:
PRINT ASN(number), DEG(ASN(number))
PRINT ACS(number), DEG(ACS(number))
PRINT ATN(number), DEG(ATN(number))</
==={{header|IS-BASIC}}===
<
110 OPTION ANGLE DEGREES
120 PRINT SIN(DG)
Line 655 ⟶ 735:
230 PRINT ASIN(SIN(RD))
240 PRINT ACOS(COS(RD))
250 PRINT ATN(TAN(RD))</
==={{header|Yabasic}}===
<syntaxhighlight lang="yabasic">radians = pi / 4
degrees = 45.0 * pi / 180
tab$ = chr$(09)
print "Radians : ", radians, " ",
print "Degrees : ", degrees / pi * 180
print
print "Sine : ", sin(radians), tab$, sin(degrees)
print "Cosine : ", cos(radians), tab$, cos(degrees)
print "Tangent : ", tan(radians), tab$, tan(degrees)
print
temp = asin(sin(radians))
print "Arc Sine : ", temp, tab$, temp * 180 / pi
temp = acos(cos(radians))
print "Arc Cosine : ", temp, tab$, temp * 180 / pi
temp = atan(tan(radians))
print "Arc Tangent : ", temp, tab$, temp * 180 / pi
end</syntaxhighlight>
=={{header|bc}}==
{{libheader|bc -l}}
{{trans|AWK}}
<
define t(x) {
return s(x) / c(x)
Line 714 ⟶ 814:
" atan(sqrt(3)) = "; a(sqrt(3)) / d
quit</
{{out}}
Line 731 ⟶ 831:
acos(-sqrt(2) / 2) = 135.00000000000000000000000000000000000000000000005500
atan(sqrt(3)) = 60.00000000000000000000000000000000000000000000002463</pre>
=={{header|BQN}}==
BQN has a system value <code>•math</code> which contains trigonometry functions. Inputs are given in radians. These functions can also be used with BQN's Inverse modifier (<code>⁼</code>) to get their respective defined inverses.
Some results may be inaccurate due to floating point issues.
The following is done in the BQN REPL:
<syntaxhighlight lang="bqn"> ⟨sin, cos, tan⟩ ← •math
Sin 0
0
Sin π÷2
1
Cos 0
1
Cos π÷2
6.123233995736766e¯17
Tan 0
0
Tan π÷2
16331239353195370
Sin⁼ 0
0
Sin⁼ 1
1.5707963267948966
Cos⁼ 1
0
Cos⁼ 0
1.5707963267948966
Tan⁼ 0
0
Tan⁼ ∞
1.5707963267948966</syntaxhighlight>
=={{header|C}}==
<
#include <stdio.h>
Line 760 ⟶ 894:
return 0;
}</
{{out}}
Line 773 ⟶ 907:
=={{header|C sharp|C#}}==
<
namespace RosettaCode {
Line 797 ⟶ 931:
}
}
}</
=={{header|C++}}==
<
#include <cmath>
Line 830 ⟶ 964:
return 0;
}</
=={{header|Clojure}}==
Line 836 ⟶ 970:
{{trans|fortran}}
<
(:require [clojure.contrib.generic.math-functions :as generic]))
Line 851 ⟶ 985:
(println (str (asin (sin radians) ) " " (* (asin (sin (* degrees dtor))) rtod)))
(println (str (acos (cos radians) ) " " (* (acos (cos (* degrees dtor))) rtod)))
(println (str (atan (tan radians) ) " " (* (atan (tan (* degrees dtor))) rtod)))</
{{out}} (matches that of Java)
Line 863 ⟶ 997:
=={{header|COBOL}}==
<
PROGRAM-ID. Trig.
Line 901 ⟶ 1,035:
GOBACK
.</
{{out}}
Line 922 ⟶ 1,056:
=={{header|Common Lisp}}==
<
(defun rad->deg (x) (* x (/ 180 pi)))
Line 937 ⟶ 1,071:
(rad->deg (acos 1/2))
(atan 15)
(rad->deg (atan 15))))</
=={{header|D}}==
{{trans|C}}
<
import std.stdio, std.math;
Line 961 ⟶ 1,095:
immutable real t3 = PI_4.tan.atan;
writefln("Arctangent: %.20f %.20f", t3, t3 * 180.0L / PI);
}</
{{out}}
<pre>Reference: 0.7071067811865475244008
Line 972 ⟶ 1,106:
Arccosine: 0.78539816339744830961 45.00000000000000000000
Arctangent: 0.78539816339744830961 45.00000000000000000000</pre>
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}
<syntaxhighlight lang="Delphi">
procedure ShowTrigFunctions(Memo: TMemo);
const AngleDeg = 45.0;
var AngleRad,ArcSine,ArcCosine,ArcTangent: double;
begin
AngleRad:=DegToRad(AngleDeg);
Memo.Lines.Add(Format('Angle: Degrees: %3.5f Radians: %3.6f',[AngleDeg,AngleRad]));
Memo.Lines.Add('-------------------------------------------------');
Memo.Lines.Add(Format('Sine: Degrees: %3.6f Radians: %3.6f',[sin(DegToRad(AngleDeg)),sin(AngleRad)]));
Memo.Lines.Add(Format('Cosine: Degrees: %3.6f Radians: %3.6f',[cos(DegToRad(AngleDeg)),cos(AngleRad)]));
Memo.Lines.Add(Format('Tangent: Degrees: %3.6f Radians: %3.6f',[tan(DegToRad(AngleDeg)),tan(AngleRad)]));
ArcSine:=ArcSin(Sin(AngleRad));
Memo.Lines.Add(Format('Arcsine: Degrees: %3.6f Radians: %3.6f',[DegToRad(ArcSine),ArcSine]));
ArcCosine:=ArcCos(cos(AngleRad));
Memo.Lines.Add(Format('Arccosine: Degrees: %3.6f Radians: %3.6f',[DegToRad(ArcCosine),ArcCosine]));
ArcTangent:=ArcTan(tan(AngleRad));
Memo.Lines.Add(Format('Arctangent: Degrees: %3.6f Radians: %3.6f',[DegToRad(ArcTangent),ArcTangent]));
end;
</syntaxhighlight>
{{out}}
<pre>
Angle: Degrees: 45.00000 Radians: 0.785398
-------------------------------------------------
Sine: Degrees: 0.707107 Radians: 0.707107
Cosine: Degrees: 0.707107 Radians: 0.707107
Tangent: Degrees: 1.000000 Radians: 1.000000
Arcsine: Degrees: 0.013708 Radians: 0.785398
Arccosine: Degrees: 0.013708 Radians: 0.785398
Arctangent: Degrees: 0.013708 Radians: 0.785398
Elapsed Time: 9.118 ms.
</pre>
=={{header|E}}==
{{trans|ALGOL 68}}
<
def radians := pi / 4.0
Line 991 ⟶ 1,170:
${def acos := radians.cos().acos()} ${r2d(acos)}
${def atan := radians.tan().atan()} ${r2d(atan)}
`)</
{{out}}
Line 1,000 ⟶ 1,179:
0.7853981633974483 45.0
0.7853981633974483 45.0
=={{header|EasyLang}}==
<syntaxhighlight>
r = pi / 4
d = 45
#
func r2d r .
return r / pi * 180
.
func d2r d .
return d * pi / 180
.
#
numfmt 4 0
print sin d & " " & sin r2d r
print cos d & " " & cos r2d r
print tan d & " " & tan r2d r
print ""
h = asin sin d
print h & " " & d2r h
h = acos cos d
print h & " " & d2r h
h = atan tan d
print h & " " & d2r h
</syntaxhighlight>
{{out}}
<pre>
0.7071 0.7071
0.7071 0.7071
1.0000 1.0000
45.0000 0.7854
45 0.7854
45 0.7854
</pre>
=={{header|Elena}}==
{{trans|C++}}
ELENA 4.x:
<
import extensions;
Line 1,027 ⟶ 1,242:
console.readChar()
}</
=={{header|Elixir}}==
{{trans|Erlang}}
<
45
iex(62)> rad = :math.pi / 4
Line 1,048 ⟶ 1,263:
0.7853981633974483
iex(69)> temp * 180 / :math.pi == deg
true</
=={{header|Erlang}}==
{{trans|C}}
<
Deg=45.
Rad=math:pi()/4.
math:sin(Deg * math:pi() / 180)==math:sin(Rad).
</syntaxhighlight>
{{out}}
true
<
math:cos(Deg * math:pi() / 180)==math:cos(Rad).
</syntaxhighlight>
{{out}}
true
<
math:tan(Deg * math:pi() / 180)==math:tan(Rad).
</syntaxhighlight>
{{out}}
true
<
Temp = math:acos(math:cos(Rad)).
Temp * 180 / math:pi()==Deg.
</syntaxhighlight>
{{out}}
true
<
Temp = math:atan(math:tan(Rad)).
Temp * 180 / math:pi()==Deg.
</syntaxhighlight>
{{out}}
Line 1,093 ⟶ 1,308:
=={{header|F_Sharp|F#}}==
<
open FsUnit
Line 1,214 ⟶ 1,429:
let c = System.Math.Cos (toRadians 45.0)
let s = System.Math.Sin (toRadians 45.0)
System.Math.Round(c,5) = System.Math.Round(s,5) |> should be True</
=={{header|Factor}}==
<
prettyprint ;
Line 1,223 ⟶ 1,438:
[ [ . ] compose dup compose ] tri@ 2tri
.5 [ asin ] [ acos ] [ atan ] tri [ dup rad>deg [ . ] bi@ ] tri@</
=={{header|Fantom}}==
Line 1,231 ⟶ 1,446:
Methods are provided to convert: toDegrees and toRadians.
<
class Main
{
Line 1,252 ⟶ 1,467:
}
}
</syntaxhighlight>
=={{header|Forth}}==
<
cr fdup fsin f. \ also available: fsincos ( r -- sin cos )
Line 1,262 ⟶ 1,477:
cr fdup fasin f.
cr fdup facos f.
cr fatan f. \ also available: fatan2 ( r1 r2 -- atan[r1/r2] )</
=={{header|Fortran}}==
Trigonometic functions expect arguments in radians so degrees require conversion
<
REAL pi, dtor, rtod, radians, degrees
Line 1,283 ⟶ 1,498:
WRITE(*,*) ATAN(TAN(radians)), ATAN(TAN(degrees*dtor))*rtod
END PROGRAM Trig</
{{out}}
0.707107 0.707107
Line 1,292 ⟶ 1,507:
0.785398 45.0000
The following trigonometric functions are also available
<
SINH(x) ! Hyperbolic sine
COSH(x) ! Hyperbolic cosine
TANH(x) ! Hyperbolic tangent</
But, for those with access to fatter Fortran function libraries, trigonometrical functions working in degrees are also available.
<syntaxhighlight lang="fortran">
Calculate various trigonometric functions from the Fortran library.
INTEGER BIT(32),B,IP !Stuff for bit fiddling.
Line 1,362 ⟶ 1,577:
WRITE (6,*) " = 11.00100100001111110110101010001000100001..." !But actually...
END !So much for that.
</syntaxhighlight>
Output:
Deg. Sin(Deg) Sin(Rad) Rad - Deg ArcSinD ArcSinR Diff
Line 1,427 ⟶ 1,642:
=={{header|FreeBASIC}}==
{{trans|C}}
<
Const pi As Double = 4 * Atn(1)
Line 1,447 ⟶ 1,662:
temp = Atn(Tan(radians))
Print "Arc Tangent : "; temp, temp * 180 / pi
Sleep</
{{out}}
Line 1,460 ⟶ 1,675:
Arc Cosine : 0.7853981633974483 45
Arc Tangent : 0.7853981633974483 45
</pre>
=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
include "NSLog.incl"
void local fn DoIt
double degrees = 45.0
double radians = degrees * M_PI / 180
NSLog(@"%f, %f",sin(radians),sin(degrees * M_PI / 180))
NSLog(@"%f, %f",cos(radians),cos(degrees * M_PI / 180))
NSLog(@"%f, %f",tan(radians),tan(degrees * M_PI / 180))
NSLog(@"%f, %f",asin(sin(radians)),asin(sin(radians)) * 180 / M_PI)
NSLog(@"%f, %f",acos(cos(radians)),acos(cos(radians)) * 180 / M_PI)
NSLog(@"%f, %f",atan(tan(radians)),atan(tan(radians)) * 180 / M_PI)
end fn
fn DoIt
HandleEvents
</syntaxhighlight>
{{out}}
<pre>
0.707107, 0.707107
0.707107, 0.707107
1.000000, 1.000000
0.785398, 45.000000
0.785398, 45.000000
0.785398, 45.000000
</pre>
=={{header|GAP}}==
<
Pi := Acos(-1.0);
Line 1,480 ⟶ 1,727:
Cos(Deg(d)); Acos(last);
Tan(r); Atan(last);
Tan(Deg(d)); Atan(last);</
=={{header|Go}}==
The Go math package provides the constant pi and the six trigonometric functions called for by the task. The functions all use the float64 type and work in radians. It also provides a [http://golang.org/pkg/math/#Sincos Sincos] function.
<
import (
Line 1,511 ⟶ 1,758:
fmt.Printf("atan(%f) = %9.6f deg\n", t, math.Atan(t)*180/math.Pi)
fmt.Printf("atan(%f) = %9.6f rad\n", t, math.Atan(t))
}</
{{out}}
<pre>
Line 1,530 ⟶ 1,777:
=={{header|Groovy}}==
Trig functions use radians, degrees must be converted to/from radians
<
def degrees = 45
Line 1,541 ⟶ 1,788:
println "asin(\u221A2/2) = ${Math.asin(2**(-0.5))} == asin(\u221A2/2)\u00B0 = ${r2d(Math.asin(2**(-0.5)))}\u00B0"
println "acos(\u221A2/2) = ${Math.acos(2**(-0.5))} == acos(\u221A2/2)\u00B0 = ${r2d(Math.acos(2**(-0.5)))}\u00B0"
println "atan(1) = ${Math.atan(1)} == atan(1)\u00B0 = ${r2d(Math.atan(1))}\u00B0"</
{{out}}
Line 1,555 ⟶ 1,802:
Trigonometric functions use radians; degrees require conversion.
<
fromDegrees deg = deg * pi / 180
Line 1,577 ⟶ 1,824:
, atan 0.5
, toDegrees (atan 0.5)
]</
{{Out}}
<pre>0.49999999999999994
Line 1,594 ⟶ 1,841:
=={{header|HicEst}}==
Translated from Fortran:
<
dtor = pi / 180.0
rtod = 180.0 / pi
Line 1,605 ⟶ 1,852:
WRITE(ClipBoard) ASIN(SIN(radians)), ASIN(SIN(degrees*dtor))*rtod
WRITE(ClipBoard) ACOS(COS(radians)), ACOS(COS(degrees*dtor))*rtod
WRITE(ClipBoard) ATAN(TAN(radians)), ATAN(TAN(degrees*dtor))*rtod</
<
0.7071067812 0.7071067812
1 1
0.7853981634 45
0.7853981634 45
0.7853981634 45</
SINH, COSH, TANH, and inverses are available as well.
=={{header|IDL}}==
<
rad = !dtor*deg ; system variables !dtor and !radeg convert between rad and deg</
<
print, rad, sin(rad), asin(sin(rad))
print, cos(rad), acos(cos(rad))
Line 1,626 ⟶ 1,873:
; 0.610865 0.573576 0.610865
; 0.819152 0.610865
; 0.700208 0.610865</
<
print, sinh(rad) ; etc
; outputs
; 0.649572</
<
x = !dpi/[[2,3],[4,5],[6,7]] ; !dpi is a read-only sysvar = 3.1415...
print,sin(x)
Line 1,639 ⟶ 1,886:
; 1.0000000 0.86602540
; 0.70710678 0.58778525
; 0.50000000 0.43388374</
<
x = complex(1,2)
print,sin(x)
; outputs
; ( 3.16578, 1.95960)</
== Icon and Unicon ==
Icon and Unicon trig functions 'sin', 'cos', 'tan', 'asin', 'acos', and 'atan' operate on angles expressed in radians. Conversion functions 'dtor' and 'rtod' convert between the two systems. The example below uses string invocation to construct and call the functions:
==={{header|Icon}}===
<
procedure main()
Line 1,657 ⟶ 1,904:
every write(f := !["sin","cos","tan"],"(",r,")=",y := f(r)," ",fi := "a" || f,"(",y,")=",x := fi(y)," rad = ",rtod(x)," deg")
end</
{{out}}
<pre>sin(0.5235987755982988)=0.4999999999999999 asin(0.4999999999999999)=0.5235987755982988 rad = 30.0 deg
Line 1,670 ⟶ 1,917:
Sine, cosine, and tangent of a single angle, indicated as pi-over-four radians and as 45 degrees:
<
0.707107 0.707107
0.707107 0.707107
1 1</
Arcsine, arccosine, and arctangent of one-half, in radians and degrees:
<
0.523599 30
1.0472 60
0.463648 26.5651</
The <code>trig</code> script adds cover functions for the trigonometric operations as well as verbs for converting degrees from radians (<code>dfr</code>) and radians from degrees (<code>rfd</code>)
<
(sin , cos ,: tan) (1p1 % 4), rfd 45
0.707107 0.707107
Line 1,690 ⟶ 1,937:
0.523599 30
1.0472 60
0.463648 26.5651</
=={{header|Java}}==
Line 1,696 ⟶ 1,943:
Java's <tt>Math</tt> class contains all six functions and is automatically included as part of the language. The functions all accept radians only, so conversion is necessary when dealing with degrees. The <tt>Math</tt> class also has a <tt>PI</tt> constant for easy conversion.
<
public static void main(String[] args) {
//Pi / 4 is 45 degrees. All answers should be the same.
Line 1,717 ⟶ 1,964:
System.out.println(arctan + " " + Math.toDegrees(arctan));
}
}</
{{out}}
Line 1,733 ⟶ 1,980:
JavaScript's <tt>Math</tt> class contains all six functions and is automatically included as part of the language. The functions all accept radians only, so conversion is necessary when dealing with degrees. The <tt>Math</tt> class also has a <tt>PI</tt> constant for easy conversion.
<
radians = Math.PI / 4, // Pi / 4 is 45 degrees. All answers should be the same.
degrees = 45.0,
Line 1,754 ⟶ 2,001:
window.alert(arccos + " " + (arccos * 180 / Math.PI));
// arctangent
window.alert(arctan + " " + (arctan * 180 / Math.PI));</
=={{header|jq}}==
Line 1,760 ⟶ 2,007:
jq includes the standard C-library trigonometric functions (sin, cos, tan, asin, acos, atan), but they are provided as filters as illustrated in the definition of <tt>radians</tt> below.
The trigonometric filters only accept radians, so conversion is necessary when dealing with degrees. The constant <tt>π</tt> can be defined as also shown in the following definition of <tt>radians</tt>:<
# degrees to radians
def radians:
Line 1,786 ⟶ 2,033:
task
</syntaxhighlight>
{{out}}
<
sin(-pi / 6) = -0.49999999999999994
cos(3 * pi / 4) = -0.7071067811865475
Line 1,801 ⟶ 2,048:
asin(-1 / 2) = -29.999999999999996
acos(-sqrt(2)/2) = 135
atan(sqrt(3)) = 60.00000000000001</
=={{header|Jsish}}==
Line 1,817 ⟶ 2,064:
''Note the inexact nature of floating point approximations.''
<
var x;
Line 1,851 ⟶ 2,098:
Math.tan(x * Math.PI / 180) ==> 0.9999999999999999
=!EXPECTEND!=
*/</
{{out}}
Line 1,873 ⟶ 2,120:
=={{header|Julia}}==
<
rad = π / 4
Line 1,884 ⟶ 2,131:
@show asin(sin(rad)) asin(sin(rad)) |> rad2deg
@show acos(cos(rad)) acos(cos(rad)) |> rad2deg
@show atan(tan(rad)) atan(tan(rad)) |> rad2deg</
{{out}}
Line 1,903 ⟶ 2,150:
=={{header|Kotlin}}==
<syntaxhighlight lang="kotlin">import kotlin.math.*
fun main() {
fun Double.toDegrees() = this * 180 / PI
val angle = PI / 4
println("angle = $angle rad =
val sine = sin(angle)
println("
val cosine = cos(angle)
println("
println("
println()
println("
val acos = acos(cosine)
println("acos(cos(angle)) = $acos rad = ${acos.toDegrees()}°")
val atan = atan(tangent)
println("atan(tan(angle)) = $atan rad = ${atan.toDegrees()}°")
}</syntaxhighlight>
{{out}}
<pre>
angle = 0.7853981633974483 rad = 45.0°
sin(angle) = 0.7071067811865475
cos(angle) = 0.7071067811865476
tan(angle) = 0.9999999999999999
asin(sin(angle)) = 0.7853981633974482 rad = 44.99999999999999°
acos(cos(angle)) = 0.7853981633974483 rad = 45.0°
atan(tan(angle)) = 0.7853981633974483 rad = 45.0°
</pre>
=={{header|Lambdatalk}}==
<
{def deg2rad {lambda {:d} {* {/ {PI} 180} :d}}}
-> deg2rad
Line 1,963 ⟶ 2,207:
{rad2deg {acos 0.5}}° -> 60.00000000000001°
{rad2deg {atan 1}}° -> 45°
</syntaxhighlight>
=={{header|Liberty BASIC}}==
<
radians = pi / 4.0
rtod = 180 / pi
Line 1,979 ⟶ 2,223:
print "Asn: ";ASN(SIN(radians));" Rad, "; ASN(SIN(degrees*dtor))*rtod;" Deg"
print "Acs: ";ACS(COS(radians));" Rad, "; ACS(COS(degrees*dtor))*rtod;" Deg"
print "Atn: ";ATN(TAN(radians));" Rad, "; ATN(TAN(degrees*dtor))*rtod;" Deg"</
{{out}}
<pre>Sin: 0.70710678 0.70710678
Line 1,991 ⟶ 2,235:
=={{header|Logo}}==
[[UCB Logo]] has sine, cosine, and arctangent; each having variants for degrees or radians.
<
print cos 45
print arctan 1
Line 1,997 ⟶ 2,241:
print radsin :pi / 4
print radcos :pi / 4
print 4 * radarctan 1</
[[Lhogho]] has pi defined in its trigonometric functions. Otherwise the same as UCB Logo.
<
print cos 45
print arctan 1
print radsin pi / 4
print radcos pi / 4
print 4 * radarctan 1</
=={{header|Logtalk}}==
<
:- object(trignomeric_functions).
Line 2,024 ⟶ 2,268:
:- end_object.
</syntaxhighlight>
{{out}}
<
?- trignomeric_functions::show.
sin(pi/4.0) = 0.7071067811865475
Line 2,036 ⟶ 2,280:
atan2(3,4) = 0.6435011087932844
yes
</syntaxhighlight>
=={{header|Lua}}==
<
=={{header|Maple}}==
In radians:
<
cos(Pi/3);
tan(Pi/3);</
{{out}}
<pre>
Line 2,062 ⟶ 2,306:
The equivalent in degrees with identical output:
<
sin(60*Unit(degree));
cos(60*Unit(degree));
tan(60*Unit(degree));</
Note, Maple also has secant, cosecant, and cotangent:
<
sec(Pi/3);
cot(Pi/3);</
Finally, the inverse trigonometric functions:
<
arccos(1);
arctan(1);</
{{out}}
<pre>> arcsin(1);
Line 2,093 ⟶ 2,337:
Lastly, Maple also supports the two-argument arctan plus all the hyperbolic trigonometric functions.
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<
Cos[1]
Tan[1]
Line 2,102 ⟶ 2,346:
Sin[90 Degree]
Cos[90 Degree]
Tan[90 Degree]</syntaxhighlight>
=={{header|MATLAB}}==
A full list of built-in trig functions can be found in the [http://www.mathworks.com/access/helpdesk/help/techdoc/ref/f16-5872.html#f16-6197 MATLAB Documentation].
<
angleRadians = angleDegrees * (pi/180);
Line 2,120 ⟶ 2,363:
disp(sprintf('tan(%f)= %f\natan(%f)= %f',[angleRadians tan(angleRadians) tan(angleRadians) atan(tan(angleRadians))]));
disp(sprintf('tand(%f)= %f\narctand(%f)= %f',[angleDegrees tand(angleDegrees) tand(angleDegrees) atand(tand(angleDegrees))]));
end</
{{out}}
<
sin(1.361357)= 0.978148
asin(0.978148)= 1.361357
Line 2,137 ⟶ 2,380:
atan(4.704630)= 1.361357
tand(78.000000)= 4.704630
arctand(4.704630)= 78.000000</
=={{header|Maxima}}==
<
[sin(a), cos(a), tan(a), sec(a), csc(a), cot(a)];
Line 2,149 ⟶ 2,392:
a: 1 / 2;
[sinh(a), cosh(a), tanh(a), sech(a), csch(a), coth(a)], numer;
[asinh(a), acosh(1 / a), atanh(a), asech(a), acsch(a), acoth(1 / a)], numer;</
=={{header|MAXScript}}==
Maxscript trigonometric functions accept degrees only. The built-ins degToRad and radToDeg allow easy conversion.
<
local degrees = 45.0
Line 2,173 ⟶ 2,416:
--arctangent
print (atan (tan (radToDeg radians)))
print (atan (tan degrees))</
=={{header|Metafont}}==
Line 2,179 ⟶ 2,422:
Metafont has <code>sind</code> and <code>cosd</code>, which compute sine and cosine of an angle expressed in degree. We need to define the rest.
<
vardef torad expr x = Pi*x/180 enddef; % conversions
vardef todeg expr x = 180x/Pi enddef;
Line 2,224 ⟶ 2,467:
outcompare(tan(Pi/3), tand(60));
end</
=={{header|MiniScript}}==
<
degToRad = pi/180
print "sin PI/3 radians = " + sin(pi3)
Line 2,240 ⟶ 2,483:
print "tan 60 degrees = " + tan(60*degToRad)
print "arctan 0.5 in radians = " + atan(0.5)
print "arctan 0.5 in degrees = " + atan(0.5)/degToRad</
{{out}}
<pre>
Line 2,266 ⟶ 2,509:
=={{header|Modula-2}}==
<
FROM RealMath IMPORT pi,sin,cos,tan,arctan,arccos,arcsin;
FROM RealStr IMPORT RealToStr;
Line 2,311 ⟶ 2,554:
ReadChar
END Trig.</
=={{header|NetRexx}}==
<
options replace format comments java crossref symbols nobinary utf8
Line 2,349 ⟶ 2,592:
return
</syntaxhighlight>
{{out}}
Line 2,364 ⟶ 2,607:
=={{header|Nim}}==
<
let rad = Pi/4
Line 2,375 ⟶ 2,618:
echo &"Arccosine: {arccos(cos(rad)):.10f} {radToDeg(arccos(cos(degToRad(deg)))):13.10f}"
echo &"Arctangent: {arctan(tan(rad)):.10f} {radToDeg(arctan(tan(degToRad(deg)))):13.10f}"
</syntaxhighlight>
{{out}}
Line 2,388 ⟶ 2,631:
OCaml's preloaded <tt>Pervasives</tt> module contains all six functions. The functions all accept radians only, so conversion is necessary when dealing with degrees.
<
let radians = pi /. 4.
Line 2,401 ⟶ 2,644:
Printf.printf "%f %f\n" arccos (arccos *. 180. /. pi);;
let arctan = atan (tan radians);;
Printf.printf "%f %f\n" arctan (arctan *. 180. /. pi);;</
{{out}}
<pre>
Line 2,414 ⟶ 2,657:
=={{header|Octave}}==
<
d = 180*rad/pi;
endfunction
Line 2,434 ⟶ 2,677:
ifuncs{i}, v, iv,
strcat(ifuncs{i}, "d"), vd, ivd);
endfor</
{{out}}
Line 2,460 ⟶ 2,703:
=={{header|Oforth}}==
<
: testTrigo
Line 2,487 ⟶ 2,730:
System.Out hyp sinh << " - " << hyp sinh asinh << cr
System.Out hyp cosh << " - " << hyp cosh acosh << cr
System.Out hyp tanh << " - " << hyp tanh atanh << cr ;</
{{out}}
Line 2,586 ⟶ 2,829:
rxCalcexp(x) limits x to 709. or so and returns '+infinity' for larger exponents
</pre>
<
* show how the functions can be used
* 03.05.2014 Walter Pachl
Line 2,603 ⟶ 2,846:
Say 'Changed type: ' .locaL~my.rxm~type()
Say 'rxmsin(1) ='rxmsin(1) -- use changed precision and type
::requires rxm.cls</
{{out}}
<pre>Default precision: 16
Line 2,617 ⟶ 2,860:
rxmsin(1) =0.84147098480789650665250232163029899962256306079837</pre>
<
* Package rxm
* implements the functions available in RxMath with high precision
Line 2,964 ⟶ 3,207:
::Method LN2
v=''
v=v||0.69314718055994530941723212145817656807
Line 3,073 ⟶ 3,311:
Else Do /* Exponent is not an integer */
-- Say 'for a negative base ('||b')',
-- 'exponent ('c') must be an integer'
Return 'nan' /* Return not a number */
End
Line 3,653 ⟶ 3,891:
Say " .locaL~my.rxm~precision=50"
Say " .locaL~my.rxm~type='R'"
return 0</
=={{header|Oz}}==
<
PI = 3.14159265
Line 3,676 ⟶ 3,914:
for I#F in [Asin#Sin Acos#Cos Atan#Tan] do
{System.showInfo {I {F Radians}}#" "#{ToDegrees {I {F Radians}}}}
end</
=={{header|PARI/GP}}==
Pari accepts only radians; the conversion is simple but not included here.
<
sin(Pi/2)
tan(Pi/2)
acos(1)
asin(1)
atan(1)</
{{works with|PARI/GP|2.4.3 and above}}
<
=={{header|Pascal}}==
{{libheader|math}}
<
uses
Line 3,712 ⟶ 3,950:
writeln (arctan(tan(radians)),' Rad., or ', arctan(tan(degree/180*pi))/pi*180,' Deg.');
// ( radians ) / pi * 180 = deg.
end.</
{{out}}
<pre> 7.0710678118654750E-0001 7.0710678118654752E-0001
Line 3,725 ⟶ 3,963:
{{works with|Perl|5.8.8}}
<
my $angle_degrees = 45;
Line 3,741 ⟶ 3,979:
print $atan, ' ', rad2deg($atan), "\n";
my $acot = acot(cot($angle_radians));
print $acot, ' ', rad2deg($acot), "\n";</
{{out}}
Line 3,757 ⟶ 3,995:
=={{header|Phix}}==
{{libheader|Phix/basics}}
<!--<
<span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">sin</span><span style="color: #0000FF;">(</span><span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">sin</span><span style="color: #0000FF;">(</span><span style="color: #000000;">90</span><span style="color: #0000FF;">*</span><span style="color: #004600;">PI</span><span style="color: #0000FF;">/</span><span style="color: #000000;">180</span><span style="color: #0000FF;">)</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">cos</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">cos</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">*</span><span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">tan</span><span style="color: #0000FF;">(</span><span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">tan</span><span style="color: #0000FF;">(</span><span style="color: #000000;">45</span><span style="color: #0000FF;">*</span><span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">arcsin</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">2</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">arcsin</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">180</span><span style="color: #0000FF;">/</span><span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">arccos</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">2</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">arccos</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">180</span><span style="color: #0000FF;">/</span><span style="color: #
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">arctan</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">4</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">arctan</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)*</span><span style="color: #000000;">180</span><span style="color: #0000FF;">/</span><span style="color: #
<!--</
{{out}}
<pre>
Line 3,788 ⟶ 4,027:
=={{header|PHP}}==
<
$degrees = 45 * M_PI / 180;
echo sin($radians) . " " . sin($degrees);
Line 3,795 ⟶ 4,034:
echo asin(sin($radians)) . " " . asin(sin($radians)) * 180 / M_PI;
echo acos(cos($radians)) . " " . acos(cos($radians)) * 180 / M_PI;
echo atan(tan($radians)) . " " . atan(tan($radians)) * 180 / M_PI;</
=={{header|PicoLisp}}==
<
(de dtor (Deg)
Line 3,817 ⟶ 4,056:
(format (acos (cos (/ pi 4))) *Scl) " " (format (rtod (acos (cos (dtor 45.0)))) *Scl) )
(prinl
(format (atan (tan (/ pi 4))) *Scl) " " (format (rtod (atan (tan (dtor 45.0)))) *Scl) )</
{{out}}
<pre>0.707107 0.707107
Line 3,827 ⟶ 4,066:
=={{header|PL/I}}==
<syntaxhighlight lang="pl/i">
declare (x, xd, y, v) float;
Line 3,846 ⟶ 4,085:
v = cosh(x); put skip list (v);
v = tanh(x); y = atanh(v); put skip list (y);
</syntaxhighlight>
Results:
<pre>
Line 3,865 ⟶ 4,104:
ATAN2 are accurate to 30 decimal digits.
<
pi NUMBER := 4 * atan(1);
radians NUMBER := pi / 4;
Line 3,876 ⟶ 4,115:
DBMS_OUTPUT.put_line(ACOS(COS(radians)) || ' ' || ACOS(COS(degrees * pi/180)) * 180/pi);
DBMS_OUTPUT.put_line(ATAN(TAN(radians)) || ' ' || ATAN(TAN(degrees * pi/180)) * 180/pi);
end;</
{{out}}
Line 3,887 ⟶ 4,126:
The following trigonometric functions are also available
<
SINH(n) --Hyperbolic sine
COSH(n) --Hyperbolic cosine
TANH(n) --Hyperbolic tangent</
=={{header|Pop11}}==
Line 3,896 ⟶ 4,135:
Pop11 trigonometric functions accept both degrees and radians. In default mode argument is in degrees, after setting 'popradians' flag to 'true' arguments are in radians.
<
cos(45) =>
tan(45) =>
Line 3,910 ⟶ 4,149:
arcsin(0.7) =>
arccos(0.7) =>
arctan(0.7) =></
=={{header|PostScript}}==
<
90 sin =
Line 3,925 ⟶ 4,164:
3 sqrt 1 atan =
</syntaxhighlight>
{{out}}
<pre>
Line 3,939 ⟶ 4,178:
=={{header|PowerShell}}==
{{Trans|C}}
<
$deg = 45
'{0,10} {1,10}' -f 'Radians','Degrees'
Line 3,950 ⟶ 4,189:
'{0,10:N6} {1,10:N6}' -f $temp, ($temp * 180 / [Math]::PI)
$temp = [Math]::Atan([Math]::Tan($rad))
'{0,10:N6} {1,10:N6}' -f $temp, ($temp * 180 / [Math]::PI)</
{{out}}
<pre> Radians Degrees
Line 3,963 ⟶ 4,202:
I would send the output as an array of objects containing the (<code>[double]</code>) properties: '''Radians''' and '''Degrees'''.
Notice the difference between the last decimal place in the first two objects. If you were calculating coordinates as a civil engineer or land surveyor this difference could affect your measurments. Additionally, the output is an array of objects containing <code>[double]</code> values rather than an array of strings.
<syntaxhighlight lang="powershell">
$radians = [Math]::PI / 4
$degrees = 45
Line 3,979 ⟶ 4,218:
[double]$tempVar = [Math]::Atan([Math]::Tan($radians))
[PSCustomObject]@{Radians=$tempVar; Degrees=$tempVar * 180 / [Math]::PI}
</syntaxhighlight>
{{Out}}
<pre>
Line 3,994 ⟶ 4,233:
=={{header|PureBasic}}==
<
Macro DegToRad(deg)
Line 4,017 ⟶ 4,256:
PrintN(StrF(arctan)+" "+Str(RadToDeg(arctan)))
Input()</
{{out}}
Line 4,034 ⟶ 4,273:
The <tt>math</tt> module also has <tt>degrees()</tt> and <tt>radians()</tt> functions for easy conversion.
<
Type "copyright", "credits" or "license()" for more information.
>>> from math import degrees, radians, sin, cos, tan, asin, acos, atan, pi
Line 4,053 ⟶ 4,292:
>>> print("Arctangent:", arctangent, degrees(arctangent))
Arctangent: 0.7853981633974483 45.0
>>> </
=={{header|Quackery}}==
Line 4,063 ⟶ 4,302:
Full disclosure - I am not a mathematician, I am an amateur programmer who has recently heard of Padé Approximants and is desirous of learning more, as they look to be a useful tool, but not a panacea.
A search of Rosetta Code at the time of writing (14 July 2021) finds no references to Padé or Pade on the site. A more general search of the Internet turns up such phrases as "is the "best" approximation of a function by a rational function of given order" and "The unreasonable effectiveness of Pade approximation", which piqued my interest. Generally there are scholarly papers in the subject that whoosh right over my head, and very little at the "pop-maths" level, i.e. no videos by my go-to YouTube channels - numberphile/computerphile, 3blue1brown,
In the absence of sources pitched at my level, this is the methodology I have developed to create this code.
Line 4,085 ⟶ 4,324:
Note also that the approximation of π/2 is good to 40 decimal places. This is intentional overkill, so that I can be sure that it is not the cause of any inaccuracies. Reducing the size of the numerator and denomination to more sensible values would be part of the optimisation process.
<
[ 2646693125139304345
Line 4,210 ⟶ 4,449:
arctan rad->deg
say "Arctan approximation: " 20 point$ echo$ cr
say " Actual value: 28.64788976..."</
{{out}}
Line 4,264 ⟶ 4,503:
=={{header|R}}==
<
rad <- function(degrees) degrees*pi/180
sind <- function(ang) sin(rad(ang))
Line 4,286 ⟶ 4,525:
print( c( asin(S), asind(S) ) )
print( c( acos(C), acosd(C) ) )
print( c( atan(T), atand(T) ) )</
=={{header|Racket}}==
<
(define radians (/ pi 4))
(define degrees 45)
Line 4,306 ⟶ 4,545:
(define arctan (atan (tan radians)))
(display (format "~a ~a" arctan (* arctan (/ 180 pi))))</
=={{header|Raku}}==
(formerly Perl 6) Borrow the degree to radian routine from [https://rosettacode.org/wiki/Length_of_an_arc_between_two_angles#Raku here].
{{works with|Rakudo|2020.12}}
<syntaxhighlight lang="raku"
sub postfix:<°> (\ᵒ) { ᵒ × τ / 360 }
Line 4,326 ⟶ 4,565:
say tan 30° ;
( asin(3.sqrt/2), acos(1/sqrt 2), atan(1/sqrt 3) )».&{ .say and .㎭🡆°.say }</
{{out}}
<pre>
Line 4,344 ⟶ 4,583:
=={{header|RapidQ}}==
<
$TYPECHECK ON
Line 4,376 ⟶ 4,615:
pause("Press any key to continue.")
END 'MAIN</
=={{header|Rapira}}==
<syntaxhighlight lang="rapira">output: sin(pi/2), " ", cos(0), " ", tg(pi/4)</syntaxhighlight>
=={{header|REBOL}}==
<
Title: "Trigonometric Functions"
URL: http://rosettacode.org/wiki/Trigonometric_Functions
Line 4,405 ⟶ 4,647:
arctan: arctangent tangent degrees
print [d2r arctan arctan]</
{{out}}
Line 4,435 ⟶ 4,677:
<br>of extended digits for '''pi''' or '''e''', they could be extended to any almost any precision (as a REXX constant). Normally,
<br>a REXX (external) subroutine is used for such purposes so as to not make the program using the constant unwieldy large.
<
showdigs= 25 /*show only 25 digits of number. */
numeric digits showdigs + 10 /*DIGITS default is 9, but use */
Line 4,515 ⟶ 4,757:
return pi /*Note: the actual PI subroutine returns PI's accuracy that */
/*matches the current NUMERIC DIGITS, up to 1 million digits.*/
/*John Machin's formula is used for calculating more digits. */</
Programming note:
╔═════════════════════════════════════════════════════════════════════════════╗
Line 4,587 ⟶ 4,829:
=={{header|Ring}}==
<
pi = 3.14
decimals(8)
Line 4,597 ⟶ 4,839:
see "atan(tan(pi/4.0)) = " + atan(tan(pi/4.0)) + nl
see "atan2(3,4) = " + atan2(3,4) + nl
</syntaxhighlight>
=={{header|RPL}}==
RPL has somewhere a system flag that defines if arguments passed to trigonometric functions are in degrees or radians. The words <code>DEG</code> and <code>RAD</code> set the flag appropriately.
We can therefore answer the task so:
π 4 / →NUM 'XRAD' STO
45 'XDEG' STO
XRAD RAD SIN XDEG DEG SIN
which will return <code>.707106781187</code> 2 times.
Another way is to stay in the same trigonometric mode and use <code>D→R</code> or <code>R→D</code> conversion words. This is the way used below:
RAD
π 4 / →NUM SIN 45 D→R SIN
π 3 / →NUM COS 60 D→R COS
π 6 / →NUM TAN 30 D→R TAN
{{out}}
<pre>
6: .707106781187
5: .707106781187
4: .499999999997
3: .499999999997
2: .577350269189
1: .577350269189
</pre>
As we have now in the stack the 6 values to be inversed, let's call the required functions in reverse order. The <code>6 ROLLD</code> instruction pushes the number from level 1 to level 6 of the stack, making thus the next number available for inversion.
ATAN R→D 6 ROLLD
ATAN 6 ROLLD
ACOS R→D 6 ROLLD
ACOS 6 ROLLD
ASIN R→D 6 ROLLD
ASIN 6 ROLLD
{{out}}
<pre>
6: .785398163397
5: 45
4: 1.0471975512
3: 60.0000000002
2: .523598775598
1: 30
</pre>
Calculations made with a HP-28S. Emulator has better precision and returns 60 for <code>60 D→R COS ACOS R→D</code>
=={{header|Ruby}}==
Ruby's <tt>Math</tt> module contains all six functions. The functions all accept radians only, so conversion is necessary when dealing with degrees.
<
degrees = 45.0
Line 4,628 ⟶ 4,908:
#arctangent
arctan = Math.atan(Math.tan(radians))
puts "#{arctan} #{rad2deg(arctan)}"</
{{out}}
Line 4,645 ⟶ 4,925:
{{trans|bc}}
{{works with|Ruby|1.9}}
<
require 'bigdecimal/math' # BigMath
Line 4,707 ⟶ 4,987:
"\n atan(sqrt(3)) = ",
f[ atan(sqrt(b3, prec), prec) / degrees ],
"\n")</
{{out}}
Line 4,728 ⟶ 5,008:
=={{header|Run BASIC}}==
<
deg = 45.0
Line 4,746 ⟶ 5,026:
' This code also works in Liberty BASIC.
' The above (atn(1)/45) = approx .01745329252</
{{out}}
<pre>Ratios for a 45.0 degree angle, (or 0.785398163 radian angle.)
Line 4,760 ⟶ 5,040:
{{trans|Perl}}
<
use std::f64::consts::PI;
Line 4,778 ⟶ 5,058:
let atan = angle_radians.tan().atan();
println!("{} {}", atan, atan.to_degrees());
}</
{{out}}
<pre>
Line 4,790 ⟶ 5,070:
=={{header|SAS}}==
<
pi = 4*atan(1);
deg = 30;
Line 4,820 ⟶ 5,100:
b=atan(x)/k;
put a b;
run;</
=={{header|Scala}}==
{{libheader|Scala}}<
object Gonio extends App {
Line 4,845 ⟶ 5,125:
val bgtan2 = atan2(1, 1)
println(s"$bgtan ${toDegrees(bgtan)}")
}</
=={{header|Scheme}}==
<
(define radians (/ pi 4))
Line 4,884 ⟶ 5,164:
(display " ")
(display (* arctan (/ 180 pi)))
(newline)</
=={{header|Seed7}}==
Line 4,896 ⟶ 5,176:
[http://seed7.sourceforge.net/libraries/math.htm#atan%28ref_float%29 atan].
<
include "float.s7i";
include "math.s7i";
Line 4,912 ⟶ 5,192:
writeln("arccosine: " <& acos(0.70710677) digits 5 <& acos(0.70710677) * 180.0 / PI digits 5 lpad 9);
writeln("arctangent: " <& atan(1.0) digits 5 <& atan(1.0) * 180.0 / PI digits 5 lpad 9);
end func;</
{{out}}
Line 4,926 ⟶ 5,206:
=={{header|Sidef}}==
<
var angle_rad = Num.pi/4;
Line 4,945 ⟶ 5,225:
] {
say [n, rad2deg(n)].join(' ');
}</
{{out}}
<pre>
Line 4,957 ⟶ 5,237:
0.785398163397448 45
</pre>
=={{header|SparForte}}==
As a structured script.
<syntaxhighlight lang="ada">#!/usr/local/bin/spar
pragma annotate( summary, "trig" )
@( description, "If your language has a library or built-in " )
@( description, "functions for trigonometry, show examples of: ")
@( description, "sine, cosine, tangent, inverses (of the above) " )
@( description, "using the same angle in radians and degrees." )
@( description, "" )
@( description, "For the non-inverse functions, each radian/" )
@( description, "degree pair should use arguments that evaluate to " )
@( description, "the same angle (that is, it's not necessary to " )
@( description, "use the same angle for all three regular " )
@( description, "functions as long as the two sine calls use the " )
@( description, "same angle). For the inverse functions, use " )
@( description, "the same number and convert its answer to radians " )
@( description, "and degrees." )
@( category, "tutorials" )
@( author, "Ken O. Burtch" )
@( see_also, "http://rosettacode.org/wiki/Trigonometric_functions" );
pragma license( unrestricted );
pragma software_model( nonstandard );
pragma restriction( no_external_commands );
procedure trig is
degrees_cycle : constant float := 360.0;
radians_cycle : constant float := 2.0 * float( numerics.pi );
angle_degrees : constant float := 45.0;
angle_radians : constant float := float( numerics.pi ) / 4.0;
begin
put( "Sin " )
@( numerics.sin( angle_degrees, degrees_cycle ) )
@( numerics.sin( angle_radians, radians_cycle ) );
new_line;
put( "Cos " )
@( numerics.cos( angle_degrees, degrees_cycle ) )
@( numerics.cos( angle_radians, radians_cycle ) );
new_line;
put( "Tan " )
@( numerics.tan( angle_degrees, degrees_cycle ) )
@( numerics.tan( angle_radians, radians_cycle ) );
new_line;
put( "Cot " )
@( numerics.cot( angle_degrees, degrees_cycle ) )
@( numerics.cot( angle_radians, radians_cycle ) );
new_line;
put( "Arcsin" )
@( numerics.arcsin( numerics.sin( angle_degrees, degrees_cycle ), degrees_cycle ) )
@( numerics.arcsin( numerics.sin( angle_radians, radians_cycle ), radians_cycle ) );
new_line;
put( "Arccos" )
@( numerics.arccos( numerics.cos( angle_degrees, degrees_cycle ), degrees_cycle ) )
@( numerics.arccos( numerics.cos( angle_radians, radians_cycle ), radians_cycle ) );
new_line;
put( "Arctan" )
@( numerics.arctan( numerics.tan( angle_degrees, degrees_cycle ), 1, degrees_cycle ) )
@( numerics.arctan( numerics.tan( angle_radians, radians_cycle ), 1, radians_cycle ) );
new_line;
put( "Arccot" )
@( numerics.arccot( numerics.cot( angle_degrees, degrees_cycle ), 1, degrees_cycle ) )
@( numerics.arccot( numerics.cot( angle_radians, radians_cycle ), 1, radians_cycle ) );
new_line;
command_line.set_exit_status( 0 );
end trig;</syntaxhighlight>
{{out}}
<pre>
$ spar trig
Sin 7.07106781186547E-01 7.07106781186547E-01
Cos 7.07106781186547E-01 7.07106781186548E-01
Tan 1.00000000000000E+00 9.99999999999998E-01
Cot 1.00000000000000E+00 1.00000000000000E+00
Arcsin 4.50000000000000E+01 7.85398163397448E-01
Arccos 4.50000000000000E+01 7.85398163397448E-01
Arctan 45 7.85398163397448E-01
Arccot 45 7.85398163397449E-01</pre>
=={{header|SQL PL}}==
{{works with|Db2 LUW}}
With SQL only:
<
--Conversion
values degrees(3.1415926);
Line 4,994 ⟶ 5,359:
values atan(tan(radians(180)/3));
values atan(tan(radians(60)));
</syntaxhighlight>
Output:
<pre>
Line 5,080 ⟶ 5,445:
Stata computes only in radians, but the conversion is easy.
<
display cos(30*deg)
Line 5,092 ⟶ 5,457:
display acos(0.5)
display asin(0.5)
display atan(0.5)</
=={{header|Tcl}}==
The built-in functions only take radian arguments.
<
proc PI {} {expr {4*atan(1)}}
Line 5,113 ⟶ 5,478:
set arctan [atan [tan $radians]]; puts "$arctan [rad2deg $arctan]"
}
trig 60.0</
<pre>0.8660254037844386
0.5000000000000001
Line 5,122 ⟶ 5,487:
=={{header|VBA}}==
<
Pi = WorksheetFunction.Pi()
Debug.Print Sin(Pi / 2)
Line 5,136 ⟶ 5,501:
Debug.Print Atn(1) * 4
Debug.Print Atn(1) * 180 / Pi
End Sub</
<pre> 1
1
Line 5,153 ⟶ 5,518:
=={{header|Visual Basic .NET}}==
{{trans|C#}}
<
Sub Main()
Line 5,173 ⟶ 5,538:
End Sub
End Module</
{{out}}
<pre>=== radians ===
Line 5,194 ⟶ 5,559:
{{trans|Go}}
{{libheader|Wren-fmt}}
<
var d = 30
Line 5,213 ⟶ 5,578:
Fmt.print("acos($f) = $9.6f rad", c, c.acos)
Fmt.print("atan($f) = $9.6f deg", t, t.atan*180/Num.pi)
Fmt.print("atan($f) = $9.6f rad", t, t.atan)</
{{out}}
Line 5,232 ⟶ 5,597:
=={{header|XPL0}}==
<
def Pi = 3.14159265358979323846;
Line 5,258 ⟶ 5,623:
RlOut(0, ACos(B)); ChOut(0, 9\tab\); RlOut(0, Deg(ACos(B))); CrLf(0);
RlOut(0, ATan(C)); ChOut(0, 9\tab\); RlOut(0, Deg(ATan(C))); CrLf(0);
]</
{{out}}
Line 5,271 ⟶ 5,636:
=={{header|zkl}}==
<
(30.0).toRad().sin() //-->0.5
(60.0).toRad().cos() //-->0.5
Line 5,282 ⟶ 5,647:
(1.0).atan() //-->0.785398
(1.0).atan().toDeg() //-->45
etc</
=={{header|ZX Spectrum Basic}}==
The ZX Spectrum ROM only calculates sine and arctangent directly (via Chebyshev polynomials), and uses internal functions of these (and the square root) to generate the other functions. In particular, arcsin x is calculated as arctan ( x / ( sqrt ( 1 - x * x ) ) + 1 ) / 2, which is why some of these functions are legendarily slow.
<
20 DEF FN i(r)=180*r/PI:REM convert radians to degrees for inverse functions
30 LET d=45
Line 5,297 ⟶ 5,662:
110 PRINT ASN d,FN i(ASN d)
120 PRINT ACS d,FN i(ACS d)
130 PRINT ATN d,FN i(ATN d)</
{{out}}
<pre>
|