function [x1,t]=SygnalProstokatny(A,T,n,Ts)
N=T/Ts;
x1=[A*ones(1,N/2) -A*ones(1,N/2)];
x=[];
for(i=1:n)
x=[x x1];
end
t=0:Ts:(length(x)-1)*Ts
plot(t,x,'r-');
end