# -----------------------------------------------------------------------
# Esercizio 3.12. Un particolare componente meccanico in lega leggera può
# presentare difetti nella forma e/o nella composizione della lega.
# Il 6% dei componenti prodotti da una azienda presenta esclusivamente
# difetti di forma, l'8% esclusivamente nella lega ed il 2% entrambi
# i tipi di difetti. Estraendo a caso un pezzo dalla produzione
# dell'azienda, si determini la probabilità che esso
# non presenti alcun tipo di difetto
# -----------------------------------------------------------------------
pezzo <- c("00","01","10","11")
prove <- 10000
num <- 0; den <- 0
for (i in 1:prove) {
    ris <- sample(pezzo,size=1,prob=c(0.84,0.06,0.08,0.02))
    den <- den + 1
    if (ris == "00") num <- num + 1
}
cat(num,den,num/den,"\n")
# -----------------------------------------------------------------------



# -----------------------------------------------------------------------
# Esercizio 3.12. Un particolare componente meccanico in lega leggera può
# presentare difetti nella forma e/o nella composizione della lega.
# Il 6% dei componenti prodotti da una azienda presenta esclusivamente
# difetti di forma, l'8% esclusivamente nella lega ed il 2% entrambi
# i tipi di difetti. Estraendo a caso un pezzo dalla produzione
# dell'azienda, si determini la probabilità che esso
# presenti un solo tipo di difetto
# -----------------------------------------------------------------------
pezzo <- c("00","01","10","11")
prove <- 10000
num <- 0; den <- 0
for (i in 1:prove) {
    ris <- sample(pezzo,size=1,prob=c(0.84,0.06,0.08,0.02))
    den <- den + 1
    if (ris == "01" | ris=="10") num <- num + 1
}
cat(num,den,num/den,"\n")
# -----------------------------------------------------------------------