PDLで0に丸めます

Question

PDL（タイプdouble）の混合値（正と負の両方）を持っています。私はゼロに向かって各エントリを丸めたい。 だから、+1.2、私はint()を使用するのではと思ったが、それはPDLタイプでは動作しません+1.7が-1.2が-1なり、+1なり、-1.7は-1なり、

、+1になります。

また、round(abs($x) - 0.5) * ($x <=> 0)を使用することもできますが、このロジックをPDLでどのように使用するかはわかりません。

ポインタ？

Answer 1

PDL::Mathでrint機能のドキュメントは言う：

あなたがゼロから離れて半整数を丸めるしたい場合は、floor(abs($x)+0.5)*($x<=>0)を試してみてください。

はちょうどそれはあなたが望むように動作させるために、わずかにそれを変更：

#!/usr/bin/perl 
use warnings; 
use strict; 

use PDL; 

my $pdl = 'PDL'->new(
    [ 1, 1.3, 1.9, 2, 2.1, 2.7 ], 
    [ -1, -1.3, -1.9, -2, -2.1, -2.7 ] 
); 
$pdl = floor(abs($pdl)) * ($pdl <=> 0); 
print $pdl; 

出力：

[ 
[ 1 1 1 2 2 2] 
[-1 -1 -1 -2 -2 -2] 
] 

Answer 2

PDL::Mathは、floor,ceilおよびである。これらの機能はすべて機能します。

したがって、次のようなものが動作するはずです：

#!/usr/bin/env perl 
use warnings; 
use strict; 

use PDL; 

my $pdl = 'PDL'->new(
    [ 1, 1.3, 1.9, 2, 2.1, 2.7 ], 
    [ -1, -1.3, -1.9, -2, -2.1, -2.7 ] 
); 

print $pdl; 

floor(inplace $pdl->where($pdl >= 0)); 
ceil (inplace $pdl->where($pdl < 0)); 

print $pdl; 

が出力：

[ 
[ 1 1.3 1.9 2 2.1 2.7] 
[ -1 -1.3 -1.9 -2 -2.1 -2.7] 
] 

[ 
[ 1 1 1 2 2 2] 
[-1 -1 -1 -2 -2 -2] 
] 

PS：chorobaの答え@は、非スレッドperlと、次のベンチマークで約20％高速に実行するようです5.24 on an ancient MacBook Pro：