Clear[x,z,pnp];​​​​pnp=2211282552952966643528108525502623092761208950247001539441374831912882294140​​2001986512729726569746599085900330031400051170742204560859276357953757185954​​2988389587092292384910067030341246205457845664136645406842143612930176940208​​46391065875914794251435144458199​​​​z=pnp/(pnp/2)​​Show[​​Plot[(((((pnp^2/x)+x^2))/x)/pnp),{x,5000000000000000000000000000000000000,200000000000000000000000000000000000000}]​​]
2211282552952966643528108525502623092761208950247001539441374831912882294140
2001986512729726569746599085900330031400051170742204560859276357953757185954
2988389587092292384910067030341246205457845664136645406842143612930176940208
46391065875914794251435144458199
2
5.0×
37
10
1.0×
38
10
1.5×
38
10
2.0×
38
10
0.5
1.0
1.5
2.0
2.5
3.0
3.5
Clear[x];​​Plot[((pnp-(Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp)))*(pnp^2/x^2))),{x,5000000000000000000000000000000000000,200000000000000000000000000000000000000}]
5.0×
37
10
1.0×
38
10
1.5×
38
10
2.0×
38
10
0.2
0.4
0.6
0.8
1.0
Clear[x];​​​​Plot[(1/((pnp/(((pnp^2/x)+x^2))/x))),{x,5000000000000000000000000000000000000,200000000000000000000000000000000000000}]
5.0×
37
10
1.0×
38
10
1.5×
38
10
2.0×
38
10
0
1×
75
10
2×
75
10
3×
75
10
4×
75
10