Matrix 如何在mathematica中将矩阵的行列式定义为函数？

让

首先，我如何将矩阵

A（t）

定义为

t

然后

我想把A的行列式定义为一个函数，即

A(t)=(f1(t), f2(t); f3(t), f4(t)) be a 2*2 matrix

然后绘制

d（t）

实际上我想为

n*n矩阵编写这个函数，其中n>=2

谢谢，例如：

d(t)=Det(A(t))

如果没有显式表达式：

a[t_] := Table[Sin[(n + m) t], {n, 2}, {m, 2}]
d[t_] := Det[a[t]]
Plot[d[t], {t, 0, 2 Pi}]

也有效

编辑

将尺寸标注用作参数：

a[t_]:= {{f1[t],f2[t]},{f3[t],f4[t]}}

编辑

在同一绘图中绘制多个尺寸：

a[t_, n_] := Table[1/(j + k) t, {j, n}, {k, n}]
d[t_, n_] := Det[a[t, n]]
Plot[d[t, 5], {t, 0, 2 Pi}]

---

@Timo我们需要更多的问题！：）@belisarius如果是这样的话，你能试一下我在wave上的问题吗：@P.Fonseca对不起，这里有很多人比我更精通数值解算（通常是数值方法）。。。如果他们帮不了你，我想我也帮不了你to@belisarius-还是这个？？？@nilo据我所知，你的问题是Java问题。似乎您需要用Java创建一个文本文件。是这样吗？我可以建议您回顾一下您收到的对先前问题的回答吗？我在那里看到了一些非常好的答案，但你没有接受它们（有时甚至没有对它们进行投票或评论！）

a[t_, n_] := Table[k^4/(j + k) t, {j, n}, {k, n}]
d[t_, n_] := Det[a[t, n]]
Plot[Evaluate@Table[d[t, n], {n, 2, 5}], {t, 0, 20}]