function choinka(n)
k=0;
 for i=1:n
  for j=1:i
    k=k+1;
    x(k)=-j;
    y(k)=i;
   endfor
  endfor
  plot(x,y,'k*')
endfunction




output_precision(4)

z dolu lewo gora prawo nad:

function [suma] = funmacierz (A)
sum = 0;
n = rows(A);
m = columns(A);
for i=1:n-1
    A(i,m)=A(i,m-1);
    sum = sum + A(i,m);
    m = m - 1;
endfor
suma = sum;

endfunction

lewo gora prawo dol nad:

function [suma]=funmacierz(A)
sum=0;
for i=1:rows(A)-1
   A(i,i)=A(i,i+1);
   sum=sum+A(i,i);

 endfor

suma=sum;
endfunction

z lewo gora prawo dol pod:

function [suma]=lolo(A)
sum=0;
for i=1:rows(A)-1
   A(i,i)=A(i+1,i);
   sum=sum+A(i,i);
 endfor

suma=sum;
endfunction

z lewo dol prawo gora pod:

function [suma] = lolo (A)
sum = 0;
n = rows(A);
m = columns(A);
for i=1:n-1
    A(i,m)=A(i+1,m);
    sum = sum + A(i,m);
    m = m - 1;
endfor
suma = sum;

endfunction



polowa macierzy

function [suma] = coja (A)
n = rows(A);
c = (round(n/2));
m = columns(A);
sum = 0;
for i=1:c
    for j=1:m
    sum = sum + A(i,j);
    endfor
endfor
suma = sum;

endfunction



nad przekatna:

n = 5;
A = magic(n)
suma = 0;
for i=1:n
    for j=i+1:n
    suma = suma + A(j,i);
    endfor
endfor
suma

http://pastebin.com/RneMMz48

http://pastebin.com/cYsKhRgJ

http://pastebin.com/9Dw1TNuU   - diament


http://pastebin.com/g0tBJRGY  - lepoiej nie pytac


suma=0; %sc=1;
n=0; %indeks
sc=1;
while (sc>= 0.001) ##jak przekroczy to nie spelniony, ale jest dodany do n
n=n+1;
sc=1/(n*sqrt(n));
suma=suma+sc;
endwhile;
disp("indeks najwiekszego wyrazu mniejszego od 1/1000: ");
disp(n);

function [k]=palindrom(L)
k=0;
n=0;
x=0;
s=size(L);
s=s(2);
for i=1:s
if L(i)==L(s-x)
n=n+1;
endif;
x=x+1;
endfor;
if n==s
k=1;
disp("To jest palindrom")
endif;
endfunction;