kwasidu

12 Reputation

2 Badges

16 years, 77 days

MaplePrimes Activity


These are answers submitted by kwasidu

multiplymatrix := proc (n, m, q, M, N)
local r1, r2, c1, c2, MM, finalmatrix;
r1 := RowDimension(M);
r2 := RowDimension(N);
c1 := ColumnDimension(M);
c2 := ColumnDimesion(N);
finalmatrix := Matrix(1 .. r1, 1 .. c2);
for n to r1 do;
for m to c1 do;
for q to r2 do;
finalmatrix[n, m];
MM := 0;
MM := MM+M[n, q]*N[q, m];
finalmatrix[n, m] := MM;
if c1 <> r2 then print("not calculatable")
else
if (c1 = r2) then return finalmatrix= MM+M[n, q]*N[q, m];
end if ;
end if ;
end do;
end do;
end do;
end proc;


Robert
sorry to disturb you again but can you please tell me where I am still finding faults at and where they are?

Page 1 of 1