%function [ output_args ] = Untitled1( input_args )
%UNTITLED1 Summary of this function goes here
%   Detailed explanation goes here

%Diese Datei soll alle Strukte in dem entsprechenden Ordner einlesen und
%und alle wichtigen Kurven plotten
clc
clear all;


path = pwd;
load_path = [path '\PLT-Dateien\Simerg_Matlab\'];

mat_files = dir ([load_path '*.mat'])                   %schreibt structs aller Dateien mit .mat Endung des Verzeichnisses in "mat-files"
                                                        %Elemente des structs : .name , .date , .bytes
                                                        %, .isdir , .datenum
Size_mat_files = size(mat_files);
Anzahl_mat_files = Size_mat_files (1,1)                 %gibt Anzahl der structe bzw. mat_files


for i=1:Anzahl_mat_files
    
    aktuelles_file = [load_path mat_files(i).name]   
   
    
    load (aktuelles_file)
    
    %%% Auslesen %%%


  a=1;
for m=1:length(simerg.time)
    t(m) = simerg.time(m);                                  %Zeit auslesen
    Vc(m) = simerg.Cathode_OuterVoltage(m);                 %äußere Kathodenspannung auslesen
    Ic(m) = simerg.Cathode_TotalCurrent(m);                 %Kathodenstrom wird eingelesen
    Va(m) = simerg.Anode_OuterVoltage(m);                   %äußere Anodenspannung auslesen
    Ia(m) = simerg.Anode_TotalCurrent(m);                   %Anodenstrom wird eingelesen
    Vg(m) = simerg.Gate_OuterVoltage(m);                    %Gatespannung wird eingelelsen
    Ig(m) = simerg.Gate_TotalCurrent(m);                    %Gatestrom wird eingelesen


    Vac(m) = Va(m)-Vc(m);                                   %Spannung über Bauteil
    Vgc(m) = Vg(m)-Vc(m);                                   %Gate-Kathoden Spannung
    Vag(m) = Va(m)-Vg(m);
    
%     if t(m)>198e-6 && t(m)<208e-6
%      x(a)=t(m);
%      yv(a,1)=Va(m);
%      yv(a,2)=-Vgc(m)*100;
%      yi(a,1)=Ia(m);
%      yi(a,2)=-Ig(m);
%      a=a+1;
%     end;
        x(m)=t(m);
        yv(m,1)=Va(m);
        yv(m,2)=-Vgc(m)*100;
        yi(m,1)=Ia(m);
        yi(m,2)=-Ig(m);
        yi(m,3)=-Ic(m);
end;

if length(simerg.time)<length(t)                            %restliche Punkte werden mit daten des letzten verfügbaren Punkes gefüllt
    for m=(length(simerg.time)+1):length(t)
        t(m) = simerg.time(length(simerg.time));                                  %Zeit auslesen
        Vc(m) = simerg.Cathode_OuterVoltage(length(simerg.time));                 %äußere Kathodenspannung auslesen
        Ic(m) = simerg.Cathode_TotalCurrent(length(simerg.time));                 %Kathodenstrom wird eingelesen
        Va(m) = simerg.Anode_OuterVoltage(length(simerg.time));                   %äußere Anodenspannung auslesen
        Ia(m) = simerg.Anode_TotalCurrent(length(simerg.time));                   %Anodenstrom wird eingelesen
        Vg(m) = simerg.Gate_OuterVoltage(length(simerg.time));                    %Gatespannung wird eingelelsen
        Ig(m) = simerg.Gate_TotalCurrent(length(simerg.time));                    %Gatestrom wird eingelesen


        Vac(m) = Va(m)-Vc(m);                                   %Spannung über Bauteil
        Vgc(m) = Vg(m)-Vc(m);                                   %Gate-Kathoden Spannung
        Vag(m) = Va(m)-Vg(m);
        
%         x(m)=t(m);
%         yv(m,1)=Va(m);
%         yv(m,2)=-Vgc(m)*100;
%         yi(m,1)=Ia(m);
        
    end;
end



   figure;
   [AX,H1,H2] = plotyy(x*10e5-200,yv,x*10e5-200,yi,'plot');
   
   
 set(get(AX(1),'Ylabel'),'String','{\it{V}}_{IETO} in V');
 set(get(AX(2),'Ylabel'),'String','{\it{I}}_{IETO} in A');
 
  set(H1,'LineWidth',1.5,'Linestyle','--');
  set(H2,'LineWidth',1);

 xlabel('{\it{t}}_in µs');
  
   %xlim(AX(1),[198 207])
   %xlim(AX(2),[198 207])
   xlim(AX(1),[-2 7]);
   xlim(AX(2),[-2 7]);
   set(AX(2),'YLim',[-300 900]);
   set(AX(1),'YLim',[-1500 4500]);
   set(AX(2),'YTick',[-200:200:800]);
   set(AX(1),'YTick',[-1000:1000:4000]);
   legend(AX(1),'{\itV}_A({\itt})', '100 \cdot {\itV}_{CG}({\itt})');
   legend(AX(2),'{\itI}_A({\itt})','{\itI}_G({\itt})', '{\itI}_C({\itt})');
   grid on;
 
 clear Vc Ic Vg Ig Va Ia t Vac Vgc Vag x yv yi;

end;