//zadanie 1.
// Zapisz ponizej polecenia, ktore
// - utworza macierz A o wymiarze 10x10, wypelniajac jej elementy losowymi liczbami z zakresu [-5,5)
// - zlicza ile wygenerowano elementow ujemnych, nastepnie dodadza do nich liczbe 40,

//__________________________________________
//ver1
A=rand(10,10)*10-5
i=length(A(A<0))
A(A<0)=A(A<0)+40

//__________________________________________
//ver2
A=rand(10,10)*10-5
i=0;
for k=1:10
for j=1:10
if A(k,j)<0 then
i=i+1;
A(k,j)=A(k,j)+40;
end;
end;
end;
A

// Zadanie 2.
// Zapisz ponizej polecenia, ktore zlicza ile wyrazow ciagu a(k) = 1/n,
// gdzie n = (k+10)*k jest wiekszych od liczby 0.001

k=1;
a=1/((k+10)*k);
while a(k)>0.001
k=k+1;
a(k)=1/((k+10)*k);
end;
ile=k-1

// Zadanie 3.
// Zdefiniowac funkcje oscar(A,x) ktorej argumentem jest macierz A, oraz liczba x,
// wynikiem funkcji jest liczba elementow macierzy A wieksza od x

//__________________________________________
//ver1

function awx=oscar(A,x)
awx=length(A(A>x));
endfunction;

//zestaw testowy
A=int(rand(8,8)*11)
x=5
awx=oscar(A,x)

//__________________________________________
//ver2

function awx=oscar(A,x)
awx=0;
for i=1:size(A,1)
for j=1:size(A,2)
if A(i,j)>x then
awx=awx+1;
end;
end;
end;
endfunction;

//zestaw testowy
A=int(rand(8,8)*11)
x=5
awx=oscar(A,x)


// Zadanie 4.
// Zapisz ponizej polecenia, ktore pozwola na narysowanie wykresu funkcji okreslonej przez rownanie
// z(x,y)=sin(x+y)+3cos(sin(x)-y) przyjmujac dziedziny dla x i y jako przedzialy [0,6]

//__________________________________________
//ver1

function z=f(x,y)
z=sin(x+y)+3*cos(sin(x)-y);
endfunction

x=linspace(0,6,35);
y=x;
fplot3d(x,y,f);

//__________________________________________
//ver2

function z=f(x,y)
for i=1:length(x)
for j=1:length(y)
z(i,j)=sin(x(i)+y(j))+3*cos(sin(x(i))-y(j));
end;
end;
endfunction

x=linspace(0,6,35);
y=x;
z=f(x,y);
plot3d(x,y,z);