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

Fix: erronous QXdef0 > 0

Fix #2
parent e81a5a47
...@@ -1897,15 +1897,16 @@ Procedure ...@@ -1897,15 +1897,16 @@ Procedure
{--absolue, due aux contraintes physiques et consignes locales ; ZQXdef2 : --} {--absolue, due aux contraintes physiques et consignes locales ; ZQXdef2 : --}
{--ajout‚e … ZQXdef0 du fait des volumes pr‚sents dans les r‚servoirs ; --} {--ajout‚e … ZQXdef0 du fait des volumes pr‚sents dans les r‚servoirs ; --}
{--ZQXdef1 : due … toutes ces causes (ZQXdef1 = ZQXdef0 + ZQXdef2) --} {--ZQXdef1 : due … toutes ces causes (ZQXdef1 = ZQXdef0 + ZQXdef2) --}
ZQXdef[0]:=0;
if ZTypeObjectif=0 then if ZTypeObjectif=0 then
begin begin
ZQXdef[1]:=B_max(0,XQSTtmin3-ZQXsous); 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 end
else else
begin begin
ZQXdef[1]:=B_max(0,ZQXsous-XQSTtmax3); 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; end;
ZQXdef[2]:=ZQXdef[1]-ZQXdef[0]; ZQXdef[2]:=ZQXdef[1]-ZQXdef[0];
......
Markdown is supported
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