50*50行列式的二阶导数,程序运行不出来,求大神帮忙
以下是我编的程序:
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的二阶导。谢谢各位!
|