aspekt1 = 'Welche Gruppe soll bewertet werden?';
aspekt2 = 'Die gestellten Fragestellungen wurden richtig beantwortet.';
aspekt3 = 'Es wurde wissenschaftlich argumentiert.';
aspekt4 = 'Gesamtbewertung der Erstabgabe';
aspekt5 = 'Es ist ein roter Faden zu erkennen.';
aspekt6 = 'Die gewählte Sprache ist angemessen.';
aspekt7 = 'Die Formatierung (Graphiken/Bilder) sind angemessen.';
aspekt8 = 'Die Korrekturvorschläge wurden berücksichtigt und auf weitere Probleme angewandt.';


answer = inputdlg({aspekt1 aspekt2 aspekt3 aspekt4 aspekt5 aspekt6 aspekt7 aspekt8}, 'Bitte alle Aspekte in Prozent bewerten!');
weight = inputdlg({aspekt2 aspekt3 aspekt4 aspekt5 aspekt6 aspekt7 aspekt8}, 'Bitte geben Sie die Gewichtung der Aspekte in Prozent an, sodass alle Gewichte 100% ergeben!',1, {'50' '15' '15' '5' '5' '5' '5'} );

len = max(size(answer));
for(kk=1:len)
   numans(kk) =  str2num(answer{kk,1});
end

len1 = max(size(weight));
for(jj=1:len1)
   numweight(jj) =  str2num(weight{jj,1});
end

gesamtbewertung = sum(numans(2:end) .* numweight/100);

gruppe = sprintf('Bewertung für Gruppe %s',answer{1});
freizeile = sprintf('\n                                                                    ');
var1 = sprintf('\n Aspekt: %s',aspekt2);
bew1 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{2}, weight{1} );

var2 = sprintf('\n Aspekt: %s',aspekt3);
bew2 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{3}, weight{2} );

var3 = sprintf('\n Aspekt: %s',aspekt4);
bew3 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{4}, weight{3} );

var4 = sprintf('\n Aspekt: %s',aspekt5);
bew4 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{5}, weight{4} );

var5 = sprintf('\n Aspekt: %s',aspekt6);
bew5 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{6}, weight{5} );

var6 = sprintf('\n Aspekt: %s',aspekt7);
bew6 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{7}, weight{6} );

var7 = sprintf('\n Aspekt: %s',aspekt8);
bew7 = sprintf('\n Bewertung: %s Prozent mit der relativen Gewichtung dieses Aspekts von %s Prozent', answer{8}, weight{7} );

var8 = sprintf('\n Die Gesamtbewertung ergibt sich somit zu %3.2f Prozent', gesamtbewertung);

name = sprintf('bewertung_gruppe_%1.1f.txt', str2num(answer{1}) );

choice = 'Ja';

if(exist(name,'file')==2)
        choice = questdlg('Die Datei besteht bereits, soll die alte Datei mit der neuen überschrieben werden?', ...
        'Erlaubnis zum Überschreiben', ...
        'Ja','Nein','Ja');
end

if(strcmp(choice,'Ja'))
        fid = fopen(name,'w');
        fwrite(fid,gruppe);
        fwrite(fid,freizeile);
        fwrite(fid,var1);
        fwrite(fid,bew1);
        fwrite(fid,freizeile);
        fwrite(fid,var2);
        fwrite(fid,bew2);
        fwrite(fid,freizeile);
        fwrite(fid,var3);
        fwrite(fid,bew3);
        fwrite(fid,freizeile);
        fwrite(fid,var4);
        fwrite(fid,bew4);
        fwrite(fid,freizeile);
        fwrite(fid,var5);
        fwrite(fid,bew5);
        fwrite(fid,freizeile);
        fwrite(fid,var6);
        fwrite(fid,bew6);
        fwrite(fid,freizeile);
        fwrite(fid,var7);
        fwrite(fid,bew7);
        fwrite(fid,freizeile);
        fwrite(fid,var8);
        % fid = fopen('test.txt','w');
        % fprintf(fid,'%s\n',writemat);
        fclose(fid);
end