I believe the equations work as shown below. I just need to see the graph where y approaches zero. Also I can not use NSolve to find where the equations equal zero. As always it is my lack of good programming skills. So any advice is helpful.
I believe the equations work as shown below. I just need to see the graph where y approaches zero. Also I can not use NSolve to find where the equations equal zero. As always it is my lack of good programming skills. So any advice is helpful.
Clear[x,pnp];pnp=2564855351;((Sqrt[(41221^2*pnp^4+2*pnp*41221^5)+41221^8])/pnp^4-(1-(41221^2/(2*pnp)))*(pnp^2/41221^2))
-+
8798838519304646211
3398341682
494652
300530820916134353551081538380157126
43276438207017172921441017973328906401
N-+
8798838519304646211
3398341682
494652
300530820916134353551081538380157126
43276438207017172921441017973328906401
-2.58916×
9
10
Clear[x,pnp];pnp=2564855351;(Sqrt[(41221^2*pnp^4+2*pnp*41221^5)+41221^8])/pnp^4-(1-(41221^2/(2*pnp)))
-+
3430539861
5129710702
494652
300530820916134353551081538380157126
43276438207017172921441017973328906401
N-+
3430539861
5129710702
494652
300530820916134353551081538380157126
43276438207017172921441017973328906401
-0.668759
Clear[x,pnp];pnp=2564855351;x=41221;((Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp))))
N-+
3430539861
5129710702
494652
300530820916134353551081538380157126
43276438207017172921441017973328906401
-0.668759
Clear[x,pnp];pnp=2152741102718889701896015201312825429257773588845675980170497676778133145218859135673011059773491059602497907111585214302079314665202840140619946994927570407753;x=45427892858481394071686190649738831656137145778469793250959984709250004157335359;((Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp))))
4542789285848139407168619064973883165613714577846979325095998470925000415733
N-(4305482184800844908175381954762600651303060081927506027543419279375483131567190300127479540272286484367331032305590835761960487543956089656150267863632306888217/4305482205437779403792030402625650858515547177691351960340995353556266290437718271346022119546982119204995814223170428604158629330405680281239893989855140815506)+58√13175175544318586333287831791792295179865851611105469604666098412905564835985107926520946912772290035194332610056978066979392359992946856352967478527749595837675502805197819225809022332150298875120212715167155017034589949401075801959327767922586363725552534455819126345791138138405024619857888286511082866586407702399756969263529937663564149340176361422149722859594871949937414873457369718106176191762462748195919502610295670021381683011506391650230219313640146378769334801660953258193021825705227809501786176995687145552585230093767637809119334552405645073160023652108523059792001576418005589597906284691575393779219774300087727579830182593844101057882635811482668407815101707144949701637668149151975856351185866022711771471301144765499865098345047858915474440979511080392910561105519721476683245034144828471336371346039417063361453747054459444205771970111797151857233373132075790825703364339013539409911113953040050573107098908317919904169362482614698496417182870609333340197248100115336675385648171704728617160595881503683132860266407217538555329637187552222601126417458297909017854027928986419039226206575983045794484305627234679106960758391076707646171512806496341086184066468422509299243709027263801983717030601783156005205417279308234186617548958184132519845891428669640709138053166391097805161947513413377606577612965436750387113578871090942097705593279670152095073181424618985008515406273369847469716461735366162081
-1.
Clear[x,pnp];pnp=2519590847565789349402718324004839857142928212620403202777713783604366202070\7595556264018525880784406918290641249515082189298559149176184502808489120072\8449926873928072877767359714183472702618963750149718246911650776133798590957\0009733045974880842840179742910064245869181719511874612151517265463228221686\9987549182422433637259085141865462043576798423387184774447920739934236584823\8242811981638150106748104516603773060562016196762561338441436038339044149526\3443219011465754445417842402092461651572335077870774981712577246796292638635\6373289912154831438167899885040445364023527381951378636564391212010397122822\120720357;Plot[((Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp)))),{x,0,pnp}]
Plot-1-,{x,0,pnp}
(+2pnp)+
2
x
4
pnp
5
x
8
x
4
pnp
2
x
2pnp
Clear[x,pnp];pnp=2152741102718889701896015201312825429257773588845675980170497676778133145218859135673011059773491059602497907111585214302079314665202840140619946994927570407753;Plot[((Sqrt[(x^2*pnp^4+2*pnp*x^5)+x^8])/pnp^4-(1-(x^2/(2*pnp)))),{x,0,45427892858481394071686190649738831656137145778469793250959984709250004157335359}]
Show[%64,ImageSizeFull]