Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

bandmatrix

  • To: mathgroup at smc.vnet.net
  • Subject: [mg100579] bandmatrix
  • From: Prado <josepradomelo at yahoo.com.br>
  • Date: Mon, 8 Jun 2009 03:05:15 -0400 (EDT)

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: Out of memory errors
  • Next by Date: Re: Mathematica bug??
  • Previous by thread: Out of memory errors
  • Next by thread: Re: bandmatrix