On so-called 'quantum entanglement'

Kenneth 'pawl' Collins k.p.collins at worldnet.att.net
Wed Nov 27 02:58:14 EST 2002


'Similar to COMPTONA>BAS, but cleaned up and with with a couple of additional features
'COMPTONC.BAS - a simple animation of the Compton scattering data.
'RUN INSTRUCTIONS FOLLOW ---------------------------------------------

'this unfancy  QBasic program uses the Compton equation to calculate
'delta energy ['line' plot] for scattering angles from 180 to 0.

'It then uses the delta energy values to map the 'compression'-'expansion'
'dynamics of 'atoms' into a simulation of their spherical Geometry.

'The two separate plots are synchronized, so that the delta energy trace is
'always correlated with SSW<->UES harmonic phase in the 'spherical' trace.

'In the plot in the viewport on the left:
'   The 'compression' phase of the SSW<->UES harmonics is in RED.
'   The 'expansion' phase of the SSW<->UES harmonics is in BLUE.
'   The values of scattering angle and delta energy are orthoganally
'   tracked in red.

'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.
'[Look for this in the relative densities within the 'spherical' plot - best
'viewed when the yellow "e" is visible.]

'The fully 'compressed' 'state' coincides with what has been referred to as
'the "atomic nucleus". It's where delta energy is greatest because the
'detecting 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
'delta energy values with respect to the physically real spherical Geometry
'of a Spherical standing wave undergoing 'compression' and 'expansion',
'harmonically.

'Tapered Harmony describes a Deterministic, Continuous physical reality, in
'which infinitely-'fluid' energy just flows, 'trapping' quantities of energy
'CONTINUOUSLY, within Spherical Standing Wave harmonics, as a function of
'relatively-local UES [Universal Energy Supply] 'pressure'.

'qm' describes the Same-Stuff via a APPROXIMATE Statistical approaches.

'For further discussion of Tapered Harmony's fundamentals, do a Groups
'Google (tm) on the Internet.

'RUN the app by opening it in QBasic, and hitting F5.

'To terminate the iteration, hit the <Esc> key. The app will complete
'the current iteration.

'This is the best program state in which to study the density-variations
'inherent in the spherical simulation trace.

'When the yellow "e" appears, hit the "e" key to terminate the app.
'Hitting any other key will rerun the animation

'If you want to single-step the program, uncomment the "PauseQ" statements.
'[remove the "'" in the leftmost column] or add more of your own.

'In QBasic, the subroutines can be accessed by hitting F2.

'(c) by K. P. Collins, Wednesday, 2002-11-27

DECLARE SUB SSW ()
DECLARE SUB PauseQ ()
SCREEN 12
CONST PI = 3.141593

begin:

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
   
CONST ESC = 27

'this step discloses that the Compton equation just traces the SSW<->UES
'Harmonics delta energy.

CLS
COLOR 7
wl0! = .2 'xrays 0.20 nm
deMax! = (((6.626 * 10 ^ -34) / ((9.11 * 10 ^ -31) * (3 * 10 * 10 ^ 0))) * (1 - COS(180! * (PI / 180))) / wl0!)
FOR theta! = 0! TO 180!
   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
   VIEW (3, 1)-(187, 460), , 7
   LOCATE 2, 2: PRINT "Compton delta energy"
   LOCATE 28, 3: PRINT "Scattering angle"; 180 - theta!
   LOCATE 3, 5: PRINT deMax! - de!
   WINDOW (-5, -.000025)-(183, .000275)
   PSET (180 - theta!, deMax! - de!), 9
   LINE (0, 0)-(180, 0), 0
   LINE (0, 0)-(180 - theta!, 0), 12
   LINE (0, 0)-(0, deMax!), 0
   LINE (0, 0)-(0, deMax! - de!), 12
   VIEW
   WINDOW
   CIRCLE (410, 240), de! * 900000, 4 'low-red
   'PauseQ
NEXT
WHILE INKEY$ <> CHR$(ESC)
   FOR theta! = 180! TO 0! STEP -1!
      'calculate delta wavelength
      dwl! = ((6.626 * 10 ^ -34) / ((9.11 * 10 ^ -31) * (3 * 10 * 10 ^ 0))) * (1 - COS(theta! * (PI / 180)))
      IF dwl! <> 0 THEN
         'calculate delta energy
         de! = dwl! / wl0!
      END IF
      VIEW (3, 1)-(187, 460), , 7               'erase delta energy trace
      LOCATE 3, 5: PRINT deMax! - de!
      LOCATE 28, 3: PRINT "Scattering angle"; 180 - theta!
      WINDOW (-5, -.000025)-(183, .000275)
      'CIRCLE (180 - theta!, deMax! - de!), 1, 12              
      PSET (180 - theta!, deMax! - de!), 12
      LINE (0, 0)-(180 - theta!, 0), 12
      LINE (0, 0)-(0, deMax! - de!), 12
      VIEW                                      'plot simulated sphere trace
      WINDOW
      CIRCLE (410, 240), de! * 900000, 0
      'PauseQ
   NEXT
   FOR theta! = 0! TO 180!
      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
      VIEW (3, 1)-(187, 460), , 7
      LOCATE 3, 5: PRINT deMax! - de!
      LOCATE 28, 3: PRINT "Scattering angle"; 180 - theta!
      WINDOW (-5, -.000025)-(183, .000275)
      'CIRCLE (180! - theta!, deMax! - de!), 1, 9              
      PSET (180 - theta!, deMax! - de!), 9
      LINE (0, 0)-(180, 0), 0
      LINE (0, 0)-(180 - theta!, 0), 12
      LINE (0, 0)-(0, deMax!), 0
      LINE (0, 0)-(0, deMax! - de!), 12
      VIEW
      WINDOW
      CIRCLE (410, 240), de! * 900000, 4
      'PauseQ
   NEXT
WEND
PauseQ

END SUB


-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://iubio.bio.indiana.edu/bionet/mm/neur-sci/attachments/20021127/1fb3ceb9/attachment.html


More information about the Neur-sci mailing list