m1=[55 55 55; 55 55 55; 55 55 55];
        t=m1(1,1)+m1(1,2)+m1(1,3);
    p=m1(2,1)+m1(2,2)+m1(2,3);
    q=m1(3,1)+m1(3,2)+m1(3,3);
    r=m1(1,1)+m1(2,1)+m1(3,1);
    s=m1(1,2)+m1(2,2)+m1(3,2);
    d=m1(1,3)+m1(2,3)+m1(3,3);
    f=trace(m1);
    g=m1(1,3)+m1(2,2)+m1(3,1);
    
    
   pinMode(a,13,'OUTPUT');
    pinMode(a,12,'OUTPUT');
     pinMode(a,11,'OUTPUT');
      pinMode(a,10,'OUTPUT');
       pinMode(a,9,'OUTPUT');
        pinMode(a,7,'OUTPUT');
         pinMode(a,6,'OUTPUT');
          pinMode(a,5,'OUTPUT');
           pinMode(a,4,'OUTPUT');
           digitalWrite(a,13,0);
           digitalWrite(a,12,0);
           digitalWrite(a,11,0);
           digitalWrite(a,10,0);
           digitalWrite(a,9,0);
           digitalWrite(a,7,0);
           digitalWrite(a,6,0);
           digitalWrite(a,5,0);
           digitalWrite(a,4,0);
           
   
   

 for v=1:10^10
    
x=input(' Choose 1 or 0 ? :');

if x==1 || x==0
    
    y=input(' Choose your position :');
    if  y==11
    m1(1,1)=x;
    
    if x==1
        digitalWrite(a,13,1)
        
    elseif x==0
     
        digitalWrite(a,13,1);
        pause(0.2);
        digitalWrite(a,13,0);
        pause(0.2);
      
        
    else
    
    
    
    disp(m1);
    end
    
  elseif y==12
    m1(1,2)=x;
    
    if x==1
       digitalWrite(a,7,1);
    elseif x==0
        digitalWrite(a,7,1);
        pause(0.2);
        digitalWrite(a,7,0);
        pause(0.2);
    else
    end
    disp(m1);
    
 elseif y==13
    m1(1,3)=x;
    
   if x==1
       digitalWrite(a,4,1);
    elseif x==0
        digitalWrite(a,4,1);
        pause(0.2);
        digitalWrite(a,4,0);
        pause(0.2);
   else
   end
    disp(m1);
    
elseif y==21
    m1(2,1)=x;
   
     if x==1
       digitalWrite(a,12,1);
    elseif x==0
        digitalWrite(a,12,1);
        pause(0.2);
        digitalWrite(a,12,0);
        pause(0.2);
     else
     end
    disp(m1);
    
elseif y==22
    m1(2,2)=x;
     
     if x==1
       digitalWrite(a,9,1);
    elseif x==0
        digitalWrite(a,9,1);
        pause(0.2);
        digitalWrite(a,9,0);
        pause(0.2);
     else
     end
    disp(m1);
    
elseif y==23
    m1(2,3)=x;
    
     if x==1
       digitalWrite(a,5,1);
    elseif x==0
        digitalWrite(a,5,1);
        pause(0.2);
        digitalWrite(a,5,0);
        pause(0.2);
     else
     end
    disp(m1);
  
elseif y==31
    m1(3,1)=x;
    
     if x==1
       digitalWrite(a,11,1);
    elseif x==0
        digitalWrite(a,11,1);
        pause(0.2);
        digitalWrite(a,11,0);
        pause(0.2);
     else
     end
    disp(m1);
    
elseif y==32
    m1(3,2)=x;
     
     if x==1
       digitalWrite(a,10,1);
    elseif x==0
        digitalWrite(a,10,1);
        pause(0.2);
        digitalWrite(a,10,0);
        pause(0.2);
     else
     end
    disp(m1);
    
 elseif y==33
    m1(3,3)=x;
     
     if x==1
       digitalWrite(a,6,1);
    elseif x==0
        digitalWrite(a,6,1);
        pause(0.2);
        digitalWrite(a,6,0);
        pause(0.2);
     else
     end
    disp(m1);
    
  
    elseif disp('Wrong input position !!');
     
    end
     t=m1(1,1)+m1(1,2)+m1(1,3);
    p=m1(2,1)+m1(2,2)+m1(2,3);
    q=m1(3,1)+m1(3,2)+m1(3,3);
    r=m1(1,1)+m1(2,1)+m1(3,1);
    s=m1(1,2)+m1(2,2)+m1(3,2);
    d=m1(1,3)+m1(2,3)+m1(3,3);
    f=m1(1,1)+m1(2,2)+m1(3,3);
    g=m1(1,3)+m1(2,2)+m1(3,1);
    if t==3 || p==3 || q==3 || r==3 || s==3 || d==3 || f==3 || g==3
        
        disp( 'Player X won');
        if t==3
            for x=1:10
            digitalWrite(a,13,1);
            digitalWrite(a,7,1);
            digitalWrite(a,4,1);
            pause(0.2);
            digitalWrite(a,13,0);
            digitalWrite(a,7,0);
            digitalWrite(a,4,0);
            pause(0.2);
            end
        elseif p==3
            for x=1:10
            digitalWrite(a,12,1);
            digitalWrite(a,9,1);
            digitalWrite(a,5,1);
            pause(0.2);
            digitalWrite(a,12,0);
            digitalWrite(a,9,0);
            digitalWrite(a,5,0);
            pause(0.2);
            end
        elseif q==3
            for x=1:10
            digitalWrite(a,11,1);
            digitalWrite(a,10,1);
            digitalWrite(a,6,1);
            pause(0.2);
            digitalWrite(a,11,0);
            digitalWrite(a,10,0);
            digitalWrite(a,6,0);
            pause(0.2);
            end
        elseif r==3
              for x=1:10
            digitalWrite(a,13,1);
            digitalWrite(a,12,1);
            digitalWrite(a,11,1);
            pause(0.2);
            digitalWrite(a,13,0);
            digitalWrite(a,12,0);
            digitalWrite(a,11,0);
            pause(0.2);
              end
        elseif s==3
              for x=1:10
            digitalWrite(a,7,1);
            digitalWrite(a,9,1);
            digitalWrite(a,10,1);
            pause(0.2);
            digitalWrite(a,7,0);
            digitalWrite(a,9,0);
            digitalWrite(a,10,0);
            pause(0.2);
              end
        elseif d==3
              for x=1:10
            digitalWrite(a,4,1);
            digitalWrite(a,5,1);
            digitalWrite(a,6,1);
            pause(0.2);
            digitalWrite(a,4,0);
            digitalWrite(a,5,0);
            digitalWrite(a,6,0);
            pause(0.2);
              end
        elseif f==3
              for x=1:10
            digitalWrite(a,13,1);
            digitalWrite(a,9,1);
            digitalWrite(a,6,1);
            pause(0.2);
            digitalWrite(a,13,0);
            digitalWrite(a,9,0);
            digitalWrite(a,6,0);
            pause(0.2);
              end
        elseif g==0
              for x=1:10
            digitalWrite(a,11,1);
            digitalWrite(a,10,1);
            digitalWrite(a,4,1);
            pause(0.2);
            digitalWrite(a,11,0);
            digitalWrite(a,10,0);
            digitalWrite(a,4,0);
            pause(0.2);
            end
        end
        m1=[55 55 55; 55 55 55; 55 55 55];
   
        break
        
    elseif t==0 || p==0 || q==0 || r==0 || s==0 || d==0 || f==0 || g==0
      
        disp('Player O won');
        m1=[55 55 55; 55 55 55; 55 55 55];
        digitalWrite(a,13,1);
        digitalWrite(a,7,1);
        digitalWrite(a,10,1);
        digitalWrite(a,6,1);
        digitalWrite(a,11,1);
        digitalWrite(a,4,1);
        digitalWrite(a,5,1);
        digitalWrite(a,10,1);
        digitalWrite(a,12,1);
        break
    else
        
    end
   
    else
    disp('Please enter either X or O ');
end

end