|
展示框的编程运用
由于记忆柱的兴奋(对信息的表征)往往是一群记忆柱的同时兴奋(原因在我后面的文章中会有反应),因而为了使PC机象人脑一样具有并行兴奋的能力我引入了展示框的概念,展示框是由RN组成的,它的作用是记录某一刻(一短时间段)所有被“兴奋”的记忆柱,以使PC逐一读写完这一时刻被兴奋的记忆柱后再逐一读写下一时刻被兴奋的记忆柱,通过这种转换就可使一次只能进行一次读写的PC机也能模拟人脑的并行兴奋特点。
其中,有一种比较简单的方法,就是一切都以主注意对象的兴奋与抑制为时间标准(为一时间单位),完全习惯性兴奋、非完全习惯性兴奋与非习惯性兴奋对应的记忆柱群的兴奋时间都相同,但可以以一定的方法来标示习惯性兴奋(当然,这是在硬件计算速度不快的情况下可采取的折中方式)。
Open "d:\ zzymddx.txt" For Random As 1 Len = 10
Open "d:\ cjcr.txt" For Random As 2 Len = 10 '刺激传入
Open "d:\ zzydx.txt" For Random As 3 Len =10 '主注意对象
Open "d:\ ztzs.txt" For Random As 4 Len =10 '状态中枢
Open "d:\ xf.txt" For Random As 5 Len =10 '兴奋的记忆柱
Open "d:\ xfy.txt" For Random As 6 Len =10 '易兴奋的记忆柱
Open "d:\ ztzsjc.txt" For Random As 7 Len =10 '状态中枢对应的奖惩部分
Open "d:\ qdzs.txt" For Random As 9 Len =10 '强度中枢
Open "d:\ zzydxxz.txt" For Random As 11 Len =10
Open "d:\ jcyq.txt" For Random As 12 Len =10
Open "d:\ Jczs.txt" For Random As 13 Len =10
dim label
For n=1 to 8000
Put 1,n,y '1到4000是一时刻兴奋的。4001到8000是另一时刻兴奋的。
Put 2,n,y '1到2000是兴奋到一定强度的易兴奋的。2001到4000是主注意对象,4001到其它是另一次兴奋。
Put 3,n,y '1到4000是一时刻兴奋的。4001到8000是另一时刻兴奋的。主注意目的对象。。
Put 4,n,y '起是传入刺激
Put 5,n,y '是状态中枢的兴奋
Put 6,n,y
Put 7,n,y
Put 9,n,y
Put 11,n,y
Put 12,n,y
Put 13,n,y
Next
整个程序是围绕展示框来运行的。
设置展示框的目的是为了让大量的记忆柱在某一时刻同时兴奋。这里设置了13个展示框,每个展示框由两部分共8000个recordnumber组成,每部分由4000个recordnumber组成,一部分只记录一个兴奋周期,分别为正发生的兴奋周期与刚发生过的兴奋周期。它们的兴奋标记分别为label与qlabel。正兴奋的标志是label,另一部分记录的标志是qlabel。
这一时刻兴奋的记忆柱记录在展示框的这一部分,它们“同时”兴奋、记忆、传出兴奋,从而兴奋了下一时刻兴奋的记忆柱,并记入展示框的另一部分……,这样周而复始的兴奋下去。
兴奋转换的时候,需要一系列的设置来保证兴奋顺畅的运行下去。这些设置需要标记展示框的正被读取而兴奋的部分的标记,需要读的多少。记入被兴奋的记忆柱的部分的标记,记入了多少记忆柱。等等。
Qzqtime表示的是这些正兴奋的记忆柱前一刻兴奋的时间。
zqtime 表示的是大量记忆柱正兴奋的时间。
rstart表示一个新的兴奋周期的开始。新的兴奋周期的时间用zqtime表示。刚结束的兴奋周期的时间就被重新标记为Qzqtime。
qzqtime=zqtime
这个等式的含意是在新的兴奋周期(它的时间是zqtime)结束后再开始新的兴奋周期,这一结束的新的兴奋周期的时间就成为前兴奋周期的时间,用qzqtime表示。
zqtime=date+time '这一兴奋周期的时间.它是记忆柱总的兴奋时间,也是展示框的兴奋时间
这个等式的意义在于赋于zqtime 新的时间。
if label=1 then '确定读的展示框的标志。
label=2
qlabel=1
else
label=1
qlabel=2
end if
for zsk=1 to 7 '获取与设置读写的展示框
zsk代表第几个展示框,qlabelrecordnumber表示记入被兴奋了的记忆柱的个数所在的recordnumber,labelrecordnumber表示正在被读取的兴奋的记忆柱的个数记录的位置。
qlabelrecordnumber=abs(label-2)*4000+1
put zsk,qlabelrecordnumber,one-1
next 'for zsk=1 to 7
labelrecordnumber,zqtime,label,相对应。Qlabelrecordnumber,qzqtime,qlabel,相对应。
小黑屋|手机版|Archiver|生物行[生物导航网] ( 沪ICP备05001519号 )
GMT+8, 2024-5-21 02:57 , Processed in 0.016540 second(s), 18 queries .
Powered by Discuz! X3.4
© 2001-2023 Discuz! Team.