View unanswered posts | View active topics It is currently Sun Feb 18, 2018 5:18 pm




Reply to topic  [ 12 posts ] 
 Grid Cell Fields Program - Memory Addressing 
Author Message

Joined: Fri Sep 22, 2006 12:04 am
Posts: 1456
Location: Massachusetts
Post Grid Cell Fields Program - Memory Addressing
As mentioned in the Beam Me Up, Ratty topic I was working on this math problem that relates to the Theory of Intelligent Design by being part of the addressing of addressable memory requirement:

From: http://www.ncbi.nlm.nih.gov/pmc/articles/PMC2678278/

Image

Image

Phase Precession Chart from paper:
Image

Chart from program:
Image

Grid Cell Fields from Paper:
Image

Grid Cell Fields I calculated with 6 preferred directions, same proportions, with 360 degree run field to show all 4 quadrants:
Image

And in case anyone wants to check my math here's the source code and .exe:
https://sites.google.com/site/intellige ... Fields.zip

Code:
'Grid Cell Fields - Gary Gaulin, 2011
'From "An oscillatory interference model of grid cell firing", N Burgess, C Barry, and J O'Keefe
'   http://www.ncbi.nlm.nih.gov/pmc/articles/PMC2678278/
'Navigational memory addressing of mammal and probably insect brains
' use neurons as voltage controlled oscillators.
'Speed and direction information combine with ~8-10 Hz Theta Waves
'  to produce hexagonal grid interference patterns of varying sizes
'  that sum to address a single "Place" in time.
'Knowledge of AM/FM radio electronics and AC phase shifting is very helpful.
'No "Neural Network" or conventional AI experience is here required.
'Video primer, lecture starts 7 1/2 minutes in:
' http://www.youtube.com/watch?v=pATzOJLptGo
'Other good open access resources:
' http://www.icn.ucl.ac.uk/nburgess/GridCellModelPoster05.pdf
' http://www.ncbi.nlm.nih.gov/pmc/articles/PMC2408670/
' http://www.ncbi.nlm.nih.gov/pmc/articles/PMC2653064/

Option Explicit         'Tells program compiler to report when error is made coding variables.
Const PI = 3.14159265358979
Const PI2 = PI / 2
Const Radian = PI * 2
Const Degrees = Radian / 360
Const ThetaRhythm = 10 * 2 * PI

Dim EarlyExit As Boolean
Dim Speed As Double
Dim Sec As Double
Dim T As Double
Dim Tstep As Double
Dim H As Double     'Heaviside function  (H(x)=x if x>0; H(x)=0 otherwise)
Dim B As Double
Dim Vsoma As Double
Dim Vdend As Double
Dim Vdend1 As Double
Dim Vdend2 As Double
Dim Vdend3 As Double
Dim Vdend4 As Double
Dim Vdend5 As Double
Dim Vdend6 As Double
Dim Vsum As Double
Dim Vsum1 As Double
Dim Vsum2 As Double
Dim Vsum3 As Double
Dim Vsum4 As Double
Dim Vsum5 As Double
Dim Vsum6 As Double
Dim Wsoma As Double
Dim Wdend As Double
Dim Wdend1 As Double
Dim Wdend2 As Double
Dim Wdend3 As Double
Dim Wdend4 As Double
Dim Wdend5 As Double
Dim Wdend6 As Double
Dim Adend As Double
Dim Asoma As Double
Dim Pdend As Double
Dim HeadingDirection As Double
Dim Ysoma As Double
Dim Ydend As Double
Dim Ysum As Double
Dim WaveHeight As Long

Dim Pic
Dim Xpixels As Long
Dim Ypixels As Long
Dim Xctr As Long
Dim Yctr As Long
Dim X As Long
Dim Y As Long
Dim Xp As Long
Dim Yp As Long
Dim C As Long
Dim Rd As Long
Dim Gr As Long
Dim Bl As Long
Dim A As Double

Private Sub Form_Load()
   Call PhasePrecessionChart
End Sub

Private Sub Form_Unload(Cancel As Integer)
  EarlyExit = True      'End program without anything left running or in RAM.
  DoEvents
End Sub

Private Sub GridCellFieldsCommand_Click()
   Call GridCellFields
End Sub

Private Sub SaveBitmapsCommand_Click()
   SavePicture FieldsPicture.Image, App.Path & "\GridCellFields.BMP"
   SavePicture PhasePicture.Image, App.Path & "\PhasePrecessionChart.BMP"
End Sub

Private Function PrintPixel(XS As Long, YS As Long, Num As Double)
If Num = 0 Then
    Rd = 0
    Gr = 0
    Bl = 120
  GoTo PrintIt
End If
If Num < 0.25 Then
A = Num * 2 * PI
    Rd = 0
    Gr = Sin(A) * 255
    Bl = 129 + (Sin(A) * 256)
  GoTo PrintIt
End If
If Num <= 0.5 Then
A = (Num - 0.25) * 2 * PI
    Rd = 0
    Gr = 255
    Bl = (Cos(A)) * 255
  GoTo PrintIt
End If
If Num <= 0.7 Then
A = (Num - 0.5) * 2.5 * PI
    Bl = 0
    Gr = 255
    Rd = Sin(A) * 255
  GoTo PrintIt
End If
A = (Num - 0.7) * 3.3334 * PI2
    Bl = 0
    Gr = Cos(A) * 255
    Rd = 255
PrintIt:
  Pic.PSet (XS, YS), RGB(Rd, Gr, Bl)
End Function

Private Sub PhasePrecessionChart()
  Set Pic = PhasePicture
    Xpixels = Pic.Width
    Ypixels = Pic.Height
    Ysum = Pic.Height * 0.25
    Ydend = Pic.Height * 0.615
    Ysoma = Pic.Height * 0.87
    Asoma = 1
    Adend = 1
    Pdend = 0
    Wsoma = ThetaRhythm
    Wdend = 11.5 * 2 * PI
    WaveHeight = (Pic.Height / 8.2)
For T = 0 To 2 Step 0.0002
    Xp = T * Pic.Width / 2
  Vsoma = Asoma * Sin(Wsoma * T)
    Yp = -Vsoma * WaveHeight
    Pic.PSet (Xp, Yp + Ysoma), vbRed
  Vdend = Adend * Sin(Wdend * (T + Pdend))
    Yp = -Vdend * WaveHeight
    Pic.PSet (Xp, Yp + Ydend), vbBlue
  Vsum = Vsoma + Vdend
    Yp = -Vsum * WaveHeight
    Pic.PSet (Xp, Yp + Ysum), vbBlack
Next T
End Sub

Private Sub GridCellFields()
  Set Pic = FieldsPicture
      Pic.Cls
      Xpixels = Pic.Width
      Xctr = Xpixels / 2
      Ypixels = Pic.Height
      Yctr = Ypixels / 2
                                        Pdend = 0
                                      Sec = 78 / 30
                              Tstep = Sec / Xctr
                           Speed = 30
                       B = 0.05 * 2 * PI
              Wsoma = 10 * 2 * PI
              Asoma = 0.5
              Adend = 0.5
For HeadingDirection = 0 To Radian Step 0.0008
     Wdend1 = Wsoma + (B * Speed * Cos(HeadingDirection - 0))
     Wdend2 = Wsoma + (B * Speed * Cos(HeadingDirection - (60 * Degrees)))
     Wdend3 = Wsoma + (B * Speed * Cos(HeadingDirection - (120 * Degrees)))
     Wdend4 = Wsoma + (B * Speed * Cos(HeadingDirection - (180 * Degrees)))
     Wdend5 = Wsoma + (B * Speed * Cos(HeadingDirection - (240 * Degrees)))
     Wdend6 = Wsoma + (B * Speed * Cos(HeadingDirection - (300 * Degrees)))
  For T = 0 To Sec + 1.1 Step Tstep
      Vsoma = Asoma * Cos(Wsoma * T)
     Vdend1 = Adend * Cos(Wdend1 * (T + Pdend))
     Vdend2 = Adend * Cos(Wdend2 * (T + Pdend))
     Vdend3 = Adend * Cos(Wdend3 * (T + Pdend))
     Vdend4 = Adend * Cos(Wdend4 * (T + Pdend))
     Vdend5 = Adend * Cos(Wdend5 * (T + Pdend))
     Vdend6 = Adend * Cos(Wdend6 * (T + Pdend))
           Vsum1 = Vsoma + Vdend1
           Vsum2 = Vsoma + Vdend2
           Vsum3 = Vsoma + Vdend3
           Vsum4 = Vsoma + Vdend4
           Vsum5 = Vsoma + Vdend5
           Vsum6 = Vsoma + Vdend6
       H = Vsum1 * Vsum2 * Vsum3 * Vsum4 * Vsum5 * Vsum6
    If H < 0 Then H = 0
                     Xp = Cos(HeadingDirection) * T * Xctr / Sec
                     Yp = Sin(HeadingDirection) * T * Xctr / Sec
     Call PrintPixel(Xp + Xctr, Yp + Yctr, H)
  Next T
      DoEvents
   If EarlyExit = True Then Exit Sub
Next HeadingDirection
End Sub

_________________
Premise:
The theory of intelligent design holds that certain features of the universe and of living things are best explained by an intelligent cause, not an undirected process such as natural selection.
Google Viewer
MS Word Format


Tue Oct 04, 2011 3:41 am
Profile

Joined: Fri Sep 22, 2006 4:11 pm
Posts: 400
Post Re: Grid Cell Fields Program - Memory Addressing
You killed the forum Gary, nice going. :razz:

_________________
"We live in a very special time: the only time when we can observationally verify that we live at a very special time!" - Lawrence Krauss


Thu Oct 06, 2011 3:07 pm
Profile

Joined: Fri Sep 22, 2006 2:16 pm
Posts: 1547
Post Re: Grid Cell Fields Program - Memory Addressing
Very funny, Brian.

_________________
"I would rather live with uncertainty than believe things that are not true." (paraphrased from Feynman)


Thu Oct 06, 2011 5:11 pm
Profile

Joined: Fri Sep 22, 2006 12:04 am
Posts: 1456
Location: Massachusetts
Post Re: Grid Cell Fields Program - Memory Addressing

Brian you had me so worried about having accidentally generated another mini-rapture that I didn't know what to say! Last time that happened (Ben Stein's fault of course) the Theory of Intelligent Design like fell from the sky and crash-landed at my house, then what's left of the Discovery Institute big-tent kinda came spinning out of a supermassive black hole sun to land in Kathy Martin's yard.

Although there are a couple I'm not worried about, I'm relieved to see that Jack is still here! :lol:

_________________
Premise:
The theory of intelligent design holds that certain features of the universe and of living things are best explained by an intelligent cause, not an undirected process such as natural selection.
Google Viewer
MS Word Format


Thu Oct 06, 2011 10:38 pm
Profile

Joined: Fri Sep 22, 2006 4:11 pm
Posts: 400
Post Re: Grid Cell Fields Program - Memory Addressing
Gary S. Gaulin wrote:
Although there are a couple I'm not worried about, I'm relieved to see that Jack is still here! :lol:


Sir "Black Knight" Gary .. you don't go down easy my friend.

..."Come back here CSG! ya pansy! I'll bite your legs off!" :razz:

_________________
"We live in a very special time: the only time when we can observationally verify that we live at a very special time!" - Lawrence Krauss


Fri Oct 07, 2011 8:03 pm
Profile

Joined: Fri Sep 22, 2006 12:04 am
Posts: 1456
Location: Massachusetts
Post Re: Grid Cell Fields Program - Memory Addressing
Brian wrote:
Gary S. Gaulin wrote:
Although there are a couple I'm not worried about, I'm relieved to see that Jack is still here! :lol:


Sir "Black Knight" Gary .. you don't go down easy my friend.

..."Come back here CSG! ya pansy! I'll bite your legs off!" :razz:

Their conquest via Rational Skepticism went so badly for them that their only hope now is from an old chimp-troll with a 24 hour long-term memory who has come to save the day by dressing up as a straw-man begging for another thrashing of their already scientifically defeated assertion.
Image

_________________
Premise:
The theory of intelligent design holds that certain features of the universe and of living things are best explained by an intelligent cause, not an undirected process such as natural selection.
Google Viewer
MS Word Format


Fri Oct 07, 2011 10:47 pm
Profile

Joined: Sun Aug 12, 2007 10:30 pm
Posts: 1568
Location: Sebring, Florida
Post Re: Grid Cell Fields Program - Memory Addressing
Gary, it does appear you've done some damage here. No one is popping up with the standard humanist talking points. Nor has anyone questioned your math.


Sun Oct 09, 2011 6:23 am
Profile

Joined: Fri Sep 22, 2006 4:11 pm
Posts: 400
Post Re: Grid Cell Fields Program - Memory Addressing
ABO wrote:
....Nor has anyone questioned your math.


Speaking of that, what part of it exactly is his math? Only the computer code??

And what are we supposed to be checking for..??..to see how accurately it was piggy-backed onto someone else's ideas and work?

_________________
"We live in a very special time: the only time when we can observationally verify that we live at a very special time!" - Lawrence Krauss


Sun Oct 09, 2011 7:06 am
Profile

Joined: Sun Aug 12, 2007 10:30 pm
Posts: 1568
Location: Sebring, Florida
Post Re: Grid Cell Fields Program - Memory Addressing
Brian. Gary's Beam Me Up, Ratty post say's, "I'm currently studying the math involved in mammalian (as per intelligence theory I have been regularly trashed in this forum for) "addressable memory" and thought some would love and hate to see how close science is to a full explanation of how it works:" He knows what I said.


Sun Oct 09, 2011 7:59 am
Profile

Joined: Fri Sep 22, 2006 12:04 am
Posts: 1456
Location: Massachusetts
Post Re: Grid Cell Fields Program - Memory Addressing
ABO wrote:
Gary, it does appear you've done some damage here. No one is popping up with the standard humanist talking points. Nor has anyone questioned your math.

All I know is even though I normally hate math problems I finally encountered an interesting one that relates to science and electronics where there a number of different ways to approximate the neural function of an important region of the brain that scientists are still not sure how it works (but are trying to discover more about it by studying this) and it turns out to be a big yawn. Only heard crickets, and saw a couple of the usual insults I grew accustomed to being hurled at me. :roll:

_________________
Premise:
The theory of intelligent design holds that certain features of the universe and of living things are best explained by an intelligent cause, not an undirected process such as natural selection.
Google Viewer
MS Word Format


Mon Oct 10, 2011 11:48 am
Profile

Joined: Fri Sep 22, 2006 12:04 am
Posts: 1456
Location: Massachusetts
Post Re: Grid Cell Fields Program - Memory Addressing
Since Brian is all revved-up to know how the system that creates the “I” works and this thread has a good part of the picture described they gave me the idea to submit the grid/place cell code on Planet Source Code. And in the write-up include what I spent some time planning and wording below so it’s mostly a copy/paste of some of the following from here to help explain what it is useful for being installed into.

None yet know much about how this grid mapping system communicates with the rest of the brain, what it’s “talking to”. But the exciting part of not knowing is that computer model and theory makes it relative child’s play to experiment with Grid, Place and Head Direction Cell circuits that I mentioned in the theory that is in the Intelligence Design Lab. Should be a place it fits into the circuit and it works exceptionally well, others places not at all. It would stay well fed, average confidence level considerably increase which is more or less a measure of how happy it is.

RAM is easily made to store unique memories at each place traveled through by using a coordinate system of any kind to form a number to include in Addressing. Would recall stored memories when it revisits. Longer it stays in one place the better it gets at getting around there.

More bits in addressing will make it a slower learner but that is aided by it staying with successful motor actions when grid location change, otherwise guesses motor actions. Each new place is an entirely new memory but when confident in how all motors are set you keep on going that way to the next new experience.

Can easily enough add a few things to this code, so it also works as an add-in form for the Intelligence Design Lab to bring up on the screen with a checkbox. Programming this part all by itself makes it much easier than all at once adding grid cells to the Lab. Can there number them from 0 to greatest number that can be counted for given number of address bits of counting space. Use numbers from the grid/place cell algorithm to number them, not care how it orders them around the center X=0, Y=0 point which when relative to its center X,Y in world would be where the “I” location would be at, a separate address from all else outside “I” that can be physically visited, as long as not in a solid of course, hard to stand inside it then but is there.

Also add a control to make the colors and sensitivity like experimental result from LED on its head. Seeing how work was keeping even me busy enough it had to be crickets Brian's quest for knowledge of the “I” and I had an idea for this thread I thought I better challenge them to find something useful to add to this important part of how it works from what their books and such have to say about how this grid system fits into an easily testable representative cognitive circuit? Anything at all?

_________________
Premise:
The theory of intelligent design holds that certain features of the universe and of living things are best explained by an intelligent cause, not an undirected process such as natural selection.
Google Viewer
MS Word Format


Sat Dec 17, 2011 6:52 am
Profile

Joined: Fri Sep 22, 2006 4:11 pm
Posts: 400
Post Re: Grid Cell Fields Program - Memory Addressing


Well Gary, this time I can't decide if it was you, or if it was me, who killed the forum. :)

_________________
"We live in a very special time: the only time when we can observationally verify that we live at a very special time!" - Lawrence Krauss


Tue Dec 20, 2011 10:58 pm
Profile
Display posts from previous:  Sort by  
Reply to topic   [ 12 posts ] 

Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by STSoftware for PTF.