Figure 2

FOR each element Ei
 Fiunsent = Fitotal = Fiemit
ENDFOR
DO
 Select element Ei with greatest Fiunsent
 Send Fiunsent to other elements
 Fiunsent = 0
 FOR each element Ei
  Li = Fitotal / p Ai
 ENDFOR
WHILE (Fiunsent >= Fmin for any element Ei)