On so-called 'quantum entanglement'
Kenneth 'pawl' Collins
k.p.collins at worldnet.att.net
Tue Nov 26 05:23:47 EST 2002
'this unfancy QBasic program uses the Compton equation to calculate
'delta wavelength [green traces] and delta energy [red traces]
'for scattering angles from 180 to 0.
'the main point of the program is to disclose that the Compton equation
'just traces the SSW<->UES harmonics as they are reified in Tapered Harmony.
'The meaning of this 'main point' is that the Compton equation, and all of
'quantum mechanics' just APPROXIMATE the SSW<->UES harmonics that are reified
'in Tapered Harmony.
'Look closely, and you can see the iteration-to-iteration variation-
'diminutions that coincide with the SSW<->UES harmonics coming up against
'their fully 'compressed' [180 deg] and fully 'expanded' [0 deg] extents.
'The fully 'compressed' 'state' coincides with what has been referred to as
'the "atomic nucleus". It's where delta energy is greatest because the
'decting energy collides solidly. As the SSW<->UES harmonic 'expands', energy
'values and scattering angles decrease because there's less solid stuff to
'collide with.
'Note the tight correlation between the Compton approximation energy and
'wavelength values with respect to the physically real spherical Geometry
'of a Spherical standing wave undergoing 'compression' and 'expansion',
'harmonically.
'Physical reality is CONTINUOUS. What have been referred to as "atoms" are
'actually spherical standing waves in 'compression'-'expansion' harmonic
'interaction with an energy-surround - the Universal Energy Supply [UES].
'All the rest of 'qm' is just the same stuff - APPROXIMATION of the
'Deterministic SSW<->UES harmonic energydynamics. Approximation that's
'been calculated by invoking non-existent 'quanta'.
'Run the app by opening it in QBasic, and hitting F5.
'When the yellow "e" appears, hit the "e" key to terminate the reiteration.
'Hitting any other ke will reiterate'
'If you want to single-step the program, uncomment the "PauseQ" statements.
'[remove the "'" in the leftmost column]
'if you want to just study the Geometry, comment out the "print" statements.
'[Add a "'" in the leftmost column.
'Look in the code to see the data names that are printed.
'In order they are: theta!, delta WL, Scattering offset, delta Energy.
'In QBasic, the subroutines can be accessed by hitting F2.
'(c) by K. P. Collins, Tuesday, 2002-11-26
DECLARE SUB SSW ()
DECLARE SUB wavelength ()
DECLARE SUB PauseQ ()
SCREEN 12
CONST PI = 3.141593
begin:
wavelength
SSW
GOTO begin
SUB PauseQ
COLOR 14: LOCATE 1, 79: PRINT "e"
114 a$ = INKEY$: IF a$ = "" THEN GOTO 114
IF a$ = "C" OR a$ = "c" THEN CLS
IF a$ = "E" OR a$ = "e" THEN COLOR 7: END
COLOR 0: LOCATE 1, 79: PRINT "e": COLOR 7
END SUB
SUB SSW
'this step discloses that the Compton equation just traces the SSW<->UES Harmonics
'delta wavelength [green] delta energy [red]
WINDOW '(-5, 0)-(181, 10 ^ -3.55) 'scale SSW<->UES Harmonics plot
CLS
wl0! = .2 'xrays 0.20 nm
FOR theta! = 180! TO 0! STEP -1!
dwl! = ((6.626 * 10 ^ -34) / ((9.11 * 10 ^ -31) * (3 * 10 * 10 ^ 0))) * (1 - COS(theta! * (PI / 180)))
IF dwl! <> 0 THEN
de! = dwl! / wl0!
END IF
LOCATE 1, 1
PRINT theta!, dwl!, wl0! + dwl!, de!
'PauseQ
CIRCLE (320, 240), de * 1000000, 12
CIRCLE (320, 240), dwl! * 1000000, 10
'PauseQ
NEXT
PauseQ
END SUB
SUB wavelength
'this step plots delta wavelength [green] and delta energy [red]
WINDOW (-5, 0)-(181, 10 ^ -3.55)
COLOR 7
CLS
wl0! = .2
FOR theta! = 180! TO 0! STEP -1!
'''for theta! = 45! TO 45!'check using Serway p1157
dwl! = ((6.626 * 10 ^ -34) / ((9.11 * 10 ^ -31) * (3 * 10 * 10 ^ 0))) * (1 - COS(theta! * (PI / 180)))
IF dwl! <> 0 THEN
de! = dwl! / wl0!
END IF
LOCATE 1, 1
PRINT theta!, dwl!, wl0! + dwl!, de!
'PauseQ
PSET (180 - theta!, dwl!), 10
PSET (180 - theta!, de!), 12
NEXT
PauseQ
END SUB
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://iubio.bio.indiana.edu/bionet/mm/neur-sci/attachments/20021126/f6c0cb8a/attachment.html
More information about the Neur-sci
mailing list