root / UFBesGestT.pas
Historique | Voir | Annoter | Télécharger (41,192 ko)
| 1 |
unit UFBesGestT ;
|
|---|---|
| 2 |
|
| 3 |
interface
|
| 4 |
|
| 5 |
uses
|
| 6 |
Windows, Forms, Classes, Controls, StdCtrls, ComCtrls, PBNumEdit, PBSuperSpin, |
| 7 |
Buttons, ExtCtrls, UVariables; |
| 8 |
|
| 9 |
type
|
| 10 |
TFBesGestT = class(TForm)
|
| 11 |
GBProfil: TGroupBox; |
| 12 |
GBResult: TGroupBox; |
| 13 |
GBLoge: TGroupBox; |
| 14 |
CBProfil: TComboBox; |
| 15 |
CBLoge: TComboBox; |
| 16 |
GBComport: TGroupBox; |
| 17 |
LDebout: TLabel; |
| 18 |
LCalme: TLabel; |
| 19 |
LMoyenne: TLabel; |
| 20 |
LActive: TLabel; |
| 21 |
TBAct: TTrackBar; |
| 22 |
GBParam: TGroupBox; |
| 23 |
LTyp: TLabel; |
| 24 |
LSol: TLabel; |
| 25 |
LTemp: TLabel; |
| 26 |
CBTyp: TComboBox; |
| 27 |
CBSol: TComboBox; |
| 28 |
PBTemp: TPBSuperSpin; |
| 29 |
GBSaillie: TGroupBox; |
| 30 |
GBMiseBas: TGroupBox; |
| 31 |
LAgeSail: TLabel; |
| 32 |
LPdsSail: TLabel; |
| 33 |
LP2Sail: TLabel; |
| 34 |
PBAgeSail: TPBNumEdit; |
| 35 |
PBPdsSail: TPBNumEdit; |
| 36 |
PBP2Sail: TPBNumEdit; |
| 37 |
ChkAgeSail: TCheckBox; |
| 38 |
ChkPdsSail: TCheckBox; |
| 39 |
ChkP2Sail: TCheckBox; |
| 40 |
LP2MB: TLabel; |
| 41 |
PBPdsApMB: TPBNumEdit; |
| 42 |
PBP2MB: TPBNumEdit; |
| 43 |
LPdsApMB: TLabel; |
| 44 |
ChkPdsApMB: TCheckBox; |
| 45 |
ChkP2MB: TCheckBox; |
| 46 |
LNesTotaux: TLabel; |
| 47 |
PBNesTotaux: TPBNumEdit; |
| 48 |
LPdsNais: TLabel; |
| 49 |
PBPdsNais: TPBNumEdit; |
| 50 |
ChkNesTotaux: TCheckBox; |
| 51 |
ChkPdsNais: TCheckBox; |
| 52 |
GBAliment: TGroupBox; |
| 53 |
LRation: TLabel; |
| 54 |
LSeqAli: TLabel; |
| 55 |
CBRation: TComboBox; |
| 56 |
CBSeqAli: TComboBox; |
| 57 |
LAppAli: TLabel; |
| 58 |
LEMAli: TLabel; |
| 59 |
PBAppAli: TPBNumEdit; |
| 60 |
PBEMAli: TPBNumEdit; |
| 61 |
LPortee: TLabel; |
| 62 |
PBPortee: TPBSuperSpin; |
| 63 |
LRegle: TLabel; |
| 64 |
PBRegle: TPBSuperSpin; |
| 65 |
ChkLoge: TCheckBox; |
| 66 |
ChkSeqAli: TCheckBox; |
| 67 |
ChkRation: TCheckBox; |
| 68 |
ChkAppAli: TCheckBox; |
| 69 |
ChkEMAli: TCheckBox; |
| 70 |
PAct: TPanel; |
| 71 |
PRegle: TPanel; |
| 72 |
PBAct: TPBNumEdit; |
| 73 |
PBAliment: TPBNumEdit; |
| 74 |
PBEM: TPBNumEdit; |
| 75 |
PBEN: TPBNumEdit; |
| 76 |
PBdLys: TPBNumEdit; |
| 77 |
LAliment: TLabel; |
| 78 |
LEM: TLabel; |
| 79 |
LEN: TLabel; |
| 80 |
LdLys: TLabel; |
| 81 |
LBesoins: TLabel; |
| 82 |
BBRapGest: TBitBtn; |
| 83 |
BBResGest: TBitBtn; |
| 84 |
CBRationProfil: TComboBox; |
| 85 |
LNbRegles: TLabel; |
| 86 |
procedure FormClose(Sender: TObject; var Action: TCloseAction); |
| 87 |
procedure FormActivate(Sender: TObject);
|
| 88 |
procedure CBProfilChange(Sender: TObject);
|
| 89 |
procedure PBAgeSailChange(Sender: TObject);
|
| 90 |
procedure ChkAgeSailClick(Sender: TObject);
|
| 91 |
procedure PBPdsSailChange(Sender: TObject);
|
| 92 |
procedure ChkPdsSailClick(Sender: TObject);
|
| 93 |
procedure PBP2SailChange(Sender: TObject);
|
| 94 |
procedure ChkP2SailClick(Sender: TObject);
|
| 95 |
procedure PBPdsApMBChange(Sender: TObject);
|
| 96 |
procedure ChkPdsApMBClick(Sender: TObject);
|
| 97 |
procedure PBP2MBChange(Sender: TObject);
|
| 98 |
procedure ChkP2MBClick(Sender: TObject);
|
| 99 |
procedure PBNesTotauxChange(Sender: TObject);
|
| 100 |
procedure ChkNesTotauxClick(Sender: TObject);
|
| 101 |
procedure PBPdsNaisChange(Sender: TObject);
|
| 102 |
procedure ChkPdsNaisClick(Sender: TObject);
|
| 103 |
procedure CBLogeChange(Sender: TObject);
|
| 104 |
procedure CBTypChange(Sender: TObject);
|
| 105 |
procedure CBSolChange(Sender: TObject);
|
| 106 |
procedure PBTempChange(Sender: TObject);
|
| 107 |
procedure TBActChange(Sender: TObject);
|
| 108 |
procedure CBSeqAliChange(Sender: TObject);
|
| 109 |
procedure CBRationChange(Sender: TObject);
|
| 110 |
procedure PBPorteeChange(Sender: TObject);
|
| 111 |
procedure ChkSeqAliClick(Sender: TObject);
|
| 112 |
procedure ChkRationClick(Sender: TObject);
|
| 113 |
procedure ChkLogeClick(Sender: TObject);
|
| 114 |
procedure PBRegleChange(Sender: TObject);
|
| 115 |
procedure ChkAppAliClick(Sender: TObject);
|
| 116 |
procedure PBAppAliChange(Sender: TObject);
|
| 117 |
procedure PBEMAliChange(Sender: TObject);
|
| 118 |
procedure ChkEMAliClick(Sender: TObject);
|
| 119 |
procedure BBResGestClick(Sender: TObject);
|
| 120 |
procedure BBRapGestClick(Sender: TObject);
|
| 121 |
procedure FormShow(Sender: TObject);
|
| 122 |
procedure FormCreate(Sender: TObject);
|
| 123 |
private
|
| 124 |
{ D?clarations priv?es }
|
| 125 |
Update, Modal: boolean; |
| 126 |
cycle, regle: integer; |
| 127 |
// pmax, a, b: double;
|
| 128 |
procedure CalcApport;
|
| 129 |
procedure CalcResult;
|
| 130 |
procedure AjustEnabled;
|
| 131 |
public
|
| 132 |
{ D?clarations publiques }
|
| 133 |
AppAliTot, AppEDTot, AppEMTot, AppENTot: double; |
| 134 |
BesEMTot, BesEMEntTot, BesEMActTot, BesEMTheTot, BesEMPortTot, BesEMResTot: double; |
| 135 |
AppAli, AppED, AppEM, AppEN: array [1..DureeGest] of double; |
| 136 |
BesEMEnt, BesEMAct, BesEMThe, BesEMPort, BesP, BesCa: array [1..DureeGest] of double; |
| 137 |
AppAA, BesAA, BesAAEnt, BesAAPort, BesAARes: array[1..14, 1..DureeGest] of double; |
| 138 |
end;
|
| 139 |
|
| 140 |
var
|
| 141 |
FBesGestT: TFBesGestT; |
| 142 |
|
| 143 |
implementation
|
| 144 |
|
| 145 |
uses
|
| 146 |
Math, SysUtils, gnugettext, UStrings, UInit, UFindRec, UCalcul, UFResBesGestT, |
| 147 |
UFRapBesGestT; |
| 148 |
|
| 149 |
{$R *.dfm}
|
| 150 |
|
| 151 |
{ TFBesGestT }
|
| 152 |
|
| 153 |
procedure TFBesGestT.FormCreate(Sender: TObject);
|
| 154 |
begin
|
| 155 |
if Screen.Fonts.IndexOf('Arial Unicode MS') <> -1 |
| 156 |
then
|
| 157 |
Font.Name := 'Arial Unicode MS';
|
| 158 |
TranslateComponent(Self); |
| 159 |
Constraints.MinWidth := 624 + (Width - ClientWidth);
|
| 160 |
Width := Constraints.MinWidth; |
| 161 |
Constraints.MaxWidth := Constraints.MinWidth; |
| 162 |
Constraints.MinHeight := 464 + (Height - ClientHeight);
|
| 163 |
Height := Constraints.MinHeight; |
| 164 |
Constraints.MaxHeight := Constraints.MinHeight; |
| 165 |
CBRationProfil.ItemIndex := 0;
|
| 166 |
LTemp.Caption := Format('%s (%s)', [LTemp.Caption, StrDegC]);
|
| 167 |
end;
|
| 168 |
|
| 169 |
procedure TFBesGestT.FormShow(Sender: TObject);
|
| 170 |
begin
|
| 171 |
Modal := False; |
| 172 |
Update := TRUE; |
| 173 |
PBTemp.AsInteger := 20;
|
| 174 |
Update := FALSE; |
| 175 |
end;
|
| 176 |
|
| 177 |
procedure TFBesGestT.FormClose(Sender: TObject; var Action: TCloseAction); |
| 178 |
begin
|
| 179 |
Action := caFree; |
| 180 |
NumWinBesGestT := -1;
|
| 181 |
end;
|
| 182 |
|
| 183 |
procedure TFBesGestT.FormActivate(Sender: TObject);
|
| 184 |
var
|
| 185 |
i: integer; |
| 186 |
begin
|
| 187 |
if not Modal |
| 188 |
then
|
| 189 |
begin
|
| 190 |
StringsProfilT(CBProfil.Items, False); |
| 191 |
CBLoge.Clear; |
| 192 |
CBLoge.Items.Add(StrSaisieManuelle); |
| 193 |
if ListLogeT.Count > 0 |
| 194 |
then
|
| 195 |
for i := 0 to ListLogeT.Count - 1 do |
| 196 |
begin
|
| 197 |
PLogeT := ListLogeT[i]; |
| 198 |
if LogeTValid(PLogeT)
|
| 199 |
then
|
| 200 |
CBLoge.Items.Add(PLogeT.Nom); |
| 201 |
end;
|
| 202 |
CBLoge.ItemIndex := 0;
|
| 203 |
CBLogeChange(nil);
|
| 204 |
StringsSeqAliT(CBSeqAli.Items, False); |
| 205 |
StringsRationT(CBRation.Items, False); |
| 206 |
CBProfilChange(nil);
|
| 207 |
end;
|
| 208 |
end;
|
| 209 |
|
| 210 |
procedure TFBesGestT.CBProfilChange(Sender: TObject);
|
| 211 |
{
|
| 212 |
const
|
| 213 |
DELTA = 0.3 ;
|
| 214 |
SEUIL = 0.001 ;
|
| 215 |
MAX_TOURS = 1000 ;
|
| 216 |
var
|
| 217 |
i, j, tour, mini : integer ;
|
| 218 |
delta_pmax, delta_a, delta_b : double ;
|
| 219 |
tab_pmax, tab_a, tab_b, tab_ecart : array[0..NB_CYCLES] of double ;
|
| 220 |
ok : boolean ;
|
| 221 |
}
|
| 222 |
begin
|
| 223 |
if CBProfil.ItemIndex = -1 |
| 224 |
then
|
| 225 |
begin
|
| 226 |
CBProfil.Hint := '' ;
|
| 227 |
Update := TRUE ; |
| 228 |
ChkAgeSail.Checked := FALSE ; |
| 229 |
ChkPdsSail.Checked := FALSE ; |
| 230 |
ChkP2Sail.Checked := FALSE ; |
| 231 |
ChkPdsApMB.Checked := FALSE ; |
| 232 |
ChkP2MB.Checked := FALSE ; |
| 233 |
ChkNesTotaux.Checked := FALSE ; |
| 234 |
ChkPdsNais.Checked := FALSE ; |
| 235 |
ChkLoge.Checked := FALSE ; |
| 236 |
ChkSeqAli.Checked := FALSE ; |
| 237 |
ChkRation.Checked := FALSE ; |
| 238 |
ChkAppAli.Checked := FALSE ; |
| 239 |
ChkEMAli.Checked := FALSE ; |
| 240 |
CalcApport ; // L'apport est recalcul? avec des teneurs standards
|
| 241 |
CalcResult ; |
| 242 |
Update := FALSE ; |
| 243 |
end
|
| 244 |
else
|
| 245 |
begin
|
| 246 |
PProfilT := ListProfilT[FindIdxProfilT (CBProfil.Text)] ; |
| 247 |
CBProfil.Hint := PProfilT.Memo ; |
| 248 |
{
|
| 249 |
// Recherche des param?tres pour la courbe de poids apr?s mise-bas
|
| 250 |
tab_pmax[0] := 0 ;
|
| 251 |
for i := 1 to NB_CYCLES do
|
| 252 |
with PProfilT.Truies[i] do
|
| 253 |
if PdsApMB > tab_pmax[0]
|
| 254 |
then
|
| 255 |
tab_pmax[0] := PdsApMB ;
|
| 256 |
tab_a[0] := 1.5 ;
|
| 257 |
tab_b[0] := 1.1 ;
|
| 258 |
delta_pmax := tab_pmax[0] * DELTA ;
|
| 259 |
delta_a := tab_a[0] * DELTA ;
|
| 260 |
delta_b := tab_b[0] * DELTA ;
|
| 261 |
tour := 0 ;
|
| 262 |
repeat
|
| 263 |
// ?value les points
|
| 264 |
for i := 1 to NB_CYCLES do
|
| 265 |
tab_pmax[i] := tab_pmax[0] + Power (-1, i) * delta_pmax ;
|
| 266 |
for i := 1 to NB_CYCLES do
|
| 267 |
tab_a[i] := tab_a[0] + Power (-1, i) * delta_a ;
|
| 268 |
for i := 1 to NB_CYCLES do
|
| 269 |
tab_b[i] := tab_b[0] + Power (-1, (i + 1) div 2) * delta_b ;
|
| 270 |
for j := 0 to NB_CYCLES do
|
| 271 |
begin
|
| 272 |
tab_ecart[j] := 0 ;
|
| 273 |
for i := 1 to NB_CYCLES do
|
| 274 |
with PProfilT.Truies[i] do
|
| 275 |
tab_ecart[j] := tab_ecart[j] + Power (tab_pmax[j] * (1 - Exp ((- tab_a[j] / 1000) * Power (AgeSail + 114, tab_b[j]))) - PdsApMB, 2) ;
|
| 276 |
end ;
|
| 277 |
// recherche le meilleur point
|
| 278 |
mini := 0 ;
|
| 279 |
for i := 1 to NB_CYCLES do
|
| 280 |
if tab_ecart[i] < tab_ecart[mini]
|
| 281 |
then
|
| 282 |
mini := i ;
|
| 283 |
// d?termine le point central
|
| 284 |
if mini = 0
|
| 285 |
then
|
| 286 |
begin
|
| 287 |
delta_pmax := delta_pmax * 0.8 ;
|
| 288 |
delta_a := delta_a * 0.8 ;
|
| 289 |
delta_b := delta_b * 0.8 ;
|
| 290 |
end
|
| 291 |
else
|
| 292 |
begin
|
| 293 |
tab_pmax[0] := tab_pmax[mini] ;
|
| 294 |
tab_a[0] := tab_a[mini] ;
|
| 295 |
tab_b[0] := tab_b[mini] ;
|
| 296 |
end ;
|
| 297 |
// ?value si les crit?res de sortie sont satisfaits
|
| 298 |
ok := (delta_pmax < Abs (tab_pmax [mini] * SEUIL))
|
| 299 |
and (delta_a < Abs (tab_a [mini] * SEUIL))
|
| 300 |
and (delta_b < Abs (tab_b [mini] * SEUIL)) ;
|
| 301 |
Inc (tour) ;
|
| 302 |
until ok or (tour > MAX_TOURS) ;
|
| 303 |
if ok
|
| 304 |
then
|
| 305 |
begin
|
| 306 |
pmax := tab_pmax[0] ;
|
| 307 |
a := tab_a[0] ;
|
| 308 |
b := tab_b[0] ;
|
| 309 |
end ;
|
| 310 |
}
|
| 311 |
// Remplissage des champs avec les valeurs du profil
|
| 312 |
Update := TRUE ; |
| 313 |
if ChkAgeSail.Checked
|
| 314 |
then
|
| 315 |
ChkAgeSailClick (nil)
|
| 316 |
else
|
| 317 |
ChkAgeSail.Checked := TRUE ; |
| 318 |
if ChkPdsSail.Checked
|
| 319 |
then
|
| 320 |
ChkPdsSailClick (nil)
|
| 321 |
else
|
| 322 |
ChkPdsSail.Checked := TRUE ; |
| 323 |
if ChkP2Sail.Checked
|
| 324 |
then
|
| 325 |
ChkP2SailClick (nil)
|
| 326 |
else
|
| 327 |
ChkP2Sail.Checked := TRUE ; |
| 328 |
if ChkPdsApMB.Checked
|
| 329 |
then
|
| 330 |
ChkPdsApMBClick (nil)
|
| 331 |
else
|
| 332 |
ChkPdsApMB.Checked := TRUE ; |
| 333 |
if ChkP2MB.Checked
|
| 334 |
then
|
| 335 |
ChkP2MBClick (nil)
|
| 336 |
else
|
| 337 |
ChkP2MB.Checked := TRUE ; |
| 338 |
if ChkNesTotaux.Checked
|
| 339 |
then
|
| 340 |
ChkNesTotauxClick (nil)
|
| 341 |
else
|
| 342 |
ChkNesTotaux.Checked := TRUE ; |
| 343 |
if ChkPdsNais.Checked
|
| 344 |
then
|
| 345 |
ChkPdsNaisClick (nil)
|
| 346 |
else
|
| 347 |
ChkPdsNais.Checked := TRUE ; |
| 348 |
if ChkLoge.Checked
|
| 349 |
then
|
| 350 |
ChkLogeClick (nil)
|
| 351 |
else
|
| 352 |
ChkLoge.Checked := TRUE ; |
| 353 |
regle := 1 ;
|
| 354 |
if PBRegle.AsInteger = regle
|
| 355 |
then
|
| 356 |
PBRegleChange (nil)
|
| 357 |
else
|
| 358 |
PBRegle.AsInteger := regle ; |
| 359 |
PBRegle.MaxValue := PLogeT.NbRuleGest ; |
| 360 |
LNbRegles.Caption := Format ('/ %d', [PLogeT.NbRuleGest]) ;
|
| 361 |
// Remplissage des champs avec les valeurs du logement
|
| 362 |
CBTyp.ItemIndex := PLogeT.RuleGest[regle].Typ ; |
| 363 |
if CBTyp.ItemIndex = 2 |
| 364 |
then // Plein-air |
| 365 |
begin
|
| 366 |
CBSol.ItemIndex := -1 ;
|
| 367 |
CBSol.Enabled := FALSE ; |
| 368 |
end
|
| 369 |
else
|
| 370 |
CBSol.ItemIndex := PLogeT.RuleGest[regle].Sol ; |
| 371 |
PBTemp.AsInteger := PLogeT.RuleGest[regle].Temp ; |
| 372 |
TBAct.Position := PLogeT.RuleGest[regle].Act ; |
| 373 |
if ChkSeqAli.Checked
|
| 374 |
then
|
| 375 |
ChkSeqAliClick (nil)
|
| 376 |
else
|
| 377 |
ChkSeqAli.Checked := TRUE ; |
| 378 |
if ChkRation.Checked
|
| 379 |
then
|
| 380 |
ChkRationClick (nil)
|
| 381 |
else
|
| 382 |
ChkRation.Checked := TRUE ; |
| 383 |
ChkAppAli.Checked := TRUE ; |
| 384 |
ChkEMAli.Checked := TRUE ; |
| 385 |
CalcApport ; |
| 386 |
ChkAppAliClick (nil) ;
|
| 387 |
ChkEMAliClick (nil) ;
|
| 388 |
CalcResult ; |
| 389 |
Update := FALSE ; |
| 390 |
end ;
|
| 391 |
AjustEnabled ; |
| 392 |
end;
|
| 393 |
|
| 394 |
procedure TFBesGestT.PBPorteeChange(Sender: TObject);
|
| 395 |
begin
|
| 396 |
cycle := PBPortee.AsInteger ; |
| 397 |
if CBProfil.ItemIndex <> -1 |
| 398 |
then
|
| 399 |
begin
|
| 400 |
// Remplissage des champs avec les valeurs du profil
|
| 401 |
Update := TRUE ; |
| 402 |
if ChkAgeSail.Checked
|
| 403 |
then
|
| 404 |
ChkAgeSailClick (nil)
|
| 405 |
else
|
| 406 |
ChkAgeSail.Checked := TRUE ; |
| 407 |
if ChkPdsSail.Checked
|
| 408 |
then
|
| 409 |
ChkPdsSailClick (nil)
|
| 410 |
else
|
| 411 |
ChkPdsSail.Checked := TRUE ; |
| 412 |
if ChkP2Sail.Checked
|
| 413 |
then
|
| 414 |
ChkP2SailClick (nil)
|
| 415 |
else
|
| 416 |
ChkP2Sail.Checked := TRUE ; |
| 417 |
if ChkPdsApMB.Checked
|
| 418 |
then
|
| 419 |
ChkPdsApMBClick (nil)
|
| 420 |
else
|
| 421 |
ChkPdsApMB.Checked := TRUE ; |
| 422 |
if ChkP2MB.Checked
|
| 423 |
then
|
| 424 |
ChkP2MBClick (nil)
|
| 425 |
else
|
| 426 |
ChkP2MB.Checked := TRUE ; |
| 427 |
if ChkNesTotaux.Checked
|
| 428 |
then
|
| 429 |
ChkNesTotauxClick (nil)
|
| 430 |
else
|
| 431 |
ChkNesTotaux.Checked := TRUE ; |
| 432 |
if ChkPdsNais.Checked
|
| 433 |
then
|
| 434 |
ChkPdsNaisClick (nil)
|
| 435 |
else
|
| 436 |
ChkPdsNais.Checked := TRUE ; |
| 437 |
if ChkRation.Checked
|
| 438 |
then
|
| 439 |
ChkRationClick (nil)
|
| 440 |
else
|
| 441 |
ChkRation.Checked := TRUE ; |
| 442 |
ChkAppAli.Checked := TRUE ; |
| 443 |
ChkEMAli.Checked := TRUE ; |
| 444 |
CalcApport ; |
| 445 |
ChkAppAliClick (nil) ;
|
| 446 |
ChkEMAliClick (nil) ;
|
| 447 |
CalcResult ; |
| 448 |
Update := FALSE ; |
| 449 |
end ;
|
| 450 |
end;
|
| 451 |
|
| 452 |
procedure TFBesGestT.PBAgeSailChange(Sender: TObject);
|
| 453 |
begin
|
| 454 |
if not Update |
| 455 |
then
|
| 456 |
begin
|
| 457 |
Update := TRUE ; |
| 458 |
if ChkPdsApMB.Checked
|
| 459 |
then
|
| 460 |
ChkPdsApMBClick (nil) ;
|
| 461 |
CalcResult ; |
| 462 |
Update := FALSE ; |
| 463 |
end ;
|
| 464 |
end;
|
| 465 |
|
| 466 |
procedure TFBesGestT.ChkAgeSailClick(Sender: TObject);
|
| 467 |
begin
|
| 468 |
PBAgeSail.Enabled := not ChkAgeSail.Checked ;
|
| 469 |
if ChkAgeSail.Checked
|
| 470 |
then
|
| 471 |
if not Update |
| 472 |
then
|
| 473 |
begin
|
| 474 |
Update := TRUE ; |
| 475 |
PBAgeSail.AsInteger := PProfilT.Truies[cycle].AgeSail ; |
| 476 |
if ChkPdsApMB.Checked
|
| 477 |
then
|
| 478 |
ChkPdsApMBClick (nil) ;
|
| 479 |
CalcResult ; |
| 480 |
Update := FALSE ; |
| 481 |
end
|
| 482 |
else
|
| 483 |
PBAgeSail.AsInteger := PProfilT.Truies[cycle].AgeSail ; |
| 484 |
end;
|
| 485 |
|
| 486 |
procedure TFBesGestT.PBPdsSailChange(Sender: TObject);
|
| 487 |
begin
|
| 488 |
if not Update |
| 489 |
then
|
| 490 |
begin
|
| 491 |
Update := TRUE ; |
| 492 |
CalcResult ; |
| 493 |
Update := FALSE ; |
| 494 |
end ;
|
| 495 |
end;
|
| 496 |
|
| 497 |
procedure TFBesGestT.ChkPdsSailClick(Sender: TObject);
|
| 498 |
begin
|
| 499 |
PBPdsSail.Enabled := not ChkPdsSail.Checked ;
|
| 500 |
if ChkPdsSail.Checked
|
| 501 |
then
|
| 502 |
if not Update |
| 503 |
then
|
| 504 |
begin
|
| 505 |
Update := TRUE ; |
| 506 |
PBPdsSail.AsFloat := PProfilT.Truies[cycle].PdsSail ; |
| 507 |
CalcResult ; |
| 508 |
Update := FALSE ; |
| 509 |
end
|
| 510 |
else
|
| 511 |
PBPdsSail.AsFloat := PProfilT.Truies[cycle].PdsSail ; |
| 512 |
end;
|
| 513 |
|
| 514 |
procedure TFBesGestT.PBP2SailChange(Sender: TObject);
|
| 515 |
begin
|
| 516 |
if not Update |
| 517 |
then
|
| 518 |
begin
|
| 519 |
Update := TRUE ; |
| 520 |
CalcResult ; |
| 521 |
Update := FALSE ; |
| 522 |
end ;
|
| 523 |
end;
|
| 524 |
|
| 525 |
procedure TFBesGestT.ChkP2SailClick(Sender: TObject);
|
| 526 |
begin
|
| 527 |
PBP2Sail.Enabled := not ChkP2Sail.Checked ;
|
| 528 |
if ChkP2Sail.Checked
|
| 529 |
then
|
| 530 |
if not Update |
| 531 |
then
|
| 532 |
begin
|
| 533 |
Update := TRUE ; |
| 534 |
PBP2Sail.AsFloat := PProfilT.Truies[cycle].P2Sail ; |
| 535 |
CalcResult ; |
| 536 |
Update := FALSE ; |
| 537 |
end
|
| 538 |
else
|
| 539 |
PBP2Sail.AsFloat := PProfilT.Truies[cycle].P2Sail ; |
| 540 |
end;
|
| 541 |
|
| 542 |
procedure TFBesGestT.PBPdsApMBChange(Sender: TObject);
|
| 543 |
begin
|
| 544 |
if not Update |
| 545 |
then
|
| 546 |
begin
|
| 547 |
Update := TRUE ; |
| 548 |
CalcResult ; |
| 549 |
Update := FALSE ; |
| 550 |
end ;
|
| 551 |
end;
|
| 552 |
|
| 553 |
procedure TFBesGestT.ChkPdsApMBClick(Sender: TObject);
|
| 554 |
begin
|
| 555 |
PBPdsApMB.Enabled := not ChkPdsApMB.Checked ;
|
| 556 |
if ChkPdsApMB.Checked
|
| 557 |
then
|
| 558 |
if not Update |
| 559 |
then
|
| 560 |
begin
|
| 561 |
Update := TRUE ; |
| 562 |
// Calcul de PdsApMB ? partir de AgeSail
|
| 563 |
PBPdsApMB.AsFloat := PProfilT.pmax * (1 - Exp ((- PProfilT.a / 1000) * Power (PBAgeSail.AsInteger + DureeGest, PProfilT.b))) ; |
| 564 |
CalcResult ; |
| 565 |
Update := FALSE ; |
| 566 |
end
|
| 567 |
else
|
| 568 |
// Calcul de PdsApMB ? partir de AgeSail
|
| 569 |
PBPdsApMB.AsFloat := PProfilT.pmax * (1 - Exp ((- PProfilT.a / 1000) * Power (PBAgeSail.AsInteger + DureeGest, PProfilT.b))) ; |
| 570 |
end;
|
| 571 |
|
| 572 |
procedure TFBesGestT.PBP2MBChange(Sender: TObject);
|
| 573 |
begin
|
| 574 |
if not Update |
| 575 |
then
|
| 576 |
begin
|
| 577 |
Update := TRUE ; |
| 578 |
CalcResult ; |
| 579 |
Update := FALSE ; |
| 580 |
end ;
|
| 581 |
end;
|
| 582 |
|
| 583 |
procedure TFBesGestT.ChkP2MBClick(Sender: TObject);
|
| 584 |
begin
|
| 585 |
PBP2MB.Enabled := not ChkP2MB.Checked ;
|
| 586 |
if ChkP2MB.Checked
|
| 587 |
then
|
| 588 |
if not Update |
| 589 |
then
|
| 590 |
begin
|
| 591 |
Update := TRUE ; |
| 592 |
PBP2MB.AsFloat := PProfilT.Truies[cycle].P2MB ; |
| 593 |
CalcResult ; |
| 594 |
Update := FALSE ; |
| 595 |
end
|
| 596 |
else
|
| 597 |
PBP2MB.AsFloat := PProfilT.Truies[cycle].P2MB ; |
| 598 |
end;
|
| 599 |
|
| 600 |
procedure TFBesGestT.PBNesTotauxChange(Sender: TObject);
|
| 601 |
begin
|
| 602 |
if not Update |
| 603 |
then
|
| 604 |
begin
|
| 605 |
Update := TRUE ; |
| 606 |
CalcResult ; |
| 607 |
Update := FALSE ; |
| 608 |
end ;
|
| 609 |
end;
|
| 610 |
|
| 611 |
procedure TFBesGestT.ChkNesTotauxClick(Sender: TObject);
|
| 612 |
begin
|
| 613 |
PBNesTotaux.Enabled := not ChkNesTotaux.Checked ;
|
| 614 |
if ChkNesTotaux.Checked
|
| 615 |
then
|
| 616 |
if not Update |
| 617 |
then
|
| 618 |
begin
|
| 619 |
Update := TRUE ; |
| 620 |
PBNesTotaux.AsFloat := PProfilT.Porcelets[cycle].NesTotaux ; |
| 621 |
CalcResult ; |
| 622 |
Update := FALSE ; |
| 623 |
end
|
| 624 |
else
|
| 625 |
PBNesTotaux.AsFloat := PProfilT.Porcelets[cycle].NesTotaux ; |
| 626 |
end;
|
| 627 |
|
| 628 |
procedure TFBesGestT.PBPdsNaisChange(Sender: TObject);
|
| 629 |
begin
|
| 630 |
if not Update |
| 631 |
then
|
| 632 |
begin
|
| 633 |
Update := TRUE ; |
| 634 |
CalcResult ; |
| 635 |
Update := FALSE ; |
| 636 |
end ;
|
| 637 |
end;
|
| 638 |
|
| 639 |
procedure TFBesGestT.ChkPdsNaisClick(Sender: TObject);
|
| 640 |
begin
|
| 641 |
PBPdsNais.Enabled := not ChkPdsNais.Checked ;
|
| 642 |
if ChkPdsNais.Checked
|
| 643 |
then
|
| 644 |
if not Update |
| 645 |
then
|
| 646 |
begin
|
| 647 |
Update := TRUE ; |
| 648 |
PBPdsNais.AsFloat := PProfilT.Porcelets[cycle].PdsNais ; |
| 649 |
CalcResult ; |
| 650 |
Update := FALSE ; |
| 651 |
end
|
| 652 |
else
|
| 653 |
PBPdsNais.AsFloat := PProfilT.Porcelets[cycle].PdsNais ; |
| 654 |
end;
|
| 655 |
|
| 656 |
procedure TFBesGestT.CBLogeChange(Sender: TObject);
|
| 657 |
begin
|
| 658 |
if CBLoge.ItemIndex > 0 |
| 659 |
then // Logement |
| 660 |
begin
|
| 661 |
PLogeT := ListLogeT[FindIdxLogeT (CBLoge.Text)] ; |
| 662 |
CBLoge.Hint := PLogeT.Memo ; |
| 663 |
PRegle.Visible := TRUE ; |
| 664 |
CBTyp.Enabled := FALSE ; |
| 665 |
CBSol.Enabled := FALSE ; |
| 666 |
PBTemp.Enabled := FALSE ; |
| 667 |
TBAct.Enabled := FALSE ; |
| 668 |
if not Update |
| 669 |
then
|
| 670 |
begin
|
| 671 |
Update := TRUE ; |
| 672 |
regle := 1 ;
|
| 673 |
if PBRegle.AsInteger = regle
|
| 674 |
then
|
| 675 |
PBRegleChange (nil)
|
| 676 |
else
|
| 677 |
PBRegle.AsInteger := regle ; |
| 678 |
PBRegle.MaxValue := PLogeT.NbRuleGest ; |
| 679 |
LNbRegles.Caption := Format ('/ %d', [PLogeT.NbRuleGest]) ;
|
| 680 |
// Remplissage des champs avec les valeurs du logement
|
| 681 |
CBTyp.ItemIndex := PLogeT.RuleGest[regle].Typ ; |
| 682 |
if CBTyp.ItemIndex = 2 |
| 683 |
then // Plein-air |
| 684 |
begin
|
| 685 |
CBSol.ItemIndex := -1 ;
|
| 686 |
CBSol.Enabled := FALSE ; |
| 687 |
end
|
| 688 |
else
|
| 689 |
CBSol.ItemIndex := PLogeT.RuleGest[regle].Sol ; |
| 690 |
PBTemp.AsInteger := PLogeT.RuleGest[regle].Temp ; |
| 691 |
TBAct.Position := PLogeT.RuleGest[regle].Act ; |
| 692 |
CalcResult ; |
| 693 |
Update := FALSE ; |
| 694 |
end ;
|
| 695 |
CalcResult ; |
| 696 |
end
|
| 697 |
else // Saisie manuelle |
| 698 |
begin
|
| 699 |
PRegle.Visible := FALSE ; |
| 700 |
CBTyp.Enabled := TRUE ; |
| 701 |
CBSol.Enabled := TRUE ; |
| 702 |
PBTemp.Enabled := TRUE ; |
| 703 |
TBAct.Enabled := TRUE ; |
| 704 |
Update := TRUE ; |
| 705 |
CalcResult ; |
| 706 |
Update := FALSE ; |
| 707 |
end ;
|
| 708 |
end;
|
| 709 |
|
| 710 |
procedure TFBesGestT.ChkLogeClick(Sender: TObject);
|
| 711 |
begin
|
| 712 |
CBLoge.Enabled := not ChkLoge.Checked ;
|
| 713 |
if ChkLoge.Checked
|
| 714 |
then
|
| 715 |
if not Update |
| 716 |
then
|
| 717 |
begin
|
| 718 |
Update := TRUE ; |
| 719 |
CBLoge.ItemIndex := CBLoge.Items.IndexOf (FindNomLogeT (PProfilT.Loge)) ; |
| 720 |
CBLogeChange (nil) ;
|
| 721 |
regle := 1 ;
|
| 722 |
if PBRegle.AsInteger = regle
|
| 723 |
then
|
| 724 |
PBRegleChange (nil)
|
| 725 |
else
|
| 726 |
PBRegle.AsInteger := regle ; |
| 727 |
PBRegle.MaxValue := PLogeT.NbRuleGest ; |
| 728 |
LNbRegles.Caption := Format ('/ %d', [PLogeT.NbRuleGest]) ;
|
| 729 |
// Remplissage des champs avec les valeurs du logement
|
| 730 |
CBTyp.ItemIndex := PLogeT.RuleGest[regle].Typ ; |
| 731 |
if CBTyp.ItemIndex = 2 |
| 732 |
then // Plein-air |
| 733 |
begin
|
| 734 |
CBSol.ItemIndex := -1 ;
|
| 735 |
CBSol.Enabled := FALSE ; |
| 736 |
end
|
| 737 |
else
|
| 738 |
CBSol.ItemIndex := PLogeT.RuleGest[regle].Sol ; |
| 739 |
PBTemp.AsInteger := PLogeT.RuleGest[regle].Temp ; |
| 740 |
TBAct.Position := PLogeT.RuleGest[regle].Act ; |
| 741 |
CalcResult ; |
| 742 |
Update := FALSE ; |
| 743 |
end
|
| 744 |
else
|
| 745 |
begin
|
| 746 |
CBLoge.ItemIndex := CBLoge.Items.IndexOf (FindNomLogeT (PProfilT.Loge)) ; |
| 747 |
CBLogeChange (nil) ;
|
| 748 |
end ;
|
| 749 |
end;
|
| 750 |
|
| 751 |
procedure TFBesGestT.PBRegleChange(Sender: TObject);
|
| 752 |
begin
|
| 753 |
if not Update |
| 754 |
then
|
| 755 |
begin
|
| 756 |
Update := TRUE ; |
| 757 |
regle := PBRegle.AsInteger ; |
| 758 |
// Remplissage des champs avec les valeurs du logement
|
| 759 |
CBTyp.ItemIndex := PLogeT.RuleGest[regle].Typ ; |
| 760 |
if CBTyp.ItemIndex = 2 |
| 761 |
then // Plein-air |
| 762 |
begin
|
| 763 |
CBSol.ItemIndex := -1 ;
|
| 764 |
CBSol.Enabled := FALSE ; |
| 765 |
end
|
| 766 |
else
|
| 767 |
CBSol.ItemIndex := PLogeT.RuleGest[regle].Sol ; |
| 768 |
PBTemp.AsInteger := PLogeT.RuleGest[regle].Temp ; |
| 769 |
TBAct.Position := PLogeT.RuleGest[regle].Act ; |
| 770 |
Update := FALSE ; |
| 771 |
end ;
|
| 772 |
end;
|
| 773 |
|
| 774 |
procedure TFBesGestT.CBTypChange(Sender: TObject);
|
| 775 |
begin
|
| 776 |
if not Update |
| 777 |
then
|
| 778 |
begin
|
| 779 |
Update := TRUE ; |
| 780 |
if CBTyp.ItemIndex = 2 |
| 781 |
then // Plein-air |
| 782 |
begin
|
| 783 |
CBSol.ItemIndex := -1 ;
|
| 784 |
CBSol.Enabled := FALSE ; |
| 785 |
end
|
| 786 |
else
|
| 787 |
if CBSol.ItemIndex = -1 |
| 788 |
then
|
| 789 |
begin
|
| 790 |
CBSol.ItemIndex := 0 ;
|
| 791 |
CBSol.Enabled := TRUE ; |
| 792 |
end ;
|
| 793 |
CalcResult ; |
| 794 |
Update := FALSE ; |
| 795 |
end ;
|
| 796 |
end;
|
| 797 |
|
| 798 |
procedure TFBesGestT.CBSolChange(Sender: TObject);
|
| 799 |
begin
|
| 800 |
if not Update |
| 801 |
then
|
| 802 |
begin
|
| 803 |
Update := TRUE ; |
| 804 |
CalcResult ; |
| 805 |
Update := FALSE ; |
| 806 |
end ;
|
| 807 |
end;
|
| 808 |
|
| 809 |
procedure TFBesGestT.PBTempChange(Sender: TObject);
|
| 810 |
begin
|
| 811 |
if not Update |
| 812 |
then
|
| 813 |
begin
|
| 814 |
Update := TRUE ; |
| 815 |
CalcResult ; |
| 816 |
Update := FALSE ; |
| 817 |
end ;
|
| 818 |
end;
|
| 819 |
|
| 820 |
procedure TFBesGestT.TBActChange(Sender: TObject);
|
| 821 |
begin
|
| 822 |
TBAct.SelEnd := TBAct.Position ; |
| 823 |
PBAct.AsInteger := TBAct.Position ; |
| 824 |
if not Update |
| 825 |
then
|
| 826 |
begin
|
| 827 |
Update := TRUE ; |
| 828 |
CalcResult ; |
| 829 |
Update := FALSE ; |
| 830 |
end ;
|
| 831 |
end;
|
| 832 |
|
| 833 |
procedure TFBesGestT.CBSeqAliChange(Sender: TObject);
|
| 834 |
begin
|
| 835 |
if CBSeqAli.ItemIndex = -1 |
| 836 |
then
|
| 837 |
CBSeqAli.Hint := ''
|
| 838 |
else
|
| 839 |
begin
|
| 840 |
PSeqAliT := ListSeqAliT[FindIdxSeqAliT (CBSeqAli.Text)] ; |
| 841 |
CBSeqAli.Hint := PSeqAliT.Memo ; |
| 842 |
if not Update |
| 843 |
then
|
| 844 |
begin
|
| 845 |
Update := TRUE ; |
| 846 |
ChkEMAli.Checked := TRUE ; |
| 847 |
CalcApport ; |
| 848 |
ChkAppAliClick (nil) ;
|
| 849 |
ChkEMAliClick (nil) ;
|
| 850 |
CalcResult ; |
| 851 |
Update := FALSE ; |
| 852 |
end ;
|
| 853 |
end ;
|
| 854 |
AjustEnabled ; |
| 855 |
end;
|
| 856 |
|
| 857 |
procedure TFBesGestT.ChkSeqAliClick(Sender: TObject);
|
| 858 |
begin
|
| 859 |
CBSeqAli.Enabled := not ChkSeqAli.Checked ;
|
| 860 |
if ChkSeqAli.Checked
|
| 861 |
then
|
| 862 |
if not Update |
| 863 |
then
|
| 864 |
begin
|
| 865 |
Update := TRUE ; |
| 866 |
CBSeqAli.ItemIndex := CBSeqAli.Items.IndexOf (FindNomSeqAliT (PProfilT.SeqAli)) ; |
| 867 |
CBSeqAliChange (nil) ;
|
| 868 |
ChkEMAli.Checked := TRUE ; |
| 869 |
CalcApport ; |
| 870 |
ChkAppAliClick (nil) ;
|
| 871 |
ChkEMAliClick (nil) ;
|
| 872 |
CalcResult ; |
| 873 |
Update := FALSE ; |
| 874 |
end
|
| 875 |
else
|
| 876 |
begin
|
| 877 |
CBSeqAli.ItemIndex := CBSeqAli.Items.IndexOf (FindNomSeqAliT (PProfilT.SeqAli)) ; |
| 878 |
CBSeqAliChange (nil) ;
|
| 879 |
end ;
|
| 880 |
end;
|
| 881 |
|
| 882 |
procedure TFBesGestT.CBRationChange(Sender: TObject);
|
| 883 |
begin
|
| 884 |
if CBRation.ItemIndex = -1 |
| 885 |
then
|
| 886 |
CBRation.Hint := ''
|
| 887 |
else
|
| 888 |
begin
|
| 889 |
PRationT := ListRationT[FindIdxRationT (CBRation.Text)] ; |
| 890 |
CBRation.Hint := PRationT.Memo ; |
| 891 |
if not Update |
| 892 |
then
|
| 893 |
begin
|
| 894 |
Update := TRUE ; |
| 895 |
ChkAppAli.Checked := TRUE ; |
| 896 |
CalcApport ; |
| 897 |
ChkAppAliClick (nil) ;
|
| 898 |
if ChkEMAli.Checked
|
| 899 |
then
|
| 900 |
ChkEMAliClick (nil) ;
|
| 901 |
CalcResult ; |
| 902 |
Update := FALSE ; |
| 903 |
end ;
|
| 904 |
end ;
|
| 905 |
AjustEnabled ; |
| 906 |
end;
|
| 907 |
|
| 908 |
procedure TFBesGestT.ChkRationClick(Sender: TObject);
|
| 909 |
begin
|
| 910 |
CBRation.Visible := not ChkRation.Checked ;
|
| 911 |
CBRationProfil.Visible := ChkRation.Checked ; |
| 912 |
if ChkRation.Checked
|
| 913 |
then
|
| 914 |
if not Update |
| 915 |
then
|
| 916 |
begin
|
| 917 |
Update := TRUE ; |
| 918 |
CBRation.ItemIndex := -1 ;
|
| 919 |
CBRationChange (nil) ;
|
| 920 |
ChkAppAli.Checked := TRUE ; |
| 921 |
CalcApport ; |
| 922 |
ChkAppAliClick (nil) ;
|
| 923 |
if ChkEMAli.Checked
|
| 924 |
then
|
| 925 |
ChkEMAliClick (nil) ;
|
| 926 |
CalcResult ; |
| 927 |
Update := FALSE ; |
| 928 |
end
|
| 929 |
else
|
| 930 |
begin
|
| 931 |
CBRation.ItemIndex := -1 ;
|
| 932 |
CBRationChange (nil) ;
|
| 933 |
end ;
|
| 934 |
end;
|
| 935 |
|
| 936 |
procedure TFBesGestT.PBAppAliChange(Sender: TObject);
|
| 937 |
begin
|
| 938 |
if not Update |
| 939 |
then
|
| 940 |
begin
|
| 941 |
Update := TRUE ; |
| 942 |
CalcApport ; |
| 943 |
if ChkEMAli.Checked
|
| 944 |
then
|
| 945 |
ChkEMAliClick (nil) ;
|
| 946 |
CalcResult ; |
| 947 |
Update := FALSE ; |
| 948 |
end ;
|
| 949 |
end;
|
| 950 |
|
| 951 |
procedure TFBesGestT.ChkAppAliClick(Sender: TObject);
|
| 952 |
begin
|
| 953 |
PBAppAli.Enabled := not ChkAppAli.Checked ;
|
| 954 |
if ChkAppAli.Checked
|
| 955 |
then
|
| 956 |
if not Update |
| 957 |
then
|
| 958 |
begin
|
| 959 |
Update := TRUE ; |
| 960 |
CalcApport ; |
| 961 |
PBAppAli.AsFloat := AppAliTot / DureeGest ; |
| 962 |
if ChkEMAli.Checked
|
| 963 |
then
|
| 964 |
ChkEMAliClick (nil) ;
|
| 965 |
CalcResult ; |
| 966 |
Update := FALSE ; |
| 967 |
end
|
| 968 |
else
|
| 969 |
PBAppAli.AsFloat := AppAliTot / DureeGest ; |
| 970 |
end;
|
| 971 |
|
| 972 |
procedure TFBesGestT.PBEMAliChange(Sender: TObject);
|
| 973 |
begin
|
| 974 |
if not Update |
| 975 |
then
|
| 976 |
begin
|
| 977 |
Update := TRUE ; |
| 978 |
CalcApport ; |
| 979 |
CalcResult ; |
| 980 |
Update := FALSE ; |
| 981 |
end ;
|
| 982 |
end;
|
| 983 |
|
| 984 |
procedure TFBesGestT.ChkEMAliClick(Sender: TObject);
|
| 985 |
begin
|
| 986 |
PBEMAli.Enabled := not ChkEMAli.Checked ;
|
| 987 |
if ChkEMAli.Checked
|
| 988 |
then
|
| 989 |
if not Update |
| 990 |
then
|
| 991 |
begin
|
| 992 |
Update := TRUE ; |
| 993 |
CalcApport ; |
| 994 |
if AppAliTot = 0 |
| 995 |
then
|
| 996 |
PBEMAli.Text := ''
|
| 997 |
else
|
| 998 |
PBEMAli.AsFloat := AppEMTot / AppAliTot ; |
| 999 |
CalcResult ; |
| 1000 |
Update := FALSE ; |
| 1001 |
end
|
| 1002 |
else
|
| 1003 |
if AppAliTot = 0 |
| 1004 |
then
|
| 1005 |
PBEMAli.Text := ''
|
| 1006 |
else
|
| 1007 |
PBEMAli.AsFloat := AppEMTot / AppAliTot |
| 1008 |
else
|
| 1009 |
if not Update |
| 1010 |
then
|
| 1011 |
begin
|
| 1012 |
Update := TRUE ; |
| 1013 |
CalcApport ; // L'apport est recalcul? avec des teneurs standards
|
| 1014 |
CalcResult ; |
| 1015 |
Update := FALSE ; |
| 1016 |
end ;
|
| 1017 |
end;
|
| 1018 |
|
| 1019 |
procedure TFBesGestT.CalcApport ;
|
| 1020 |
var
|
| 1021 |
i, Jour, AA, Unite : integer ; |
| 1022 |
PctAli1, PctAli2, Quantite, Ingere, IngSec1, IngSec2 : double ; |
| 1023 |
NumRuleSeqAli, NumRuleRation : integer ; |
| 1024 |
RuleSeqAli : array[1..MAX_RULE] of RecRuleSeqAliT ; |
| 1025 |
RuleRation : array[1..MAX_RULE] of RecRuleRationT ; |
| 1026 |
RuleSeqAliInit, RuleRationInit, Ecart : integer ; |
| 1027 |
RecCC1, RecCC2 : CompositionChimique ; |
| 1028 |
TabAAtotal1, TabAAtotal2, TabCUDAA1, TabCUDAA2 : array[0..12] of double ; |
| 1029 |
ok : boolean ; |
| 1030 |
begin
|
| 1031 |
// Initialisation
|
| 1032 |
AppAliTot := 0 ;
|
| 1033 |
AppEDTot := 0 ;
|
| 1034 |
AppEMTot := 0 ;
|
| 1035 |
AppENTot := 0 ;
|
| 1036 |
for Jour := 1 to DureeGest do |
| 1037 |
begin
|
| 1038 |
AppAli[Jour] := 0 ;
|
| 1039 |
AppED[Jour] := 0 ;
|
| 1040 |
AppEM[Jour] := 0 ;
|
| 1041 |
AppEN[Jour] := 0 ;
|
| 1042 |
for AA := 1 to 14 do |
| 1043 |
AppAA[AA, Jour] := 0 ;
|
| 1044 |
end ;
|
| 1045 |
if ChkEMAli.Checked
|
| 1046 |
then // S?quence alimentaire |
| 1047 |
if CBSeqAli.ItemIndex = -1 |
| 1048 |
then
|
| 1049 |
Exit |
| 1050 |
else // Chargement des r?gles |
| 1051 |
for i := 1 to PSeqAliT.NbRuleGest do |
| 1052 |
RuleSeqAli[i] := PSeqAliT.RuleGest[i] |
| 1053 |
else // Teneur en EM |
| 1054 |
if PBEMAli.AsFloat = 0 |
| 1055 |
then
|
| 1056 |
Exit |
| 1057 |
else
|
| 1058 |
if CBSeqAli.ItemIndex = -1 |
| 1059 |
then // Cr?ation d'une r?gle sans aliment |
| 1060 |
with RuleSeqAli[1] do |
| 1061 |
begin
|
| 1062 |
ModeFin := -1 ;
|
| 1063 |
NumAli1 := -1 ;
|
| 1064 |
NumAli2 := -1 ;
|
| 1065 |
PctAli1Init := 100 ;
|
| 1066 |
PctAli1Fin := 100 ;
|
| 1067 |
end
|
| 1068 |
else // Chargement des r?gles |
| 1069 |
for i := 1 to PSeqAliT.NbRuleGest do |
| 1070 |
RuleSeqAli[i] := PSeqAliT.RuleGest[i] ; |
| 1071 |
NumRuleSeqAli := 1 ;
|
| 1072 |
RuleSeqAliInit := 1 ;
|
| 1073 |
if ChkAppAli.Checked
|
| 1074 |
then
|
| 1075 |
if ChkRation.Checked
|
| 1076 |
then // Profil animal |
| 1077 |
if CBProfil.ItemIndex = -1 |
| 1078 |
then
|
| 1079 |
Exit |
| 1080 |
else // Cr?ation d'une r?gle ? partir du profil animal |
| 1081 |
begin
|
| 1082 |
with RuleRation[1] do |
| 1083 |
begin
|
| 1084 |
ModeFin := -1 ;
|
| 1085 |
Equation := 0 ; // Constant |
| 1086 |
a := PProfilT.Gest[Cycle] ; |
| 1087 |
end ;
|
| 1088 |
Unite := PProfilT.Unite ; |
| 1089 |
end
|
| 1090 |
else // Plan de rationnement |
| 1091 |
if CBRation.ItemIndex = -1 |
| 1092 |
then
|
| 1093 |
Exit |
| 1094 |
else // Chargement des r?gles |
| 1095 |
begin
|
| 1096 |
for i := 1 to PRationT.NbRuleGest do |
| 1097 |
RuleRation[i] := PRationT.RuleGest[i] ; |
| 1098 |
Unite := PRationT.UniteGest ; |
| 1099 |
end
|
| 1100 |
else // Consommation moyenne |
| 1101 |
if PBAppAli.AsFloat = 0 |
| 1102 |
then
|
| 1103 |
Exit |
| 1104 |
else // Cr?ation d'une r?gle ? partir de la consommation moyenne |
| 1105 |
begin
|
| 1106 |
with RuleRation[1] do |
| 1107 |
begin
|
| 1108 |
ModeFin := -1 ;
|
| 1109 |
Equation := 0 ; // Constant |
| 1110 |
a := PBAppAli.AsFloat ; |
| 1111 |
end ;
|
| 1112 |
Unite := 0 ; // Quantit? |
| 1113 |
end ;
|
| 1114 |
NumRuleRation := 1 ;
|
| 1115 |
RuleRationInit := 1 ;
|
| 1116 |
// Boucle des jours
|
| 1117 |
for Jour := 1 to DureeGest do |
| 1118 |
begin
|
| 1119 |
// Aliment(s) distribu?(s)
|
| 1120 |
repeat
|
| 1121 |
ok := TRUE ; |
| 1122 |
with RuleSeqAli[NumRuleSeqAli] do |
| 1123 |
if ModeFin = 0 |
| 1124 |
then // Dur?e |
| 1125 |
if (Jour - RuleSeqAliInit + 1 > ValFin) then ok := FALSE ; |
| 1126 |
if not (ok) |
| 1127 |
then // Changement de r?gle |
| 1128 |
begin
|
| 1129 |
Inc (NumRuleSeqAli) ; |
| 1130 |
RuleSeqAliInit := Jour ; |
| 1131 |
end ;
|
| 1132 |
until ok ;
|
| 1133 |
with RuleSeqAli[NumRuleSeqAli] do |
| 1134 |
begin
|
| 1135 |
// Composition aliment 1
|
| 1136 |
if NumAli1 = -1 |
| 1137 |
then
|
| 1138 |
begin
|
| 1139 |
RecCC1 := CCVide ; |
| 1140 |
for i := 0 to 12 do |
| 1141 |
TabAAtotal1[i] := 0 ;
|
| 1142 |
for i := 0 to 12 do |
| 1143 |
TabCUDAA1[i] := 0 ;
|
| 1144 |
end
|
| 1145 |
else
|
| 1146 |
begin
|
| 1147 |
PAliment := ListAliment[FindIdxAliment (FindNomAliment (NumAli1))] ; |
| 1148 |
RecCC1 := PAliment.CC ; |
| 1149 |
for i := 0 to 12 do |
| 1150 |
TabAAtotal1[i] := PAliment.AAtotal[i] ; |
| 1151 |
for i := 0 to 12 do |
| 1152 |
TabCUDAA1[i] := PAliment.CUDAA[i] ; |
| 1153 |
end ;
|
| 1154 |
if not ChkEMAli.Checked |
| 1155 |
then // Teneur en EM |
| 1156 |
with RecCC1 do |
| 1157 |
begin
|
| 1158 |
ED_T := (PBEMAli.AsFloat / 0.96) / MS * 1000 ; |
| 1159 |
EM_T := (PBEMAli.AsFloat) / MS * 1000 ;
|
| 1160 |
EN_T := (PBEMAli.AsFloat * 0.74) / MS * 1000 ; |
| 1161 |
end ;
|
| 1162 |
// Composition aliment 2
|
| 1163 |
if NumAli2 = -1 |
| 1164 |
then
|
| 1165 |
begin
|
| 1166 |
RecCC2 := CCVide ; |
| 1167 |
for i := 0 to 12 do |
| 1168 |
TabAAtotal2[i] := 0 ;
|
| 1169 |
for i := 0 to 12 do |
| 1170 |
TabCUDAA2[i] := 0 ;
|
| 1171 |
end
|
| 1172 |
else
|
| 1173 |
begin
|
| 1174 |
PAliment := ListAliment[FindIdxAliment (FindNomAliment (NumAli2))] ; |
| 1175 |
RecCC2 := PAliment.CC ; |
| 1176 |
for i := 0 to 12 do |
| 1177 |
TabAAtotal2[i] := PAliment.AAtotal[i] ; |
| 1178 |
for i := 0 to 12 do |
| 1179 |
TabCUDAA2[i] := PAliment.CUDAA[i] ; |
| 1180 |
end ;
|
| 1181 |
if not ChkEMAli.Checked |
| 1182 |
then // Teneur en EM |
| 1183 |
with RecCC2 do |
| 1184 |
begin
|
| 1185 |
ED_T := (PBEMAli.AsFloat / 0.96) / MS * 1000 ; |
| 1186 |
EM_T := (PBEMAli.AsFloat) / MS * 1000 ;
|
| 1187 |
EN_T := (PBEMAli.AsFloat * 0.74) / MS * 1000 ; |
| 1188 |
end ;
|
| 1189 |
// Calcul des % aliments
|
| 1190 |
if PctAli1Init = PctAli1Fin
|
| 1191 |
then
|
| 1192 |
PctAli1 := PctAli1Init |
| 1193 |
else // Transition |
| 1194 |
begin
|
| 1195 |
Ecart := PctAli1Fin - PctAli1Init ; |
| 1196 |
if ModeFin = 0 |
| 1197 |
then // Dur?e |
| 1198 |
PctAli1 := PctAli1Init + (Jour - RuleSeqAliInit) * Ecart / ValFin |
| 1199 |
else // Fin |
| 1200 |
PctAli1 := PctAli1Init + (Jour - RuleSeqAliInit) * Ecart / (DureeGest - RuleSeqAliInit) ; |
| 1201 |
end ;
|
| 1202 |
end ;
|
| 1203 |
PctAli2 := 100 - PctAli1 ;
|
| 1204 |
// Quantit?(s) distribu?e(s)
|
| 1205 |
repeat
|
| 1206 |
ok := TRUE ; |
| 1207 |
with RuleRation[NumRuleRation] do |
| 1208 |
if ModeFin = 0 |
| 1209 |
then // Dur?e |
| 1210 |
if Jour - RuleRationInit + 1 > ValFin then ok := FALSE ; |
| 1211 |
if not (ok) |
| 1212 |
then // Changement de r?gle |
| 1213 |
begin
|
| 1214 |
Inc (NumRuleRation) ; |
| 1215 |
RuleRationInit := Jour ; |
| 1216 |
end ;
|
| 1217 |
until ok ;
|
| 1218 |
with RuleRation[NumRuleRation] do |
| 1219 |
begin
|
| 1220 |
// Calcul des quantit?s
|
| 1221 |
case Equation of |
| 1222 |
0 : // Constant |
| 1223 |
Quantite := a ; |
| 1224 |
1 : // Lin?aire |
| 1225 |
Quantite := a + b * (Jour - RuleRationInit) ; |
| 1226 |
2 : // Lin?aire-plateau |
| 1227 |
Quantite := LPvaleur (a, b, c, Jour - RuleRationInit + 1, d) ;
|
| 1228 |
3 : // Curvilin?aire |
| 1229 |
Quantite := CLvaleur (a, c, Jour - RuleRationInit + 1, d) ;
|
| 1230 |
else
|
| 1231 |
Quantite := 0 ;
|
| 1232 |
end ;
|
| 1233 |
// Convertion de ED, EM, EN en quantit? si besoin
|
| 1234 |
case Unite of |
| 1235 |
1 : // ED (MJ/j) |
| 1236 |
Ingere := Quantite |
| 1237 |
/ (PctAli1 / 100 * RecCC1.ED_T * RecCC1.MS / 1000 |
| 1238 |
+ PctAli2 / 100 * RecCC2.ED_T * RecCC2.MS / 1000) ; |
| 1239 |
2 : // EM (MJ/j) |
| 1240 |
Ingere := Quantite |
| 1241 |
/ (PctAli1 / 100 * RecCC1.EM_T * RecCC1.MS / 1000 |
| 1242 |
+ PctAli2 / 100 * RecCC2.EM_T * RecCC2.MS / 1000) ; |
| 1243 |
3 : // EN (MJ/j) |
| 1244 |
Ingere := Quantite |
| 1245 |
/ (PctAli1 / 100 * RecCC1.EN_T * RecCC1.MS / 1000 |
| 1246 |
+ PctAli2 / 100 * RecCC2.EN_T * RecCC2.MS / 1000) ; |
| 1247 |
4 : // MS (kg/j) |
| 1248 |
Ingere := Quantite |
| 1249 |
/ (PctAli1 / 100 * RecCC1.MS / 1000 |
| 1250 |
+ PctAli2 / 100 * RecCC2.MS / 1000) ; |
| 1251 |
else // QI (kg/j) |
| 1252 |
Ingere := Quantite ; |
| 1253 |
end ;
|
| 1254 |
end ;
|
| 1255 |
// Aliment ing?r?
|
| 1256 |
AppAli[Jour] := Ingere ; |
| 1257 |
IngSec1 := Ingere * PctAli1 / 100 * RecCC1.MS / 1000 ; |
| 1258 |
IngSec2 := Ingere * PctAli2 / 100 * RecCC2.MS / 1000 ; |
| 1259 |
// Energie ing?r?e
|
| 1260 |
AppED[Jour] := IngSec1 * RecCC1.ED_T + IngSec2 * RecCC2.ED_T ; |
| 1261 |
AppEM[Jour] := IngSec1 * RecCC1.EM_T + IngSec2 * RecCC2.EM_T ; |
| 1262 |
AppEN[Jour] := IngSec1 * RecCC1.EN_T + IngSec2 * RecCC2.EN_T ; |
| 1263 |
// Acides amin?s digestibles
|
| 1264 |
for AA := 1 to 12 do |
| 1265 |
AppAA[AA, Jour] := IngSec1 * TabAAtotal1[AA] * TabCUDAA1[AA] / 100
|
| 1266 |
+ IngSec2 * TabAAtotal2[AA] * TabCUDAA2[AA] / 100 ;
|
| 1267 |
// met+cys
|
| 1268 |
AppAA[13, Jour] := AppAA[2, Jour] + AppAA[3, Jour] ; |
| 1269 |
// phe+tyr
|
| 1270 |
AppAA[14, Jour] := AppAA[6, Jour] + AppAA[7, Jour] ; |
| 1271 |
end ;
|
| 1272 |
// Totaux
|
| 1273 |
AppAliTot := Sum (AppAli) ; |
| 1274 |
AppEDTot := Sum (AppED) ; |
| 1275 |
AppEMTot := Sum (AppEM) ; |
| 1276 |
AppENTot := Sum (AppEN) ; |
| 1277 |
end ;
|
| 1278 |
|
| 1279 |
procedure TFBesGestT.CalcResult ;
|
| 1280 |
var
|
| 1281 |
i, Temperature, Jour, AA, NumRuleLoge, RuleLogeInit, Ecart : integer ; |
| 1282 |
PdsPort, PdsAvMB, EMSail, EMApMB, GMQ, PV, PFoetus, PPlacenta : double ; |
| 1283 |
BesEMBaseTot, EMEntSail, CorrJ, CorrNR, NRUterus, NR, LysRet, LysEnt : double ; |
| 1284 |
BesEMBase : array [1..DureeGest] of double ; |
| 1285 |
EMPortCum : array [0..DureeGest] of double ; |
| 1286 |
RuleLoge : array[1..MAX_RULE] of RecRuleLogeT ; |
| 1287 |
ok : boolean ; |
| 1288 |
begin
|
| 1289 |
if (PBPdsSail.AsFloat > 0) |
| 1290 |
and (PBP2Sail.AsFloat > 0) |
| 1291 |
and (PBPdsApMB.AsFloat >= PBPdsSail.AsFloat)
|
| 1292 |
and (PBP2MB.AsFloat >= PBP2Sail.AsFloat)
|
| 1293 |
and (PBNesTotaux.AsFloat > 0) |
| 1294 |
and (PBPdsNais.AsFloat > 0) |
| 1295 |
and (PBAppAli.AsFloat > 0) |
| 1296 |
and (PBEMAli.AsFloat > 0) |
| 1297 |
then
|
| 1298 |
begin
|
| 1299 |
//
|
| 1300 |
// Besoins ?n?rg?tiques
|
| 1301 |
//
|
| 1302 |
if CBLoge.ItemIndex > 0 |
| 1303 |
then // Logement |
| 1304 |
for i := 1 to PLogeT.NbRuleGest do |
| 1305 |
RuleLoge[i] := PLogeT.RuleGest[i] |
| 1306 |
else // Saisie manuelle |
| 1307 |
with RuleLoge[1] do |
| 1308 |
begin
|
| 1309 |
ModeFin := -1 ;
|
| 1310 |
Typ := CBTyp.ItemIndex ; |
| 1311 |
Sol := CBSol.ItemIndex ; |
| 1312 |
Temp := PBTemp.AsInteger ; |
| 1313 |
Act := TBAct.Position ; |
| 1314 |
end ;
|
| 1315 |
NumRuleLoge := 1 ;
|
| 1316 |
RuleLogeInit := 1 ;
|
| 1317 |
// Poids port?e
|
| 1318 |
PdsPort := PBNesTotaux.AsFloat * PBPdsNais.AsFloat ; |
| 1319 |
// Poids avant mise-bas
|
| 1320 |
PdsAvMB := PBPdsApMB.AsFloat + 0.3 + 1.329 * PdsPort ; |
| 1321 |
// Gain de poids (lin?aire)
|
| 1322 |
GMQ := (PdsAvMB - PBPdsSail.AsFloat) / DureeGest ; |
| 1323 |
// Energie pour la constitution de r?serves
|
| 1324 |
EMSail := (-256.8 + 3.2672 * PBPdsSail.AsFloat * PV2PVV + 10.992 * PBP2Sail.AsFloat) * 4.18 ; |
| 1325 |
EMApMB := (-256.8 + 3.2672 * PBPdsApMB.AsFloat * PV2PVV + 10.992 * PBP2MB.AsFloat) * 4.18 ; |
| 1326 |
BesEMResTot := (EMApMB - EMSail) / DureeGest / 0.77 ;
|
| 1327 |
EMPortCum[0] := 0 ; |
| 1328 |
for Jour := 1 to DureeGest do |
| 1329 |
begin
|
| 1330 |
repeat
|
| 1331 |
ok := TRUE ; |
| 1332 |
with RuleLoge[NumRuleLoge] do |
| 1333 |
if ModeFin = 0 |
| 1334 |
then // Dur?e |
| 1335 |
if Jour - RuleLogeInit + 1 > ValFin then ok := FALSE ; |
| 1336 |
if not (ok) |
| 1337 |
then // Changement de r?gle |
| 1338 |
begin
|
| 1339 |
Inc (NumRuleLoge) ; |
| 1340 |
RuleLogeInit := Jour ; |
| 1341 |
end ;
|
| 1342 |
until ok ;
|
| 1343 |
PV := PBPdsSail.AsFloat + GMQ * Jour ; |
| 1344 |
BesEMEnt[Jour] := Power (PV, 0.75) * EEGest
|
| 1345 |
- 0.3 * Power (PV, 0.75) * 240 / 1000 ; |
| 1346 |
EMPortCum[Jour] := Exp (11.72 - 8.62 * Exp (-0.01382 * Jour) + 0.0932 * PBNesTotaux.AsFloat) / 1000 |
| 1347 |
* (PdsPort * 1.3 * 4.18) / (Exp (11.72 - 8.62 * Exp (-0.01382 * DureeGest) + 0.0932 * PBNesTotaux.AsFloat) / 1000) ; |
| 1348 |
BesEMPort[Jour] := (EMPortCum[Jour] - EMPortCum[Jour - 1]) / 0.48 ; |
| 1349 |
BesEMBase[Jour] := BesEMEnt[Jour] + BesEMPort[Jour] + BesEMResTot |
| 1350 |
+ 0.3 * Power (PV, 0.75) * 240 / 1000 ; // Activit? de base |
| 1351 |
BesEMAct[Jour] := 0.3 * Power (PV, 0.75) * RuleLoge[NumRuleLoge].Act / 1000 ; |
| 1352 |
if (RuleLoge[NumRuleLoge].Sol = 1) |
| 1353 |
then // Paill? |
| 1354 |
Temperature := RuleLoge[NumRuleLoge].Temp + 3
|
| 1355 |
else
|
| 1356 |
Temperature := RuleLoge[NumRuleLoge].Temp ; |
| 1357 |
if (RuleLoge[NumRuleLoge].Typ = 1) |
| 1358 |
then // Collectif |
| 1359 |
if Temperature < TCICol
|
| 1360 |
then
|
| 1361 |
BesEMThe[Jour] := (TCICol - Temperature) * Power (PV, 0.75) * EThCol / 1000 |
| 1362 |
else
|
| 1363 |
BesEMThe[Jour] := 0
|
| 1364 |
else
|
| 1365 |
if Temperature < TCIInd
|
| 1366 |
then
|
| 1367 |
BesEMThe[Jour] := (TCIInd - Temperature) * Power (PV, 0.75) * EThInd / 1000 |
| 1368 |
else
|
| 1369 |
BesEMThe[Jour] := 0 ;
|
| 1370 |
end ;
|
| 1371 |
BesEMEntTot := Mean (BesEMEnt) ; |
| 1372 |
BesEMPortTot := Mean (BesEMPort) ; |
| 1373 |
BesEMBaseTot := Mean (BesEMBase) ; |
| 1374 |
BesEMActTot := Mean (BesEMAct) ; |
| 1375 |
BesEMTheTot := Mean (BesEMThe) ; |
| 1376 |
// Besoin total en ?nergie
|
| 1377 |
BesEMTot := BesEMEntTot + BesEMActTot + BesEMResTot + BesEMPortTot + BesEMTheTot ; |
| 1378 |
//
|
| 1379 |
// Besoins en acides amin?s
|
| 1380 |
//
|
| 1381 |
EMEntSail := Power (PBPdsSail.AsFloat, 0.75) * EEGest ;
|
| 1382 |
for Jour := 1 to DureeGest do |
| 1383 |
begin
|
| 1384 |
NRUterus := Exp (8.09 - 8.71 * Exp (-0.01494 * Jour) + 0.0872 * PBNesTotaux.AsFloat) / 6.25 |
| 1385 |
- Exp (8.09 - 8.71 * Exp (-0.01494 * (Jour - 1)) + 0.0872 * PBNesTotaux.AsFloat) / 6.25 ; |
| 1386 |
if (Jour < 98) |
| 1387 |
then
|
| 1388 |
CorrJ := Jour |
| 1389 |
else
|
| 1390 |
CorrJ := Jour - 6 / 16 * (Jour - 98) ; |
| 1391 |
Case cycle of |
| 1392 |
1 : // Port?e 1 |
| 1393 |
CorrNR := 0.5708 ;
|
| 1394 |
2 : // Port?e 2 |
| 1395 |
CorrNR := 0.4345 ;
|
| 1396 |
else
|
| 1397 |
CorrNR := 0.3664 ;
|
| 1398 |
end ;
|
| 1399 |
NR := (-0.43 + 45.92 * CorrJ / 100 - 105.35 * Power (CorrJ / 100, 2) + 64.388 * Power (CorrJ / 100, 3) |
| 1400 |
+ CorrNR * (BesEMBaseTot - EMEntSail) + NRUterus) * 0.85 ;
|
| 1401 |
LysRet := NR * 6.25 * 0.067 ; |
| 1402 |
LysEnt := power ((PBPdsSail.AsFloat + (Jour * (PdsAvMB - PBPdsSail.AsFloat) / DureeGest)), 0.75) * 0.036 ; |
| 1403 |
// 1) Besoin total
|
| 1404 |
BesAA[1, Jour] := (LysRet / 0.65) + LysEnt ; |
| 1405 |
for AA := 2 to 12 do |
| 1406 |
BesAA[AA, Jour] := BesAA[1, Jour] * ProtIdGest[AA] / 100 ; |
| 1407 |
// met+cys
|
| 1408 |
BesAA[13, Jour] := BesAA[1, Jour] * (ProtIdGest[2] + ProtIdGest[3]) / 100 ; |
| 1409 |
// phe+tyr
|
| 1410 |
BesAA[14, Jour] := BesAA[1, Jour] * (ProtIdGest[6] + ProtIdGest[7]) / 100 ; |
| 1411 |
// 2) Besoin d'entretien
|
| 1412 |
BesAAEnt[1, Jour] := LysEnt ;
|
| 1413 |
for AA := 2 to 12 do |
| 1414 |
BesAAEnt[AA, Jour] := BesAAEnt[1, Jour] * ProtIdEnt[AA] / 100 ; |
| 1415 |
// met+cys
|
| 1416 |
BesAAEnt[13, Jour] := BesAAEnt[1, Jour] * (ProtIdEnt[2] + ProtIdEnt[3]) / 100 ; |
| 1417 |
// phe+tyr
|
| 1418 |
BesAAEnt[14, Jour] := BesAAEnt[1, Jour] * (ProtIdEnt[6] + ProtIdEnt[7]) / 100 ; |
| 1419 |
// 3) Besoin pour la port?e
|
| 1420 |
for AA := 1 to 14 do |
| 1421 |
BesAAPort[AA, Jour] := (BesAA[AA, Jour] - BesAAEnt[AA, Jour]) / NR * NRUterus ; |
| 1422 |
// 4) Besoin pour la constitution de r?serves
|
| 1423 |
for AA := 1 to 14 do |
| 1424 |
BesAARes[AA, Jour] := BesAA[AA, Jour] - BesAAEnt[AA, Jour] - BesAAPort[AA, Jour] ; |
| 1425 |
end ;
|
| 1426 |
//
|
| 1427 |
// Besoin en min?raux
|
| 1428 |
//
|
| 1429 |
for Jour := 1 to DureeGest do |
| 1430 |
begin
|
| 1431 |
PV := PBPdsSail.AsFloat + GMQ * Jour ; |
| 1432 |
PFoetus := (Exp (4.591 - 6.389 * Exp (0.02398 * (45 - Jour)) + 0.0897 * PBNesTotaux.AsFloat) |
| 1433 |
- Exp (4.591 - 6.389 * Exp (0.02398 * (45 - (Jour - 1))) + 0.0897 * PBNesTotaux.AsFloat)) |
| 1434 |
* PdsPort * 6.25 / Exp (4.591 - 6.389 * Exp (0.02398 * (45 - DureeGest)) + 0.0897 * PBNesTotaux.AsFloat) ; |
| 1435 |
PPlacenta := Exp (7.34264 - 1.40598 * Exp (0.0625 * (45 - Jour)) + 0.00759 * Jour + 0.06339 * PBNesTotaux.AsFloat) * 0.0096 / 23.8 |
| 1436 |
- Exp (7.34264 - 1.40598 * Exp (0.0625 * (45 - (Jour - 1))) + 0.00759 * (Jour - 1) + 0.06339 * PBNesTotaux.AsFloat) * 0.0096 / 23.8 ; |
| 1437 |
// Phosphore digestible
|
| 1438 |
BesP[Jour] := 10 * PV / 1000 |
| 1439 |
+ (5.42 - 0.002857 * 2 * PV) * (PBPdsApMB.AsFloat - PBPdsSail.AsFloat) / DureeGest |
| 1440 |
+ PFoetus + PPlacenta ; |
| 1441 |
// Calcium total
|
| 1442 |
BesCa[Jour] := BesP[Jour] * 3.6 ;
|
| 1443 |
end ;
|
| 1444 |
//
|
| 1445 |
// Affichage des r?sultats
|
| 1446 |
//
|
| 1447 |
if (AppEMTot = 0) |
| 1448 |
then
|
| 1449 |
PBAliment.AsFloat := 0
|
| 1450 |
else
|
| 1451 |
PBAliment.AsFloat := BesEMTot * AppAliTot / AppEMTot ; |
| 1452 |
PBEM.AsFloat := BesEMTot ; |
| 1453 |
if (AppEMTot = 0) |
| 1454 |
then
|
| 1455 |
PBEN.AsFloat := 0
|
| 1456 |
else
|
| 1457 |
PBEN.AsFloat := BesEMTot * AppENTot / AppEMTot ; |
| 1458 |
if (PBAliment.AsFloat = 0) |
| 1459 |
then
|
| 1460 |
PBdLys.AsFloat := 0
|
| 1461 |
else
|
| 1462 |
PBdLys.AsFloat := BesAA[1, 105] ; |
| 1463 |
BBResGest.Enabled := TRUE ; |
| 1464 |
BBRapGest.Enabled := TRUE ; |
| 1465 |
end
|
| 1466 |
else
|
| 1467 |
begin
|
| 1468 |
PBAliment.Text := '' ;
|
| 1469 |
PBEM.Text := '' ;
|
| 1470 |
PBEN.Text := '' ;
|
| 1471 |
PBdLys.Text := '' ;
|
| 1472 |
BBResGest.Enabled := FALSE ; |
| 1473 |
BBRapGest.Enabled := FALSE ; |
| 1474 |
end ;
|
| 1475 |
end ;
|
| 1476 |
|
| 1477 |
procedure TFBesGestT.BBResGestClick(Sender: TObject);
|
| 1478 |
begin
|
| 1479 |
Modal := True; |
| 1480 |
FResBesGestT := TFResBesGestT.Create (Self) ; |
| 1481 |
FResBesGestT.ShowModal ; |
| 1482 |
FResBesGestT.Release ; |
| 1483 |
Modal := False; |
| 1484 |
end;
|
| 1485 |
|
| 1486 |
procedure TFBesGestT.BBRapGestClick(Sender: TObject);
|
| 1487 |
begin
|
| 1488 |
Modal := True; |
| 1489 |
FRapBesGestT := TFRapBesGestT.Create(Self); |
| 1490 |
FRapBesGestT.QRRapport.PreviewModal ; |
| 1491 |
FRapBesGestT.Release; |
| 1492 |
Modal := False; |
| 1493 |
end;
|
| 1494 |
|
| 1495 |
procedure TFBesGestT.AjustEnabled;
|
| 1496 |
begin
|
| 1497 |
ChkAgeSail.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1498 |
ChkPdsSail.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1499 |
ChkP2Sail.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1500 |
ChkPdsApMB.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1501 |
ChkP2MB.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1502 |
ChkNesTotaux.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1503 |
ChkPdsNais.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1504 |
ChkLoge.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1505 |
ChkSeqAli.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1506 |
ChkRation.Visible := CBProfil.ItemIndex <> -1 ;
|
| 1507 |
ChkAppAli.Visible := (CBProfil.ItemIndex <> -1) or (CBRation.ItemIndex <> -1) ; |
| 1508 |
ChkEMAli.Visible := (CBProfil.ItemIndex <> -1) or (CBSeqAli.ItemIndex <> -1) ; |
| 1509 |
end;
|
| 1510 |
|
| 1511 |
end.
|