From: Michael Helland on
On May 9, 6:46 pm, Sam Wormley <sworml...(a)gmail.com> wrote:
> On 5/9/10 2:57 PM, Michael Helland wrote:
>
>
> > On May 9, 7:19 am, Sam Wormley<sworml...(a)gmail.com>  wrote:
> >> On 5/8/10 3:56 PM, Michael Helland wrote:
>
> >>> H = 21 km/sec / years in millions
>
> >> Perhaps you meant H_o = 71 km/s/Mpc
>
> > Having the units in km/sec / DISTANCE is the issue, because the light
> > slows down and covers less distance as the Universe continues its so-
> > called expansion at a constant rate according to TIME. It should be km/
> > sec/ TIME.
>
> > Since 21 is the value when its in terms of Million Light Years instead
> > of Megaparsec, then we can use the same value in units of km/sec/
> > million years
>
>    Many call you idiot because you confuse distance and time
>    units--light years and years.
>
>    71 km/s/Mpc = 22 km/s/Mly


I'm not confusing them.

Look, here are two functions, one v = c - Ht and one is v = c - Hd.
Obviously, in the Ht equation, H has to be rewritten in units of km/
sec/million years.

Obviously, c - Ht reaches the end of its range faster. In order for c
- Hd to keep up with c - Ht, the H would have be increased for c - Hd.

Clearly, that's the observed "acceleration of expansion".


c = 299792
H = 21.77
c1 = c
c2 = c
x = 0
x2 = 0
t = 0
do while c > 0 and not lEscape
t = t + 1
x = x + (c * 60 * 60 * 24 * 365 * 1000000)
x2 = x2 + (c2 * 60 * 60 * 24 * 365 * 1000000)

_screen.ForeColor = 0
_screen.Circle(10, _screen.Width/2 * (x/6.51013204409244E+22),
_screen.Height - _screen.Height * (c1 - c) / c1)
_screen.ForeColor = rgb(255, 0, 0)
_screen.Circle(10, _screen.Width/2 * (x2/6.51013204409244E+22),
_screen.Height - _screen.Height * (c1 - c2) / c1)
c = c - H
c2 = c1 - H * (x2 / (c1 * 60 * 60 * 24 * 365 * 1000000))
enddo
?t
?x / (9.4605284 * 10^12)
?x2 / (9.4605284 * 10^12)