clc;
clear;
xn=[1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0];
yn=xn;
num=0;
for k=1:length(xn)
if xn(k)==1
num=num+1;
if num/2 == fix(num/2)
clc;
clear;
xn=[1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0];
yn=xn;
num=0;
for k=1:length(xn)
if xn(k)==1
num=num+1;
if num/2 == fix(num/2)