Trigonometric Functions in Perl
What are Trigonometric Functions in Perl?
Explanation
sin() Function:
This function returns the sine value of a number.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
$int = sin(2);
print "The Sine value of 2 is:: $intn";
The Sine value of 2 is:: 0.909297426825682
atan2() Function:
This function returns the arc tangent value of Y/X between -PI and PI.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
$Y = 40;
$X = 60;
$ret_val = atan2 ($Y, $X );
print "atan2 of 40/60 is : $ret_valn";
atan2 of 40/60 is : 0.588002603547568
cos() Function:
This function returns the cosine value.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
$ret_val = cos(60);
print "Cosine value of 60 is : $ret_valn";
Cosine value of 60 is : -0.952412980415156
log() Function:
This function returns the natural logarithm for a number.
Example :
#! C:programfilesperlbinperl
print "content-type: text/htmlnn";
sub log10
{ my $n = shift; return log($n)/log(10);
}
print "Log of 3 base 10 is::",log10(3),"n";
Log of 3 base 10 is::0.477121254719662
