Further exploring the relation of the radius to the distance and gravity of two distinct points or bodies with mass , relating it to the hydrogen atom considering the values for the gravity of the proton and electron to correct when expressed in terms of energy the value for the limit or derivative between two distinc function qith equal variables and different values the value is the same as for the relation of earth to the moon. Just an amazing discovery that leads to quantize the value of gravity. Think of gravity bewtween two points as being the force of the wieght of two bodies ina seesaw whcih distances from the point of equilibrium compensates for the value of the force exerting downward orientation so that theere can be an equiblirium bewteen the two bodies.
If you run the program you will see that this relation is equal to 2 for the value of y for both systems and probably aplies else where.
r1= RandomReal[1*10^-15,{200}] radius of the proton
r2= RandomReal[1*10^-18,{200}] radius of the electron
s=RandomReal[5.29*10^-11,{200}] electron distance to the nucleus
c=RandomReal[300000000,{200}] speed of light
g1= 1.610^-7/(c^4r1) gravity of the proton expressed as energy
g2= 1.510^-19/(c^4 r2) gravity of the electron expressed as energy
s2=(g2r1s)/(2r2g1)
s1=s-s2 distance of equilibrium considering the pendulum of gravity between two points
a=(r1*s1)/g1 total volumetric energy flow of proton
b=(r2*s2)/g2 total volumetric energy flow of electron
y=(g2r1s1)/(g1r2s2) derivative or limit of x to zero for the relation between gravity distance and radius
ListPlot[a]
ListPlot[b]
ListPolarPlot[s2]
ListPolarPlot[y]
data=Table[Mod[s2,y],{s2,0,Pi,Pi},{y,0,Pi,Pi}]
ListPlot[data,InterpolationOrder->3, ColorFunction->{s2->Yellow,y->Blue,s1->Green}]
ContourPlot3D[Mod[a*b,y] ,{a,-Pi,Pi},{b,-Pi,Pi},{y,-Pi,Pi}]
Run these lines and compare to the previous post for the values of the sun and earth...this lines refer to the hydrogen atom.
r1= RandomReal[1*10^-15,{200}]
r2= RandomReal[1*10^-18,{200}]
s=RandomReal[5.29*10^-11,{200}]
c=RandomReal[300000000,{200}]
g1= 1.6*10^-7/(c^4*r1)
g2= 1.5*10^-19/(c^4* r2)
s2=(g2*r1*s)/(2*r2*g1)
s1=s-s2
a=(r1*s1)/g1
b=(r2*s2)/g2
y=(g2*r1*s1)/(g1*r2*s2)
ListPlot[a]
ListPlot[b]
ListPolarPlot[s2]
ListPolarPlot[y]
data=Table[Mod[s2,y],{s2,0,Pi,Pi},{y,0,Pi,Pi}]
ListPlot[data,InterpolationOrder->3, ColorFunction->{s2->Yellow,y->Blue,s1->Green}]
ContourPlot3D[Mod[a*b,y] ,{a,-Pi,Pi},{b,-Pi,Pi},{y,-Pi,Pi}]
Thank you
Attachments:
