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的二阶导。谢谢各位！