seqbalance.m

该函数将检测输入的序列是否是平衡的序列

%序列平衡判断函数sebalance.m
%输入：欲判断的序列
%输出：若seq_bal(N)=1,则序列平衡；否则序列不平衡
function seq_bal=seqbalance(seq)
mark=find(seq==0);
seq(mark)=-1;
N=length(seq);seq_bal=zeros(1,N);
seqsum=0;
for k=1:N
    seqsum=seqsum+seq(k);
    seq_bal(k)=seqsum;
end