Calcul matriceal elementar

1.7. ANEXA B 193: %-------------------------------------------------------------------------4: % Algoritmul 1.35: % Functia calculeaza produsul a n numere reale stocate in vectorul alfa6: % numerele sunt inmultite in ordine normala de la alfa(1) pana la alfa(n)7: % Apelul: [ p ] = produs(alfa)8: %9: % Buta Valentin, aprilie, 200610: %-------------------------------------------------------------------------11:12: n=length(alfa);13: m=min(size(alfa));14: if m∼=115: error(’Datele de intrare nu sunt corecte’)16: end17: p=1;18: for i=1:n19: p=p*alfa(i);20: end1: function [ v1,vi,vF ]=norme(U)2: %-------------------------------------------------------------------------3: % Algoritmul 1.44: % Functia calculeaza norma unu, norma infinit si norma Frobenius a unei5: % matrice superior triunghiulara U. Norma unu este notata cu v1, norma6: % infinit cu vi iar norma Frobenius cu vF.7: % Apelul: [ v1,vi,vF ] = norme(U)8: %9: % Buta Valentin, aprilie, 200610: %-------------------------------------------------------------------------11: [ n,m ]=size(U);12: if n∼=m13: error(’Matricea nu este patratica!’);14: end15: for i=2:n-116: for j=1:i-117: if U(i,j)∼=018: error (’Matricea nu este superior triunghiulara’);19: end20: end21: end22: v1=0;23: for j=1:n24: sigma=0;25: for i=1:j26: sigma =sigma + abs(U(i,j));27: end28: if v1