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)