MathGroup Archive 2004

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

Search the Archive

problem with very slow matrix function

  • To: mathgroup at
  • Subject: [mg50911] problem with very slow matrix function
  • From: Roger Bagula <tftn at>
  • Date: Mon, 27 Sep 2004 00:42:25 -0400 (EDT)
  • Reply-to: tftn at
  • Sender: owner-wri-mathgroup at

Mathematica will do this function, but only very slowly...
Thsat limits the number of values and how big I can make my critical point.
I'd like a better , faster expression to do this kind of matrix 
switching function.
I'm also looking for a way to make the switch depend on a random
level as well (&& / And).  
I tried a version and it ignorred the second "and" implicit
and did it on only the first implicit expression.
As I want to do this on higher matrix level Bonacci/ Pisot
systems, I would appreciate any help.

(*  2by2 Markov sequence Critical Eigenvalue collapse of   golden mean*)
A[n_]:=If[(Max[Eigenvalues[A[n-1]]])<12, M.A[n-1],A[Floor[(n-1)/2]]];
(* Critical Eigenvalue collapse at 12 of 2by2 matrices made with  golden 
mean  recurrence*)

Respectfully, Roger L. Bagula

tftn at, 11759Waterhill Road, Lakeside,Ca 92040-2905,tel: 619-5610814 :
URL : 

  • Prev by Date: Re: A list element replacement.
  • Next by Date: RE: PlotRange-> {0, All}
  • Previous by thread: Re: Export to file
  • Next by thread: Re: problem with very slow matrix function