A=[ 1,0,1,0,1,0,0,1,0,1,0,0,1,0,0,0,1,1,0,0,0,1,0,1,0,1,0,1,0,1,0,1,1];
B=chafen(A);
[m,n]=size(A);
for i=1:n+1
    if B(1,i)==0
        x1=(i-1)*pi*2;
        x2=i*pi*2;
        t=x1:0.01:x2
        y1=sin1(t);
       subplot(4,n/4,i):plot(t,y1,'m')
       axis([x1,x2,-1,1]);
       grid on
      else  
        x3=(i-1)*pi*2; 
        x4=i*2*pi;
        t1=x3:0.01:x4;  
        y2=sin2(t1);  
        subplot(4,n/4,i):plot(t1,y2,'g')  
        axis([x3,x4,-1,1]);
        grid on

    end;
  
end;