0;
function dq = zh1fel(a,Da,b,Db,c,Dc)
  % q = (b+c) * (a - 4*(b+c))
  db = Db / abs(b);
  dc = Dc / abs(c);
  o = b + c;
  % o: osszeg
  d.o = max(db,dc);
  D.o = Db + Dc;
  s1 = 4*o;
  %s1: szorzat
  Ds1 = abs(4) * D.o + abs(o) * 0;
  k = a - s1;
  % k : kulonbseg
  dk = (Da + Ds1) / abs(k);
  q = o * k;
  % q: szorzat
  dq = d.o + dk;
endfunction

function dq = zh_b_1fel(a,Da,b,Db,c,Dc)
  % q = ((b-2)*c) - (a/c -a)
  % segedvaltozok
  k = b-2;
  s = k * c;
  h = a/c
  k2 = h - a;
  q = s - k2;
  % hibak, lentrol folfele:
  Dk = Db + 0; % D2 = 0
  Dh = (Da * abs(c) + Dc * abs(a)) / c^2;
  Ds = Dk * abs(c) + Dc * abs(k);
  Dk2 = Dh + Da;
  dq = (Ds + Dk2)/abs(q);
endfunction

%%% Legyen A egy tetsz®leges mátrix. Az A mátrix minden páratlan
% sorában minden nemnegatív elemet cseréljen le az elem oszlopindexére.
% Jelölje B az így kapott mátrixot! Összegezzük a B mátrix elemeit
% soronként! Jelölje v az így kapott oszlopvektort! Írjon olyan Octave
% függvényt, mely inputja A, outputja a v vektor 6-normája!
% A feladat megoldásához ne használja a beépített norm függvényt!
function norma = matrixosfel_A(A)
  % B atalakitas
  [n m] = size(A);
  for i = 1:2:n % paratlan sorok: 1-tol indulva 2-esevel
    for j = 1:m
      if A(i,j) >= 0
        A(i,j) = j;
      endif
    endfor
  endfor
  B = A;
  % osszegzes soronkent - transzponalos trukk, mert sum oszloponkent osszegez
  v = sum(B')';
  % norma
  norma = nthroot( sum(abs(v).^6) ,6) ;
endfunction
% B feladatsorbol...
function norma = matrixosfel_B(A)
  % B atalakitas
  [n m] = size(A);
  for i = 1:n % paratlan sorok: 1-tol indulva 2-esevel
    for j = 3:3:m
      if A(i,j) >= 5
        A(i,j) = 2;
      endif
    endfor
  endfor
  B = A;
  % osszegzes soronkent - transzponalos trukk, mert sum oszloponkent osszegez
  v = sum(B')';
  % norma
  norma = nthroot( sum(abs(v).^15) ,15) ;
endfunction

A = [2 4 -1 0; 4 -2 6 8; 3 -6 9 12 ; -2 0 -1 2] ;
b = [6 30 42 10]' ;
B = [A b] ;
% teljes foelemkiv
% foelem: 3. sor 4. eleme 12
% sor ES oszlopcsere
v = B(1,:);
B(1,:) = B(3,:) ;
B(3,:) = v;
w = B(:,1);
B(:,1) = B(:,4);
B(:,4) = w;
% nullazas
B(2,:) -= B(2,1)/B(1,1) * B(1,:) ; % 8/12 - szor vonjuk le
B(4,:) -= B(4,1)/B(1,1) * B(1,:) ;
% megint foelemkiv: 4 = B(3,2) -> csak sorcsere!
v = B(2,:) ;
B(2,:) = B(3,:) ;
B(3,:) = v;
% nullazas 2. oszlop
B(3,:) -= B(3,2)/B(2,2) * B(2,:) ; % 2/4-szer...
B(4,:) -= B(4,2)/B(2,2) * B(2,:) ;
% foelemkiv, -3 = B(4,4), sor ES oszlopcsere
v = B(3,:);
B(3,:) = B(4,:);
B(4,:) = v;
w = B(:,3);
B(:,3) = B(:,4);
B(:,4) = w;
% 3. oszlop nullazas
B(4,:) -= B(4,3)/B(3,3) * B(3,:);
B
x = zeros(4,1); % csupa 0, 4 elemu oszlopvektor
x(3) = B(4,5) / B(4,4) ;
x(1) = (B(3,5) - B(3,4)*x(3)) / B(3,3) ;
x(2) = (B(2,5) - B(2,4)*x(3) - B(2,3)*x(1)) / B(2,2) ;
x(4) = (B(1,5) - B(1,4)*x(3) - B(1,3)*x(1) - B(1,2)*x(2)) / B(1,1)