I was trying to make a plot of discrete set of data from two tables, the values in one table are fixed and the corresponding values in the other table are obtained from Mathematica itself by solving an equation using FindRoot command. I am having problems plotting the data from two tables. The code I wrote is as follows:
Table[x, {x, 0.1, 2, 0.1}]
y[_x] = Table[FindRoot[(Sqrt[1 + y[x]^2/x^2] +
(y[x]/(2*x))^2*Log[(x/y[x])^2+Sqrt[1 + (x/y[x])^2]])*x/2 == 1,
{y[x], 1}], {x, 0.1, 2, 0.1}]
ListPlot[{y[x], x}]
The Problem being I am not getting the plot, it will be great if someone could help.Thanks.
=
which is confusing to the human reader and the computer. $\endgroup$ – Manuel --Moe-- G Nov 22 '16 at 20:02