- #1

- 1,367

- 61

I have the following code in Mathematica:

Code:

```
G[k_, l_] :=
MatrixForm[Table[If[i == j, 1, 0], {i, 1, 3}, {j, 1, 3}]];
Print[\!\(
\*UnderoverscriptBox[\(\[Sum]\), \(k = 1\), \(3\)]\(
\*UnderoverscriptBox[\(\[Sum]\), \(l = 1\), \(3\)]Det[G[k, l]]\)\)];
```

Thanks in advance