%
% function tm_stabsystem()
%    Kraftsystem mit Stäben
%
function tm_stabsystem()
   % Konstante Variable belegen
   a1 = 70; a2 = 40; b = 70; F1 = 80; 
   A = [ -cosd(a1), -cosd(a2); sind(a1), -sind(a2) ];

   % äußere Kraft berechnen (F2 = 0)
   r = [ 0; F1 ];
   
   %  Aufgabe lösen 
   Fs = A \ r;
   
   % Ausgabe der Daten
   fprintf( 'Stabkraft Fs1 = %g N \n', Fs(1) ); 
   fprintf( 'Stabkraft Fs2 = %g N \n', Fs(2) ); 
   
   % Fs2 wird negativ, d.h. der Stab wird auf Druck belastet
end