Saturday, December 10, 2005
Perl/펄] 세제곱근, 네제곱근, 거듭제곱근 구하기 함수; Cube Root Function; cbrt()
자바에서는 Math.cbrt() 메소드로 세제곱근(Cube Root)을 구할 수 있지만, 펄에는 cbrt() 라는 함수가 없기에 대신, "거듭제곱 연산자"인 ** 를 사용하여, 세제곱근/네제곱근/다섯제곱근 등의 거듭제곱근을 구할 수 있습니다.
가령 2의 4제곱근을 구하려면
2 ** (1/4)
이렇게 합니다.
5의 세제곱근을 구하려면
5 ** (1/3)
이렇게 합니다.
스크립트 파일명: example.pl
실행 결과 화면:
▶▶ Perl/펄] 제곱근 함수, 루트 근사값 계산 방법, 음수의 제곱근 구하기; Root Negative Number
가령 2의 4제곱근을 구하려면
2 ** (1/4)
이렇게 합니다.
5의 세제곱근을 구하려면
5 ** (1/3)
이렇게 합니다.
3제곱근, 4제곱근 출력 예제
스크립트 파일명: example.pl
#!/usr/bin/perl
use strict; use warnings;
printf("5의 세제곱근: %.16f\n", 5 ** (1/3));
# 출력 결과: 1.7099759466766968
# 검산
printf("5의 세제곱근의 세제곱: %.16f\n", 1.7099759466766968 ** 3);
# 출력 결과: 4.9999999999999982
printf("\n\n\n\t< 2의 n제곱근 표>\n\n");
for (my $n = 2; $n <= 20; $n++) {
printf("2의 %2d제곱근 = %.16f\n", $n, 2 ** (1/$n));
}
use strict; use warnings;
printf("5의 세제곱근: %.16f\n", 5 ** (1/3));
# 출력 결과: 1.7099759466766968
# 검산
printf("5의 세제곱근의 세제곱: %.16f\n", 1.7099759466766968 ** 3);
# 출력 결과: 4.9999999999999982
printf("\n\n\n\t< 2의 n제곱근 표>\n\n");
for (my $n = 2; $n <= 20; $n++) {
printf("2의 %2d제곱근 = %.16f\n", $n, 2 ** (1/$n));
}
실행 결과 화면:
D:\Z>example.pl
5의 세제곱근: 1.7099759466766968
5의 세제곱근의 세제곱: 4.9999999999999982
< 2의 n제곱근 표>
2의 2제곱근 = 1.4142135623730951
2의 3제곱근 = 1.2599210498948732
2의 4제곱근 = 1.1892071150027210
2의 5제곱근 = 1.1486983549970351
2의 6제곱근 = 1.1224620483093730
2의 7제곱근 = 1.1040895136738123
2의 8제곱근 = 1.0905077326652577
2의 9제곱근 = 1.0800597388923061
2의 10제곱근 = 1.0717734625362931
2의 11제곱근 = 1.0650410894399627
2의 12제곱근 = 1.0594630943592953
2의 13제곱근 = 1.0547660764816467
2의 14제곱근 = 1.0507566386532194
2의 15제곱근 = 1.0472941228206267
2의 16제곱근 = 1.0442737824274138
2의 17제곱근 = 1.0416160106505838
2의 18제곱근 = 1.0392592260318434
2의 19제곱근 = 1.0371550444461919
2의 20제곱근 = 1.0352649238413776
D:\Z>
5의 세제곱근: 1.7099759466766968
5의 세제곱근의 세제곱: 4.9999999999999982
< 2의 n제곱근 표>
2의 2제곱근 = 1.4142135623730951
2의 3제곱근 = 1.2599210498948732
2의 4제곱근 = 1.1892071150027210
2의 5제곱근 = 1.1486983549970351
2의 6제곱근 = 1.1224620483093730
2의 7제곱근 = 1.1040895136738123
2의 8제곱근 = 1.0905077326652577
2의 9제곱근 = 1.0800597388923061
2의 10제곱근 = 1.0717734625362931
2의 11제곱근 = 1.0650410894399627
2의 12제곱근 = 1.0594630943592953
2의 13제곱근 = 1.0547660764816467
2의 14제곱근 = 1.0507566386532194
2의 15제곱근 = 1.0472941228206267
2의 16제곱근 = 1.0442737824274138
2의 17제곱근 = 1.0416160106505838
2의 18제곱근 = 1.0392592260318434
2의 19제곱근 = 1.0371550444461919
2의 20제곱근 = 1.0352649238413776
D:\Z>
▶▶ Perl/펄] 제곱근 함수, 루트 근사값 계산 방법, 음수의 제곱근 구하기; Root Negative Number
tag: perl
Perl | 펄
<< Home