MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: bandmatrix

Looks like homework. Do yourself a favor and try to solve it yourself.
You will learn much more in the process.

Cheers -- Sjoerd

On Jun 8, 9:05 am, Prado <josepradom... at> wrote:
> Hello, I am a newbie in Mathematica. I need help in the problem:
> reduce the band of a sparse matrix (100 x 100 ) with 10% approximately
> of ones.
> I known that Mathematica has a implementation to do this.(see the
> code)
> Needs["GraphUtilities`"]
> ma=Table[ If[n==m,1,If[RandomInteger[100]<90,0,1]],{n,1,100},{m,
> 1,100}];
> {r,c}=MinimumBandwidthOrdering[ma,Method->"RCM"];
> (* Show Matrices *)
> MatrixPlot[ma,ColorFunction->"Monochrome"]
> MatrixPlot[ma[[r,c]],ColorFunction->"Monochrome"]
> But the problem is: reduce the band of a sparse matrix (about 10% of
> ones) using "simulated annealing" process, without using RCM method or
> Sloam method.
> Implement a program using Mathematica.
> Can someone help me?

  • Prev by Date: Re: MemoryInUse and Print
  • Next by Date: Re: Problem with GraphicsColumn
  • Previous by thread: bandmatrix
  • Next by thread: manipulate problem with symboltrack