function [Ergebnis]=skalar()

disp('Koeffizienten "a":')
a
sizef=size(a);

n=length(a);
exp=[];
for i=1:n
exp=[exp n-i];
end
koeffm=zeros(n);
for i=1:n
koeffm(i,i:end)=a(i:end);
end
expm=zeros(n);
for i=1:n
expm(i,i:end)=exp(i:end);
end
koeffms=[];
for i=1:n
for j=1:n
if i~=j
koeffms=[koeffms; [conv((koeffm(i,(1:end))),(koeffm(j,(1:end))))]];
end
end
end
Mat=unique(koeffms,'rows')
Int=stamm(Mat(:,2:end))
liste(Int)
end