clear;
clc;
%Startzeit aufnehmen
ein=datestr(now);
%Laufvariable für den Index der Zeilen, die anschließend gelöscht werden
%sollen definieren
f=0;
%Matrix1 und Matrix2 (Die sind jetzt vom Inhalt nicht relevant. Nur die
%Zeilenanzahl ist hier an die Praxis gestellt)
dat1=20*rand(52560,4);
dat2=20*rand(52560,4);
%Zusammenführen der Matrizen zu einer Matrix
dat_ges=[dat1,dat1*NaN;dat2*NaN,dat2];
%Spaltenvektoren der Matrizen (wird mal eine Zeitspur werden) und
%Zusammenfügen der beiden zu einem Vektor
mt1=(1:1:52560)';
mt2=(1001:1:53560)';
mt_ges=[mt1;mt2];
%Sortieren und Index aufnehmen)
[mt_sort,ind]=sort(mt_ges);
%Umsortieren der gesamten Matrix nach Index des Spaltenvektors
dat_umsort=dat_ges(ind,:);
[m,n]=size(mt_ges);
%Ich musste hier einen Wert ans Ende des Spaltenvektor anfügen, da sonst
%die letzte Zeile nicht mehr in der neuen addierten Matrix eingeschrieben
%worden wäre.
x=m+1;
mt_sort(x)=NaN;
for i=1:m
    i
    clc
    if (i<=m)
        j=i+1;
        a=mt_sort(i);
        b=mt_sort(j);
%Vergleich der Zeile i mit der darauffolgenden Zeile        
        if (a==b)
            f=f+1;
%Aufnahme der Zeile b, wird anschließend gelöscht
            index(f)=j;
%Bei Gleichheit der beiden Zeilen werden diese addiert und in die neue
%Matrix geschrieben
            dat_neu_umsort(i,:)=dat_umsort(i,:)+dat_umsort(j,:);
                       
        else
%Falls sich die Zeilen des Spaltenvektors nicht gleichen, soll die aktuelle
%Zeile i in die neue Matrix geschrieben werden. Da nun auch nach einem
%positiven Vergleich aus dem vorherigen Durchlauf, also Zeile i ist nun
%Zeile j von einem Wert davor, die Zeile aufgenommen wird, muss diese
%später wieder gelöscht werden. Deshlab lasse ich f mitlaufen.
            dat_neu_umsort(i,:)=dat_umsort(i,:);
            
        end
    end
end
indi=(index)';
%Löschen dieser Zeilen (s.o.)
dat_neu_umsort(indi,:)=[];
mt_sort(x)=[];
%Löschen der doppelten Werte im Spaltenvektor
mt_sort(indi,:)=[];
%Darstellung der Start- und der Stopzeit des Programms
aus=datestr(now)
ein