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