Matematické Fórum

Zadanie:
Maliarska firma má počas sezóny (marec - november) niekoľko zákaziek, ktorých počet je určený Poissonovým rozdelením so strednou hodnotou 10 zákaziek. V jednej zákazke má vymaľovať TRIA(a,b,c) m2 rovnako nasiakavých stien. Množstvo farby potrebné na natretie jedného m2 steny je podľa nasiakavosti steny TRIA(x,y,z) kg.
Farba sa kupuje na celú sezónu na začiatku sezóny. Kúpiť sa dá len po 25kg baleniach. Keďže farba zimu nevydrží, majiteľ firmy chce kúpiť čo najmenší počet balení farby, no zároveň požaduje, aby pravdepodobnosť, že mu farba počas sezóny nebude stačiť bola menšia ako 5%. Pomocou metódy Monte Carlo určte, koľko balení farby má majiteľ na začiatku sezóny kúpiť.


Moje riesenie:

        BALENI = 0;
        for (repl = 0, repl < 1000, repl++   ) {
            ZAKAZIEK = POISSON(10);
            
            HMOTNOST = 0;//POTREBNYCH KG

            for (z = 0, z < ZAKAZIEK, z++  ) {
                PLOCHA = TRIA(a, b, c);
                STENA = TRIA(x, y, z);
                HMOTNOST += STENA*PLOCHA;
            }
           
            WHILE(BALENI * 25 < HMOTNOST)
            {
                BALENI++;
            }
            
        }
        
        VYPIS "TREBA KUPIT " + (BALENI/1000) + "BALENI";

niesom si isty tym 5% neuspechom resp. 95% uspechom