clear[x,pnp]​​​​pnp=2564855351​​
clear[x,2564855351]
2564855351
​​​​​​{p1=Plot[((x*Sqrt[pnp^3/(pnp*x^2+x)]+x^4/(pnp^2+x))),{x,10000,50000}],p2=Plot[(Sqrt[((x^2*pnp^4+2*pnp*x^5)+x^8)/pnp^4]-(1-x^2/(2*pnp))),{x,10000,50000}]}​​​​Show[p1,p2,ImageSize720]

10000
30000
2.564855×
9
10
2.564855×
9
10
,
10000
20000
30000
40000
50000
10000
20000
30000
40000
50000

10000
20000
30000
40000
50000
2.564855×
9
10
2.564855×
9
10
2.564855×
9
10
2.564855×
9
10
2.564855×
9
10
2.564855×
9
10
​​​​​​NSolve[((x*Sqrt[pnp^3/(pnp*x^2+x)]+x^4/(pnp^2+x))-pnp)==pnp-(Sqrt[((x^2*pnp^4+2*pnp*x^5)+x^8)/pnp^4]-(1-x^2/(2*pnp)))]
{}