日志

vb编写的有关记忆柱的并行存储与计算的小程序

热度 1已有 634 次阅读2021-10-15 22:05 |个人分类:拟人智能

我早期编写的有关记忆柱的并行存储与计算的小程序的代码。

主要为我的记忆柱的编程讨论这篇博文引用。

Private Sub Command1_Click()

Open "d:\textfil.txt" For Random As 1 Len = 10

Dim zrecordnumber '记忆柱所包含的recordnumber的总量

Dim centerN '第几个中枢

Dim acenterN

acenterN = 30

Dim center(30)

Dim ccenter(30, 3)

Dim clengthN '一个中枢在长度空间上的第几个记忆柱

Dim cheightN

Dim cwidthN

Dim clength(30)

Dim cheight(30)

Dim cwidth(30)

Dim oplengthN '一个中枢在长度空间上的第几个记忆柱

Dim opheightN

Dim opwidthN

Dim recordnumberN '具体到一个记忆柱之前的所有的recordnumber数

Dim recordnumber '要读写记忆柱的recordnumber所在的位置

Dim clabel(30) '标志一个中枢的记忆柱的纤维联系方式

Dim outputsameN '一个记忆柱在相同中枢的传出所到达的记忆柱数。

Dim outputnotsameN '一个记忆柱在不同中枢的传出所到达的记忆柱数。

Dim subzrecordnumber

Dim arecordnumber(30)

subzrecordnumber = 1600

zrecordnumber = 9600

outputnotsameN = 4

outputsameN = 5

Dim cq(30) '定义传入强度中枢的类型感觉中枢的联络区，奖惩中枢的联络区

clength(1) = 8: cheight(1) = 6: cwidth(1) = 1: clabel(1) = 1: cq(1) = 1 '轮廓

clength(2) = 8: cheight(2) = 2: cwidth(2) = 1: clabel(2) = 1: cq(2) = 1 '空间

clength(3) = 9: cheight(3) = 8: cwidth(3) = 1: clabel(3) = 2: ccenter(3, 1) = 2: ccenter(3, 2) = 0: ccenter(3, 3) = 0: cq(3) = 0 '2（传出）'诱导注意视角对象

clength(4) = 0: cheight(4) = 0: cwidth(4) = 0: clabel(4) = 0: cq(4) = 0 '今后可添加的中枢

clength(5) = 0: cheight(5) = 0: cwidth(5) = 0: clabel(5) = 0: cq(5) = 0

clength(6) = 8: cheight(6) = 2: cwidth(6) = 1: clabel(6) = 1: cq(6) = 1 '声调

clength(7) = 8: cheight(7) = 2: cwidth(7) = 1: clabel(7) = 1: cq(7) = 1 '频率

clength(8) = 8: cheight(8) = 2: cwidth(8) = 1: clabel(8) = 1: cq(8) = 1 '空间

clength(9) = 9: cheight(9) = 8: cwidth(9) = 8: clabel(9) = 2: ccenter(9, 1) = 6: ccenter(9, 2) = 7: ccenter(9, 3) = 8: cq(9) = 0 '678'三个综合

clength(10) = 8: cheight(10) = 8: cwidth(10) = 1: clabel(10) = 3: ccenter(10, 1) = 12: ccenter(10, 2) = 0: ccenter(10, 3) = 0: cq(10) = 2 '所有传入'奖赏中枢的联络区

clength(11) = 8: cheight(11) = 8: cwidth(11) = 1: clabel(11) = 3: ccenter(11, 1) = 13: ccenter(11, 2) = 0: ccenter(11, 3) = 0: cq(11) = 3 '所有传入 '惩罚中枢的联络区

clength(12) = 8: cheight(12) = 8: cwidth(12) = 1: clabel(12) = 10: cq(12) = 0 ''对应10 '奖赏中枢的联络区在奖赏中枢对应的结构

clength(13) = 8: cheight(13) = 8: cwidth(13) = 1: clabel(13) = 10: cq(13) = 0 ''对应11 '同上

clength(14) = 0: cheight(14) = 0: cwidth(14) = 0: clabel(14) = 0: ccenter(14, 1) = 0: cq(14) = 0

clength(15) = 2: cheight(15) = 1: cwidth(15) = 1: clabel(15) = 9: ccenter(15, 1) = 13: ccenter(15, 2) = 12: ccenter(15, 3) = 0: cq(15) = 0 '奖惩中枢的核心区

clength(16) = 30: cheight(16) = 1: cwidth(16) = 1: clabel(16) = 5: ccenter(16, 1) = 19: ccenter(16, 2) = 0: ccenter(11, 3) = 0: cq(16) = 0 '接受各个中枢的强弱传入,强度中枢

clength(17) = 8: cheight(17) = 2: cwidth(17) = 1: clabel(17) = 6: cq(17) = 0 '一个一个是皮质的兴奋强弱

clength(18) = 8: cheight(18) = 4: cwidth(18) = 1: clabel(18) = 6: cq(18) = 0 '奖惩的强弱

clength(19) = 3: cheight(19) = 1: cwidth(19) = 1: clabel(19) = 4: ccenter(19, 1) = 16: ccenter(19, 2) = 17: ccenter(19, 3) = 18: cq(19) = 0 '强度综合

clength(20) = 8: cheight(20) = 6: cwidth(20) = 1: clabel(20) = 3: cq(20) = 1 '只接受传入 '运动中枢的联络区，表示几个基本的运动

clength(21) = 8: cheight(21) = 6: cwidth(21) = 2: clabel(21) = 3: cq(21) = 1 '只接受传入 '运动调节中枢的联络区,表示几个基本的运动的基本调节

clength(22) = 8: cheight(22) = 2: cwidth(22) = 1: clabel(22) = 1: cq(22) = 1 '这一些感觉传入的联络区

clength(23) = 8: cheight(23) = 2: cwidth(23) = 1: clabel(23) = 1: cq(23) = 1

clength(24) = 8: cheight(24) = 2: cwidth(24) = 1: clabel(24) = 1: cq(24) = 1

clength(25) = 9: cheight(25) = 8: cwidth(25) = 8: clabel(25) = 2: ccenter(25, 1) = 22: ccenter(25, 2) = 23: ccenter(25, 3) = 24: cq(25) = 0 '一些感觉传入

clength(26) = 2730: cheight(26) = 3: cwidth(26) = 1: clabel(26) = 7: cq(1) = 0 '状态中枢For n = 1 To 25,g(1) = 0,g(n + 1) = g(n) + clength(n) * cheight(n) * cwidth(n),Print g(26),Next

clength(27) = 2730: cheight(27) = 1: cwidth(27) = 1: clabel(27) = 8: ccenter(27, 1) = 26: cq(27) = 0 '对应状态中枢在奖惩中枢的联络区

clength(28) = 0: cheight(28) = 0: cwidth(28) = 0: clabel(28) = 0: cq(28) = 0

clength(29) = 0: cheight(29) = 0: cwidth(29) = 0: clabel(29) = 0: cq(29) = 0

clength(30) = 0: cheight(30) = 0: cwidth(30) = 0: clabel(30) = 0: cq(30) = 0

‘共有9600个recordnumber. cq是对强度的综合。ccenter是专门联系的中枢。

9587皮质传递到状态中枢，状态中枢传递到皮质。

9578是记忆柱的标志

‘共有9600个recordnumber

'传出加9600，传入不加

' 0到4800传入，传出4800到6400以后

' 6400+1到9560,传入一段1580。

'9565 记录要读的段，用1或者2表示，记录的段总是进行记忆的段。（1）（2）

'9566 是段的时间与zqtime,qzqtime的关系jyzxftime

'9567 是记忆柱的突触开始兴奋的时间 (1)兴奋周期突触最早兴奋时间

'9568 记录有多少传入(1，与读取的展示框的位置一致)

'9569 标志兴奋强(1)

'9570 是记忆柱的突触开始兴奋的时间（2）

'9571 记录有多少传入（2）

'9572 标志兴奋强度（2）

'9573 记忆柱兴奋时间 (1)

'9574 记忆柱兴奋时间（2）

'9575

'9576

'9577 记忆柱的兴奋记入展示框的时间

'9578 记录展示柜的位置，同时也记入展示框

'9579 传出到易与不易兴奋的记忆柱

'9580 是中枢的位置

'9581 具体中枢标记

'9582 +2 功能柱的位置

'9583 +3 （2）

'9584 +4

'9585 +5

'强度中枢或奖惩来表示强度 9586 +6

'传出到状态中枢 9587 +7

'写文件时第几个传出 9588 +8

'第几个传入 9589

'与奖惩联络区对应的奖惩区 9590，9591 +10，+11一对一的传播

'第19中枢。强度中枢总的兴奋强度存在九个兴奋级别 '9592、9593、9594、'9595、9596、9597、9598、9599、9600

For n = 1 To acenterN '计算每个中枢及之前的总recordnumber

arecordnumber(n) = arecordnumber(n - 1) + clength(n) * cheight(n) * cwidth(n) * 9600 * 2

For n = 1 To acenterN '定位中枢

Select Case clabel(n)

Case 1 '联络区的联络

For cwidthN = 1 To cwidth(n) '定位基本记忆柱

For clengthN = 1 To clength(n)

For cheightN = 1 To cheight(n) '计算出所有的基本记忆柱群

For yu = 1 To 2 '易兴奋的与不易兴奋的都参与传出，2是易兴奋的，定位记忆柱

Call ccr(recordnumberN, arecordnumber(n - 1), cwidthN, clength(n), cheight(n), clengthN, cheightN, yu, recordnumber) '获得传出recordnumber

For opn = 1 To acenterN '各中枢被传入的

If yu = 2 And opn <> n Then GoTo 2 '如果是易兴奋的只能是内部联系

Select Case clabel(opn)

Case 1, 3

If opn <> n Then '中枢不相同，这是外部联系

'计算出基本length,height

For outputsame = 1 To outputnotsameN '与被传入中枢联系的基本记忆柱群的数目

oplengthN = clengthN + 1 + outputsame '计算第几个传出

If oplengthN > clength(opn) Then '计算出length，从第几个基本记忆柱群开始计算

oplengthN = oplengthN - clength(opn)

End If

For opheightN = 1 To cheight(opn) '得出,height,联络区一般没有width

For yi = 1 To 2 '外部联系包含易兴奋的与不易兴奋的

'在各中枢的传出（传入到各中枢）

Call crr(oprecordnumberN, arecordnumber(opn - 1), oplengthN, cheight(opn), opheightN, yi, recordnumber, oprecordnumber)

Next 'yi外部联系包含易兴奋的与不易兴奋的

Next 'opheight

Next 'outputsame

End If 'if opn

If opn = n Then '中枢相同，内部联系

'要明确中枢的位置

For outputsame = 1 To outputsameN

oplengthN = clengthN + 1 + outputsame '计算第几个传出

If oplengthN > clength(opn) Then '计算出length

oplengthN = oplengthN - clength(opn)

End If

For opheight = 1 To cheight(opn) '得出,height

For yi = 1 To 2 'yi2

'在各中枢的传出（传入到各中枢）

Call crr(oprecordnumberN, arecordnumber(opn - 1), oplengthN, cheight(opn), opheightN, yi, recordnumber, oprecordnumber)

Next 'yi2

Next 'For opheight = 1 To cheight(opn) '得出,height

Next 'outputsame

End If 'opn=n

End Select

Next 'yu

Next 'opn

Next 'cheight(n)

Next 'clength(n)

Next 'cwidth(n)

Case 2 'case 2的中枢没有传入只有对应传出

Dim kongjN(9)

kongjN(1) = 12121212: kongjN(2) = 11221122: kongjN(3) = 11222211: kongjN(4) = 11112222: kongjN(5) = 22221111: kongjN(6) = 22111122: kongjN(7) = 22112211: kongjN(8) = 21212121: kongjN(9) = 11111111

For m = 1 To 3 '三个ccenter(n,m)值

If ccenter(n, m) = 0 Then GoTo 10

For clengthN = 1 To clength(n) 'n是第几个中枢这里是第三个，顺序读出这个中枢的clength空间

For cheightN = 1 To cheight(n) '这个中枢的cheight计算

For cwidthN = 1 To cwidth(n)

For yu = 1 To 2

recordnumberN = arecordnumber(n - 1) + (clengthN - 1) * cheight(n) * cwidth(n) * 9600 * 2 + (cheightN - 1) * cwidth(n) + (cwidthN - 1) * 9600 * 2 + (yu - 1) * 9600 '第三中枢的各基本记忆柱之前所有的recordnumber

'感觉传入

If m = 1 Then

Weizhi = clengthN

End If

If m = 2 Then

Weizhi = cheightN

End If

If m = 3 Then

Weizhi = cwidthN

End If

Call gjcr(kongjN(Weizhi), clength(ccenter(n, m)), arecordnumber(ccenter(n, m) - 1), cheight(ccenter(n, m)))

Next 'yu=1

Next 'cwidthN=1

Next 'cheightN=1

Next 'clengthN=1

10 ' If ccenter(n,m)=0 then goto 10

Next ' For m=1 to 3 '三个ccenter(n,m)值

Case 3

If n < 12 Then

For clengthN = 1 To clength(n)

For cwidthN = 1 To cwidth(n)

For cheightN = 1 To cheight(n) '一对一的传递到与奖惩联络区对应的中枢

oplengthN = clengthN

opheightN = cheightN

opwidthN = widthN

opn = ccenter(n, 1)

If n = 10 Then

jiangcld = 9590

End If

If n = 11 Then

jiangcld = 9591

End If

For yi = 1 To 2

recordnumberN = arecordnumber(n - 1) + ((cwidthN - 1) * clength(n) * cheight(n) + (clengthN - 1) * cheight(n) + cheightN - 1) * 9600 * 2 + (yi - 1) * 9600 'get recordnumberN

recordnumber = recordnumberN + jiangcld

oprecordnumberN = arecordnumber(opn - 1) + ((oplengthN - 1) * cheight(opn) + opheightN - 1) * 9600 * 2 + (yi - 1) * 9600 'yi为1时表示的是不易兴奋的记忆柱，为2时表示的是易兴奋的

Get 1, oprecordnumberN + 9589, oprecordnumber

If oprecordnumber = 0 Then

oprecordnumber = oprecordnumberN

End If

oprecordnumber = oprecordnumber + 1 '计算出opreordnumber

Put 1, oprecordnumberN + 9589, oprecordnumber '记录入基础兴奋值1.1

Put 1, oprecordnumber, one+1 '在get的部位记录oprecordnumber+1

Put 1, recordnumber, oprecordnumber

Next 'for yi=1 to 2

Next 'for cheightN＝1 to cheight(n) '一对一的传递到与奖惩联络区对应的中枢

Next 'for widthN＝1 to cwidth(n)

Next 'for clengthN＝1 to clength(n)

End If 'If n = 11 Or 10 Then

Case 4

'(如果cq(opclengthN)=0,则不参与强度总的计算，=1传到皮质的总，=2传到奖惩的总)

'强度中枢的总兴奋强度联系

For oplengthN = 1 To clength(ccenter(n, 1)) 'ccenter(n, 1)为16中枢强度中枢

For opwidthN = 1 To cwidth(ccenter(n, 1))

For opheightN = 1 To cheight(ccenter(n, 1))

If cq(oplengthN) = 0 Then GoTo 12

For yu = 1 To 2 '易兴奋的与不易兴奋的都参与传出，2是易兴奋的

recordnumberN = arecordnumber(n - 1) + (yu - 1) * 9600 + (cq(oplengthN) - 1) * 9600 * 2 '获得对象记忆柱之前的所有的recordnumber数

Get 1, recordnumberN + 9588, recordnumber

If recordnumber = 0 Then

recordnumber = recordnumberN

End If

recordnumber = recordnumber + 1 '获得在传入需要put的recordnumber的位置

Put 1, recordnumberN + 9588, recordnumber

opn = ccenter(n, 1) '获得强度中枢的位置

oprecordnumberN = arecordnumber(opn - 1) + ((oplengthN - 1) * cheight(opn) + opheightN - 1) * 9600 * 2 + (yu - 1) * 9600

Put 1, oprecordnumberN + 9586, recordnumber '强度中枢16对应的传入总的兴奋中枢19

Put 1, recordnumberone+1

Get 1, recordnumberN + 9592, zj

If zj > 1 Then GoTo 11 '保证只记入一次

cr = 12121212

Put 1, recordnumberN + 9592, cr '记录入九种不同的强度

cr = 11221122

Put 1, recordnumberN + 9593, cr

cr = 11222211

Put 1, recordnumberN + 9594, cr

cr = 11112222

Put 1, recordnumberN + 9595, cr

cr = 22221111

Put 1, recordnumberN + 9596, cr

cr = 22111122

Put 1, recordnumberN + 9597, cr

cr = 22112211

Put 1, recordnumberN + 9598, cr

cr = 21212121

Put 1, recordnumberN + 9599, cr

cr = 11111111

Put 1, recordnumberN + 9600, cr

For kongj = 1 To 9 '九种不同的强度来对应强度联络区

recordnumber = recordnumberN + 9591 + kongj

Get 1, recordnumber, kongjianN

kongjN(kongj) = kongjianN

If cq(oplengthN) = 3 Then

kongjN(kongj) = kongjN(kongj) + 22222222

End If

If cq(oplengthN) = 1 Then

m = 2

Else: m = 3

End If

Call gjcr(kongjN(kongj), clength(ccenter(n, m)), arecordnumber(ccenter(n, m) - 1), cheight(ccenter(n, m)))

Next 'for kongj=1 to 9 '九种不同的强度来对应强度联络区

Next 'for yu=1 to 2

Next 'for oplengthN＝1 to clength(ccenter(n,1))

Next 'for opwidthN＝1 to cwidth(ccenter(n,1))

Next 'for opcheightN＝1 to cheight(ccenter(n,1)

Case 5

'传入强度中枢

For opn = 1 To acenterN

For clengthN = 1 To clength(opn)

For cwidthN = 1 To cwidth(opn)

For cheightN = 1 To cheight(opn) '确定传入强度中枢每个具体的记忆柱

For yi = 1 To 2

oprecordnumberN = (opn - 1) * 9600 * 2 + (yi - 1) * 9600 + arecordnumber(n - 1) '强度中枢的那个记忆柱，是整个中枢的传入

Get 1, oprecordnumberN + 9589, oprecordnumber '传入的记录

If oprecordnumber = 0 Then

oprecordnumber = oprecordnumberN

End If

oprecordnumber = oprecordnumber + 1

Put 1, oprecordnumberone+1

recordnumberN = arecordnumber(opn - 1) + ((cwidthN - 1) * clength(opn) * cheight(opn) + (clengthN - 1) * cheight(opn) + cheightN - 1) * 9600 * 2 + (yi - 1) * 9600

recordnumber = recordnumberN + 9586

Put 1, recordnumber, oprecordnumber

Next 'yi

Next 'cheightN

Next 'cwidthN

Next 'clengthN

Next 'for opn＝1 to acenterN

Case 7

'状态中枢的联系

For clengthN = 1 To clength(n) '皮质与状态中枢的联系

cwidthN = 1

cheightN = 1

recordnumberN = arecordnumber(n - 1) + ((cwidthN - 1) * clength(n) * cheight(n) + (clengthN - 1) * cheight(n) + cheightN - 1) * 9600 * 3

precordnumber = (clengthN - 1) * 9600 * 2 + 9587

Put 1, recordnumberN + 9587, precordnumber '状态中枢传出到皮质

Put 1, precordnumber + 9600, recordnumberN + 9587 '不易兴奋的传出到状态中枢

Next 'for clengthN=1 to clength(n) '皮质与状态中枢的联

For opn = 1 To 25 '状态中枢内部的联系

For cwidthN = 1 To cwidth(opn)

For clengthN = 1 To clength(opn)

For cheightN = 1 To cheight(opn) '计算出所有的基本记忆柱群

recordnumberN = arecordnumber(n - 1) + arecordnumber(opn - 1) * 3 / 2 + ((cwidthN - 1) * clength(opn) * cheight(opn) + (clengthN - 1) * cheight(opn) + cheightN - 1) * 9600 * 2 * 3 / 2 '获得对象记忆柱之前的所有的recordnumber数

Get 1, recordnumberN + 9588, recordnumber

If recordnumber = 0 Then

recordnumber = recordnumberN + 3600 '对象记忆柱的传出位置

End If

If clength(opn) < 7 Then '这种情况下，clength()一般为2如奖惩中枢的核心区这种情况下，只需要联系中枢的前三个

For op = 1 To 30 ' '对象在状态中枢的各个传出到的基本记忆柱群。中枢被传入的

For opcwidthN = 1 To cwidth(op)

For opclengthN = 1 To clength(op)

For opcheightN = 1 To cheight(op) '计算出所有的基本记忆柱群

If opclengthN > 3 Then GoTo 13

Call ztzs(recordnumberN, arecordnumber(n - 1), arecordnumber(op - 1), opcwidthN, clength(op), cheight(op), opclengthN, opcheightN, recordnumber) '状态中枢内部的传出联系

13 'if opclengthN>3 then goto 13

Next 'for opcwidthN=1 to cwidth(op)

Next 'for opclengthN=1 to clength(op)

Next 'for opcheightN=1 to cheight(op) '计算出所有的基本记忆柱群

Next 'for op＝1 to clength(opn)

End If 'if clength(opn)<7 then

If clength(opn) > 7 Then

For op = 1 To 30

If clength(op) < 7 Then

If clengthN > 2 Then GoTo 23 '只需要前两个来联系

For opcwidthN = 1 To cwidth(op)

For opclengthN = 1 To clength(op)

For opcheightN = 1 To cheight(op) '计算出所有的基本记忆柱群

Call ztzs(recordnumberN, arecordnumber(n - 1), arecordnumber(op - 1), opcwidthN, clength(op), cheight(op), opclengthN, opcheightN, recordnumber) '状态中枢内部的传出联系

Next 'for opcwidthN=1 to cwidth(op)

Next 'for opclengthN=1 to clength(op)

Next 'for opcheightN=1 to cheight(op) '计算出所有的基本记忆柱群

End If 'if clength(op)<7 then

23 'if clengthN>3 then goto dayu3

If clength(op) > 7 Then

For outputsame = 1 To outputnotsameN '与被传入中枢联系的基本记忆柱群的数目

opclengthN = clengthN + 1 + outputsame '计算第几个传出outputN=outputN+1

If opclengthN > clength(op) Then '计算出length，从第几个基本记忆柱群开始计算

opclengthN = opclengthN - clength(op)

End If

For opcwidthN = 1 To cwidth(op)

For opcheightN = 1 To cheight(op) '计算出所有的基本记忆柱群

Call ztzs(recordnumberN, arecordnumber(n - 1), arecordnumber(op - 1), opcwidthN, clength(op), cheight(op), opclengthN, opcheightN, recordnumber) '状态中枢内部的传出联系

Next 'for opcwidthN=1 to cwidth(op)

Next 'for opclengthN=1 to clength(op)

Next 'for opcheightN=1 to cheight(op) '计算出所有的基本记忆柱群

End If 'if clength(op)>7 then

Next 'for op＝1 to 30

End If ' If clength(opn)>7 then

Next 'For cheightN = 1 To cheight(opn) '计算出所有的基本记忆柱群

Next 'For clengthN = 1 To clength(opn)

Next 'For cwidthN = 1 To cwidth(opn)

Next 'for opn=1 to 30 '状态中枢内部的联系

Case 8

'建立一一对应的关系,对应状态中枢在奖惩中枢的联络区

For clengthN = 1 To clength(n)

recordnumberN = arecordnumber(n - 1) + (clengthN - 1) * 9600

oprecordnumberN = arecordnumber(ccenter(n, 1)) + (clengthN - 1) * 9600 * 3

Put 1, recordnumberN + 9589, oprecordnumberN + 9589

Put 1, oprecordnumberN + 9589, recordnumberN + 9589

Case 9

'奖惩中枢的核心区

For cwidthN = 1 To cwidth(n)

For clengthN = 1 To clength(n)

For cheightN = 1 To cheight(n) '计算出所有的基本记忆柱群

For yu = 1 To 2 '易兴奋的与不易兴奋的都参与传出，2是易兴奋的

recordnumberN = arecordnumber(n - 1) + ((cwidthN - 1) * clength(n) * cheight(n) + (clengthN - 1) * cheight(n) + cheightN - 1) * 9600 * 2 + (yu - 1) * 9600 '获得对象记忆柱之前的所有的recordnumber数

For m = 1 To 2 '两个ccenter中枢

For oplengthN = 1 To clength(ccenter(n, m))

For opwidthN = 1 To cwidth(ccenter(n, m))

For opcheightN = 1 To cheight(ccenter(n, m))

Get 1, recordnumberN + 9588, recordnumber

If recordnumber = 0 Then

recordnumber = recordnumberN

End If

recordnumber = recordnumber + 1 '获得在传入需要put的recordnumber的位置

Put 1, recordnumberN + 9588, recordnumber

oprecordnumberN = arecordnumber(opn - 1) + ((oplengthN - 1) * cheight(opn) + opheightN - 1) * 9600 * 2 + (yu - 1) * 9600

Put 1, oprecordnumberN + 9586, recordnumber

Put 1, recordnumberone+1

Next ' for oplengthN＝1 to clength(ccenter(n,m))

Next 'for opwidthN＝1 to cwidth(ccenter(n,m))

Next 'for opcheightN＝1 to cheight(ccenter(n,m))

Next 'For m=1 to 2 '两个ccenter中枢

Next 'for yu=1 to 2 '易兴奋的与不易兴奋的都参与传出，2是易兴奋的

Next 'for cheightN=1 to cheight(n) '计算出所有的基本记忆柱群

Next ' for clengthN=1 to clength(n)

Next 'nextfor cwidthN=1 to cwidth(n)

End Select 'select case clabel(n)

Next 'for n=centerN=1 to acenterN '定位中枢

'易兴奋的与不易兴奋的联系

For n = 1 To 25

For cwidthN = 1 To cwidth(n) '定位基本记忆柱

For clengthN = 1 To clength(n)

For cheightN = 1 To cheight(n) '计算出所有的基本记忆柱群

recordnumberN = arecordnumber(n - 1) + ((cwidthN - 1) * clength(n) * cheight(n) + (clengthN - 1) * cheight(n) + cheightN - 1) * 9600 * 2

recordnumber = recordnumberN + 9579

Put 1, recordnumber, recordnumber + 9600

Put 1, recordnumber + 9600, recordnumber

Close 1

End Sub

'获得传出recordnumber

Sub ccr(ByRef recordnumberN, arecordnumber, cwidthN, clength, cheight, clengthN, cheightN, yu, recordnumber)

recordnumberN = arecordnumber + ((cwidthN - 1) * clength * cheight + (clengthN - 1) * cheight + cheightN - 1) * 9600 * 2 + (yu - 1) * 9600 '获得对象记忆柱之前的所有的recordnumber数

Get 1, recordnumberN + 9588, recordnumber

If recordnumber = 0 Then

recordnumber = recordnumberN + 3600

End If

End Sub

'在各中枢的传出（传入到各中枢）

Sub crr(ByRef oprecordnumberN, arecordnumber, oplengthN, cheight, opheightN, yi, recordnumber, oprecordnumber)

oprecordnumberN = arecordnumber + ((oplengthN - 1) * cheight + opheightN - 1) * 9600 * 2 + (yi - 1) * 9600

Get 1, oprecordnumberN + 9589, oprecordnumber

If oprecordnumber = 0 Then

oprecordnumber = oprecordnumberN

End If

oprecordnumber = oprecordnumber + 1 '计算出opreordnumber

Put 1, oprecordnumberN + 9589, oprecordnumber '记录入基础兴奋值1.1

Put 1, oprecordnumberone+1 '在get的部位记录oprecordnumber+1

recordnumber = recordnumber + 1 '获得在传出需要put的recordnumber的位置

Put 1, recordnumberN + 9588, recordnumber

Put 1, recordnumber, oprecordnumber

End Sub

'感觉传入

Sub gjcr(ByRef kongjN, clength, arecordnumber, cheight)

Dim opheight(8)

For Number = 1 To 8

zhongjie = (opcheightN + zhongjie) * 10

opcheightN = Int(kongjN / (10 ^ (8 - Number))) - zhongjie '顺序获得8个表示强弱的数字

opheight(Number) = opcheightN '得到opheight(1),opheight(1),opheight(1)……等等。

For oplengthN = 1 To clength '传出到的中枢的length

For yi = 1 To 2

zrecordnumber = recordnumberN + 9588 '从第几个recordnumber传出

Get 1, zrecordnumber, recordnumber

If recordnumber = 0 Then

recordnumber = recordnumberN

End If

recordnumber = recordnumber + 1

oprecordnumberN = arecordnumber + (oplengthN - 1) * cheight * 2 * 9600 + (opheight(oplengthN) - 1) * 9600 * 2 + (yi - 1) * 9600 '包含易兴奋的与不易兴奋的

zoprecordnumber = oprecordnumberN + 9589

Get 1, zoprecordnumber, oprecordnumber

If oprecordnumber = 0 Then

oprecordnumber = oprecordnumberN

End If

oprecordnumber = oprecordnumber + 1 '新的传入位置

Put 1, zoprecordnumber, oprecordnumber '9589记录下新的传入

Put 1, oprecordnumberone+1 '兴奋强度

Put 1, recordnumber, oprecordnumber '传出的位置及传出到那里

Next 'yi=1 to 2

Next 'oplengthN=1 to clength(ccenter(n,m)) '

End Sub

'状态中枢内部的传出联系

Sub ztzs(ByRef recordnumberN, arecordnumber, arecordnumber1, opcwidthN, clength, cheight, opclengthN, opcheightN, recordnumber)

oprecordnumberN = arecordnumber + arecordnumber1 * 3 / 2 + ((opcwidthN - 1) * clength * cheight + (opclengthN - 1) * cheight + opcheightN - 1) * 9600 * 2 * 3 / 2

Get 1, oprecordnumberN + 9589, oprecordnumber '被传入的记忆柱

If oprecordnumber = 0 Then

oprecordnumber = oprecordnumberN

End If

oprecordnumber = oprecordnumber + 1 '计算出opreordnumber,为记忆柱的第几个传入

recordnumber = recordnumber + 1 '获得在传出需要put的recordnumber的位置

Put 1, oprecordnumberN + 9589, oprecordnumber '记录入9589

Put 1, oprecordnumber, one+1'在get的部位记录oprecordnumber+1

Put 1, oprecordnumber + 9600, one+1

Put 1, oprecordnumber + 9600 * 2, one+1

Put 1, recordnumber, oprecordnumber

Put 1, recordnumber + 1, oprecordnumber + 9600