Trigonometric functions: Difference between revisions

Line 665:

=={{header|Perl}}==

⚫

use Math::Trig;

⚫

<lang perl>use Math::Trig;

$angle_degrees = 45;

$angle_radians = pi / 4;

~~print~~ ~~sin($angle_radians).' '.sin(deg2rad(~~$angle_degrees~~))."\n"~~;

my $angle_degrees = 45;

~~print~~ ~~cos(~~$angle_radians~~).'~~ ~~'.cos(deg2rad($angle_degrees))."\n"~~;

my $angle_radians = pi / 4;

⚫

print ~~tan~~($angle_radians).' '~~.tan~~(deg2rad($angle_degrees))."\n";

print ~~cot~~($angle_radians).' '~~.cot~~(deg2rad($angle_degrees))."\n";

print sin($angle_radians), ' ', sin(deg2rad($angle_degrees)), "\n";

⚫

print cos($angle_radians), ' ', cos(deg2rad($angle_degrees)), "\n";

⚫

$asin = asin(sin($angle_radians));

print $~~asin.~~' '~~.rad2deg~~($~~asin~~)."\n";

print tan($angle_radians), ' ', tan(deg2rad($angle_degrees)), "\n";

print cot($angle_radians), ' ', cot(deg2rad($angle_degrees)), "\n";

⚫

$acos = acos(cos($angle_radians));

⚫

my $asin = asin(sin($angle_radians));

⚫

print $acos.' '.rad2deg($acos)."\n";

print $asin, ' ', rad2deg($asin), "\n";

⚫

$atan = atan(tan($angle_radians));

⚫

my $acos = acos(cos($angle_radians));

⚫

print $atan.' '.rad2deg($atan)."\n";

⚫

print $acos, ' ', rad2deg($acos), "\n";

⚫

$acot = acot(cot($angle_radians));

⚫

my $atan = atan(tan($angle_radians));

⚫

print $acot.' '.rad2deg($acot)."\n";

⚫

print $atan, ' ', rad2deg($atan), "\n";

</lang>

⚫

my $acot = acot(cot($angle_radians));

⚫

print $acot, ' ', rad2deg($acot), "\n";</lang>

Output: