' sphyx01.bas -- an exploration in spherical geometry 7:25am, Sat, 2003-10-11
' Open this in the QBasic interpreter, hit <F%>, then hit the <space> bar
' until the thing starts repeating. When you're 'tired' of it, hit the <e>
' key.
' I wrote this app more than 15 years ago. Last night, I added the
' "NL-P Doubling" view. The app is still only qualitative, but it
' depicts, essentially, what's going on in the SSW<->UES harmonics,
' and Why it's so.
' The "NL-P Doubling" view shows the way the NL-P accelerates it's
' 'doubling'. The rest of the screen shows how the NL-P Doubling
' produces the line spectra. It's be-cause energy is being 'squeezed'
' out of the harmonics by the NL-P 'spherical' 'compression' dynamics.
' The main way this app's depiction differs from physical reality is
' that it doesn't incorporate a UES-'pressure'. If it did, then there'd
' be a 'doubling'-like correlate for every line in the spectrum.
' The absorption spectrum is not shown, but it occurs for the same reason,
' but during the 'expansion' phase of the harmonics, during which energy
' is 'squeezed' into the harmonics be-cause the SSW 'rarifies' as it
' 'expands'. This allows energy from the UES to enter the SSW, which is
' Why the absorption spectra are comprised of 'black' lines. There's
' still the SSW<->UES harmonics, but, during their 'expansion' phase,
' the UES is dominant, the energy is moving =inward=, and it's observable
' as an 'absence' of light.
' Almost all of 'the' energy that's 'squeezed' out during the 'compression'
' phase of the harmonics is 'squeezed' back in during the 'expansion'
' phase of the harmonics - "almost', but not all - by an infinitessimal
' amount - be-cause of the one-way flow of energy from order to dis-order
' that is What's =Described= By 2nd Thermo [WDB2T].
' This exchange of energy between 'matter'-phase SSWs and the UES goes on
' =Continuously= at the 'fringes' of the 'matter'<->energy phase transition.
' I like to say that, "this gives a whole new meaning to `walking hand in
' hand'" :-]
' Everything reduces to the spherical-NL-P.
' =ALL= of the dynamics depicted are =Continuous= wave<->wave energydynamics
' that have been mis-construed as being 'dis-continuous' be-cause the NL-P
' had not been understood, so the nonlinear thresholding could not be
' recognized for what it is - continuous wave<->wave energy thresholding
' dynamics.
' k. p. collins
DECLARE SUB Ratio1.01 ()
DECLARE SUB QNumEnergy ()
DECLARE SUB PauseQ ()
DECLARE SUB Grid.0 ()
DECLARE SUB Spectrum.H1 ()
DECLARE SUB u.SlowDown ()
COMMON SHARED xscale#, x#, yscale#, y#
COMMON SHARED pi#, me#, e#, E0#, h#
SCREEN 12: COLOR 7
WINDOW (150, 0)-(0, 15)
CONST e.NL = 2.718281828459045# ' Natural Log base
pi# = 4 * ATN(1) ' PI=3.14159265359...
c# = 2.99792458# * 10 ^ 8 ' speed of light --- m / s
h# = 6.626076 * 10 ^ -34 ' Plank's Constant --- J * s
k# = 8.99 * 10 ^ 9 ' Coulomb constant --- (N * m ^ 2) / C ^ 2
E0# = 1 / (4 * pi# * k#) ' permitivity constant
e# = 1.6 * 10 ^ -19 ' fundamental unit of charge
me# = 9.10939 * 10 ^ -31 ' mass of electron --- kg
mp# = 1.672623 * 10 ^ -27 ' mass of proton --- kg
mn# = 1.674929 * 10 ^ -27 ' mass of neutron --- kg
Avog# = 6.0221367# * 10 ^ 23
Grav# = 6.67259 * 10 ^ -11 ' gravity constant --- N * m ^ 2 / kg ^ 2
Ryd# = 1.0973731534# * 10 ^ 7 ' Rydberg Constant --- m ^ -1
Perm# = 4 * pi# * 10 ^ -7 ' permeability of free space --- N/A ^ 2
e# = 1.602177 * 10 ^ -19 ' unit of charge --- Coulombs
me# = 9.10939 * 10 ^ -31 ' mass of electron --- kg
mp# = 1.672623 * 10 ^ -27 ' mass of proton --- kg
mn# = 1.6749286# * 10 ^ -27 ' mass of neutron --- kg
begin: CLS
Ratio1.01 'simple line plot of var
QNumEnergy
Spectrum.H1 'hydrogen spectrum
GOTO begin
SUB Grid.0
FOR G# = 0 TO xscale# STEP xscale# / 25# ' ESTABLISH GRID LINES
LINE (G#, 0)-(G#, yscale#), 8 ' DRAW X GRID
NEXT
FOR G# = 0 TO yscale# STEP yscale# / 25# ' ESTABLISH GRID LINES
LINE (0, G#)-(xscale#, G#), 8 ' DRAW Y GRID
NEXT
LINE (xscale# / 25 * 12, yscale# / 25 * 14)-(xscale# / 25 * 12, yscale# / 25 * 15), 3
LINE (xscale# / 25 * 12, yscale# / 25 * 14)-(xscale# / 25 * 13, yscale# / 25 * 14), 3
'FOR XX# = 0 TO xscale# STEP xscale# / 100# ' ESTABLISH GRID POINTS
' FOR YY# = 0 TO yscale# STEP yscale# / 100#
' PSET (XX#, YY#), 8
' NEXT
'NEXT
LOCATE 15, 38: PRINT xscale# / 25
LOCATE 13, 40: PRINT yscale# / 25
' LINE (0, y#)-(xscale#, y#), 7 ' DRAW X AXIS
' LINE (x#, 0)-(x#, yscale#) ' DRAW Y AXIS
END SUB
SUB PauseQ
COLOR 12: LOCATE 1, 79: PRINT "e"
114 A$ = INKEY$: IF A$ = "" THEN GOTO 114
IF A$ = "C" OR A$ = "c" THEN CLS ' ENTERING "C" CLEARS SCREEN
IF A$ = "E" OR A$ = "e" THEN END ' ENTERING "E" ENDS EXECUTION
COLOR 0: LOCATE 1, 79: PRINT "e": COLOR 7
END SUB
SUB QNumEnergy
GOSUB Setup.Q1
delay = 1
FOR n% = StartN% TO EndN% STEP -1
Energy# = -((me# * e# ^ 4) / (8 * E0# ^ 2 * h#)) * (1 / n% ^ 2)
Energy# = Energy# * scale#
LOCATE 19, 15
PRINT "n = "; n%; "Energy = "; Energy#; " "; : ' INPUT a$
PSET (n%, -Energy#), attrib%'
u.SlowDown
NEXT n%
delay = 0
PauseQ
LOCATE 19, 15
PRINT " "
EXIT SUB
Setup.Q1:
xscale# = 15# ' X x Y window scale
yscale# = 150#
StartN% = 15 ' main variation
EndN% = 1
incr1# = -1
x# = xscale# / 2 ' X x Y window scale - center circle in window
y# = yscale# / 2
attrib% = 15 ' color for plot
scale# = 10 ^ 53 ' align the overlay in Y
WINDOW (0, 0)-(xscale#, yscale#)
LOCATE 2, 15
PRINT "QNumEnergy - This step traces Quantum Number (X scale = 15) "
LOCATE 3, 15
PRINT "against energy level (Y scale = 150 * 10^53). The last "
LOCATE 4, 15
PRINT "factor is used to align the overlay - play with it. "
LOCATE 5, 15
PRINT "The Quantum Numbers vary from 15 to 1 by -1. Look closely "
LOCATE 6, 15
PRINT "for the 15 white dots against the prior spherical-volume- "
LOCATE 7, 15
PRINT "surface-area trace - note the excellent goodness of fit. "
RETURN
END SUB
SUB Ratio1.01
GOSUB Setup.R1.1
LOCATE 19, 15
PRINT "Vol/Area"
RS# = 15# ' starting "volume"
volsphere# = 4# / 3# * pi# * RS# ^ 3# ' (Thanks, M. F.)
LOCATE 12, 65
COLOR 14
PRINT "NL-P Doubling"
COLOR 7
n% = 0: lastVAR# = 0
FOR R# = vr1# TO vr2# STEP -incr2#
areasphere# = 4 * pi# * R# ^ 2
var# = volsphere# / areasphere#
VIEW (1, 1)-(639, 479), , 8
WINDOW (0, 0)-(xscale#, yscale#)
PSET (R#, var#), 9
LOCATE 19, 24
PRINT var#
IF lastVAR# > 0 THEN
VIEW (460, 155)-(639, 440), , 8
WINDOW (-.00001, 1#)-(xscale1#, yscale1#)
PSET (R#, var# / lastVAR#), 12
END IF
IF var# >= (2.1 * lastVAR#) THEN
n% = n% + 1
LOCATE 1, 1: PRINT "n ="; n%
lastVAR# = var#
END IF
NEXT R#
PauseQ
VIEW (1, 1)-(639, 479), , 8
LOCATE 1, 1
PRINT " "
EXIT SUB
Setup.R1.1:
xscale# = .0005125# ' X x Y window scale
yscale# = 1000000000000#
x# = xscale# / 2 ' used in grid
y# = yscale# / 2
vr1# = .0005125# ' view variation
vr2# = .000001#
incr1# = .0000001#
incr2# = .000001#
VIEW (1, 1)-(639, 479), , 8
WINDOW (0, 0)-(xscale#, yscale#)
xscale1# = .0005125# ' X x Y window scale
yscale1# = 2.5#
CLS
Grid.0
LOCATE 2, 15
PRINT "Ratio1 - This step traces the ratios of spherical volume to "
LOCATE 3, 15
PRINT "surface-area as the sphere is compressed while the 'volume' "
LOCATE 4, 15
PRINT "is held constant. The starting radius is 15. The compressed "
LOCATE 5, 15
PRINT "radii vary from 0.0005125 to 0.000001 by 0.0000001. "
VIEW (460, 155)-(639, 440), , 8
CLS
WINDOW (0, 0)-(xscale#, yscale#)
Grid.0
RETURN
END SUB
SUB Spectrum.H1
SHARED pi#, force#, c#, e#, me#, mp#, mn#, h#, Ryd#, E0#
DIM Sp#(15, 15)
GOSUB Sp.H1.1
' do the all-in-one traditional spectrum for hydrogen - save values in Sp#()
attrib% = 16: offset% = 1
FOR m% = 1 TO 15
attrib% = attrib% - 1
offset# = offset# + .25
FOR n% = 15 TO m% STEP -1
Wave# = Ryd# * ((1 / m% ^ 2) - (1 / n% ^ 2))
Sp#(m%, n%) = Wave#
LINE (0, Wave#)-(.25, Wave#), attrib%
NEXT n%
' PauseQ
NEXT m%
PauseQ
attrib% = 0: offset% = 15
GOSUB Sp.H1.2
' spread out the traditional spectrum for hydrogen in accord with Nonlinear
' Perspective at intervals matching the intervals of the QNumEnergy step
attrib% = 0
FOR m% = 15 TO 1 STEP -1
attrib% = attrib% + 1
offset# = offset# - .25
FOR n% = 1 TO 15
LINE (m% - .25, Sp#(m%, n%))-(m%, Sp#(m%, n%)), attrib%
NEXT n%
NEXT m%
LOCATE 19, 15
COLOR 11: PRINT "There's just a lot of energy and "
LOCATE 20, 15
COLOR 11: PRINT "NL-P in here, and nothing else."
LOCATE 22, 25
COLOR 9: PRINT "k. p. collins": COLOR 7
PauseQ
EXIT SUB
Sp.H1.1:
xscale# = 15# ' X x Y window scale
yscale# = 11400000#
x# = xscale# / 2: y# = yscale# / 2
WINDOW (0, 0)-(xscale#, yscale#)
LOCATE 19, 15
PRINT " "
LOCATE 2, 15
PRINT "Spectrum.H1 - This step first presents the Hydrogen spectrum"
LOCATE 3, 15
PRINT "on the left. (X scale = 15. Y scale = 1.14^7.) "
LOCATE 4, 15
PRINT " "
LOCATE 5, 15
PRINT " "
LOCATE 6, 15
PRINT " "
LOCATE 7, 15
PRINT " "
LOCATE 8, 15
PRINT " "
RETURN
Sp.H1.2:
LOCATE 2, 15
PRINT "Spectrum.H1 - Next, the Hydrogen spectrum is interpreted in "
LOCATE 3, 15
PRINT "accord with the volume - surface-area conceptualization. "
LOCATE 4, 15
PRINT "(X scale = 15. Y scale = 1.14^7.) Again, the Y scale was "
LOCATE 5, 15
PRINT "chosen to align the Y overlay - play with it. "
RETURN
END SUB
SUB u.SlowDown
TIMER ON
start = TIMER
DO UNTIL elapsed > start + (delay / 100)
elapsed = TIMER
LOOP
TIMER OFF
END SUB
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://iubio.bio.indiana.edu/bionet/mm/neur-sci/attachments/20031011/28b3f39c/attachment.html
