Revision as of 00:56, 27 August 2009 view source rosettacode>Rpk omit m4 ← Older edit		Revision as of 23:21, 8 November 2009 view source Underscore (talk \| contribs) 845 edits →‎{{header\|Perl}}: Changed to use print variadically instead of building up the input through concatenation. Added "my"s. Newer edit →
Line 665: =={{header\|Perl}}== {{works with\|Perl\|5.8.8}} <lang perl>▼ ~~use Math::Trig;~~ ▲<lang perl>use Math::Trig; ~~$angle_degrees = 45;~~ ~~$angle_radians = pi / 4;~~ ~~print~~my ~~sin($angle_radians).' '.sin(deg2rad(~~$angle_degrees~~))."\n"~~ = 45; ~~print~~my ~~cos(~~$angle_radians~~).'~~ ~~'.cos(deg2rad($angle_degrees))."\n"~~= pi / 4; print tan($angle_radians).' '.tan(deg2rad($angle_degrees))."\n";▼ print ~~cot~~sin($angle_radians)., ' '~~.cot~~, sin(deg2rad($angle_degrees))., "\n"; ▲print ~~tan~~cos($angle_radians)., ' '~~.tan~~, cos(deg2rad($angle_degrees))., "\n"; $asin = asin(sin($angle_radians));▼ print tan($~~asin.~~angle_radians), ' '~~.rad2deg~~, tan(deg2rad($~~asin~~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:

Trigonometric functions: Difference between revisions