zase upravujeme planovani hlavne pro home-01

backend/services/planning_engine.py

@@ -50,6 +50,7 @@ DEFAULT_PLANNER_DISCHARGE_RELAX_PREWINDOW_SLOTS = 8
 # Penalizace je v Kč/Wh (např. 0.20 = 200 Kč/kWh). Musí být dost velká, aby přebila
 # bezpečnostní SoC buffer + terminal shadow cenu a solver skutečně „dovylil“ před sell<0.
 PRENEG_SELL_SOC_ANCHOR_SLACK_PENALTY_CZK_PER_WH = 0.20
+PEAK_EXPORT_SHORTFALL_PENALTY_CZK_KWH = 12.0
 CORRECTION_WINDOW_H  = 1        # hodina zpět pro výpočet korekčního faktoru
 CORRECTION_MIN_CLAMP = 0.5      # spodní limit korekčního faktoru
 CORRECTION_MAX_CLAMP = 1.5      # horní limit korekčního faktoru
@@ -660,6 +661,23 @@ def _pre_negative_sell_export_window(
     return first_neg, first_neg - 1
 
 
+def _pre_neg_peak_sell_idx(
+    slots: list[PlanningSlot],
+    first_neg_sell_idx: int | None,
+) -> int | None:
+    """Index slotu s nejvyšším kladným sell před prvním sell<0."""
+    if first_neg_sell_idx is None or first_neg_sell_idx <= 0:
+        return None
+    positive = [
+        (i, float(slots[i].sell_price))
+        for i in range(first_neg_sell_idx)
+        if float(slots[i].sell_price) >= 0.0
+    ]
+    if not positive:
+        return None
+    return max(positive, key=lambda x: (x[1], x[0]))[0]
+
+
 def _pv_forced_vent_export_allowed(
     t: int,
     *,
@@ -944,6 +962,7 @@ def solve_dispatch(
     # Kotva: poslední slot před prvním sell<0 by měl končit u planner floor (pokud relaxace existuje).
     # Slack penalizujeme v objective; samotné omezení přidáme až po definici soc.
     first_neg_sell_idx, pre_neg_export_last_t = _pre_negative_sell_export_window(slots)
+    t_pre_neg_peak = _pre_neg_peak_sell_idx(slots, first_neg_sell_idx)
     if first_neg_sell_idx is not None and first_neg_sell_idx > 0 and floor_pct is not None:
         t_anchor = first_neg_sell_idx - 1
         soc_anchor_slack = pulp.LpVariable("soc_anchor_slack_wh", 0, float(battery.usable_capacity_wh))
@@ -994,6 +1013,15 @@ def solve_dispatch(
                 cv = pulp.LpVariable(f"ccommit_{t}", 0, cap_prev)
                 commit_lp.append((t, cv, cap_prev))
 
+    peak_export_shortfall: list[tuple[int, pulp.LpVariable, float]] = []
+    if om == "AUTO":
+        for t in range(T):
+            if t not in discharge_export_slots or not high_sell_slot[t]:
+                continue
+            cap_w = float(grid.max_export_power_w)
+            sf = pulp.LpVariable(f"export_shortfall_{t}", 0, cap_w)
+            peak_export_shortfall.append((t, sf, cap_w))
+
     # --- Účelová funkce (jen OTE sloty; terminal SoC shadow price na konci horizontu) ---
     # Kanály: gi×buy, −ge_pv×sell, −ge_bat×sell, +ge_bat×acquisition (export bat. jen v discharge slotách).
     # Viz docs/04-modules/planning-arbitrage-accounting.md — mezi-slotová arbitráž, ne sell vs buy v jednom slotu.
@@ -1054,11 +1082,22 @@ def solve_dispatch(
             if safety_vars[t] is not None
         )
         + pulp.lpSum(cv * INTERVAL_H / 1000.0 * commit_pen for _t, cv, _p in commit_lp)
+        + pulp.lpSum(
+            sf * PEAK_EXPORT_SHORTFALL_PENALTY_CZK_KWH * INTERVAL_H / 1000.0
+            for _t, sf, _cap in peak_export_shortfall
+        )
     )
 
     # --- Omezení ---
+    for _t, sf, cap_w in peak_export_shortfall:
+        prob += sf >= cap_w - ge[_t]
+    if (
+        om == "AUTO"
+        and t_pre_neg_peak is not None
+        and t_pre_neg_peak in discharge_export_slots
+    ):
+        prob += ge_bat[t_pre_neg_peak] >= 5000.0 * z_export[t_pre_neg_peak]
     if t_anchor is not None and soc_anchor_slack is not None:
-        # Cíl kotvy: skutečný planner floor (5 %), ne lookahead-driven soc_min_series.
         target_floor_wh = float(planner_floor_effective_wh)
         prob += soc[t_anchor] <= target_floor_wh + soc_anchor_slack
 
@@ -1316,8 +1355,9 @@ def solve_dispatch(
                     + int(s.pv_b_forecast_w)
                     - int(s.load_baseline_w),
                 )
-                # Mimo grid-charge masku smí nabíjet jen z PV přebytku (ne import ze sítě).
-                prob += bc_gi[t] == 0
+                # Mimo grid-charge masku: jen PV přebytek; výjimka záporný buy (spot arbitráž).
+                if float(s.buy_price) >= 0.0:
+                    prob += bc_gi[t] == 0
                 if pv_surplus_w <= 0:
                     prob += bc_pv[t] == 0
                 else: