% Berechnungsmodell (Aufgabe 19-10):
clear all
xy = [0 ; 500 ; 1200] ;          % Koordinaten
km = [1 2 ; 2 3] ;               % Elemente/Knoten 
ep = [6e9 0 0 0 ; 8e10 0 -10 0] ;      % Elemente       
kr = [1 1 ; 0 0 ; 1   0] ;       % Randbedingungen  
bk = [0 0 ; 0 0 ; 0 8e5] ;       % Kraefte/Momente 
sc = [0 0 ; 800 0 ; 0 0] ;       % Federn
% Finite-Elemente-Algorithmus:
[succ uv] = femalg_m (xy , km , ep , kr , bk , sc) 