//duze prawdopodobienstwo pojawienia sie tych zadan na jutrzejszym kole :P

//zad 1 zapisz skrypt ktory obliczy srednia wartosc elementow dowolnego wektora o wymiarze n oraz przetestuj te funkcje dla B=[4 6 8 3 8 -8 0 4 1 -7]

B=[4 6 8 3 8 -8 0 4 1 -7]
A=0
for i=1:length(B)
  A=A+B(i)
end
srednia=A/length(B)

//zad 2 zapisz skrypt sluzacy do obliczania sumy odwrotnosci kwadratow 100 pierwszych wyrazow ciagu,
//ktorego n-ty element przedstawia sie wzorem a(n)=n^2+sin(n)/18

sumaodwrotnosci=0
for n=1:100
  sumaodwrotnosci=sumaodwrotnosci+(1/(n^2+sin(n)/18)^2)
end
disp(sumaodwrotnosci)

//zad 3 zdefiniuj funkcje wektor_c ktorej argumentem beda 2 wektory x=(x1 x2 x3), y=(y1 y2 y3),
//a wynikiem bedzie wektor stalych logicznych, ktorego
//wspolrzedne sa rezultatem porownania x1 i 6yi dla i=1,2,3.
//przetestuj dzialanie funkcji dla wektorow [5 -5 1], [1 1 1]

x=[5 -5 1]
y=[1 1 1]
function z = wektor_c(x,y)
  for i=1:3
    if x(1)==(6*y(i)) then z(i)=%T
    else z(i)=%F
    end
  end
endfunction

//zad 4 napisz polecenia niezbedne do wykonania nastepujacej krzywej przestrzennej zadanej w postaci parametrycznej:
//x(t)=tan t
//y(t)=cosh t sin t
//z(t)= sinh e^t
//D={t:t (nalezy)(-pi/3,pi/3)}
//dodaj tytul wykresu

t=-(%pi/3):0.1:(%pi/3)
x=tan(t)
y=cosh(t).*sin(t)
z=sinh((%e)^t)
param3d(x,y,z,45,60)
xtitle('Krzywa w postaci parametrycznej')

//zadanie 6: napisz funkcje suma_c ktora bedzie zwracala macierz w postaci c_ij=i^2+j^2 gdzie i to liczba kolumn a j liczba wierszy. sprawdz dzialanie funkcji dla i=9 i j=15

function c_ij = suma_c(i,j)
for a=1:i
  for b=1:j
    c_ij(a,b)=a^2+b^2
  end
end
endfunction

//Dla ilu elementów suma wyrazów ciągu n^2-n+2 jest mniejsza od 1500.

n=1
suma=0
while suma<1500 then
  suma=suma+(n^2-n+2)
    n=n+1
    end
 disp(n,'Ilosc elemntów')
 
 
 //Stwórz symulacje rzutu kostką do gry.
 

rzut=int(6*rand()+1)
select rzut;
case 1 then rzut='wylosowales 1',
case 2 then rzut='wylosowales 2',
case 3 then rzut='wylosowales 3',
case 4 then rzut='wylosowales 4',
case 5 then rzut='wylosowales 5',
case 6 then rzut='wylosowales 6',
end
disp(rzut)

//lub

function oczka=kostka()
  oczka=int(rand()*6)+1;
endfunction

oczka=kostka()

---