`G as float
m# = 1.0
kg# = 10.0
s# = 1.0
p#=1.0
M1# = 1.0
M2# = 1.0
R#=5.0
G# = 6.67428
PM1# = 10
`G = 6.67300 * ƒ((1/10^11)(m^3)(1/kg^1)(1/s^2))
`(1/P^3)+m^3
remstart
F = GMm/R2
where
F is the force of attraction between two objects in newtons (N)
G is the universal gravitational constant
M and m are the masses of the two objects in kilograms (kg)
R is the distance in meters (m) between the objects, as measured from their centers of mass
Universal gravitational constant
The universal gravitational constant, G, has been determined experimentally to be:
G = 6.67*10-11 N-m2/kg2
Note: The number 10-11 is 1/1011 or 0.000000000001 with 11 zeros after the decimal point.
A newton can also be stated in terms of kg-m/s2, so you may also see G defined as: G = 6.67*10-11 m3/kg-s2. Since the unit of force is in newtons (N), the units for G used in the Universal Gravitation Equation should be N-m2/kg2.
Check on units
It is important to make sure you are using the correct units for each item in your equation. Check by adding units to the gravitation equation and then seeing that the result is correct:
F N = (G N-m2/kg2)*(M kg)*(m kg)/(R m)2
Just considering the units:
N = (N-m2/kg2)*(kg)*(kg)/(m)2
N = (N)*(m2)*(kg)*(kg)/(m2)*(kg2)
N = N
Thus, the units used are correct.
remend
G# = return_gravity(m#,kg#,s#)
do
Input "enter Aether size>"; PM2#
`G# = 6.67300 * (1.0/ (10.0^11.0)) * (6.67300 * (m#^3.0)) * (6.67300 * (1.0/kg#)) * (6.67300 * (1.0/s#^2.0))
P# = (M1-PM1#)-(M2-PM2#)
F# = G# * M1#*M2# / ((R# * R#)/P#)
`F# = G# + m#
print f#
loop