d">end</span>
0042   <span class="comment">%exportfig(gcf,'l-kurve','Format','png','Resolution',300,'Color','rgb');</span>
0043 <span class="keyword">end</span>
0044 
0045 <a name="_sub1" href="#_subfunctions" class="code">function curv=curvature(x,y,n,t)</a>
0046 <span class="comment">% Curvature of parametric function x(t), y(t)</span>
0047 <span class="comment">% curv=curvature(x,y,n)</span>
0048 
0049 nn=min([length(x) length(y)]);
0050 x=x(1:nn);
0051 y=y(1:nn);
0052 <span class="keyword">if</span> nar