function x=scalar(A,B);
%Zwei gleich große Matrizen A, B werden als Vektoren aufgefaßt 
%und im Sinne des Skalarprodukts miteinander multipliziert.
sA=size(A);
M=sA(1)*sA(2);
a=reshape(A,M,1);
b=reshape(B,M,1);
x=a'*b;
%Alternativ: (dauert aber etwa doppelt so lange)
%C=A.*B;x=sum(sum(C));
return;
