John Heath wrote:
> Max Keon wrote:
---
---
>> I've added another .exe file to this page
>>
http://members.optusnet.com.au/mskeon/test4a.html
>> Example (2). How do you feel about downloading it? It poses
>> questions for Relativity. And my computer is secure (trust me).
>>
>> The number of steps involved in sending each beam from the light
>> source to the mirrors and back are counted. According to the
>> default cycle of the animated reality the time rate in the
>> relatively moving frame has slowed to t'= t*.75, but according to
>> observation it has slowed to t'= t*.866 . The discrepancy could
>> perhaps be accounted for if the distance between the mirrors was
>> to shrink to .866 of the original length. The shrinkage can't be
>> just an illusion that's generated by the relative motion of the
>> frame either, it must be real. The moving frame length is
>> measured in the screen frame and if it hasn't physically shrunk,
>> the time discrepancy could not be justified.
>>
>> The same will apply from the viewpoint in the FOR of the
>> mirror-source assembly. If that is deemed stationary and the
>> screen frame is moving at .5c the screen frame must also shrink
>> to .866 of its original length. In order to accommodate both
>> scenarios both frames have necessarily shrunk by that amount. But
>> that takes us back to square one again. Neither of them could
>> ever have been their original measured lengths. So we begin again
>> with two shorter frames. And arrive back at square one once
>> again.
---
---
>
> If you could copy and paste the source code here I could
> eyeball , run and possibly put a finger on why it is not
> tracking SR for gamma. It should have worked.
I apologize for the delay in getting back to you but I'm not too
sure what you're expecting to find here. The theory behind the
animation is not one bit compatible with SR. Probably the most
significant difference is that the propagation base for light
local to the earth is fixed with the non rotating ECI frame. The
screen frame is considered as being fixed with that frame. The
frame of the moving apparatus can never align with the screen
frame, and for reasons shown in the animated reality, the speed
of (light and time as one) will always run slower. But not
as slow as the geometry indicates. That will be the case from a
viewpoint in either frame.
I'm assuming that you want the text program that runs in Qbasic?
'--------
'This program simulates the motion of a device which consists of
'a light source which emits two wavefronts simultaneously in
'opposite directions that travel at a constant rate relative to
'the propagation base for light which is the screen in this case,
'to be reflected off mirrors and returned to the source.
ON TIMER(1) GOSUB tfix 'The next eight lines set the program
TIMER ON 'run speed to suit your computer
WHILE stp < 10 '(don't know why)
pp = pp + 1
WEND 'The routine isn't included in the .exe
tfix: 'file. FreeBasic doesn't accept it
ti = (pp / 10)
TIMER OFF
SCREEN 12
vx = 300
v = .5
tv: CLS
LOCATE 13, 24: PRINT "Pixel count for v=0 is 300"
COLOR 11: LOCATE 18, 32: PRINT "Mirrors"
COLOR 12: LOCATE 16, 30: PRINT "light paths"
COLOR 14: LOCATE 17, 31: PRINT "wavefronts"
COLOR 10: LOCATE 15, 30: PRINT "light source"
tm: COLOR 14
tx: aa = 160: bb = 154: cc = 180: dd = 154: ee = 4: ff = 154
a = 170: b = 170: c = 20: d = 320: e = 20: f = 320
g = 165: h = 175: s = 0: ss = 0
'Sets the start point of light source and mirror assembly.
LOCATE 14, 32: PRINT "v ="; v; "c"
COLOR 7
LOCATE 7, 22: PRINT "Wave fronts travel at a constant"
LOCATE 8, 26: PRINT "rate across the screen."
av: COLOR 7
LOCATE 12, 27: PRINT vw; "(pixel count)"
LINE (e, 154)-(f, 154), 12 'light paths
LINE (g, 149)-(h, 159), 10, B 'light source
LINE (c, 144)-(c, 164), 11 'left mirror
LINE (d, 144)-(d, 164), 11 'right mirror
LINE (a, 144)-(a, 164), 14 'left wave front
LINE (b, 144)-(b, 164), 14 'right wave front
FOR t = 1 TO ti / 4: NEXT t 'Graphics "on" timer.
IF a = b AND vw > 0 THEN GOTO ax
vw = vw + 1 'pixel count
IF vw > 850 THEN END
s$ = INKEY$: IF s$ = CHR$(27) THEN END
COLOR 0
LINE (e, 154)-(f, 154)
LINE (g, 149)-(h, 159), , B
LINE (c, 144)-(c, 164)
LINE (d, 144)-(d, 164)
LINE (a, 144)-(a, 164)
LINE (b, 144)-(b, 164)
IF a = c OR a < c THEN s = 1
IF a = d OR a > d THEN s = 0
IF b = d OR b > d THEN ss = 1
IF b = c OR b < c THEN ss = 0
IF s = 0 THEN a = a - 1
IF s = 1 THEN a = a + 1
IF ss = 0 THEN b = b + 1
IF ss = 1 THEN b = b - 1
c = c + v: d = d + v: e = e + v
f = f + v: g = g + v: h = h + v
GOTO av
ax:
COLOR 7
LOCATE 15, 18
PRINT "t'= t *"; vx; "/"; vw; "="; vx / vw; " (t=1)"
cy = 1
LOCATE 16, 18
PRINT "t'= t*sqr(1-v^2/c^2) ="; 1*SQR(1-v^2/cy^2); "is observed"
LOCATE 17, 18
PRINT "Or per Pythagoras a^2+b^2 = c^2 (where c=1)"
LOCATE 18, 18
PRINT "t' = SQR(c^2-v^2) ="; SQR(cy ^ 2 - v ^ 2); "sec'/sec"
vw = 0:
COLOR 3
LOCATE 20, 14: PRINT "Enter speed from 0 to 1 (1 = light speed)"
LOCATE 21, 14: INPUT ">.8 exits the program"; v
IF v > 1 THEN END
GOTO tv
'---program end---
-----
Max Keon