S=[0 1 1i 2+2i 2];
RS=real(S);
RS1=[];
     for i=1:length(S)
         if isreal(S(i))
             RS1(i)=S(i);
         else
             RS1(i)=real(S(i));
         end
     end
     RS1
     RS