Addition de polynômes de matrices vendredi 6 avril 2007, par Cayrel Ce programme fait l’addition de polynômes de matrices add_pol := proc(A,B) local P,i,m,n,k,C,p ; m := degree(A) ; n := degree(B) ; k := max(m,n) ; P := array(1..k+1) ; for i from 1 to k+1 do p := evalm(coeff(A,x,i)+coeff(B,x,i)) ; P[i+1] := map(x-> x mod 2, evalm(p)) ; if op(convert(evalm(P[i]),set))=0 then P[i+1] := 0 ;fi; od ; C := sum(’evalm(P[i+1])*x^i’,’i’=0..k) ; C ; end ;
RSS 2.0