[问题] 求助，利用findroot解多元超越方程组

[zhangzhehome0306]

FindRoot[{Do[Im[za[i][n][m]] == 0, {n, 1, 5}, {m, 1, 2}],
Do[(K2*(f[i][1][1])^2)/za[i][1][1]/((K2*(f[i][n][m])^2)/
za[i][n][m]) - (
f[i][1][1]*Sin[k*l[i][1][1]]*VS[[1, 1]]/V[[1, 1]])/(
f[i][n][m]*Sin[k*l[i][n][m]]*VS[[m, n]]/V[[m, n]]) == 0, {n, 2,
5}, {m, 1, 2}],
Do[Sum[(K2*(f[i][n][m])^2)/za[i][n][m], {n, 1, 5}] == 0.5, {m, 1,
2}]}, {{x[i][1][1], 0.1}, {x[i][2][1], -0.1}, {x[i][3][1],
0.1}, {x[i][4][1], -0.1}, {x[i][5][1], 0.1}, {y[i][1][1],
1.01}, {y[i][2][1], 1.01}, {y[i][3][1], 1.01}, {y[i][4][1],
1.01}, {y[i][5][1], 1.01}, {x[i][1][2],
0.1}, {x[i][2][2], -0.1}, {x[i][3][2],
0.1}, {x[i][4][2], -0.1}, {x[i][5][2], 0.1}, {y[i][1][2],
1.01}, {y[i][2][2], 1.01}, {y[i][3][2], 1.01}, {y[i][4][2],
1.01}, {y[i][5][2], 1.01}}, MaxIterations -> 1000];


新手求助！就是想解一个超越方程组的解，这个是肯定有解的，但是由于方程数目太多写起来太麻烦，所以想通过Do循环表示，但是这样软件会报错，求问各位有没有表达方法，因为这些方程都可以通过表达式来表示，不知道我这样写哪里不符合规范了。提示的错误以及这个代码的截图在附件里！