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

【问题标题】：How to define determinant of a matrix as a function in mathematica?如何将矩阵的行列式定义为mathematica中的函数？
【发布时间】：2012-01-02 23:06:48
【问题描述】：

让

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

首先，我如何将矩阵 A(t) 定义为 t 的函数

然后

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

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

然后绘制d(t)。

其实我想为n*n matrix where n>=2写这个函数

谢谢

【问题讨论】：

【解决方案1】：

例如：

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}]

编辑

在同一个图中绘制多个维度：

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}]

【讨论】：