       Can you solve my gravity-maths problem in Mathematica?

• To: mathgroup at smc.vnet.net
• Subject: [mg62828] Can you solve my gravity-maths problem in Mathematica?
• From: "Paul" <paulbird at whsurf.net>
• Date: Tue, 6 Dec 2005 00:04:12 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello, I have been working on a simple model of quantum gravity. Like
atoms have a minimum electron shell distance caused by the quantisation
of the electromagnetic force my approximation for the average distance
between particles held together by a graviational force, using my
model, becomes :

"Find r at the maximum value of:

f(r)   =  exp( m*r )  *  integrate(  exp(-2*m*r)/r^2 , r )

(r>0) "

Where we use constants such that c=h=G=1. In this system for example
electron mass is something like 10^(-23) I believe. (The graviational
bond enegy in this model becomes m^5 in my units.)

So I need to find f'(r)=0.

Can anyone find a good way to solve this for r, maybe as a series in
terms of m? Also, I would be interested in seeing a graph of f(r).

```

• Prev by Date: Re: Threading 'Append'
• Next by Date: Re: Threading 'Append'
• Previous by thread: Re: inequations
• Next by thread: Re: Can you solve my gravity-maths problem in Mathematica?