2014/05/26(月)Perl Data Language 基礎編 #04 「PDLの定数」

まだPDLに関してまとめるべきことがありまくりです。今回は定数。名前が被りそうなので、常に「PDL::Constants::」をつけておくのが無難かと思います。

ドキュメントは↓
https://metacpan.org/pod/PDL::Constants

#!/usr/bin/env perl

use strict;
use warnings;
use feature qw/say/;
use PDL::Constants ();

say "  円周率:" . PDL::Constants::PI;
say "ネイピア数:" . PDL::Constants::E;
say "   虚数:" . PDL::Constants::I;
say "1ラジアン:" . PDL::Constants::DEGRAD;

print "\n";

say "i*i:"          . PDL::Constants::I * PDL::Constants::I;
say "i^2:"          . PDL::Constants::I ** 2;
say "パイラジアン:" . PDL::Constants::PI * PDL::Constants::DEGRAD;

実行結果↓

  円周率:3.14159265358979
ネイピア数:2.71828182845905
   虚数:0 +1i
1ラジアン:57.2957795130823

i*i:-1 +0i
i^2:-1 +1.22461e-16i
パイラジアン:180

次回は行列スライスをまとめようかな(?)