% Zeichnen eines 2D-Fachwerks (Stabkraefte)
function drawfw2dsk (xy , km , kr , bk , sk , adds)

if nargin < 6 adds = '' ; end

[ne,n] = size (km) ;

% Fachwerk zeichnen:
drawfw2d (xy , km , kr , bk , adds) ;

% Elemente (Staebe) farblich kennzeichnen:
for i=1:ne
   k1 = km(i,1) ;
   k2 = km(i,2) ;
   if (sk(i) < 0) 
       c = 'g' ;
   elseif (sk(i) > 0)
       c = 'r' ;
   else
       c = 'b' ;
   end
   plot ([xy(k1,1) xy(k2,1)],[xy(k1,2) xy(k2,2)] , c) ;
   hold on ;
end
title ('Rot - Zugstab,   Grün - Druckstab,   Blau - Nullstab') ;