Solve coupled equations with NSolve and ListPlot?

Questions
, ,
1

Dear Mathematica experts,
I have a set of 9 coupled equations with unknown 9 variables. The equations contain some parameter x that I want to get the solution for certain range of x. What is the best method. Please note my attachment.

question.nb (14.7 KB)

2

Maybe this helps, see attached file.

Regards M.I.

question ver1.nb (28.4 KB)

3

Thank you very much for your kind help which I highly need and appreciate. But is there any way to plot y as function of x, where for each value of x there is different value of rho 21.

Regards
M.T.

4

Please note the attached file. Is my way right?

Regards
M.T.

question ver1.nb (27.3 KB)

5

Why the plot take very long time without result. Is there any solution for this problem?

6

Maybe you want ?

y[x_] := Abs[x + I*150*\[Rho]21 /. nsol[x][[Length[nsol[x]]]]];
n = 1/5;(*If n is small then Computing time is longer*)
a = 1; 
b = 3;
ListLinePlot[Table[{x, y[x]}, {x, a, b, n}]]
7

Thank you very much. As I understand n is step length. But as you observe we got many solutions with NSolve. For any one the plot is given?