Commit 7efa2c8a authored by Dorchies David's avatar Dorchies David
Browse files

Fix: erronous QXdef0 > 0

Fix #2
parent e81a5a47
No related merge requests found
Showing with 3 additions and 2 deletions
+3 -2
......@@ -1897,15 +1897,16 @@ Procedure
{--absolue, due aux contraintes physiques et consignes locales ; ZQXdef2 : --}
{--ajout‚e … ZQXdef0 du fait des volumes pr‚sents dans les r‚servoirs ; --}
{--ZQXdef1 : due … toutes ces causes (ZQXdef1 = ZQXdef0 + ZQXdef2) --}
ZQXdef[0]:=0;
if ZTypeObjectif=0 then
begin
ZQXdef[1]:=B_max(0,XQSTtmin3-ZQXsous);
ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
if ZQXsous <= 0 then ZQXdef[0]:=B_max(0,XQSTtmin1-ZQXsous);
end
else
begin
ZQXdef[1]:=B_max(0,ZQXsous-XQSTtmax3);
ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
if ZQXsous >= 0 then ZQXdef[0]:=B_max(0,ZQXsous-XQSTtmax1);
end;
ZQXdef[2]:=ZQXdef[1]-ZQXdef[0];
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment