  xpp=(-13*x(1:nn-6)+228*x(2:nn-5)-420*x(3:nn-4)+200*x(4:nn-3)+15*x(5:nn-2)-12*x(6:nn-1)+2*x(7:nn))/180;    
0091       ypp=(-13*y(1:nn-6)+228*y(2:nn-5)-420*y(3:nn-4)+200*y(4:nn-3)+15*y(5:nn-2)-12*y(6:nn-1)+2*y(7:nn))/180;    
0092       vor=2;nach=4;
0093   <span class="keyword">end</span>
0094   curv=(xp(:).*ypp(:)-xpp(:).*yp(:))./((xp(:).^2+yp(:).^2).^1.5);
0095   curv=[curv(1)*ones(vor,1);curv(:);curv(length(curv))*ones(nach,1)];
0096 <span class="keyword">end</span>
0097 curv=reshape(curv,size(x));
009