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?