%------------------------------------------------------------------------
%Ergebnismatrix für Parameterstudie 2 Massenschwinger
%Dominik Marquardt/ TI-F/ 17.11.2010
%Zwei/drei versch. ungefederte Massen werden Simuliert
%------------------------------------------------------------------------

% Je nach Anregung werden die zutreffenden Zeilen und Spalten der Ergebnismatrix "erg" (wird im Steuerfile definiert) einer
% Variablen zugewiesen. z.B. heist s_ca=[erg(1,:).s_ca] alle Spalten der ersten Zeile werden zugewiesen.  

function[s_ca,s_auf,s_rad,s_er,a_auf,a_rad,f_ca,f_ka,F_N,v_er,leg,sww,tm,TS]=erg_matrix_2(x)

load Ergebnismatrix.mat;    %enthaelt Matrix erg (Spalten = Parameteriteration, Zeilen = Anregungen)

if x==1
    %------------------------------------------------------------------------
    %-----------------------Werte Sweep- Anregung-------------------
    sww = [erg(1,1).sww];
    %leg = [erg(1,1).leg; erg(1,2).leg;];   %Achtung: bei Legende ; verwenden, denn es muss %ein Zeilenvektor mit je einem%Element pro Zeile sein!!
    leg = [erg(1,:).leg;];   %Achtung: bei Legende ; verwenden, denn es muss %ein Zeilenvektor mit je einem%Element pro Zeile sein!!

    tm = [erg(1,:).t];    %Zeit-Matrix: Spaltenvektoren für Zeit
    s_ca = [erg(1,:).s_ca];    %Spaltenvektoren bilden--> Weg Feder Aufbau
    s_auf = [erg(1,:).s_auf];    %Spaltenvektoren bilden--> Weg Aufbau
    s_rad = [erg(1,:).s_rad];   %Spaltenvektoren bilden--> Weg von Rad
    s_er = [erg(1,:).s_er];    %Spaltenvektoren bilden--> Bodenanregung
    a_auf = [erg(1,:).a_auf];   %Spaltenvektoren bilden--> Aufbaubeschleunigung
    a_rad = [erg(1,:).a_rad];    %Spaltenvektoren bilden--> Radbeschleunigung
    f_ca = [erg(1,:).f_ca];   %Spaltenvektoren bilden--> Federkraft
    f_ka = [erg(1,:).f_ka];   %Spaltenvektoren bilden--> Dämpferkraft
    F_N = [erg(1,:).F_N];      %Spaltenvektoren bilden--> Radaufstandkraft
    v_er = [erg(1,:).v_er];    %Spaltenvektoren bilden-->Geschwindigkeit
    TS = [erg(1,:).TS];    %Spaltenvektoren bilden-->Geschwindigkeit
    
elseif x==2
    %----------------------------------------------------------------------
    %------------------------Werte StepUp- Anregung----------------
    sww = [erg(2,1).sww];
    leg = [erg(2,:).leg;];
    
    tm = [erg(2,:).t];
    s_ca = [erg(2,:).s_ca];    %Spaltenvektoren bilden--> Weg Feder Aufbau
    s_auf = [erg(2,:).s_auf];    %Spaltenvektoren bilden--> Weg Aufbau
    s_rad = [erg(2,:).s_rad];   %Spaltenvektoren bilden--> Weg von Rad
    s_er = [erg(2,:).s_er];    %Spaltenvektoren bilden--> Bodenanregung
    a_auf = [erg(2,:).a_auf];   %Spaltenvektoren bilden--> Aufbaubeschleunigung
    a_rad = [erg(2,:).a_rad];    %Spaltenvektoren bilden--> Radbeschleunigung
    f_ca = [erg(2,:).f_ca];   %Spaltenvektoren bilden--> Federkraft
    f_ka = [erg(2,:).f_ka];   %Spaltenvektoren bilden--> Dämpferkraft
    F_N = [erg(2,:).F_N];      %Spaltenvektoren bilden--> Radaufstandkraft
    v_er = [erg(2,:).v_er];    %Spaltenvektoren bilden-->Geschwindigkeit
    TS = [erg(2,:).TS];    %Spaltenvektoren bilden-->Geschwindigkeit
    
elseif x==3
    %----------------------------------------------------------------------
    %-------------------------Werte FB- Anregung-------------------
    sww = [erg(3,1).sww];
    leg = [erg(3,:).leg;];
    
    tm = [erg(3,:).t];    %Zeit-Matrix: Spaltenvektoren für Zeit
    s_ca = [erg(3,:).s_ca,];    %Spaltenvektoren bilden--> Weg Feder Aufbau
    s_auf = [erg(3,:).s_auf];    %Spaltenvektoren bilden--> Weg Aufbau
    s_rad = [erg(3,:).s_rad];   %Spaltenvektoren bilden--> Weg von Rad
    s_er = [erg(3,:).s_er];    %Spaltenvektoren bilden--> Bodenanregung
    a_auf = [erg(3,:).a_auf];   %Spaltenvektoren bilden--> Aufbaubeschleunigung
    a_rad = [erg(3,:).a_rad];    %Spaltenvektoren bilden--> Radbeschleunigung
    f_ca = [erg(3,:).f_ca];   %Spaltenvektoren bilden--> Federkraft
    f_ka = [erg(3,:).f_ka];   %Spaltenvektoren bilden--> Dämpferkraft
    F_N = [erg(3,:).F_N];      %Spaltenvektoren bilden--> Radaufstandkraft
    v_er = [erg(3,:).v_er];    %Spaltenvektoren bilden-->Geschwindigkeit
    TS = [erg(3,:).TS];    %Spaltenvektoren bilden-->Geschwindigkeit
   end