Transformations of signal in Octave

transformationSignal.m

function transformationSignal(a,b,A,B)
  close all;
  clc;
 
  t = -6:0.01:6;
 
  for i=1:size(t,2)
    if(t(i)<-1) x(i)=0;
    elseif(t(i)<0) x(i)=-1;
    elseif(t(i)<=2) x(i) = t(i)/2;
    else x(i) = 0;
    endif
  endfor
 
  figure;
  plot(t,x);
  grid;
  title('Sinal original');
  xlabel('tempo[s]');
  ylabel('Amplitude');
  xlim([-6 6]);
 
  figure;
  plot((t-b)/a,A*x+B);
  grid;
  title('Sinal transformado');
  xlabel('tempo[s]');
  ylabel('Amplitude');
  xlim([-6 6]);
 
  figure;
  plot(t, (x+flip(x))/2);
  grid;
  title('Sinal par');
  xlabel('tempo[s]');
  ylabel('Amplitude');
  xlim([-6 6]);
    
  figure;
  plot(t, (x-flip(x))/2);
  grid;
  title('Sinal impar');
  xlabel('tempo[s]');
  ylabel('Amplitude');
  xlim([-6 6]);
endfunction