// File: /workspace/github_cpp_makefile_star2_O3/Eba-M[P]E3DC-Control/awattar.cpp
// Function: CheckaWATTar(std::vector<watt_s, std::allocator<watt_s>>&, std::vector<wetter_s, std::allocator<wetter_s>>&, float, float, float, float, float, float, int, float&, float, float)
int CheckaWATTar(std::vector<watt_s> &w,std::vector<wetter_s> &wetter, float fSoC,float fmaxSoC,float fConsumption,float Diff,float aufschlag, float ladeleistung,int mode,float &fstrompreis, float reserve, float notstromreserve) // fConsumption Verbrauch in % SoC Differenz Laden/Endladen

// Returncode 1 = keine Aktion, 0 Batterieentladen stoppen 2 Batterie mit Netzstrom laden
{
// Ermitteln Stundenanzahl
// Analyseergebnisse in die Datei schreiben
    static float lowpp;
    time_t  rawtime;
    time(&rawtime);
    struct tm * ptm;
    ptm = gmtime (&rawtime);
    float maxsoc;
    float minsoc;
    int x1,x2,x3,x4;
    int Minuten = rawtime%(24*3600)/60;

//    return 2;  // Zu testzwecken  dann 9 Minuten Netzladebetrieb
/*
    if (Minuten%60<1)
        return 1;  else // Zu testzwecken erst eine Minute Entladen erlauben
    {
        if (Minuten%60<6)
            return 2;  // Zu testzwecken  dann 9 Minuten Netzladebetrieb
    }
 */
    if (w.size() == 0) return 0; // Preisvector ist leer
    fstrompreis = w[0].pp;
    ladeleistung = ladeleistung*.9; // Anpassung Wirkungsgrad
//    int taglaenge = sunset-sunrise;
//    int tagoffset = 12*60-taglaenge;
//    tagoffset = tagoffset/2;
//    if (tagoffset < 0) tagoffset = 0;

//if (mode == 0) // Standardmodus
{
    float offset;
    float SollSoc = 0;
    float Verbrauch;
// Verbrauch bis solarenÜberschuss??
    int ret = 0;
    if (wetter.size()>1)
        ret = suchenSolar(wetter,1, Verbrauch);

    // Überprüfen ob entladen werden kann
    fSoC = fSoC - notstromreserve;
// Wenn der verfügbare Speicher > dem Verbrauch bis Überschuss ist
    if (Verbrauch*0.8<reserve&&ret<10&&ret>=0)
        reserve = Verbrauch*0.8;
    if (ret==0) reserve = 0;
    fSoC = fSoC - reserve;
// Überprüfen ob entladen werden kann
    fConsumption = fHighprice(w,wetter,0,w.size()-1,w[0].pp,minsoc,maxpos,maxsoc);  // wieviel Einträge sind höher mit dem SoC in Consumption abgleichen
//        float faval = fSoC-minsoc - 100 + maxsoc;
//    float faval = fSoC-minsoc;
//    float faval = fSoC-minsoc - 100 + maxsoc + reserve;
    float faval = fSoC - fConsumption;
/*    if (fConsumption>minsoc&&minsoc>0)
    {
        if (fConsumption > 95-reserve) fConsumption = 95-reserve;
        faval = fSoC-fConsumption + maxsoc -minsoc;
    }
 */
    printf("faval %2.2f %2.2f %2.2f %2.2f %c[K",faval,fSoC,fConsumption,maxsoc,27);

        if (faval >=-0.01||(maxsoc+fSoC+reserve+notstromreserve>=100&&minsoc==0))
        {
            return 1;
        }

    // geändert am 30.9.
// suche über den gesamten Bereich
        if (SucheDiff(w,0, aufschlag,Diff)); // es wird gandenlos bis zum nächsten low entladen
        do
        {
            fConsumption = fHighprice(w,wetter,0,l1,w[0].pp,minsoc,maxpos,maxsoc);  // nächster Nachladepunkt überprüfen
            if (fConsumption==0||fConsumption<fSoC) // x1 Anzahl der Einträge mit höheren Preisen
//                if ((w[h].pp>w[l1].pp*aufschlag+Diff)&&fConsumption<fSoC)
            if ((w[0].pp>(w[l1].pp)*aufschlag+ Diff)&&(fConsumption==0||fConsumption<fSoC))
            {
                faval = fConsumption;
                fSoC = fSoC + reserve;
                return 1;
            }
            if (h1>l1)
                {if (not (SucheDiff(w,h1, aufschlag,Diff))) break;} // suche low nach einem high
            else
                {if (not (SucheDiff(w,l1, aufschlag,Diff))) break;} // suche low nach einem high
        }
        while (l1 < w.size());
    
    if (SucheDiff(w,0, aufschlag,Diff))
    {
        if (h1>l1)       // erst kommt ein low dann ein high, überprüfen ob zum low geladen werden soll
        {
            int lw = l1;
            do
            if (not (SucheDiff(w,h1, aufschlag,Diff))) break; // suche low nach einem high
            while (h1 > l1);
// suche das nächste low
            // suchen nach dem low before next high das low muss niedriger als das akutelle sein
            int hi = h1;
            while ((l1 > h1)||(w[0].pp<w[l1].pp)) {
                if (h1>l1)
                {if (not (SucheDiff(w,h1, aufschlag,Diff))) {
                    l1 = w.size()-1;
                    break;}} // suche low nach einem high
                else
                {if (not (SucheDiff(w,l1, aufschlag,Diff))) {
                    l1 = w.size()-1;
                    break;}} // suche low nach einem high
            }
            if (faval >=-1.01||(maxsoc+fSoC+reserve+notstromreserve>=100&&minsoc==0))
            {
                return 0;
            }

            // Überprüfen ob aus dem Netz Geladen werden kann
            x1 = Lowprice(w,0, hi, w[0].pp);   // bis zum high suchen
            x3 = Lowprice(w,0, w.size()-1, w[0].pp);   // bis zum high suchen
            SollSoc = fHighprice(w,wetter,0,l1,(w[0].pp)*aufschlag+ Diff,minsoc,maxpos,maxsoc);  // Preisspitzen, es muss mindestens eine vorliegen
            float SollSoc2 = 0;
            SollSoc2 = fHighprice(w,wetter,0,x3,(w[0].pp)*aufschlag+ Diff,minsoc,maxpos,maxsoc);
            SollSoc2 = fHighprice(w,wetter,0,maxpos,(w[0].pp)*aufschlag+ Diff,minsoc,maxpos,maxsoc);
            if (SollSoc>SollSoc2)
            {
                if (SollSoc > 95) SollSoc = 95;
                if (SollSoc > maxsoc)
                    SollSoc2 = SollSoc2 + SollSoc - maxsoc;
            }

            if (x1==x3) {
                if (SollSoc2>SollSoc)
//                    SollSoc = SollSoc2 + fSoC;
                SollSoc = SollSoc2;

            } 
            if (SollSoc > 95-reserve) SollSoc = 95-reserve;
            // Der Speicher soll nicht leer herumstehen, zum Tiefstkurs laden.
            if ((SollSoc < 0.5)&&(fSoC < 0.5)&&(lw==0)) SollSoc = 1;
            if ((SollSoc>fSoC+0.5)&&        // Damit es kein Überschwingen gibt, wird 2% weniger als das Soll geladen
                ((lw==0)||((SollSoc-fSoC)>x1*ladeleistung)))      // Stunden mit hohen Börsenpreisen, Nachladen wenn SoC zu niedrig
            {
                fSoC = fSoC + reserve;
                return 2;
            }
            else
//                if ((SollSoc)>fSoC-1) 
            {
                fSoC = fSoC + reserve;
                return 0;
            }
        }
    }
//        if (taglaenge > Wintertag) // tagsüber noch hochpreise es werden mind. die 2h nach sonnaufgang geprüft
    {
        fConsumption = fHighprice(w,wetter,0,w.size()-1,w[0].pp,minsoc,maxpos,maxsoc);  // folgender Preis höher, dann anteilig berücksichtigen

        
        if (float(fSoC-fConsumption) >=reserve) // x1 Anzahl der Einträge mit höheren Preisen
    return 1;
    }

    return 0;  // kein Ergebniss gefunden

}

    return 0;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x58, %rsp
movss %xmm7, 0x2c(%rsp)
movss %xmm6, 0x30(%rsp)
movq %rcx, %r15
movss %xmm5, 0x3c(%rsp)
movss %xmm4, 0x1c(%rsp)
movss %xmm3, 0x18(%rsp)
movss %xmm0, 0x14(%rsp)
movq %rsi, %rbx
movq %rdi, %r14
leaq 0x50(%rsp), %r12
movq %r12, %rdi
callq 0x2250
movq %r12, %rdi
callq 0x2220
movq (%r14), %rax
movq 0x8(%r14), %rcx
subq %rax, %rcx
je 0x25fe6
movss 0x8(%rax), %xmm0
movss %xmm0, (%r15)
movq (%rbx), %rdx
movq 0x8(%rbx), %rax
subq %rdx, %rax
sarq $0x3, %rax
movabsq $0x6db6db6db6db6db7, %rsi # imm = 0x6DB6DB6DB6DB6DB7
imulq %rax, %rsi
cmpq $0x2, %rsi
jb 0x25a38
addq $0x5c, %rdx
movl $0x1, %eax
xorps %xmm1, %xmm1
movss -0x10(%rdx), %xmm3
movss -0x8(%rdx), %xmm2
ucomiss %xmm2, %xmm3
jbe 0x25a2a
addss %xmm3, %xmm1
addss (%rdx), %xmm1
subss %xmm2, %xmm1
incq %rax
addq $0x38, %rdx
cmpq %rax, %rsi
jne 0x25a00
movq %rsi, %rax
cvtss2sd %xmm1, %xmm1
mulsd 0xa8da(%rip), %xmm1     # 0x30310
jmp 0x25a42
xorl %eax, %eax
movsd 0xcb06(%rip), %xmm1     # 0x32548
movss 0x30(%rsp), %xmm4
xorps %xmm3, %xmm3
cvtss2sd %xmm4, %xmm3
cmpl $0xa, %eax
jb 0x25a59
movaps %xmm4, %xmm2
jmp 0x25a60
xorps %xmm2, %xmm2
cvtsd2ss %xmm1, %xmm2
sarq $0x3, %rcx
ucomisd %xmm1, %xmm3
ja 0x25a6d
movaps %xmm4, %xmm2
movabsq $-0x5555555555555555, %rdx # imm = 0xAAAAAAAAAAAAAAAB
imulq %rdx, %rcx
movss 0x14(%rsp), %xmm1
subss 0x2c(%rsp), %xmm1
xorps %xmm3, %xmm3
testl %eax, %eax
je 0x25a91
movaps %xmm2, %xmm3
movss %xmm3, 0x20(%rsp)
subss %xmm3, %xmm1
movss %xmm1, 0x14(%rsp)
decl %ecx
leaq 0x28(%rsp), %r15
movq %r15, (%rsp)
leaq 0x1f63d(%rip), %r9      # 0x450f0
leaq 0x24(%rsp), %r8
movq %r14, %rdi
movq %rbx, %rsi
xorl %edx, %edx
callq 0x24cec
movss 0x14(%rsp), %xmm2
movaps %xmm2, %xmm1
subss %xmm0, %xmm1
xorps %xmm4, %xmm4
cvtss2sd %xmm1, %xmm4
movsd %xmm4, 0x40(%rsp)
xorps %xmm1, %xmm1
cvtss2sd %xmm2, %xmm1
xorps %xmm2, %xmm2
cvtss2sd %xmm0, %xmm2
movss (%r15), %xmm0
movss %xmm0, 0x30(%rsp)
xorps %xmm3, %xmm3
cvtss2sd %xmm0, %xmm3
leaq 0xca93(%rip), %rdi      # 0x32599
movaps %xmm4, %xmm0
movsd %xmm1, 0x48(%rsp)
movl $0x1b, %esi
movb $0x4, %al
callq 0x2040
movl $0x1, %ebp
movsd 0x40(%rsp), %xmm0
ucomisd 0xca22(%rip), %xmm0     # 0x32550
jae 0x25fe8
movss 0x30(%rsp), %xmm1
addss 0x14(%rsp), %xmm1
movss 0x20(%rsp), %xmm0
addss %xmm0, %xmm1
addss 0x2c(%rsp), %xmm1
ucomiss 0xa889(%rip), %xmm1     # 0x303e0
jb 0x25b6d
movss 0x24(%rsp), %xmm0
xorps %xmm1, %xmm1
ucomiss %xmm1, %xmm0
jne 0x25b6d
jnp 0x25fe8
movq %rbx, 0x30(%rsp)
xorps %xmm0, %xmm0
cvtss2sd 0x3c(%rsp), %xmm0
mulsd 0xa70d(%rip), %xmm0     # 0x30290
cvtsd2ss %xmm0, %xmm0
movss %xmm0, 0x3c(%rsp)
movq %r14, %rdi
xorl %esi, %esi
movss 0x1c(%rsp), %xmm0
movss 0x18(%rsp), %xmm1
callq 0x24fd9
movl 0x1f59a(%rip), %r13d    # 0x45144
movq (%r14), %rbx
leaq 0x1f53c(%rip), %r15     # 0x450f0
leaq 0x24(%rsp), %r12
movss 0x8(%rbx), %xmm0
leaq 0x28(%rsp), %rax
movq %rax, (%rsp)
movq %r14, %rdi
movq 0x30(%rsp), %rsi
xorl %edx, %edx
movl %r13d, %ecx
movq %r12, %r8
movq %r15, %r9
callq 0x24cec
ucomiss 0xa822(%rip), %xmm0     # 0x30408
jne 0x25bea
jnp 0x25bf5
movss 0x14(%rsp), %xmm1
ucomiss %xmm0, %xmm1
jbe 0x25c1c
movss 0x8(%rbx), %xmm0
movslq %r13d, %rax
leaq (%rax,%rax,2), %rax
movss 0x8(%rbx,%rax,8), %xmm1
mulss 0x1c(%rsp), %xmm1
addss 0x18(%rsp), %xmm1
ucomiss %xmm1, %xmm0
ja 0x25fe8
movl 0x1f51e(%rip), %esi     # 0x45140
movq %r14, %rdi
cmpl %r13d, %esi
jg 0x25c2d
movl %r13d, %esi
movss 0x1c(%rsp), %xmm0
movss 0x18(%rsp), %xmm1
callq 0x24fd9
testb %al, %al
je 0x25c6e
movslq 0x1f4fb(%rip), %r13     # 0x45144
movq (%r14), %rbx
movq 0x8(%r14), %rax
subq %rbx, %rax
sarq $0x3, %rax
movabsq $-0x5555555555555555, %rcx # imm = 0xAAAAAAAAAAAAAAAB
imulq %rcx, %rax
cmpq %r13, %rax
ja 0x25bb9
movq %r14, %rdi
xorl %esi, %esi
movss 0x1c(%rsp), %xmm0
movss 0x18(%rsp), %xmm1
callq 0x24fd9
testb %al, %al
je 0x25d28
movl 0x1f4ad(%rip), %r15d    # 0x45140
movl 0x1f4ab(%rip), %ebx     # 0x45144
cmpl %ebx, %r15d
jle 0x25d28
movq %r14, %rdi
movl %r15d, %esi
movss 0x1c(%rsp), %xmm0
movss 0x18(%rsp), %xmm1
callq 0x24fd9
movl 0x1f480(%rip), %r15d    # 0x45140
testb %al, %al
je 0x25ccd
cmpl 0x1f479(%rip), %r15d    # 0x45144
jg 0x25ca2
movl %r15d, %esi
movss 0x14(%rsp), %xmm1
movss 0x20(%rsp), %xmm2
movl 0x1f462(%rip), %ecx     # 0x45144
cmpl %esi, %ecx
jg 0x25d02
movslq %ecx, %rax
movq (%r14), %r13
leaq (%rax,%rax,2), %rax
movss 0x8(%r13,%rax,8), %xmm0
ucomiss 0x8(%r13), %xmm0
jbe 0x25da9
movq %r14, %rdi
cmpl %ecx, %esi
jg 0x25d0b
movl %ecx, %esi
movss 0x1c(%rsp), %xmm0
movss 0x18(%rsp), %xmm1
callq 0x24fd9
testb %al, %al
je 0x25d81
movl 0x1f41a(%rip), %esi     # 0x45140
jmp 0x25cd0
movq (%r14), %rax
movq 0x8(%r14), %rcx
subq %rax, %rcx
shrq $0x3, %rcx
imull $0xaaaaaaab, %ecx, %ecx # imm = 0xAAAAAAAB
decl %ecx
movss 0x8(%rax), %xmm0
leaq 0x28(%rsp), %rax
movq %rax, (%rsp)
leaq 0x1f39d(%rip), %r9      # 0x450f0
leaq 0x24(%rsp), %r8
movq %r14, %rdi
movq 0x30(%rsp), %rsi
xorl %edx, %edx
callq 0x24cec
movss 0x14(%rsp), %xmm1
subss %xmm0, %xmm1
xorl %ebp, %ebp
ucomiss 0x20(%rsp), %xmm1
setae %bpl
jmp 0x25fe8
movq (%r14), %r13
movq 0x8(%r14), %rax
subq %r13, %rax
shrq $0x3, %rax
imull $0xaaaaaaab, %eax, %ecx # imm = 0xAAAAAAAB
decl %ecx
movl %ecx, 0x1f3a7(%rip)     # 0x45144
movss 0x14(%rsp), %xmm1
movss 0x20(%rsp), %xmm2
xorl %ebp, %ebp
movsd 0x40(%rsp), %xmm0
ucomisd 0xc79f(%rip), %xmm0     # 0x32558
jae 0x25fe8
movss 0x28(%rsp), %xmm0
addss %xmm1, %xmm0
addss %xmm2, %xmm0
addss 0x2c(%rsp), %xmm0
ucomiss 0xa606(%rip), %xmm0     # 0x303e0
jb 0x25df0
movss 0x24(%rsp), %xmm0
xorps %xmm1, %xmm1
ucomiss %xmm1, %xmm0
jne 0x25df0
jnp 0x25fe8
movss 0x8(%r13), %xmm0
xorl %ebp, %ebp
movl $0x0, %r12d
testl %r15d, %r15d
js 0x25e2c
leaq (%r15,%r15,2), %rax
leaq 0x18(,%rax,8), %rax
xorl %edx, %edx
xorl %r12d, %r12d
xorl %esi, %esi
ucomiss 0x8(%r13,%rdx), %xmm0
seta %sil
addl %esi, %r12d
addq $0x18, %rdx
cmpq %rdx, %rax
jne 0x25e14
movl %ebx, 0x40(%rsp)
movq 0x8(%r14), %rax
subq %r13, %rax
sarq $0x3, %rax
movabsq $-0x5555555555555555, %rdx # imm = 0xAAAAAAAAAAAAAAAB
imulq %rdx, %rax
movl %eax, %edx
decl %edx
js 0x25e6b
movl %eax, %eax
leaq 0x8(%r13), %rdx
xorl %ebp, %ebp
xorl %esi, %esi
ucomiss (%rdx), %xmm0
seta %sil
addl %esi, %ebp
addq $0x18, %rdx
decq %rax
jne 0x25e57
mulss 0x1c(%rsp), %xmm0
addss 0x18(%rsp), %xmm0
leaq 0x28(%rsp), %r15
movq %r15, (%rsp)
leaq 0x1f269(%rip), %r15     # 0x450f0
leaq 0x24(%rsp), %r8
movq %r14, %rdi
movq 0x30(%rsp), %rbx
movq %rbx, %rsi
xorl %edx, %edx
movq %r15, %r9
callq 0x24cec
movss %xmm0, 0x2c(%rsp)
movss 0x8(%r13), %xmm0
mulss 0x1c(%rsp), %xmm0
addss 0x18(%rsp), %xmm0
leaq 0x28(%rsp), %rax
movq %rax, (%rsp)
movq %r14, %rdi
movq %rbx, %rsi
xorl %edx, %edx
movl %ebp, %ecx
leaq 0x24(%rsp), %r8
movq %r15, %r9
callq 0x24cec
movl 0x1f211(%rip), %ecx     # 0x450f0
movss 0x1c(%rsp), %xmm0
mulss 0x8(%r13), %xmm0
addss 0x18(%rsp), %xmm0
leaq 0x28(%rsp), %rax
movq %rax, (%rsp)
movq %r14, %rdi
movq %rbx, %rsi
xorl %edx, %edx
leaq 0x24(%rsp), %r8
movq %r15, %r9
callq 0x24cec
movss 0x2c(%rsp), %xmm2
ucomiss %xmm0, %xmm2
jbe 0x25f3b
movss 0xa52a(%rip), %xmm1     # 0x3044c
minss %xmm2, %xmm1
movss 0x28(%rsp), %xmm2
ucomiss %xmm2, %xmm1
jbe 0x25f3e
addss %xmm1, %xmm0
subss %xmm2, %xmm0
jmp 0x25f3e
movaps %xmm2, %xmm1
movss 0x20(%rsp), %xmm2
movl 0x40(%rsp), %edx
cmpl %ebp, %r12d
jne 0x25f54
maxss %xmm1, %xmm0
movaps %xmm0, %xmm1
movss 0xa4f0(%rip), %xmm0     # 0x3044c
subss %xmm2, %xmm0
minss %xmm1, %xmm0
movss 0xa488(%rip), %xmm1     # 0x303f4
ucomiss %xmm0, %xmm1
jbe 0x25fa5
ucomiss 0x14(%rsp), %xmm1
seta %al
testl %edx, %edx
sete %cl
testb %cl, %al
je 0x25fa5
movsd 0x48(%rsp), %xmm1
addsd 0xa350(%rip), %xmm1     # 0x302e0
movl $0x2, %ebp
movsd 0xa2cb(%rip), %xmm0     # 0x30268
ucomisd %xmm1, %xmm0
jbe 0x25fe6
jmp 0x25fe8
xorps %xmm1, %xmm1
cvtss2sd %xmm0, %xmm1
movsd 0x48(%rsp), %xmm2
addsd 0xa326(%rip), %xmm2     # 0x302e0
ucomisd %xmm2, %xmm1
jbe 0x25fe6
movl $0x2, %ebp
testl %edx, %edx
je 0x25fe8
xorps %xmm1, %xmm1
cvtsi2ss %r12d, %xmm1
subss 0x14(%rsp), %xmm0
movss 0x3c(%rsp), %xmm2
mulss %xmm1, %xmm2
ucomiss %xmm2, %xmm0
ja 0x25fe8
xorl %ebp, %ebp
movl %ebp, %eax
addq $0x58, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq