智能软件的编写

我很有兴趣，但是我还必须对你的东西有更多地了解，看看我们在这个方面的想法上到底有多大的不同，而且我也很希望与你有更加深入的探讨。

七．预期动力．固有动力。
    预期动力－－通过计算得到一目的对象实现后可能会获得多大的奖惩（动力）并综合实现的可能等一些因素而得到的动力为预期动力（它的大小与对奖惩中枢的部分易化兴奋相一至）。
    固有动力－－是先天．后天．中介奖惩刺激所具有的动力，当然它是变化的。
   
    八．预期动力正确获得。
    动力计算中枢只对主注意对象进行计算（计算的是预期动力），它的正确获得需要状态性兴奋的参与。
    状态性兴奋的实现可通过三种途径：１．是通过亚主注意目的。（亚主注意目的中枢）２．是通过习惯性易化．抑制（习惯性中枢）。３．是通过主注意目的的回忆（主注意目的中枢）。
    当预期目的没能实现时则预期过程也同时与相应的奖惩中枢建立一定的记忆联系，及目的没实现后与奖惩中枢的记忆联系是学习获得如何正确预期的基础。
    一些不同兴奋模式其兴奋的基本记忆柱群不同（比如想起的现实发生的事件和想起的现实没有发生的事件，现实发生的具有时间与空间的连续性。）只要这些不同能保证正常的思维就可以了。这些不同所带来的习惯性易化．抑制（通过长期的学习获得）是与环境相适应的动力预期的基础。
    一刺激信息所兴奋的联络区的原始记忆柱群与单纯回忆这一刺激所兴奋的原始记忆柱群有差别（回忆的仅是与这一刺激相对应的部分联络区的原始记忆柱群，而外界刺激则不同）。
    首先通过学习使认为能实现与预期动力的确定建立正确的联系，然后其它高级的预期形式与之相联系。由现实条件经过某种思维过程得到目的则认为能实现这一目的。
影响预期动力的因素可能很多，但预期动力时只能想到最主要的几个部分。
记忆的只是主注意目的的预期动力，它是随思维的发展而不断变化的（如新发现一个对象直接兴奋奖惩中枢，则它就改写了预期动力，当然这样的对象不应包括亚主注意对象）。主注意目的预期动力就为阶段主注意目的的预期动力。直接通过兴奋奖惩中枢而影响主注意目的的预期动力的对象做为亚主注意对象。

　　　　　　　　奖惩系统的学习、发展
　　摘要：本文讨论了奖惩系统的结构及奖惩系统的结构、功能是如何学习发展的（包括后天奖惩刺激及动力预期等），指出智能软件可通过学习具有正确预期思想、行为的发生情况及后果（正确预期动力）。
　　奖惩（动力）系统的学习是智能软件最重要的学习，它是智能软件其它能力学习的前提。（对人与高等动物来说也是这样。没有他人对人和高等动物的奖惩系统做过系统研究，所做的只是一些初级而零碎的研究。这是一很有前景的研究领域，可以说，不研究清楚人的奖惩系统是不可能研究清楚人的智能(对智能软件也如此)及思想行为的。）
　　下面是我关于智能软件的奖惩（动力）系统学习的研究的一些内容，它是参考人的一些奖惩现象来研究的，当然在研究人与高等动物的奖惩系统时我的这些研究应可做为参考。
　　一、智能软件奖惩系统的结构。
　　1、先天奖赏刺激。
　　它的结构分三部分：１．一部分是联络部，负责与其它中枢的联络区建立记忆联系，它的兴奋是所有记忆柱的兴奋。（它有相应的jcy,jcy能部分兴奋奖惩中枢的jcy）2、一部分是非联络部，它只为而且必为对应的先天奖惩刺激所兴奋。只有它与联络部一起兴奋后引起的奖赏中枢的兴奋才不会带来惩罚中枢的兴奋及惩罚记忆。（它与联络部一起组成jc）3．一部分是控制部，它根据各种刺激的特点来控制其它两部分部的兴奋强度，以保持奖惩刺激的平衡。
　　它jc兴奋后，即使不能引起其它的先天奖赏刺激发生也不会与惩罚中枢建立记忆联系。
　　2、先天惩罚刺激。
　　它的结构与先天奖赏刺激相似。它兴奋后，即使不能引起其它的先天惩罚刺激发生也不会与奖赏中枢建立记忆联系。
　　3、后天惩罚刺激。
　　它是通过其它奖惩刺激逐渐与奖惩中枢建立记忆联系而成为奖惩刺激的。它兴奋后，如不能引起先天奖惩刺激发生便会与奖惩中枢建立一定的记忆联系。（与先天奖惩刺激相对应，它有相应的jcy、jc）。
　　 4、中介奖惩刺激。
　　它通过编程成为奖惩刺激，这点类似于先天奖惩刺激。但它兴奋后，如不能引起先天奖惩刺激发生便会与惩奖中枢建立一定的记忆联系。这点类似于后天奖惩刺激。
　　某一原始记忆柱群的兴奋强度在某一范围内便能轻微兴奋奖赏中枢，它是中介奖赏刺激。这对智能软件早期的学习非常重要。（与先天奖惩刺激相对应，它有相应的jcy、jc）。
　　5、奖惩中枢（动力中枢）。
　　它的结构分两部分：１．一部分是联络部，负责与其它中枢的联络区建立记忆联系。它有三种兴奋模式：第一种只是发生的先天奖惩刺激兴奋它时，引起的兴奋，这时是所有记忆柱的兴奋（只有这种兴奋才能称得上是真正意义上的奖惩兴奋）。第二种（后两种兴奋模式是学习形成的）是后天的奖惩刺激所引起的兴奋，它所兴奋的记忆柱是第一种兴奋模式所兴奋的记忆柱的组成部分（它以及第一种模式所对应的记忆柱群都用jc表示）。第三种一般是没有奖惩刺激时所兴奋的记忆柱，它是第二种模式所兴奋的奖惩中枢的记忆柱的组成部分（用jcy表示）（如回忆的奖惩刺激的兴奋所引起的）。２．一部分是计算部，它主要根据联络部兴奋的强度来计算动力的真实或预期大小。
　　它被兴奋后能与其它中枢的联络区也兴奋着的记忆柱建立一定的（不强）记忆联系，这种记忆联系的强弱和它们的兴奋强度有关。
　　6、一些说明。
　　按照与奖惩中枢的纤维联系情况来划分：一刺激在联络区对应的记忆柱群可大概分为两种，一种只与jcy有丰富的纤维联系，而另一种与后天奖惩刺激对应的jc以内，jcy以外的记忆柱有丰富的纤维联系。
　　先天奖惩刺激的jc与jcy是编程时设定的，奖惩中枢的jc与jcy也是编程时设定，后天奖惩刺激兴奋的奖惩中枢的jc（用hjc表示）包含在先天奖惩刺激兴奋的奖惩中枢jc（用xjc表示）之中。
　　奖惩刺激对应中枢的jc是奖惩刺激发生时对应中枢的兴奋，它同时兴奋奖惩中枢的记忆柱群为jc。而奖惩刺激对应中枢的jcy是回想起奖惩刺激时所兴奋的记忆柱群，它同时兴奋的奖惩中枢的记忆柱群为jcy。
　　二、预期动力、奖惩发展。
　　1、后天奖惩刺激的动力形成的原因。
　　在思维的过程中，在一定时间内的主注意目的、以及最近一个主注意目的内兴奋的基本记忆柱群、阶段主注意目的，都应被专门记忆下来，后面的记忆覆盖前面的记忆。当不是因为主注意目的完成与否而得到奖惩时，记忆的基本记忆柱群与被兴奋的动力中枢建立记忆联系。而主注意目的完成后则兴奋正动力中枢，并使记忆的这一注意目的内的主注意对象、正动力中枢、主注意目的对象之间建立记忆联系，没完成则兴奋负动力中枢……。完成或没完成目的时，在时间上越靠近目的结束的对象其记忆的动力的大小越接近目的产生的动力。当预期目的没能实现时则预期过程也同时与相应的奖惩中枢建立一定的记忆联系。
目的没实现或实现后与奖惩中枢的记忆联系是学习获得如何正确预期的基础。
　　2、智能软件的动力预期。
　　动力预期是根据奖惩中枢的jcy的兴奋情况来计算的。它计算的是目的完成后奖惩中枢jcy的兴奋改i情况。正确的动力预期是学习获得的，正确的标准是智能软件的思想、行为与环境相适应。
　　预期动力――通过计算得到，在综合一目的对象实现的可能、如果实现可能会获得的奖惩（动力）及其它的一些因素后，而得到的动力为预期动力（它的大小与奖惩中枢jcy的兴奋情况相一至）。
　　固有动力－－是先天．后天．中介奖惩刺激所具有的动力，当然它是变化的。
　　动力计算中枢只对主注意对象进行计算（计算的是预期动力），也就是说在注意一个新的对象时，消失的老的对象对奖惩中枢的影响消失，它的正确获得需要状态性兴奋的参与。
状态性兴奋的实现可通过三种途径：１．是通过亚主注意目的。（亚主注意目的中枢）２．是通过习惯性易化．抑制（习惯性中枢）。３．是通过主注意目的的回忆（主注意目的中枢）。
　　不同兴奋模式其兴奋的基本记忆柱群不同（比如想起的现实发生的事件和想起的现实没有发生的事件，现实发生的具有时间与空间的连续性……。）,只要这些不同能保证正常的思维就可以了。这些不同所带来的习惯性易化、抑制（通过长期的学习获得）是与环境相适应的动力预期的基础。
影响预期动力的因素可能很多，但预期动力时只能想到最主要的几个部分。记忆的只是主注意目的的预期动力，它是随思维的发展而不断变化的。由于实现阶段主注意目的就能实现主注意目的，因而主注意目的预期动力就自然成为阶段主注意目的的预期动力。
　　3、奖惩刺激、动力预期的发展变化。
　　后天奖惩刺激是通过先天或后天奖惩刺激逐渐形成的。一个后天奖惩刺激发生后，可能伴随而来的是多个先天、后天奖惩刺激的发生，那么经过多次奖惩学习后，这个后天奖惩刺激的固有动力会是这些先天、后天的奖惩刺激的固有动力按一定方式叠加后的和。这样，一些后天奖惩刺激的固有动力随学习的发展其固有动力不断增加，会远超过先天奖惩刺激的固有动力，最终它的固有动力的增加会停止，而在一个固定的值附近波动。当然后天奖惩刺激的固有动力的变化是多种多样的，它有下降、快速增加、缓慢增加等多种模式。
　　如果一后天奖惩刺激的刺激与回忆这一刺激所兴奋的记忆柱相同，那么回忆这一刺激时就会兴奋奖惩中枢的hjc，而这时一般情况下一般不会有先天奖惩刺激的兴奋、支持,因而这一兴奋便会引起惩罚中枢的兴奋,而使在这种情况下被回忆兴奋的记忆柱与惩罚中枢建立了记忆联系，而如果回忆这一刺激兴奋的只是奖罚中枢的jcy时，便不会直接引起惩罚中枢的兴奋。通过奖惩学习,回忆这一刺激时,能较强兴奋的记忆柱会只是与奖惩中枢的jcy有丰富纤维联系的记忆柱群。因而一刺激信息所兴奋的联络区的原始记忆柱群与单纯回忆这一刺激所兴奋的原始记忆柱群有差别（回忆的仅是与这一刺激相对应的部分联络区的原始记忆柱群，而外界刺激则不同）。
　　一记忆柱群（用e表示）兴奋后能使奖惩刺激对应中枢的jcy兴奋，然后通过奖惩刺激对应中枢的jcy使奖赏中枢的jcy兴奋，从而产生正的动力预期，实现奖惩刺激成为主注意目的。记忆柱群k兴奋后也带来这样的结果。但e兴奋后所产生的主注意目的总不能实现，而k兴奋后所产生的主注意目的总能实现，那么奖惩刺激对应中枢的jcy、e与惩罚中枢建立记忆联系，而k与奖惩刺激对应中枢的jcy、奖赏中枢建立记忆联系。多次学习后e习惯性抑制奖惩刺激对应中枢的jcy，同时习惯性的易化、兴奋惩罚中枢，最终是e、奖惩刺激对应中枢的jcy兴奋后预期动力在0左右。而k习惯性易化奖惩刺激对应中枢的jcy以及奖赏中枢，最终是e、奖惩刺激对应中枢的jcy兴奋后预期动力与奖惩刺激发生后对奖惩中枢的兴奋相对应。有时最终会出现这种情况：对奖惩刺激的动力预期部分高于其固有动力的大小（对这种情况对智能软件正确的动力预期没多少影响）。
　　通过学习，在认为一目的能实现时，在这一类型思维过程中总能被兴奋的记忆柱群（用shx来表示）在兴奋后习惯性易化目的对象及奖惩中枢的jcy，从而使奖惩中枢的jcy兴奋，而产生相应动力预期（指与奖惩刺激的固有动力相应）。而在认为一目的不能实现时，在这一类型思维过程中总能被兴奋的记忆柱群（用bshx来表示）在兴奋后习惯性抑制目的对象及奖惩中枢的jcy，从而使奖惩中枢的jcy不能兴奋，而不能产生相应的动力预期。在这一奖惩功能获得后，今后的各种奖惩功能都可通过它来快速的获得。
　　通过学习后，在习惯性抑制的作用下，下列情况不能产生相应的动力预期:1、仅想起奖惩刺激。2、在回忆、推理一目的的实现过程中，一必要过程（被认为）不是现实发生或（被认为）不是正确的。……。
　　通过学习后，在习惯性易化的作用下，在回忆、推理一目的的实现过程中，任一必要过程（被认为）是现实发生或（被认为）是正确的，则能产生相应的动力预期。……。
　　回忆现实发生的过程是一特殊类型的思维过程，在这一类型思维过程中有总能被兴奋的记忆柱群。正确的推理也是一特殊类型的思维过程，在这一类型思维过程中有总能被兴奋的记忆柱群。……。
　　四、综上所述可知，适当的编程可以让智能软件通过学习具有以下功能，它能通过回忆、思维正确预期思想、行为的发生可能情况及后果（正确预期动力），并能根据预期正确指导思想、行为的进行。

 

 

 

　

 

这是我用vb6编的一个小程序主要为了证明奖惩学习的可行性。

软件有7个文本框、三个command按钮，text1到text4中的数字为环境变量text5为传出中枢兴奋的记忆柱。text6为主注意目的对象代表的记忆柱。text7为传入的信息。主要分两个中枢，第一个为1到12的基本记忆柱群，第二个是传出中枢为37到48的基本记忆柱群。总共有4个中枢，16个反应小区。
每个中枢有4个反应小区，每个反应小区有三个基本记忆柱群，分别由三个连续的数字表示，比如第一个反应小区包括1、2、3三个基本记忆柱群。每个基本记忆柱群只包含一个易兴奋的记忆柱及一个在基本记忆柱群抑制时兴奋的记忆柱。基本记忆柱群的易兴奋部分的RN包含在48*400之中，而抑制时兴奋的记忆柱的RN包含在48*400到48*400+48*60之间的RN之中，奖惩中枢、动力中枢的RN包含在48*400+48*60到48*400+48*60+4*200之中，每个记忆柱有200个RN，第1到47个RN是易兴奋的记忆柱的传入值，48到95为抑制的记忆柱的传入值，96到190是对应的时间。387是记忆柱达到兴奋值的时间。
四个text代表四种不同的环境刺激其中一种可带来奖赏（可任意按排），传出中枢的兴奋模式有四种兴奋模式与它们分别对应，如第37、40、43、46基本记忆柱群兴奋后软件输入的刺激信息为text2的。打个比方，就如有四个按钮，让小孩按，按其中一个会出现苹果这一奖赏刺激，而按其它的按钮会出现一些普通的非奖赏物品。那么经过几次奖惩学习后，小孩便会不断的按能给它带来奖赏的按钮。
通过奖赏学习的选择最终只是能带来奖赏的传入刺激信息被选择，而传出中枢也是与之对应的记忆柱兴奋。

这个小软件只是为了证明奖惩学习是可行的。
其具体流程是：
一、 点击文件建立按钮，智能软件的文件部分建立。
二、 点击停止按钮，timer1的interval变为1000，则程序运行，点击停止按钮，interval变为0则程序停止运行。
三、 1、根据传出中枢的兴奋确定输入那一text中的信息。
2、计算输入刺激所能对应兴奋的记忆柱的动力。
3、计算被选择出来准备兴奋的记忆柱的动力
4、计算如果发生奖惩刺激或无奖惩刺激时，相应记忆柱的奖惩记忆。
5、计算主注意目的对象的动力变化。
6、比较动力的大小，确定主注意目的对象。
7、如果主注意目的对象没有改变，则主注意对象为被选择出来准备兴奋的记忆柱。而如果主注意目的对象改变，则组成主注意目的对象的基本记忆柱群的易兴奋记忆柱之间建立相互兴奋的记忆联系，同时选择出被主注意目的对象所易化的且与奖惩中枢建立了一定联系的基本记忆柱群，并给它们以易化。
四、 周期性易化几个原始记忆柱群。
五、 由主注意对象的在抑制时兴奋的记忆柱兴奋、易化而按一定规律选择出易兴奋的原始记忆柱群作为准备兴奋的对象。
六、 被选择出的基本记忆柱群的易兴奋的记忆柱通过兴奋建立记忆联系（包括了与主注意对象的记忆联系）。

　　在编程的过程中为了简便，这个小软件的功能被我尽量的简化了。
1、 是并行存储，但由于反应小区及一个反应小区包含的基本记忆柱群较少，容易出现记忆干扰，而且记忆柱的联系与兴奋模式决定了它的兴奋不是模糊兴奋回忆。
2、 兴奋回忆模式比较简单，兴奋记忆的许多模式都没能让它实现。
3、 状态性回忆、兴奋没有，所以本软件实现的只能是最简单的奖惩学习。
4、 奖惩中枢、动力预期中枢都被最大限度的简化了。


　　另外text1到text4中的数字可以改变。也就是说环境刺激变量可以改变。Text中的前四个数字代表记忆柱，后两个数字分别代表奖惩刺激的情况，1代表奖或惩，0代表即无奖也无惩。





Public zhan
Public t12

Private Sub Command1_Click()
All = 22880 '所有的rn数
t12 = 0
For t = 1 To 25000
Put 1, t, -t12
Next t

For n = 1 To 48
'易兴奋的记忆柱,一个一个的记忆柱
'input
For t = 1 To 95
Put 1, t + (n - 1) * 400, -t12
Put 1, t + (n - 1) * 400 + 95, Date + Time
Next t
'output
For t = 1 To 48
If t < n Then
Put 1, t + (n - 1) * 400 + 190, n + (t - 1) * 400
End If
If t > n Then
Put 1, t - 1 + (n - 1) * 400 + 190, n + (t - 1) * 400
End If
Next t
'不易兴奋的记忆柱
For t = 1 To 48
Put 1, 48 * 400 + (n - 1) * 60 + t, n + 47 + (t - 1) * 400
Next t
'与奖惩的联系
For t = 1 To 4
Put 1, 48 * 400 + (n - 1) * 60 + 48 + t, 48 * 400 + 60 * 48 + n + (t - 1) * 200
Put 1, 48 * 400 + 60 * 48 + n + (t - 1) * 200 + 48, Date + Time
Next t
Next n
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Command1.Caption = "文件建立"
Command2.Caption = "开始"
Command3.Caption = "结束"
Text1.Text = 111100
Text2.Text = 222200
Text3.Text = 332110
Text4.Text = 123100
Text5.Text = Empty
Text6.Text = Empty
Text7.Text = Empty
Timer1.Interval = 1000
Open "d:\并行存储.txt" For Random As 1 Len = 10
zhan = 2
t12 = 0
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Static xinfen(12) '定义前一刻被选择兴奋的记忆柱群
Static amount '前一刻被选择兴奋的记忆柱群数
Static dong
Static m11
Static n11
Static xvalue
Static zhu(12)
Static zhuamount
Static zhutimesign
Static timesign '时间标志
Static sign1 '记录标志
Static xinfen2
Static xinfen21(6)
timesign1 = timesign
timesign = Date + Time
If sign1 = 0 Then
n = 0
m = 0
sign1 = 1
End If
sign = sign1
'刺激的输入
Dim xinfen1(4)
Dim input1
Dim transportsign(6)
'选择输入的text,并获取它的值
input1 = Text5.Text
Select Case input1
Case 1111
input2 = Text2.Text
Case 2222
input2 = Text3.Text
Case 3333
input2 = Text4.Text
Case Else
input2 = Text1.Text
End Select
Select Case xinfen2
Case 1111
xinfen2 = 2222
Case 2222
xinfen2 = 3333
Case 3333
xinfen2 = 1231
Case Else
xinfen2 = 1111
End Select
Text7.Text = input2

inputvalue = 24 '刺激对记忆柱的兴奋能力为8
For t = 1 To 6
transportsign(t) = Mid(input2, t, 1)
If t < 5 Then
xinfen1(t) = (t - 1) * 3 + transportsign(t)
For t1 = 1 To 2
Get 1, 48 * 400 + 60 * (xinfen1(t) - 1) + 48 + t1, jcrn
Get 1, jcrn, jcValue1
Get 1, jcrn + 48, time1
jcValue1 = jcValue1 - ((timesign - time1) / 86400) * 60 * 10 / 2 '遗忘
If jcValue1 < 0 Then
jcValue1 = 0
End If
inputvalue1 = jcValue1 * (-t1 * 2 + 3)
inputvalue = inputvalue + inputvalue1
Next t1
End If
If t = 5 Then
transportjc = transportjc + transportsign(t) * 100
End If
If t = 6 Then
transportjc = transportjc - transportsign(t) * 100
End If
Next t

'计算被选择兴奋的记忆柱的动力
For t = 1 To amount
For t1 = 1 To 2
Get 1, 48 * 400 + 60 * (xinfen(t) - 1) + 48 + t1, jcrn
Get 1, jcrn, jcValue1
Get 1, jcrn + 48, time1
jcValue1 = jcValue1 - ((timesign - time1) / 86400) * 60 * 10 / 2 '遗忘
If jcValue1 < 0 Then
jcValue1 = 0
End If
jcvalue = jcvalue + jcValue1 * (-t1 * 2 + 3)
Next t1
Next t

'目的完成后奖惩记忆
If xinfen1(1) = zhu(1) And xinfen1(2) = zhu(2) And xinfen1(3) = zhu(3) And xinfen1(4) = zhu(4) Then
m11 = 0
n11 = n11 + 1
If n11 > 5 Then
n11 = 5
End If
For t1 = 1 To 8
Get 1, t1 + 24000 + (sign - 1) * 100, valuesign
For t2 = 1 To 4
Get 1, 400 * 48 + (valuesign - 1) * 60 + 48 + t2, jcrn
Get 1, jcrn, Value
Get 1, jcrn + 48, time1
Value = Value - ((timesign - time1) / 86400) * 60 * 10 / 2
If Value < 0 Then
Value = 0
End If
Put 1, jcrn + 48, timesign
If transportjc > 0 Then
Value = transportjc / 4 - 1 / (Value + 1)
Get 1, 400 * 48 + (valuesign - 1) * 60 + 48 + t2, jcrn1
Get 1, jcrn1, Value1
Get 1, jcrn1 + 48, time1
Value1 = (Value1 - ((timesign - time1) / 86400) * 60 * 10 / 2) / 2
If Value1 < 0 Then
Value1 = 0
End If
Put 1, jcrn1 + 48, timesign
Put 1, jcrn1, Value1
If t2 = 4 Or t2 = 2 Then GoTo 6
End If
If transportjc = 0 Then
Value = (dong + n11 * Value) / 5 - 1 / (Value + 1)
If t2 = 3 Or t2 = 1 Then GoTo 6
End If
If transportjc < 0 Then
Value = -transportjc / 4 - 1 / (Value + 1)
If t2 = 3 Or t2 = 1 Then GoTo 6
End If
Put 1, jcrn, Value
6
Next t2
Next t1

Else

If transportjc = 100 Or transportjc = -100 Or transportjc = 0 And xinfen(1) > 0 Then
n11 = 0
m11 = m11 + 1
If m11 > 5 Then
m11 = 5
End If
'奖惩发生后或目的没有完成的记忆

For t1 = 1 To 8
Get 1, t1 + 24000 + (sign - 1) * 100, valuesign
For t2 = 1 To 4
Get 1, 400 * 48 + (valuesign - 1) * 60 + 48 + t2, jcrn
Get 1, jcrn, Value
Get 1, jcrn + 48, time1
Value = Value - ((timesign - time1) / 86400) * 60 * 10 / 2 '遗忘
If Value < 0 Then
Value = 0
End If
Put 1, jcrn + 48, timesign
If transportjc > 0 Then
Value = transportjc / 4 - 1 / (Value + 1)
Get 1, 400 * 48 + (valuesign - 1) * 60 + 48 + t2, jcrn1
Get 1, jcrn1, Value1
Get 1, jcrn1 + 48, time1
Value1 = (Value1 - ((timesign - time1) / 86400) * 60 * 10 / 2) / 2
If Value1 < 0 Then
Value1 = 0
End If
Put 1, jcrn1 + 48, timesign
Put 1, jcrn1, Value1
If t2 = 4 Or t2 = 2 Then GoTo 8
End If
If transportjc = 0 Then
Value = ((dong + m11 * Value) / 5 - 1 / (Value + 1))
If t2 = 3 Or t2 = 1 Then GoTo 8
End If

If transportjc < 0 Then
Value = -transportjc / 4 - 1 / (Value + 1)
If t2 = 3 Or t2 = 1 Then GoTo 8
End If
Put 1, jcrn, Value
8
Next t2
Next t1
End If
End If

'主注意目的对象的动力变化
For t = 1 To amount
For t1 = 1 To 2
Get 1, 48 * 400 + 60 * (zhu(t) - 1) + 48 + t1, jcrn
Get 1, jcrn, jcValue1
Get 1, jcrn + 48, time1
jcValue1 = jcValue1 - ((timesign - time1) / 86400) * 60 * 10 / 2 '遗忘
If jcValue1 < 0 Then
jcValue1 = 0
End If
dong1 = dong1 + jcValue1 * (-t1 * 2 + 3)
Next t1
Next t
dong = dong1
dong = dong - dong * 0.1 '主注意目的对象的动力

'动力比较
'文本框输入的动力比较
If inputvalue > dong And inputvalue >= jcvalue Or dong = 0 Then
dong = inputvalue
dongsign = dong
zhuamount = 4
zhutimesign = timesign
For t = 1 To 4
xinfen(t) = xinfen1(t)
zhu(t) = xinfen1(t)
Next t
GoTo 10
End If
'被选择兴奋的动力比较
If dong < jcvalue And jcvalue > inputvalue Then
dong = jcvalue
dongsign = dong
zhuamount = amount
zhutimesign = timesign
For t = 1 To 4
zhu(t) = xinfen(t)
Next t
GoTo 10
End If
If dong >= jcvalue And dong >= inputvalue Then
GoTo 90
End If



'主注意目的对象之间的兴奋记忆
10
For t = 1 To 4
zhanamount = zhanamount + 1
Put 1, 24000 + (sign1 - 1) * 100 + zhanamount, zhu(t) '在24000展示框中记下兴奋的记忆柱
allvalue = 6
For t1 = 1 To 4 '记忆柱的被兴奋能力
If t1 = t Then GoTo 5
Get 1, (zhu(t) - 1) * 400 + zhu(t1), Value
Get 1, (zhu(t) - 1) * 400 + zhu(t1) + 95, time1
Value = Value - ((timesign - time1) / 86400) * 60 * 10 / 2 '遗忘
If Value < 0 Then
Value = 0
End If
Put 1, (zhu(t) - 1) * 400 + zhu(t1) + 95, timesign
allvalue = allvalue + Value
5
Next t1
For t1 = 1 To 4
If t1 = t Then GoTo 9
Get 1, (zhu(t) - 1) * 400 + zhu(t1), Value
Value = allvalue / 4 - 1 / (Value + 1) '兴奋的记忆
If Value < 0 Then
Value = 0
End If
Put 1, (zhu(t) - 1) * 400 + zhu(t1), Value
9
Next t1
Next t
'
'主注意目的对象所易化的且与奖惩中枢建立了一定联系的记忆柱，并记录在23100到23200之间
If zhutimesign = timesign Then
For t = 1 To zhuamount
'兴奋得到主注意目的对象所易化的记忆柱,易兴奋的
For t1 = 1 To 47
Get 1, 190 + t1 + (zhu(t) - 1) * 400, zoutput
Get 1, zoutput, Value
Get 1, zoutput + 95, time3
Value = Value - ((timesign - time3) / 86400) * 60 * 10 / 2
If Value < 0 Then
Value = 0
End If
jz = (zoutput \ 400) * 400
Get 1, 386 + jz, time4
If time4 = timesign Then '说明被易化过
Get 1, 386 + jz - 1, avalue
avalue = Value + avalue
Put 1, 386 + jz - 1, avalue
Get 1, 387 + jz, time3
If avalue > 4 And time3 < timesign Then
Get 1, 23000, yxtime
Put 1, 387 + jz, timesign
If yxtime = timesign Then
Get 1, 23000 + 1, yxamount
Put 1, 23000 + yxamount + 2, jz / 400 + 1
yxamount = yxamount + 1
Put 1, 23000 + 1, yxamount
Else: Put 1, 23000, timesign
amount2 = 1
Put 1, 23000 + 1, amount2
Put 1, 23000 + 1 + 1, jz / 400 + 1
End If
End If
Else '没被易化过的情况
Put 1, 386 - 1 + jz, Value
Put 1, 386 + jz, timesign
End If
Next t1
Next t
'
For t = 1 To zhuamount
'兴奋得到主注意目的对象所易化的记忆柱，抑制的
For t1 = 1 To 48
Get 1, 48 * 400 + (zhu(t) - 1) * 60 + t1, zoutput
Get 1, zoutput, Value
Get 1, zoutput + 95, time3
Value = Value - ((timesign - time3) / 86400) * 60 * 10 / 2
If Value < 0 Then
Value = 0
End If
jz = (zoutput \ 400) * 400
Get 1, 386 + jz, time4
If time4 = timesign Then
Get 1, 386 + jz - 1, avalue
Get 1, 387 + jz, time3
avalue = Value + avalue
Put 1, 386 + jz - 1, avalue
If avalue >= 4 And time3 < timesign Then
Put 1, 387 + jz, timesign
Get 1, 23000, yxtime
If yxtime = timesign Then
Get 1, 23000 + 1, yxamount
Put 1, 23000 + yxamount + 2, jz / 400 + 1
yxamount = yxamount + 1
Else: Put 1, 23000, timesign
Put 1, 23000 + 1, zhan - 1
Put 1, 23000 + 1 + 1, jz / 400 + 1
End If
End If
Else
Put 1, 386 - 1 + jz, Value
Put 1, 386 + jz, timesign
End If
Next t1
Next t
'与奖惩联系达到一定强度后记录下来，直接记在383
Get 1, 23000, time1
If time1 = timesign Then
Get 1, 23000 + 1, amount
For t = 1 To amount
Get 1, 23000 + 1 + t, nozha
Put 1, (nozha - 1) * 400 + 387, timesign - 1
Get 1, 48 * 400 + (nozha - 1) * 60 + 48 + 3, jrn
Get 1, jrn, jvalue
Get 1, jrn + 48, jtime
Get 1, 48 * 400 + (nozha - 1) * 60 + 48 + 4, crn
Get 1, crn, cvalue
Get 1, crn + 48, ctime
jvalue = jvalue - ((timesign - jtime) / 86400) * 60 * 10 / 2
If jcvalue < 0 Then
jcvalue = 0
End If
cvalue = cvalue - ((timesign - ctime) / 86400) * 60 * 10 / 2
If caValue < 0 Then
caValue = 0
End If
jcvalue = jvalue - cvalue
If jcvalue > 3 Or jcvalue < -3 Then
Put 1, (nozha - 1) * 400 + 383, jcvalue
Put 1, (nozha - 1) * 400 + 384, timesign
End If
Next t
End If
End If

For t = 1 To 48
Put 1, 400 * (t - 1) + 386, timesign - 1
Next t
'
'随机易化的记忆柱的易化计算
90
inputxinfen2 = 3 '易化的值
For t = 1 To 4
transportsign(t) = Mid(xinfen2, t, 1)
xinfen21(t) = (t - 1) * 3 + transportsign(t) + 36
Get 1, 400 * (xinfen21(t) - 1) + 386, xinfen21time
If xinfen21time = timesign Then
Get 1, 400 * (xinfen21(t) - 1) + 385, xinfen21value
xinfen21value = xinfen21value + 8
Put 1, 400 * (xinfen21(t) - 1) + 385, xinfen21value
Else
Put 1, 400 * (xinfen21(t) - 1) + 385, inputxinfen2
Put 1, 400 * (xinfen21(t) - 1) + 386, timesign
End If
Next t

'抑制时兴奋的记忆柱的易化
For t = 1 To 4
For t1 = 1 To 48
Get 1, 48 * 400 + t1 + (xinfen(t) - 1) * 60, zoutput
Get 1, zoutput, Value
Get 1, zoutput + 95, time3
rninput = zoutput
Value = 0.5 + Value - ((timesign - time3) / 86400) * 60 * 10 / 2
If Value < 0 Then
Value = 0
End If
jz = (zoutput \ 400) * 400
Get 1, jz + 382, time3
If time3 = timesign Then
Get 1, jz + 381, rnamount
Put 1, jz + 237 + rnamount + 1, rninput
Put 1, jz + 381, rnamount + 1
Get 1, jz + 385, allvalue
Get 1, jz + 384, jctime
If jctime = zhutimesign Then
Get 1, jz + 383, jcvalue
Else: jcvalue = 0
End If
zhallvalue = allvalue
allvalue = allvalue + Value
'如果就应在展示框中记下 23100
Get 1, 387 + jz, time3
If allvalue + jcvalue >= 3 And time3 < timesign Then
Get 1, 23101, yhtime
Put 1, 387 + jz, timesign
If yhtime = timesign Then
Get 1, 23100, yhamount
Put 1, 23100 + 1 + yhamount + 1, jz / 400 + 1
Put 1, 23100, yhamount + 1
Else: Put 1, 23101, timesign
Put 1, 23100, t12 \ 100 + 1
Put 1, 23100 + 1 + 1, jz / 400 + 1
End If
End If
'
Put 1, jz + 385, allvalue
Else
Put 1, jz + 381, rnamount * 0 + 1
Put 1, jz + 382, timesign
Put 1, jz + 237 + 1, rninput
Get 1, jz + 386, timesign1
If timesign1 < timesign Then
Put 1, jz + 385, Value
Put 1, jz + 386, timesign
Else
Get 1, jz + 385, alvalue
alvalue = alvalue + Value
Put 1, jz + 385, alvalue
End If
End If
Next t1
Next t




'选择出易兴奋的
Get 1, 23100, allamount '得出被兴奋的记忆柱的数目
Dim amount1(16)
Dim x(16, 3)
Dim valuex(16, 3)
For t = 1 To allamount
Get 1, 23101 + t, zho
Get 1, (zho - 1) * 400 + 385, allvalue
'奖惩的动力
jz = (zho - 1) * 400
Get 1, jz + 384, rnzhutime
If zhutimesign = rnzhutime Then
Get 1, jz + 383, jcvalue
allvalue = jcvalue + allvalue
End If
If zho / 3 = (zho \ 3) Then
n = (zho \ 3)
Else: n = (zho \ 3) + 1
End If
'计算出zho为那一反应小区
'amount(n)为第n个反应小区所兴奋的基本记忆柱数
amount1(n) = amount1(n) + 1
Select Case amount1(n)
Case 2
If valuex(n, 1) > allvalue Then
valuex(n, 2) = allvalue
x(n, 2) = zho
Else: x(n, 2) = x(n, 1)
valuex(n, 2) = valuex(n, 1)
valuex(n, 1) = allvalue
x(n, 1) = zho
End If
Case 3
If x(n, 1) < allvalue Then
x(n, 3) = x(n, 2)
valuex(n, 3) = valuex(n, 2)
x(n, 2) = x(n, 1)
valuex(n, 2) = valuex(n, 1)
x(n, 1) = zho
valuex(n, 1) = allvalue
Else
If x(n, 2) > allvalue Then
x(n, 3) = zho
valuex(n, 3) = allvalue
Else: x(n, 3) = x(n, 2)
valuex(n, 3) = valuex(n, 2)
x(n, 2) = zho
valuex(n, 2) = allvalue
End If

End If
Case 1
x(n, 1) = zho
valuex(n, 1) = allvalue
End Select
Next t


'在各个中枢按一定标准选出易兴奋的原始记忆柱群,t代表中枢，
't2代表反应区,t3代表反应区中第几个记忆柱（按兴奋能力排）
'先选择第一区，然后选择第二区
Dim x1(4, 4)
Dim valuex1(4, 4)
For t = 1 To 4
n1 = 4 * (t - 1) + 1
For t2 = 1 To amount1(n1) '选择一中枢的第一反应区
x1(t, 1) = x(n1, t2)
valuex1(t, 1) = valuex(n1, t2)
For t11 = 1 To amount1(n1 + 1) '第二最小反应区
x1(t, 2) = x(n1 + 1, t11)
valuex1(t, 2) = valuex(n1 + 1, t11)
Get 1, (x(n1 + 1, t11) - 1) * 400 + x(n1, t2), Value
Get 1, (x(n1 + 1, t11) - 1) * 400 + x(n1, t2) + 95, time1
Value1 = (Value - ((timesign - time1) / 86400) * 60 * 10 / 2)
If Value1 < 1 Then GoTo 11
For t12 = 1 To amount1(n1 + 2) '第三最小反应区
x1(t, 3) = x(n1 + 2, t12)
valuex1(t, 3) = valuex(n1 + 2, t12)
Get 1, (x(n1 + 2, t12) - 1) * 400 + x(n1, t2), Value
Get 1, (x(n1 + 2, t12) - 1) * 400 + x(n1, t2) + 95, time1
value12 = (Value - ((timesign - time1) / 86400) * 60 * 10 / 2)
Get 1, (x(n1 + 2, t12) - 1) * 400 + x(n1 + 1, t11), Value
Get 1, (x(n1 + 2, t12) - 1) * 400 + x(n1 + 1, t11) + 95, time1
value2 = (Value - ((timesign - time1) / 86400) * 60 * 10 / 2)
If value12 >= 1 And value2 >= 1 Then
Else: GoTo 12
End If
For t13 = 1 To amount1(n1 + 3) '第四最小反应区
x1(t, 4) = x(n1 + 3, t13)
valuex1(t, 4) = valuex(n1 + 3, t13)
For t5 = 1 To 3
Select Case t5
Case 1
l = t2
Case 2
l = t11
Case 3
l = t12
End Select
Get 1, (x(n1 + 3, t13) - 1) * 400 + x(n1 + t5 - 1, l), Value
Get 1, (x(n1 + 3, t13) - 1) * 400 + x(n1 + t5 - 1, l) + 95, time1
value13 = (Value - ((timesign - time1) / 86400) * 60 * 10 / 2)
If value13 < 1 Then GoTo 13
Next t5
13
If t5 = 4 Then
GoTo 3
Else: x1(t, 4) = 0
End If
Next t13
12
Next t12
11
Next t11
2
Next t2
3
Next t




'从这些原始记忆柱群中选出最易兴奋的做为主注意对象
Dim x2(4)
Dim yoxinfen(40)
yoamount = 0
For t = 1 To 4
For t1 = 1 To 4
If x1(t, t1) = 0 Then
x2(t) = 0
GoTo 23
End If
x2(t) = x2(t) + valuex1(t, t1)
Next t1
If v < x2(t) Then
v = x2(t)
m = t
End If
23
Next t
amount = 4
For t1 = 1 To 4
If t1 = m Then
For t = 1 To 4
xinfen(t) = x1(m, t)
Next t
Else
End If
Next t1

If v < 12 Then
For t = 1 To 4
xinfen(t) = xinfen21(t)
Next t
End If

'选择出来的记忆柱的记忆
For t = 1 To 4
Put 1, 24000 + (sign1 - 1) * 100 + 4 + t, xinfen(t)
If xinfen(1) > 36 Then
If (xinfen(t) - 36) / 3 = (xinfen(t) - 36) \ 3 Then
text51 = text51 + (3 + (xinfen(t) - 36) Mod 3) * 10 ^ (t - 1)
Else
text51 = text51 + ((xinfen(t) - 36) Mod 3) * 10 ^ (t - 1)
End If
End If
Get 1, (xinfen(t) - 1) * 400 + 381, rnamount
Get 1, (xinfen(t) - 1) * 400 + 385, allvalue
For t1 = 1 To rnamount
Get 1, (xinfen(t) - 1) * 400 + 237 + t1, rn
Get 1, (xinfen(t) - 1) * 400 + rn, Value
Get 1, (xinfen(t) - 1) * 400 + rn + 95, time3
Value = (Value + allvalue / 3) / 2
If Value < 0 Then
Value = 0
End If
Put 1, (xinfen(t) - 1) * 400 + rn, Value
Put 1, (xinfen(t) - 1) * 400 + rn + 95, timesign
Next t1
Next t

Text5.Text = text51
Text6.Text = zhu(1) & ":" & zhu(2) & ":" & zhu(3) & ":" & zhu(4)
For t = 1 To 4
allvalue = 6
For t1 = 1 To 4 '记忆柱的被兴奋能力
If t1 = t Then GoTo 35
Get 1, (xinfen(t) - 1) * 400 + xinfen(t1), Value
Get 1, (xinfen(t) - 1) * 400 + xinfen(t1) + 95, time1
Value = Value - ((timesign - time1) / 86400) * 60 * 10 / 2 '遗忘
If Value < 0 Then
Value = 0
End If
Put 1, (xinfen(t) - 1) * 400 + xinfen(t1) + 95, timesign
allvalue = allvalue + Value
35
Next t1
For t1 = 1 To 4
If t1 = t Then GoTo 39
Get 1, (xinfen(t) - 1) * 400 + xinfen(t1), Value
Value = allvalue / 4 - 1 / (Value + 1) '兴奋的记忆
If Value < 0 Then
Value = 0
End If
Put 1, (xinfen(t) - 1) * 400 + xinfen(t1), Value
39
Next t1
Next t
End Sub

谢谢