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í
Návrh řešení
OdhadCelkem 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. SimulaceNapíš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é vzorceDosazením do statistických vzorců obdržíme:
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. |