Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1992
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1992

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

Search the Archive

Re:Determinant function in Mathematica

  • To: mathgroup at yoda.physics.unc.edu
  • Subject: Re:Determinant function in Mathematica
  • From: yoda at ele.crl.melco.co.jp
  • Date: Thu, 9 Apr 92 16:42:20 JST

Tony, I usually do like this:
(1)Define general matrix va having general elements like v[1,1], v[1,2],...
(2)Take Det
(3)Substitute real elements into v[i,j]'s

Example:
va=Array[v,{6,6}]
{{v[1, 1], v[1, 2], v[1, 3], v[1, 4], v[1, 5], v[1, 6]}, 
 
  {v[2, 1], v[2, 2], v[2, 3], v[2, 4], v[2, 5], v[2, 6]}, 
 
  {v[3, 1], v[3, 2], v[3, 3], v[3, 4], v[3, 5], v[3, 6]}, 
 
  {v[4, 1], v[4, 2], v[4, 3], v[4, 4], v[4, 5], v[4, 6]}, 
 
  {v[5, 1], v[5, 2], v[5, 3], v[5, 4], v[5, 5], v[5, 6]}, 
 
  {v[6, 1], v[6, 2], v[6, 3], v[6, 4], v[6, 5], v[6, 6]}}
Timing[Det[va]]
  it took about 8 seconds in Mac IIfx with 8MB RAM. I don't want to show
the result here because it's very long! The remaining job is just 
substitution.

Is this what you want?

Bye,
Kiyoshi






  • Prev by Date: Re: Determinant function in Mathematica
  • Next by Date: beauty contest. the winner is...
  • Previous by thread: Re: Determinant function in Mathematica
  • Next by thread: Re: Determinant function in Mathematica