function b=seqfitmat(sequenzliste,verschiebungen,seqlaenge,wichtung);
%
% function b=seqfitmat(sequenzliste,verschiebungen,seqlaenge,wichtung);
%
% Funktion zur Emittlung der "Zuordnungspotentiale", die 
% eine Zuordnung der chemischen Verschiebungen aus 
% "verschiebungen" entlang der Sequenz zur Folge hätte.
%
% Es werden Zuordnungsketten der Laenge "seqlaenge" gebildet
% und entlang der Sequenz mit den vorhergesagten chemischen
% Verschiebungen mittels "seqfit" verglichen. Die chemischen
% Verschiebungen des Amidstickstoffs und Amidprotons im
% ersten Aminosäurerest wird nicht berücksichtigt.
% 
if nargin==3
 wichtung=ones(1,5);
end
matdim=size(verschiebungen,1)+1-seqlaenge;
b=zeros(matdim,size(sequenzliste,1)+1-seqlaenge);
for j=1:matdim
 gemessene_shifts=verschiebungen(j:j+seqlaenge-1,:);
 gemessene_shifts(1,1:2)=0;
 b(j,:)=seqfit(sequenzliste,gemessene_shifts,wichtung);
end