"Example of NSolve"

NSolve[x^5-2 x+3==0,x]
"How to abstract the numerical solutions from NSolve?"
solutions=x/.NSolve[x^5-2 x+3==0,x];
solutions

"Find only real solutions"
NSolve[x^5-2 x+3==0,x,Reals]
solutions=x/.NSolve[x^5-2 x+3==0,x,Reals];
solutions[[1]]
Plot[x^5-2 x+3,{x,-2,1}]

nsolve=NSolve[(x^2-1) (x^4-1)==0,x,Reals];
solutions=x/.nsolve;
solutions
Plot[(x^2-1) (x^4-1),{x,-1.5,2}]

nsolve=NSolve[Sqrt[x]+3 x^(1/3)==5,x,Reals];
solutions=x/.nsolve;
solutions
Plot[Sqrt[x]+3 x^(1/3)-5,{x,-1.5,2}]

nsolve=NSolve[E^x-x==7,x,Reals];
solutions=x/.nsolve;
solutions
Plot[E^x-x-7,{x,-8,3}]

nsolve=NSolve[E^(2 E^x)-Log[x^2+1]-20 x==11,x,Reals];
solutions=x/.nsolve;
solutions
Plot[E^(2 E^x)-Log[x^2+1]-20 x-11,{x,-0.5,0.5}]

nsolve=NSolve[2 x^(123451/67890)-x^2+4 Sqrt[x]-4 x-9/8==0,x,Reals];
solutions=x/.nsolve;
solutions
Plot[2 x^(123451/67890)-x^2+4 Sqrt[x]-4 x-9/8,{x,0,21}]

nsolve=NSolve[E^(2 x)+x^4+4 (x^2+1)==(2 x^2+4) E^x,x,Reals];
solutions=x/.nsolve;
solutions
Plot[E^(2 x)+x^4+4 (x^2+1)-(2 x^2+4) E^x,{x,0,2}]

nsolve=NSolve[10 Sin[Tan[E^-x^2]]-x==3,x,Reals];
solutions=x/.nsolve;
solutions
Plot[10 Sin[Tan[E^-x^2]]-x-3,{x,-4,1}]

nsolve=NSolve[2 Sin[Exp[x]]-Cos[Pi x]==3/2&&-1<x<1,x,Reals];
solutions=x/.nsolve;
solutions
Plot[2 Sin[Exp[x]]-Cos[Pi x]==3/2,{x,-Pi,Pi}]
Plot[2 Sin[Exp[x]]-Cos[Pi x]==3/2,{x,-1,1}]