more useful options PerlMonks

### PDL: efficient self-referencing math?

by BrowserUk (Pope)
 on Sep 04, 2011 at 07:37 UTC Need Help??
BrowserUk has asked for the wisdom of the Perl Monks concerning the following question:

Can pdl efficiently(*) perform the equivalent of the following operation on a piddle?

```\$pdl[ \$_ -1 ] -= \$pdl[ \$_ ] for reverse 1 .. \$#pdl;

(*)Ie. Without converting every element to a perl var, perform the math and then convert the result back, and assign it back.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re: PDL: efficient self-referencing math?
by Corion (Pope) on Sep 04, 2011 at 08:02 UTC

I haven't used PDL at all, but maybe you have enough dimensions in your piddle to make the following approach efficient:

1. Create a matrix to calculate the shifted, negative piddle (can be cached)
2. Multiply the source piddle by the matrix to create the shifted negative source piddle
3. Add the source piddle and the new piddle

The matrix would be (or, would be)

```(  0  0  0 ...)
( -1  0  0 ...)
(  0 -1  0 ...)
(  0  0 -1 ...)
...

Reading from the PDL documentation, basically the following code should work (while PDL is installing):

```# 4 dimensions
my \$matrix = pdl([[0,0,0,0],[-1,0,0,0],[0,-1,0,0],[0,0,-1,0]]);

my \$pdl = pdl(...);
my \$diff = \$pdl x \$matrix; # not sure about whether to use left- or ri
+ght-multiplication here
my \$res = \$pdl + \$diff;

That's an interesting approach.

My piddle is just a 1D vector so maybe if I create a second 1D vector that is a copy of the first minus the first element, I can just subtract one from the other and produce the result I need?

Hm. Need to play.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
Re: PDL: efficient self-referencing math?
by Anonymous Monk on Sep 04, 2011 at 14:54 UTC
If a piddle happens, put the puppy outside at once.

Create A New User
Node Status?
node history
Node Type: perlquestion [id://924046]
Approved by Corion
help
Chatterbox?
 [stevieb]: cheers beech. twas totally my mistake, and I got bit. When things work for so long without issue, one becomes complacent (ie. replace we/one with I ;) I've been copy/pasting that around for a few years without a hiccup, so when... [stevieb]: choroba pointed that out, I was just, you know, *sigh*. In effect, I was lucky and fortunate [stevieb]: Kind of like my regex-fu went out the window, but only while looking at that specific file ;)

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (6)
As of 2017-07-25 23:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
I came, I saw, I ...

Results (383 votes). Check out past polls.