dom_rab

clear

%(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