%spnet.m: Spiking network with axonal conduction delays and STDP% Created by Eugene M.Izhikevich. February 3, 2004
M=100; % number of synapses per neuron
D=20; % maximal conduction delay
%excitatory neurons % inhibitory neurons % total number
Ne=800;
Ni=200;
N=Ne+Ni;
a=[0.02*ones(Ne,1); 0.1*ones(Ni,1)];%izh神经元参数a初始化
d=[ 8*ones(Ne,1); 2*ones(Ni,1)];%izh神经元参数d初始化
sm=10; % maximal synaptic strength
post=ceil([N*rand(Ne,M);Ne*rand(Ni,M)]);%1000*100矩阵,每个神经元的突触前100个神经元序号,%抑制性只连兴奋性,
s=[6*ones(Ne,M);-5*ones(Ni,M)]; % synaptic weights
sd=zeros(N,M); % their derivatives
for i=1:N
if i<=Ne
for j=1:D
delays{i,j}=M/D*(j-1)+(1:M/D);%第i个神经元延迟j时间的突触序号,即(1:5)+5*(j-1)
%比如delay{i,2}=[6,7,8,9,10],delay{i,3}=[11,12,13,14,15]
end;
else
delays{i,1}=1:M;%抑制性神经元都是1ms延时
end;
pre{i}=find(post==i&s>0); % 第i个神经元的pre excitatory synapse 在post列表中的序号,约有80个元素,最大值为100*1000
aux{i}=N*(D-1-ceil(ceil(pre{i}/N)/(M/D)))+1+mod(pre{i}-1,N);
% ceil(pre{i}/N) 是这些synapse在post列表中的列数,即此神经元的第几个突触
% ceil(突触序号/(M/D))即是其延迟时间,因为延迟j毫秒的突触为M/D*(j-1)+(1:M/D)见delays(i,j)的设置
% mod(pre{i}-1,N) 定位 其在post 列表中的行数,即突触前神经元序号
% an auxiliary table of indices
% needed to speed up STDP implementation.
end;
STDP = zeros(N,1001+D);
v = -65*ones(N,1); % initial values
u = 0.2.*v; % initial values
firings=[-D 0]; % spike timings
for sec=1:60*60*24 % simulation of 1 day
for t=1:1000 % simulation of 1 sec
I=zeros(N,1);
I(ceil(N*rand))=20; % random thalamic input
fired = find(v>=30); % indices of fired neurons
v(fired)=-65;%izhikevich规则
u(fired)=u(fired)+d(fired);%izhikevich规则
STDP(fired,t+D)=0.1;
for k=1:length(fired)
sd(pre{fired(k)})=sd(pre{fired(k)})+STDP(N*t+aux{fired(k)});%synapse dirivatives adjustment
end;
firings=[firings;t*ones(length(fired),1),fired];%何时何神经元激活过的记录
k=size(firings,1);%截止到t,总神经元激活次数
while firings(k,1)>t-D
del=delays{firings(k,2),t-firings(k,1)+1};%firings列表第k个神经元,应在t时间输出动作电位的突触的序号%k初始为列表长度,随后逐渐-1,直到firings(k,1)<=t-D
ind = post(firings(k,2),del);%此突触后的神经元序号
I(ind)=I(ind)+s(firings(k,2), del)';%突触后神经元的输入电流+权重(*单位电流)
sd(firings(k,2),del)=sd(firings(k,2),del)-1.2*STDP(ind,t+D)';
k=k-1;
end;
v=v+0.5*((0.04*v+5).*v+140-u+I); % for numerical
v=v+0.5*((0.04*v+5).*v+140-u+I); % stability time
u=u+a.*(0.2*v-u); % step is 0.5 ms
STDP(:,t+D+1)=0.95*STDP(:,t+D); % tau = 20 ms
end;
plot(firings(:,1),firings(:,2),'.');
axis([0 1000 0 N]);
drawnow;
STDP(:,1:D+1)=STDP(:,1001:1001+D);%下一秒的STDP初,更改为上一秒的STDP末
ind = find(firings(:,1) > 1001-D);%对下一秒初可能施加影响的神经元
firings=[-D 0;firings(ind,1)-1000,firings(ind,2)];%重置firings列表
s(1:Ne,:)=max(0,min(sm,0.01+s(1:Ne,:)+sd(1:Ne,:)));%s<--s+0.1+sd
sd=0.9*sd;
clc
fprintf([num2str(sec/24/60/60),'%%\n'])
end;
t=-20:20;
dw=0.1*exp(-t/20);
plot(t,dw)