function [] = Gebaeudemodell_for_2_1b_auto_Beispiel(G,Ta,date2,t,hilfe)


[num, txt]=xlsread('Deutsche_Gebaeudetypologie_2.xlsx','Daten','B5:AI58');

i = 1;


for z=1:34
    
    Abeheizt = num(z,10);
    Awall = num(z,16);
    Aroof = num(z,14);
    Awindow = num(z,21);
    Uwall = num(z,26);
    Uwindow = num(z,31);
    Vdh = num(z,11);
    Ti = num(54,1);
    Cair = num(48,1);
    Nair = num(50,1);
    a = num(51,1);
    g = num(52,1);
    eta = num(53,1);
    Ceff = 18.07;
    m_c = Vdh*1.2*Cair+(Awall+Aroof)*Ceff+((Aroof+Awall)*0.256*900)*0.278;

    WindowSize = 40; %40*0,25 entspricht einer Mittelung über 10 Stunden

    %Ti_neu ist ein Array das benutzt wird um die jedesmal neu errechnete
    %Innentemperatur zu speichern
    Ti_neu = zeros(35039,1);
    Ti_neu(1,1) = Ti;

    %Vorbelegung des Ergebnisarrays "Daten" zur Verkürzung der
    %Rechengeschwindigkeit

    Daten = cell(35039,850); %850=34*25 Spalten
    
    for x=1:35039
         %gleitende Mittelwertbildung von Ta mit Hilfe der Filterfunktion
        Tm_a = filter(ones(1,WindowSize)/WindowSize,1,Ta); %<--evtl. aus Schleife raus nehmen ?!?!
        if Tm_a(x) > 12
            qwall = Uwall*(Awall+Aroof)*(Ta(x)-Ti_neu(x,1))+Uwindow*Awindow*(Ta(x)-Ti_neu(x,1));
            qair = (Vdh*1.2*Cair*(Ta(x)-Ti_neu(x,1)))/Nair;
            qsol= G(x)*a*g*Awindow;
            qintern = Abeheizt*3;
            Qges = qwall + qair + qsol + qintern;
            Qheiz = 0; % keine Beheizung erforderlich
            Qres = Qges + Qheiz*eta;
            Ti_neu(x+1,1) = Ti_neu(x,1) + Qres*0.25/m_c;
            Daten(x,i) = num2cell(date2(x));
            Daten(x,i+1) = num2cell(t(x));
            Daten(x,i+2) = num2cell(Ta(x));
            Daten(x,i+3) = num2cell(Tm_a(x));
            Daten(x,i+4) = num2cell(G(x));
            Daten(x,i+5) = num2cell(qwall);
            Daten(x,i+6) = num2cell(qair);
            Daten(x,i+7) = num2cell(qsol);
            Daten(x,i+8) = num2cell(Qges);
            Daten(x,i+9) = num2cell(Qheiz);
            Daten(x,i+10) = num2cell(Ti_neu(x,1));
            Daten(1,i+11) = num2cell(m_c);
            Daten(1,i+12) = num2cell(Abeheizt);
            Daten(1,i+13) = num2cell(Awall);
            Daten(1,i+14) = num2cell(Aroof);
            Daten(1,i+15) = num2cell(Awindow);
            Daten(1,i+16) = num2cell(Uwall);
            Daten(1,i+17) = num2cell(Uwindow);
            Daten(1,i+18) = num2cell(Vdh);
            Daten(1,i+19) = num2cell(Ti);
            Daten(1,i+20) = num2cell(Cair);
            Daten(1,i+21) = num2cell(Nair);
            Daten(1,i+22) = num2cell(a);
            Daten(1,i+23) = num2cell(g);
            Daten(1,i+24) = num2cell(eta);
        else if hilfe(x,1) >= 22 || hilfe(x,1) <= 6    
            Ti_neu(x,1) = 16;
            qwall = Uwall*(Awall+Aroof)*(Ta(x)-Ti_neu(x,1))+Uwindow*Awindow*(Ta(x)-Ti_neu(x,1));
            qair = (Vdh*1.2*Cair*(Ta(x)-Ti_neu(x,1)))/Nair;
            qsol= G(x)*a*g*Awindow;
            qintern = Abeheizt*3;
            Qges = qwall + qair + qsol + qintern;
            Qheiz = -Qges/eta; %Heizen
            Qres = Qges + Qheiz*eta;
            Ti_neu(x+1,1) = Ti_neu(x,1) + Qres*0.25/m_c;
            Daten(x,i) = num2cell(date2(x));
            Daten(x,i+1) = num2cell(t(x));
            Daten(x,i+2) = num2cell(Ta(x));
            Daten(x,i+3) = num2cell(Tm_a(x));
            Daten(x,i+4) = num2cell(G(x));
            Daten(x,i+5) = num2cell(qwall);
            Daten(x,i+6) = num2cell(qair);
            Daten(x,i+7) = num2cell(qsol);
            Daten(x,i+8) = num2cell(Qges);
            Daten(x,i+9) = num2cell(Qheiz);
            Daten(x,i+10) = num2cell(Ti_neu(x,1));
            Daten(1,i+11) = num2cell(m_c);
            Daten(1,i+12) = num2cell(Abeheizt);
            Daten(1,i+13) = num2cell(Awall);
            Daten(1,i+14) = num2cell(Aroof);
            Daten(1,i+15) = num2cell(Awindow);
            Daten(1,i+16) = num2cell(Uwall);
            Daten(1,i+17) = num2cell(Uwindow);
            Daten(1,i+18) = num2cell(Vdh);
            Daten(1,i+19) = num2cell(Ti);
            Daten(1,i+20) = num2cell(Cair);
            Daten(1,i+21) = num2cell(Nair);
            Daten(1,i+22) = num2cell(a);
            Daten(1,i+23) = num2cell(g);
            Daten(1,i+24) = num2cell(eta);
        else
            Ti_neu(x,1) = Ti;
            qwall = Uwall*(Awall+Aroof)*(Ta(x)-Ti_neu(x,1))+Uwindow*Awindow*(Ta(x)-Ti_neu(x,1));
            qair = (Vdh*1.2*Cair*(Ta(x)-Ti_neu(x,1)))/Nair;
            qsol= G(x)*a*g*Awindow;
            qintern = Abeheizt*3;
            Qges = qwall + qair + qsol + qintern; 
            Qheiz = -Qges/eta; %Heizen
            Qres = Qges + Qheiz*eta;
            Ti_neu(x+1,1) = Ti_neu(x,1) + Qres*0.25/m_c;
            Daten(x,i) = num2cell(date2(x));
            Daten(x,i+1) = num2cell(t(x));
            Daten(x,i+2) = num2cell(Ta(x));
            Daten(x,i+3) = num2cell(Tm_a(x));
            Daten(x,i+4) = num2cell(G(x));
            Daten(x,i+5) = num2cell(qwall);
            Daten(x,i+6) = num2cell(qair);
            Daten(x,i+7) = num2cell(qsol);
            Daten(x,i+8) = num2cell(Qges);
            Daten(x,i+9) = num2cell(Qheiz);
            Daten(x,i+10) = num2cell(Ti_neu(x,1));
            Daten(1,i+11) = num2cell(m_c);
            Daten(1,i+12) = num2cell(Abeheizt);
            Daten(1,i+13) = num2cell(Awall);
            Daten(1,i+14) = num2cell(Aroof);
            Daten(1,i+15) = num2cell(Awindow);
            Daten(1,i+16) = num2cell(Uwall);
            Daten(1,i+17) = num2cell(Uwindow);
            Daten(1,i+18) = num2cell(Vdh);
            Daten(1,i+19) = num2cell(Ti);
            Daten(1,i+20) = num2cell(Cair);
            Daten(1,i+21) = num2cell(Nair);
            Daten(1,i+22) = num2cell(a);
            Daten(1,i+23) = num2cell(g);
            Daten(1,i+24) = num2cell(eta);
            end
        end
    end
    
    i=i+25;
end
    

xlswrite('Thermisches_Gebaeudemodell_for_2_1b_auto.xlsx',Daten,'Berechnung','A2:AFR35040')
                   
end