暖朵儿
2017-02-21, 16:56
以下是我编的程序：
A= Table[ If[n == m, \[Tau]/(100* Pi), (Exp[-I (n - m)*\[Tau]/ 100])*(Sin[(n - m)*\[Tau]/100])/(Pi*(n - m))], {m, 1, 50}, {n, 1, 50}] // MatrixForm
B = IdentityMatrix[50] // MatrixForm
F = B - A
G= Det[F]
最后要G对Tau的二阶导。谢谢各位！
A= Table[ If[n == m, \[Tau]/(100* Pi), (Exp[-I (n - m)*\[Tau]/ 100])*(Sin[(n - m)*\[Tau]/100])/(Pi*(n - m))], {m, 1, 50}, {n, 1, 50}] // MatrixForm
B = IdentityMatrix[50] // MatrixForm
F = B - A
G= Det[F]
最后要G对Tau的二阶导。谢谢各位！