n = 2
I am not getting the determinant of the NW. Can somebody suggest what is wrong?
S[1] = Table[i*e[i], {i, 1, n}]
S[2] = {1, Table[e[i], {i, 1, n - 1}]}
S[3] = {0, 1, Table[e[i], {i, 1, n - 2}]}
For[i = 4; t = x, i < n + 1, i++,
S[i] = {ConstantArray[0, i - 2], ConstantArray[1, 1],
Table[e[j], {j, 1, n - i + 1}]}; Print[S[i]]]
EQ1 = Table[S[j], {j, 1, n}]
NW = MatrixForm[EQ1]
NW1 = Det[Transpose[NW]]