dom_rab
.docclear
%(1.1)
A=[1 2 3 4 5 4 3 2 1];
%A=0:1:5;
tic
answer=isequal(A,fliplr(A));
toc
%(1.2)
tic
answer=all(A == A(end:-1:1));
toc
%(2.1)
n=15;
tic
s=1:n; A1=repmat(s,n,1); answer=A1.';
toc
%(2.2)
tic
answer=cumsum(ones(n));
toc
%(2.3)
tic
answer=tril(ones(n))*ones(n);
toc
%(3)
A=[1:40;41:80];
tic
answer=max(A(isprime(A)));
toc
% (4.1)
n=5;
tic
A = triu(repmat(1:n, n, 1)); %1/1
[i,j]=find(A); answer=j;
toc
% (4.2)
tic
A = triu(repmat(1:n, n, 1)); %1/1
A=A(:); % returns the row of all elements of X
answer=A(A>0)
toc
%(5)
tic
A = [2 4 5 6 2 1 3 2 1 1];
A=A==min(A);
answer=cumsum(A).*A;
toc
%(6.1)
A = [2 4 5 6 2; 1 3 2 1 1];
Amax=5; Amin=2;
tic
answer=max(min(A,Amax),Amin);
toc
%(6.2)
A = [2 4 5 6 2; 1 3 2 1 1];
Amax=5; Amin=2;
tic
A1=A;
i=find(A1<Amin);A1(i)=Amin;
j=find(A1>Amax);A1(j)=Amax;
answer=A1;
toc