sin(), atan2(), cos(), log(), returns sine, arc tangent, cosine, log value - Trigonometry function

Tutorials

Perl

Topic

What are Trigonometric Functions in Perl?

Explanation

sin() Function:

This function returns the sine value of a number.

Example:

    #! C:\programfiles\perl\bin\perl
    print "content-type: text/html\n\n";
    $int = sin(2);
    print "The Sine value of 2 is:: $int\n";

Result:

    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:\programfiles\perl\bin\perl
    print "content-type: text/html\n\n";
    $Y = 40;
    $X = 60;
    $ret_val = atan2 ($Y, $X );
    print "atan2 of 40/60 is : $ret_val\n";

Result:

    atan2 of 40/60 is : 0.588002603547568

cos() Function:

This function returns the cosine value.

Example:

    #! C:\programfiles\perl\bin\perl
    print "content-type: text/html\n\n";
    $ret_val = cos(60);
    print "Cosine value of 60 is : $ret_val\n";

Result:

    Cosine value of 60 is : -0.952412980415156

log() Function:

This function returns the natural logarithm for a number.

Example:

    #! C:\programfiles\perl\bin\perl
    print "content-type: text/html\n\n";
    sub log10 
    {
	my $n = shift;
	return log($n)/log(10);
    } 
    print "Log of 3 base 10 is::",log10(3),"\n";

Result:

    Log of 3 base 10 is::0.477121254719662