Chris,

your sample code works, but my code is not exactly like I wrote. The
prinsiple is the same, I have two 2d piddles within a larger more compex
code creating some 30-40 other different piddles, and the program
consumes quite a lot of memory etc. I'll try to look more into it later.
Right now I've got some dead lines...

Happy new year,
Kare

On Fri, 2006-12-22 at 10:24 -0500, Chris Marshall wrote:

> Kare Edvardsen writes
> >
> > I have two 2d piddles, $x and $y, with
> > equal size, and
> >
> > > wcols $x->slice("(0),:"), $y->slice("(1),:")
> >
> > does not work???
> 
> Works for me.
> 
> > If I do
> >
> > > $a = $x->slice("(0),:"); $b = $y->slice("(1),:")
> > > wcols $a, $b
> >
> > everything works great!, Why???
> 
> This works too.
> 
> If you have a problem with PDL, we can better
> help if you send an example code that demonstrates
> the problem in the perldl shell, or a perl/PDL program.
> 
> For example, the code that I tried out follows.
> 
> Does it work for you?
> 
> If not, what was the output?
> 
> Cheers,
> Chris
> 
> SAMPLE PROBLEM REPORT EXAMPLE:
> ===========================
> 
> perldl> $x = sequence(10,9)                                                   
>                                                              
> 
> perldl> $y = sequence(10,9)                                                   
>                                                              
> 
> perldl> ?vars                                                                 
>                                                              
> PDL variables in package main::
> 
> Name         Type   Dimension       Flow  State          Mem
> ----------------------------------------------------------------
> $y           Double D [10,9]               P            0.70Kb 
> $x           Double D [10,9]               P            0.70Kb 
> 
> perldl> wcols $x->slice("(0),:"), $y->slice("(1),:")                          
>                                                              
> 0  1  
> 10  11  
> 20  21  
> 30  31  
> 40  41  
> 50  51  
> 60  61  
> 70  71  
> 80  81  
> 
> perldl> $a = $x->slice("(0),:"); $b = $y->slice("(1),:")                      
>                                                              
> 
> perldl> wcols $a, $b                                                          
>                                                              
> 0  1  
> 10  11  
> 20  21  
> 30  31  
> 40  41  
> 50  51  
> 60  61  
> 70  71  
> 80  81  
> 
> 
> 
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl

Reply via email to