MathGroup Archive 1992

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

Search the Archive

Determinant Function (Final Version?)

  • To: mathgroup <mathgroup at>
  • Subject: Determinant Function (Final Version?)
  • From: HAY at
  • Date: Sun, 19 APR 92 13:30:13 GMT

Still faster(and simpler): The latest moral seems to be to work on structures as
directly as possible. But why didn't I see this before! 

NewDet3[M_] := 

Timings (MacIIfx, Mma V 2.0):

a[n_] := Table[ StringJoin["a",ToString[i],ToString[j]], {i,1,n},{j,1,n}]

Do[ Print[ First[ Timing[ NewDet3[ a[n]]]]], {n,1,7}]

0.0666667 Second
0.0666667 Second
0.116667 Second
0.266667 Second
0.75 Second
4.1 Second
30.95 Second

Timings for NewDet2 were

0.0666667 Second
0.0833333 Second
0.133333 Second
0.283333 Second
0.933333 Second
5.13333 Second
38.1833 Second

Apologies for the long development period.

Allan Hayes
Department of Mathematics
The University
Leicester LE1 7RH
hay at

  • Prev by Date: Determinant function in Mathematica
  • Next by Date: X11ps
  • Previous by thread: Calculus.m
  • Next by thread: Re: Determinant Function (Final Version?)