Klasický přístup k řízení výroby
Výpočet pojistné zásoby
 Tisk

Zadání

Výpočet pojistné zásoby


Vypočtěte pojistnou zásobu pro zadaný příklad. Předpokládáme celkem 9 dodávek materiálu za rok. Kolísá jak spotřeba, tak termíny dodávek. Velikost dodávky je konstantní.

Obrázek 1. Pojistná zásoba - zadání






šipka Návrh řešení

Odhad


Celkem za minulý rok se potřebovalo 444 tun materiálu. Můžeme přepokládat 9 dodávek, tedy dodávku po 50 tunách. Spotřeba překračuje průměr max. o asi 20%, termíny dodávek asi max. 15 procent. Nezdá se, že by se kumulovaly skluzy dodávek a spotřeba do jednoho období, tedy se budou asi vzájemně eliminovat.   Volíme pojistnou zásobu ve výši poloviční dodávky, což je cca 5 - 6% roční spotřeby.


Simulace


Napíšeme jednoduchý simulační program za předpokladu, že v každém měsíci je jiná, ale rovnoměrná spotřeba. Jako výchozí stav vezmeme hodnotu 75 (velikost dodávky + odhadnutá pojistná zásoba).


program sklady;


{$APPTYPE CONSOLE}


uses

    SysUtils;

type

    TStav     = array[0..365] of real;

    TSpotreba = array[1..12] of integer;

    TInterval = array[1..9] of integer;

    TMesice   = array[1..12] of integer;

var

    Stav, Celkem:     TStav;

    Spotreba: TSpotreba;

    Interval: TInterval;

    Mesice : TMesice;

    uk,mes,i:integer;

    t:textfile;

begin

    Spotreba[1]   := 36;

    Spotreba[2]   := 40;

    Spotreba[3]   := 40;

    Spotreba[4]   := 40;

    Spotreba[5]   := 30;

    Spotreba[6]   := 44;

    Spotreba[7]   := 32;

    Spotreba[8]   := 40;

    Spotreba[9]   := 40;

    Spotreba[10] := 30;

    Spotreba[11] := 40;

    Spotreba[12] := 32;

    Interval[1]   := 40;

    Interval[2]   := 50;

    Interval[3]   := 37;

    Interval[4]   := 45;

    Interval[5]   := 36;

    Interval[6]   := 51;

    Interval[7]   := 31;

    Interval[8]   := 38;

    Interval[9]   := 37;

    Mesice[1]     := 31;

    Mesice[2]     := 28;

    Mesice[3]     := 31;

    Mesice[4]     := 30;

    Mesice[5]     := 31;

    Mesice[6]     := 30;

    Mesice[7]     := 31;

    Mesice[8]     := 31;

    Mesice[9]     := 30;

    Mesice[10]    := 31;

    Mesice[11]    := 30;

    Mesice[12]    := 31;


    uk := 0;

    Stav[0] := 75;

    for mes := 1 to 12 do

      for I := 1 to Mesice[mes] do begin

        inc(uk);

        Stav[uk] := - spotreba[mes]/Mesice[mes];

      end;

    uk := 0;

    for i := 1 to 9 do begin

      uk := uk + interval[i];

      Stav[uk] := stav[uk] + 50;

    end;

    celkem[0] := stav[0];

    for uk := 1 to 365 do

      celkem[uk] := celkem[uk-1] + stav[uk];

    assign(t,'sklady.prn');

    rewrite(t);

    for I := 0 to 365 do

      writeln(t, i:3,';',stav[i]:8:3,';', celkem[i]:8:3);

    closefile(t);

end.


Výsledky převedeme do Excelu a zobrazíme do grafu.

Obrázek 1. Simulace pojistné zásoby



Vidíme, že pojistná 25 tun zásoba je dostačující, při pojistné zásobě cca 16 tun asi jednou nastane nedostatek materiálu.


Statistické vzorce


Dosazením do statistických vzorců obdržíme:

  1. Pojistnou zásobu 22.17 tun
  2. Pojistnou zásobu 22.77 tun


což je ve shodě se simulací.

Obrázek 2. Pojistná zásoba - výsledky v Excelu



Celkové výpočty a průběh simulace bez pojistné zásoby jsou v Excelu.


Pojistná zásoba