IUBio Biosequences .. Software .. Molbio soft .. Network News .. FTP

The NL-P [QBasic app Was Re: The Black-Body Power Spectrum [was: Re: 'gravity' [___]]

KP_PC k.p.collins at worldnet.att.net
Sat Oct 11 07:28:09 EST 2003


' 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


More information about the Neur-sci mailing list

Send comments to us at biosci-help [At] net.bio.net