Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re^2: creating matrices for PDL module

by sapnac (Beadle)
on Jul 01, 2005 at 14:13 UTC ( #471732=note: print w/replies, xml ) Need Help??


in reply to Re: creating matrices for PDL module
in thread creating matrices for PDL module

This will create the matrix that you want. This is tested. Hope this helps;
#!/usr/bin/perl -w open(MATRIX, "matrixfile.dat") || die "Error: Can't open matrixfile fi +le for reading: $!\n"; $i=0; while ($spool = <MATRIX>) { chomp($spool); @arr = split(/ /,$spool); for ($x=0;$x<= $#arr;$x++) { $matrix[$i][$x] = $arr[$x];} $i++; } # end while $x=$x-1; for ($j=0;$j<$i;$j++) { for ($r=0;$r<4;$r++) { print "[ "; $cntr=0;$c=$j; for($cntr=0;$cntr<4;$cntr++) { if($c gt $x) { $c=0; } print " $matrix[$r][$c] " ; $c++; } print " ] \n"; } print "\n"; }

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://471732]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2020-11-25 19:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?