Systemy Operacyjne
Usługi systemowe
Bazy Danych
Programowanie
CONTENT
  • CHANGES
Szukaj
counter

#top Math


code / perl / math

#top Predefined Constants


Deklaracja stałej HUGE_VAL znajduje się w pliku i386-linux-thread-multi/POSIX.pm.
math_h =>   [qw(HUGE_VAL
    )],





#top Datatypes / MACROS


No Datatypes here.





#top Math Functions


#top abs


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji abs() jest następująca:

Powiązane:
abs(), fabs(),

Opis:
description

Example:
zawartość pliku abs.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(fabs);



my ($doublearg1, $doubleval1);



if ($#ARGV+1<1) {
	print("Usage: $0 <int-value> <double-value>\n");
	print("Examples:\n");
	print("       $0 0.5\n");
	print("       $0 -0.5\n");
	print("       $0 10.5\n");
	print("       $0 -10.5\n");
	exit(1);
}

$doublearg1=$ARGV[0];

$doubleval1=abs($doublearg1);
print""$0: \$doubleval1=abs($doublearg1): \$doubleval1=$doubleval1\n");

$doubleval1=fabs($doublearg1);
print""$0: \$doubleval1=fabs($doublearg1): \$doubleval1=$doubleval1\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/abs.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/abs.pl <int-value> <double-value>
Examples:
       /home/local/code/perlcode/math/abs.pl 0.5
       /home/local/code/perlcode/math/abs.pl -0.5
       /home/local/code/perlcode/math/abs.pl 10.5
       /home/local/code/perlcode/math/abs.pl -10.5

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/abs.pl 0.5
/home/local/code/perlcode/math/abs.pl -0.5
/home/local/code/perlcode/math/abs.pl 10.5
/home/local/code/perlcode/math/abs.pl -10.5
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/abs.pl: $doubleval1=abs(0.5): $doubleval1=0.5
/home/local/code/perlcode/math/abs.pl: $doubleval1=fabs(0.5): $doubleval1=0.5

/home/local/code/perlcode/math/abs.pl: $doubleval1=abs(-0.5): $doubleval1=0.5
/home/local/code/perlcode/math/abs.pl: $doubleval1=fabs(-0.5): $doubleval1=0.5

/home/local/code/perlcode/math/abs.pl: $doubleval1=abs(10.5): $doubleval1=10.5
/home/local/code/perlcode/math/abs.pl: $doubleval1=fabs(10.5): $doubleval1=10.5

/home/local/code/perlcode/math/abs.pl: $doubleval1=abs(-10.5): $doubleval1=10.5
/home/local/code/perlcode/math/abs.pl: $doubleval1=fabs(-10.5): $doubleval1=10.5



#top ceil


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji ceil() jest następująca:

Powiązane:
ceil(), floor(),

Opis:
description



#top cos


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji cos() jest następująca:

Powiązane:
cos(), sin(),

Opis:
description



#top exp


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji exp() jest następująca:

Powiązane:

Opis:
description

Example:
zawartość pliku exp.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults



my ($doublearg1, $doubleval1);



if ($#ARGV+1<1) {
	print("Usage: $0 <double-value>\n");
	print("Examples:\n");
	print("       $0 0.0\n");
	print("       $0 1.0\n");
	print("       $0 2.0\n");
	print("       $0 5.0\n");
	exit(1);
}

$doublearg1=$ARGV[0];
$doubleval1=exp($doublearg1);
print""$0: \$doubleval1=exp($doublearg1): \$doubleval1=$doubleval1\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/exp.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/exp.pl <double-value>
Examples:
       /home/local/code/perlcode/math/exp.pl 0.0
       /home/local/code/perlcode/math/exp.pl 1.0
       /home/local/code/perlcode/math/exp.pl 2.0
       /home/local/code/perlcode/math/exp.pl 5.0

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/exp.pl 0.0
/home/local/code/perlcode/math/exp.pl 1.0
/home/local/code/perlcode/math/exp.pl 2.0
/home/local/code/perlcode/math/exp.pl 5.0
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/exp.pl: $doubleval1=exp(0.0): $doubleval1=1
/home/local/code/perlcode/math/exp.pl: $doubleval1=exp(1.0): $doubleval1=2.71828182845905
/home/local/code/perlcode/math/exp.pl: $doubleval1=exp(2.0): $doubleval1=7.38905609893065
/home/local/code/perlcode/math/exp.pl: $doubleval1=exp(5.0): $doubleval1=148.413159102577



#top fabs


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji fabs() jest następująca:

Powiązane:
abs(), fabs(),

Opis:
description



#top floor


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji floor() jest następująca:

Powiązane:
ceil(), floor(),

Opis:
description

Example:
zawartość pliku floor.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(ceil floor);



my ($doublearg1, $doubleval1);



if ($#ARGV+1<1) {
	print("Usage: $0 <double-value>\n");
	print("Examples:\n");
	printf(""      $0 1.0\n");
	printf(""      $0 1.2\n");
	printf(""      $0 1.4\n");
	printf(""      $0 1.499\n");
	printf(""      $0 -1.499\n");
	printf(""      $0 1.500\n");
	printf(""      $0 -1.500\n");
	printf(""      $0 1.6\n");
	printf(""      $0 1.8\n");
	printf(""      $0 2.0\n");
	exit(1);
}

$doublearg1=$ARGV[0];

$doubleval1=ceil($doublearg1);
print""$0: \$doubleval1=ceil($doublearg1): \$doubleval1=$doubleval1\n");

$doubleval1=floor($doublearg1);
print""$0: \$doubleval1=floor($doublearg1): \$doubleval1=$doubleval1\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/floor.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/floor.pl <double-value>
Examples:
      /home/local/code/perlcode/math/floor.pl 1.0
      /home/local/code/perlcode/math/floor.pl 1.2
      /home/local/code/perlcode/math/floor.pl 1.4
      /home/local/code/perlcode/math/floor.pl 1.499
      /home/local/code/perlcode/math/floor.pl -1.499
      /home/local/code/perlcode/math/floor.pl 1.500
      /home/local/code/perlcode/math/floor.pl -1.500
      /home/local/code/perlcode/math/floor.pl 1.6
      /home/local/code/perlcode/math/floor.pl 1.8
      /home/local/code/perlcode/math/floor.pl 2.0

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/floor.pl 1.0
/home/local/code/perlcode/math/floor.pl 1.2
/home/local/code/perlcode/math/floor.pl 1.4
/home/local/code/perlcode/math/floor.pl 1.499
/home/local/code/perlcode/math/floor.pl -1.499
/home/local/code/perlcode/math/floor.pl 1.500
/home/local/code/perlcode/math/floor.pl -1.500
/home/local/code/perlcode/math/floor.pl 1.6
/home/local/code/perlcode/math/floor.pl 1.8
/home/local/code/perlcode/math/floor.pl 2.0
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.0): $doubleval1=1
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.0): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.2): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.2): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.4): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.4): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.499): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.499): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(-1.499): $doubleval1=-1
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(-1.499): $doubleval1=-2

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.500): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.500): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(-1.500): $doubleval1=-1
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(-1.500): $doubleval1=-2

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.6): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.6): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(1.8): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(1.8): $doubleval1=1

/home/local/code/perlcode/math/floor.pl: $doubleval1=ceil(2.0): $doubleval1=2
/home/local/code/perlcode/math/floor.pl: $doubleval1=floor(2.0): $doubleval1=2



#top fmod


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji fmod() jest następująca:

Powiązane:

Opis:
description

Example:
zawartość pliku fmod.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(fmod);



my ($doublearg1, $doublearg2, $doubleval);



if ($#ARGV+1<2) {
	print("Usage: $0 <double-value> <double-value>\n");
	print("Examples:\n");
	print("       $0 5.3 2.0\n");
	print("       $0 18.5 4.2\n");
	exit(1);
}

$doublearg1=$ARGV[0];
$doublearg2=$ARGV[1];

$doubleval=fmod($doublearg1,$doublearg2);
print""$0: \$doubleval=fmod($doublearg1,$doublearg2): \$doubleval=$doubleval\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/fmod.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/fmod.pl <double-value> <double-value>
Examples:
       /home/local/code/perlcode/math/fmod.pl 5.3 2.0
       /home/local/code/perlcode/math/fmod.pl 18.5 4.2

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/fmod.pl 5.3 2.0
/home/local/code/perlcode/math/fmod.pl 18.5 4.2
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/fmod.pl: $doubleval=fmod(5.3,2.0): $doubleval=1.3
/home/local/code/perlcode/math/fmod.pl: $doubleval=fmod(18.5,4.2): $doubleval=1.7



#top frexp


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji frexp() jest następująca:

Powiązane:
frexp(), ldexp(),

Opis:
description

Example:
zawartość pliku frexp.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(frexp ldexp);



my ($doublearg1, $doublearg2, $doublearg3, $doubleval1);



if ($#ARGV+1<3) {
	print("Usage: $0 <double-value> <double-value> <double-value>\n");
	print("Examples:\n");
	print("       $0 15.0 2.0 1.0\n");
	print("       $0 15.5 2.2 1.1\n");
	print("       $0 16.0 4.0 2.0\n");
	exit(1);
}

$doublearg1=$ARGV[0];
$doublearg2=$ARGV[1];
$doublearg3=$ARGV[2];


$doubleval1=frexp($doublearg1);
print""$0: \$doubleval1=frexp($doublearg1): \$doubleval1=$doubleval1\n");

$doubleval1=ldexp($doublearg2,$doublearg3);
print""$0: \$doubleval1=ldexp($doublearg2,$doublearg3): \$doubleval1=$doubleval1\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/frexp.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/frexp.pl <double-value> <double-value> <double-value>
Examples:
       /home/local/code/perlcode/math/frexp.pl 15.0 2.0 1.0
       /home/local/code/perlcode/math/frexp.pl 15.5 2.2 1.1
       /home/local/code/perlcode/math/frexp.pl 16.0 4.0 2.0

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/frexp.pl 15.0 2.0 1.0
/home/local/code/perlcode/math/frexp.pl 15.5 2.2 1.1
/home/local/code/perlcode/math/frexp.pl 16.0 4.0 2.0
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/frexp.pl: $doubleval1=frexp(15.0): $doubleval1=4
/home/local/code/perlcode/math/frexp.pl: $doubleval1=ldexp(2.0,1.0): $doubleval1=4

/home/local/code/perlcode/math/frexp.pl: $doubleval1=frexp(15.5): $doubleval1=4
/home/local/code/perlcode/math/frexp.pl: $doubleval1=ldexp(2.2,1.1): $doubleval1=4.4

/home/local/code/perlcode/math/frexp.pl: $doubleval1=frexp(16.0): $doubleval1=5
/home/local/code/perlcode/math/frexp.pl: $doubleval1=ldexp(4.0,2.0): $doubleval1=16



#top ldexp


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji ldexp() jest następująca:

Powiązane:
frexp(), ldexp(),

Opis:
description



#top log


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji log() jest następująca:

Powiązane:
log(), log10(),

Opis:
description

Example:
zawartość pliku log.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(log10);



my ($doublearg1, $doubleval1);



if ($#ARGV+1<1) {
	print("Usage: $0 <double-value>\n");
	print("Examples:\n");
	printf(""         $0 2.718281828\n");
	printf(""         $0 1.0\n");
	printf(""         $0 2.0\n");
	printf(""         $0 4.0\n");
	printf(""         $0 10.0\n");
	printf(""         $0 100.0\n");
	printf(""         $0 1000.0\n");
	exit(1);
}

$doublearg1=$ARGV[0];

$doubleval1=log($doublearg1);
print""$0: \$doubleval1=log($doublearg1): \$doubleval1=$doubleval1\n");

$doubleval1=log10($doublearg1);
print""$0: \$doubleval1=log10($doublearg1): \$doubleval1=$doubleval1\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/log.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/log.pl <double-value>
Examples:
         /home/local/code/perlcode/math/log.pl 2.718281828
         /home/local/code/perlcode/math/log.pl 1.0
         /home/local/code/perlcode/math/log.pl 2.0
         /home/local/code/perlcode/math/log.pl 4.0
         /home/local/code/perlcode/math/log.pl 10.0
         /home/local/code/perlcode/math/log.pl 100.0
         /home/local/code/perlcode/math/log.pl 1000.0

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/log.pl 2.718281828
/home/local/code/perlcode/math/log.pl 1.0
/home/local/code/perlcode/math/log.pl 2.0
/home/local/code/perlcode/math/log.pl 4.0
/home/local/code/perlcode/math/log.pl 10.0
/home/local/code/perlcode/math/log.pl 100.0
/home/local/code/perlcode/math/log.pl 1000.0
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/log.pl: $doubleval1=log(2.718281828): $doubleval1=0.999999999831127
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(2.718281828): $doubleval1=0.434294481829911

/home/local/code/perlcode/math/log.pl: $doubleval1=log(1.0): $doubleval1=0
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(1.0): $doubleval1=0

/home/local/code/perlcode/math/log.pl: $doubleval1=log(2.0): $doubleval1=0.693147180559945
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(2.0): $doubleval1=0.301029995663981

/home/local/code/perlcode/math/log.pl: $doubleval1=log(4.0): $doubleval1=1.38629436111989
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(4.0): $doubleval1=0.602059991327962

/home/local/code/perlcode/math/log.pl: $doubleval1=log(10.0): $doubleval1=2.30258509299405
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(10.0): $doubleval1=1

/home/local/code/perlcode/math/log.pl: $doubleval1=log(100.0): $doubleval1=4.60517018598809
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(100.0): $doubleval1=2

/home/local/code/perlcode/math/log.pl: $doubleval1=log(1000.0): $doubleval1=6.90775527898214
/home/local/code/perlcode/math/log.pl: $doubleval1=log10(1000.0): $doubleval1=3



#top log10


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji log10() jest następująca:

Powiązane:
log(), log10(),

Opis:
description



#top modf


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji modf() jest następująca:

Powiązane:

Opis:
description

Example:
zawartość pliku modf.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(modf);



my ($doublearg1, $doubleval1, $doubleval2);



if ($#ARGV+1<1) {
	print("Usage: $0 <double-value>\n");
	print("Examples:\n");
	printf(""      $0 3.141592653\n");
	printf(""      $0 2.718281828\n");
	exit(1);
}

$doublearg1=$ARGV[0];
($doubleval1, $doubleval2)=modf($doublearg1);
print""$0: (\$doubleval1, \$doubleval2)=modf($doublearg1): \$doubleval1=$doubleval1 \$doubleval2=$doubleval2\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/modf.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/modf.pl <double-value>
Examples:
      /home/local/code/perlcode/math/modf.pl 3.141592653
      /home/local/code/perlcode/math/modf.pl 2.718281828

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/modf.pl 3.141592653
/home/local/code/perlcode/math/modf.pl 2.718281828
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/modf.pl: ($doubleval1, $doubleval2)=modf(3.141592653): $doubleval1=0.141592653 $doubleval2=3
/home/local/code/perlcode/math/modf.pl: ($doubleval1, $doubleval2)=modf(2.718281828): $doubleval1=0.718281828 $doubleval2=2



#top pow


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji pow() jest następująca:

Powiązane:
pow(), sqrt(),

Opis:
description



#top sin


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji sin() jest następująca:

Powiązane:
cos(), sin(),

Opis:
description

Example:
zawartość pliku sin.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use constant PI => 4 * atan2(1, 1);
use POSIX qw(tan asin acos atan);



#sub deg2rad { ($_[0]/180) * PI }
# sub deg2rad { my ($arg)=@_; return $_[0] / 180 * PI; }
#sub rad2deg { ($_[0]/PI) * 180 }
# sub rad2deg { my ($arg)=@_; return $_[0] / PI * 180; }
#sub asin { atan2($_[0], sqrt(1 - $_[0] * $_[0])) }
sub CALCasin { my ($arg)=@_; return atan2($arg, sqrt(1 - $arg * $arg)); }
#sub acos { atan2( sqrt(1 - $_[0] * $_[0]), $_[0] ) }
sub CALCacos { my ($arg)=@_; return atan2(sqrt(1 - $arg * $arg), $arg); }
#sub tan  { sin($_[0]) / cos($_[0])  }
sub CALCtan  { my ($arg)=@_; return sin($arg) / cos($arg); }
#sub atan { atan2($_[0],1) };
sub CALCatan { my ($arg)=@_; return atan2($arg, 1); };



my ($doublearg1, $doublearg2);
my ($sinval, $cosval, $tanval, $asinval, $acosval, $atanval, $atan2val);



if ($#ARGV+1<2) {
	print("Usage: $0 <double-value> <double-value>\n");
	print("Examples:\n");
	print("       $0  0 0.5\n");
	print("       $0 30 0.3\n");
	print("       $0 45 0.5\n");
	print("       $0 60 0.6\n");
	print("       $0 90 1.0\n");
	exit(1);
}

$doublearg1=$ARGV[0];
$doublearg2=$ARGV[1];

$sinval  =sin     ($doublearg1 * PI / 180);
print""$0: \$doublearg1=$doublearg1 \$sinval  =sin     (\$doublearg1 * PI / 180): \$sinval  =$sinval\n");

$cosval  =cos     ($doublearg1 * PI / 180);
print""$0: \$doublearg1=$doublearg1 \$cosval  =cos     (\$doublearg1 * PI / 180): \$cosval  =$cosval\n");

$tanval  =tan     ($doublearg1 * PI / 180);
print""$0: \$doublearg1=$doublearg1 \$tanval  =tan     (\$doublearg1 * PI / 180): \$tanval  =$tanval\n");
$tanval  =CALCtan ($doublearg1 * PI / 180);
print""$0: \$doublearg1=$doublearg1 \$tanval  =CALCtan (\$doublearg1 * PI / 180): \$tanval  =$tanval\n");

$asinval =asin    ($doublearg2 * PI / 180);
print""$0: \$doublearg2=$doublearg2 \$asinval =asin    (\$doublearg2 * PI / 180): \$asinval =$asinval\n");
$asinval =CALCasin($doublearg2 * PI / 180);
print""$0: \$doublearg2=$doublearg2 \$asinval =CALCasin(\$doublearg2 * PI / 180): \$asinval =$asinval\n");

$acosval =acos    ($doublearg2 * PI / 180);
print""$0: \$doublearg2=$doublearg2 \$acosval =acos    (\$doublearg2 * PI / 180): \$acosval =$acosval\n");
$asinval =CALCacos($doublearg2 * PI / 180);
print""$0: \$doublearg2=$doublearg2 \$asinval =CALCacos(\$doublearg2 * PI / 180): \$asinval =$asinval\n");

$atanval =atan    ($doublearg2 * PI / 180);
print""$0: \$doublearg2=$doublearg2 \$atanval =atan    (\$doublearg2 * PI / 180): \$atanval =$atanval\n");
$atanval =CALCatan($doublearg2 * PI / 180);
print""$0: \$doublearg2=$doublearg2 \$atanval =CALCatan(\$doublearg2 * PI / 180): \$atanval =$atanval\n");

$atan2val=atan2   ($doublearg2, $doublearg2);
print""$0: \$doublearg2=$doublearg2 \$atan2val=atan2   (\$doublearg2, \$doublearg2): \$atan2val=$atan2val\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/sin.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/sin.pl <double-value> <double-value>
Examples:
       /home/local/code/perlcode/math/sin.pl  0 0.5
       /home/local/code/perlcode/math/sin.pl 30 0.3
       /home/local/code/perlcode/math/sin.pl 45 0.5
       /home/local/code/perlcode/math/sin.pl 60 0.6
       /home/local/code/perlcode/math/sin.pl 90 1.0

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/sin.pl  0 0.5
/home/local/code/perlcode/math/sin.pl 30 0.3
/home/local/code/perlcode/math/sin.pl 45 0.5
/home/local/code/perlcode/math/sin.pl 60 0.6
/home/local/code/perlcode/math/sin.pl 90 1.0
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/sin.pl: $doublearg1=0 $sinval  =sin     ($doublearg1 * PI / 180): $sinval  =0
/home/local/code/perlcode/math/sin.pl: $doublearg1=0 $cosval  =cos     ($doublearg1 * PI / 180): $cosval  =1
/home/local/code/perlcode/math/sin.pl: $doublearg1=0 $tanval  =tan     ($doublearg1 * PI / 180): $tanval  =0
/home/local/code/perlcode/math/sin.pl: $doublearg1=0 $tanval  =CALCtan ($doublearg1 * PI / 180): $tanval  =0
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $asinval =asin    ($doublearg2 * PI / 180): $asinval =0.00872675702578704
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $asinval =CALCasin($doublearg2 * PI / 180): $asinval =0.00872675702578704
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $acosval =acos    ($doublearg2 * PI / 180): $acosval =1.56206956976911
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $asinval =CALCacos($doublearg2 * PI / 180): $asinval =1.56206956976911
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $atanval =atan    ($doublearg2 * PI / 180): $atanval =0.00872642474605418
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $atanval =CALCatan($doublearg2 * PI / 180): $atanval =0.00872642474605418
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $atan2val=atan2   ($doublearg2, $doublearg2): $atan2val=0.785398163397448

/home/local/code/perlcode/math/sin.pl: $doublearg1=30 $sinval  =sin     ($doublearg1 * PI / 180): $sinval  =0.5
/home/local/code/perlcode/math/sin.pl: $doublearg1=30 $cosval  =cos     ($doublearg1 * PI / 180): $cosval  =0.866025403784439
/home/local/code/perlcode/math/sin.pl: $doublearg1=30 $tanval  =tan     ($doublearg1 * PI / 180): $tanval  =0.577350269189626
/home/local/code/perlcode/math/sin.pl: $doublearg1=30 $tanval  =CALCtan ($doublearg1 * PI / 180): $tanval  =0.577350269189626
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $asinval =asin    ($doublearg2 * PI / 180): $asinval =0.00523601168087435
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $asinval =CALCasin($doublearg2 * PI / 180): $asinval =0.00523601168087435
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $acosval =acos    ($doublearg2 * PI / 180): $acosval =1.56556031511402
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $asinval =CALCacos($doublearg2 * PI / 180): $asinval =1.56556031511402
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $atanval =atan    ($doublearg2 * PI / 180): $atanval =0.00523593990757765
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $atanval =CALCatan($doublearg2 * PI / 180): $atanval =0.00523593990757765
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.3 $atan2val=atan2   ($doublearg2, $doublearg2): $atan2val=0.785398163397448

/home/local/code/perlcode/math/sin.pl: $doublearg1=45 $sinval  =sin     ($doublearg1 * PI / 180): $sinval  =0.707106781186547
/home/local/code/perlcode/math/sin.pl: $doublearg1=45 $cosval  =cos     ($doublearg1 * PI / 180): $cosval  =0.707106781186548
/home/local/code/perlcode/math/sin.pl: $doublearg1=45 $tanval  =tan     ($doublearg1 * PI / 180): $tanval  =1
/home/local/code/perlcode/math/sin.pl: $doublearg1=45 $tanval  =CALCtan ($doublearg1 * PI / 180): $tanval  =1
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $asinval =asin    ($doublearg2 * PI / 180): $asinval =0.00872675702578704
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $asinval =CALCasin($doublearg2 * PI / 180): $asinval =0.00872675702578704
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $acosval =acos    ($doublearg2 * PI / 180): $acosval =1.56206956976911
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $asinval =CALCacos($doublearg2 * PI / 180): $asinval =1.56206956976911
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $atanval =atan    ($doublearg2 * PI / 180): $atanval =0.00872642474605418
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $atanval =CALCatan($doublearg2 * PI / 180): $atanval =0.00872642474605418
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.5 $atan2val=atan2   ($doublearg2, $doublearg2): $atan2val=0.785398163397448

/home/local/code/perlcode/math/sin.pl: $doublearg1=60 $sinval  =sin     ($doublearg1 * PI / 180): $sinval  =0.866025403784439
/home/local/code/perlcode/math/sin.pl: $doublearg1=60 $cosval  =cos     ($doublearg1 * PI / 180): $cosval  =0.5
/home/local/code/perlcode/math/sin.pl: $doublearg1=60 $tanval  =tan     ($doublearg1 * PI / 180): $tanval  =1.73205080756888
/home/local/code/perlcode/math/sin.pl: $doublearg1=60 $tanval  =CALCtan ($doublearg1 * PI / 180): $tanval  =1.73205080756888
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $asinval =asin    ($doublearg2 * PI / 180): $asinval =0.0104721669181813
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $asinval =CALCasin($doublearg2 * PI / 180): $asinval =0.0104721669181813
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $acosval =acos    ($doublearg2 * PI / 180): $acosval =1.56032415987672
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $asinval =CALCacos($doublearg2 * PI / 180): $asinval =1.56032415987672
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $atanval =atan    ($doublearg2 * PI / 180): $atanval =0.0104715927436115
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $atanval =CALCatan($doublearg2 * PI / 180): $atanval =0.0104715927436115
/home/local/code/perlcode/math/sin.pl: $doublearg2=0.6 $atan2val=atan2   ($doublearg2, $doublearg2): $atan2val=0.785398163397448

/home/local/code/perlcode/math/sin.pl: $doublearg1=90 $sinval  =sin     ($doublearg1 * PI / 180): $sinval  =1
/home/local/code/perlcode/math/sin.pl: $doublearg1=90 $cosval  =cos     ($doublearg1 * PI / 180): $cosval  =6.12303176911189e-17
/home/local/code/perlcode/math/sin.pl: $doublearg1=90 $tanval  =tan     ($doublearg1 * PI / 180): $tanval  =1.63317787283838e+16
/home/local/code/perlcode/math/sin.pl: $doublearg1=90 $tanval  =CALCtan ($doublearg1 * PI / 180): $tanval  =1.63317787283838e+16
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $asinval =asin    ($doublearg2 * PI / 180): $asinval =0.0174541787375852
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $asinval =CALCasin($doublearg2 * PI / 180): $asinval =0.0174541787375852
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $acosval =acos    ($doublearg2 * PI / 180): $acosval =1.55334214805731
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $asinval =CALCacos($doublearg2 * PI / 180): $asinval =1.55334214805731
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $atanval =atan    ($doublearg2 * PI / 180): $atanval =0.0174515206514658
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $atanval =CALCatan($doublearg2 * PI / 180): $atanval =0.0174515206514658
/home/local/code/perlcode/math/sin.pl: $doublearg2=1.0 $atan2val=atan2   ($doublearg2, $doublearg2): $atan2val=0.785398163397448



#top sqrt


Documentacja online: perldoc.perl.org | www.tutorialspoint.com

Deklaracja funkcji sqrt() jest następująca:

Powiązane:
pow(), sqrt(),

Opis:
description

Example:
zawartość pliku sqrt.pl
SELECT ALL
#!/usr/bin/perl -w

use strict;      # force definations for all vars an subroutines
use warnings;    # force check of unset variables in expressions
use diagnostics; # give var/code line number on faults

use POSIX qw(pow);



my ($doublearg1, $doublearg2, $doublearg3, $doubleval1, $doubleval2);



if ($#ARGV+1<3) {
	print("Usage: $0 <base> <exponent> <value>\n");
	print("Examples:\n");
	printf(""         $0 10 0 2\n");
	printf(""         $0 10 1 4\n");
	printf(""         $0 10 2 8\n");
	printf(""         $0 10 5 16\n");
	printf(""         $0 2 0 64\n");
	printf(""         $0 2 1 10\n");
	printf(""         $0 2 2 100\n");
	printf(""         $0 2 10 10000\n");
	printf(""         $0 1.414213562373095049 2 10000\n");
	exit(1);
}

$doublearg1=$ARGV[0];
$doublearg2=$ARGV[1];
$doublearg3=$ARGV[2];

$doubleval1=pow($doublearg1,$doublearg2);
print""$0: \$doubleval1=pow($doublearg1,$doublearg2): \$doubleval1=$doubleval1\n");

$doubleval2=sqrt($doublearg3);
print""$0: \$doubleval2=sqrt($doublearg3): \$doubleval2=$doubleval2\n");

Aby zobaczyć jak działa program należy go uruchomić bez argumentów:
/home/local/code/perlcode/math/sqrt.pl
program wyświetli informacje o sposobie uruchamiania programu:
Usage: /home/local/code/perlcode/math/sqrt.pl <base> <exponent> <value>
Examples:
         /home/local/code/perlcode/math/sqrt.pl 10 0 2
         /home/local/code/perlcode/math/sqrt.pl 10 1 4
         /home/local/code/perlcode/math/sqrt.pl 10 2 8
         /home/local/code/perlcode/math/sqrt.pl 10 5 16
         /home/local/code/perlcode/math/sqrt.pl 2 0 64
         /home/local/code/perlcode/math/sqrt.pl 2 1 10
         /home/local/code/perlcode/math/sqrt.pl 2 2 100
         /home/local/code/perlcode/math/sqrt.pl 2 10 10000
         /home/local/code/perlcode/math/sqrt.pl 1.414213562373095049 2 10000

jako argument wywołania programu można podać analogiczne jak poniżej argumenty:
/home/local/code/perlcode/math/sqrt.pl 10 0 2
/home/local/code/perlcode/math/sqrt.pl 10 1 4
/home/local/code/perlcode/math/sqrt.pl 10 2 8
/home/local/code/perlcode/math/sqrt.pl 10 5 16
/home/local/code/perlcode/math/sqrt.pl 2 0 64
/home/local/code/perlcode/math/sqrt.pl 2 1 10
/home/local/code/perlcode/math/sqrt.pl 2 2 100
/home/local/code/perlcode/math/sqrt.pl 2 10 10000
/home/local/code/perlcode/math/sqrt.pl 1.414213562373095049 2 10000
rezultat będzie zależny od podanego argumentu wywołania programu:
/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(10,0): $doubleval1=1
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(2): $doubleval2=1.4142135623731

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(10,1): $doubleval1=10
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(4): $doubleval2=2

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(10,2): $doubleval1=100
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(8): $doubleval2=2.82842712474619

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(10,5): $doubleval1=100000
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(16): $doubleval2=4

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(2,0): $doubleval1=1
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(64): $doubleval2=8

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(2,1): $doubleval1=2
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(10): $doubleval2=3.16227766016838

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(2,2): $doubleval1=4
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(100): $doubleval2=10

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(2,10): $doubleval1=1024
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(10000): $doubleval2=100

/home/local/code/perlcode/math/sqrt.pl: $doubleval1=pow(1.414213562373095049,2): $doubleval1=2
/home/local/code/perlcode/math/sqrt.pl: $doubleval2=sqrt(10000): $doubleval2=100




Zmodyfikowany ostatnio: 2013/12/12 19:40:10 (10 lat temu), textsize: 37,7 kB, htmlsize: 62,5 kB
Zapraszam do komentowania, zgłaszania sugestii, propozycji, własnych przykładów, ...
Dodaj komentarzKomentarze użytkowników