Perl PDL是否有办法将向量夹在另一个向量中给出的最小值/最大值而不会迭代？

Question

pdl 已经有一种方法可以将“夹紧”向量元素“夹紧”向量元素到另一个向量中给出的最小值/最大值？我已经浏览了 pdl :: Math选项。

我可以unddl/re pdl ，但这似乎太多了。

是否已经有一种矢量方法来做到这一点？

我尝试了这样的事情：

$pdl = pdl [4.45, 5.55, 45];
$max = pdl [2   , 3,    50];
print ( (($max <=> $pdl) > 0)*$pdl + (($max <=> $pdl) < 0)*$max ) 
[2 3 45]

它似乎有效，但表达真是太疯狂了。有内置吗？

Answer 1

pdl :: prientive :: primitive :: Hclip ：

pdl> $pdl = pdl [4.45, 5.55, 45];
pdl> $max = pdl [2   , 3,    50];
pdl> p $pdl->hclip($max)
[2 3 45]