Plotting large equation in mathematica

Question

I have this rather large equation which needs to be solved with respect to I1 so that I can plot it against X:

-1 - (0.742611 I1 (1/(-(-14 + 16/I2)^2 + (1 - 15/I1 + 16/I2)^2) - ( 30 (1 - 15/I1 + 16/I2))/( I1 (-(-14 + 16/I2)^2 + (1 - 15/I1 + 16/I2)^2)^2)) X^1.5)/((1.36- I1) (I1/(-(-14 + 16/I2)^2 + (1 - 15/I1 + 16/I2)^2))^2.5) + ( 0.495074 X^1.5)/((1.36- I1) (I1/(-(-14 + 16/I2)^2 + (1 - 15/I1 + 16/I2)^2))^1.5) + ( 0.495074 I1 X^1.5)/((1.36- I1)^2 (I1/(-(-14 + 16/I2)^2 + (1 - 15/I1 + 16/I2)^2))^1.5)

Mathematica can't solve it using Solve because it is rather complex and therefore I can't plot the solution.

Is there some way I can achieve this, maybe using another program?

I am not sure if my question is really clear so please ask if you need any further info.

Answer 1

Suppose we define equation as follows:

equation=yourBigEquation;

Now you can solve it numerically using NSolve producing a table of values (I select only $I1\in\mathbb{R}$ here; start from $X=10^{-10}$ because for $X=0$ there're no usable solutions):

sol=I1/.Table[NSolve[equation, I1, Reals], {X, 10^-10, 1, 1/500}];

And now plot it:

ListPlot[Transpose[sol], Joined->True, PlotRange->All, DataRange->{10^-10, 1}]