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?