Domácí úloha 2011
Napsal: 1. 3. 2011 09:39
Nechcete někdo napsat správné řešení? ..
Pro všechny studenty informatiky, fyziky, matematiky a učitelství na Matfyzu provozuje a spravuje Spolek Matfyzák
https://forum.matfyzak.cz/
Ja sem myslel, ze po nas chteji udelat jednu simulaci pro 20 prepazek a z toho nejak spocitat, kolik min musi byt otevrenych, ale asi necham reseni, ze tech simulaci udelam 20 pro ruzny pocet prepazek.mwa píše:Podle mne se to asi tak má dělat, ale nevím, proč pro vybraný počet přepážek smíme udělat simulaci jen jednoho dne. Vždyť z toho je jen strašně málo údajů na výpočet té pravděpodobnosti, ne?
Nemáte někdo k dispozici řešení z minulých let? (bláhová otázka, že)
Kód: Vybrat vše
### Volani: banka.jedenden() pokud jsou otevreny vsechny prepazky
### banka.jedenden(FALSE) pokud nejsou otevreny vsechny prepazky
banka.jedenden <- function(vsechnyprepazky=TRUE) {
### Inicializace
pocetintervalu <- 3
indexi <- 1:pocetintervalu
mu <- c(32/60,26/60,50/60)
zmena <- c(90,390,480)
pocetprepazek <- 5
lambda <- 10/60
obsluha <- rep(0,pocetprepazek)
index <- 1:pocetprepazek
if (vsechnyprepazky) { maxindex <- c(5,5,5) }
else { maxindex <- c(4,3,5) }
### Generovani prichodu
prichod <- NULL
cas <- rexp(1,mu[1])
for (i in 1:pocetintervalu) {
while (cas<=zmena[i]) {
prichod <- c(prichod,cas)
cas <- cas + rexp(1,mu[i])
}
}
pocetklientu <- length(prichod)
### Zaznamenani obsluhy klientu
prubeh <- matrix(0,pocetklientu,4)
prubeh[,1] <- prichod
for (i in 1:pocetklientu) {
k <- indexi[ (c(0,zmena[-pocetintervalu])<prichod[i]) & (zmena>=prichod[i]) ]
jmin <- min(index[obsluha[1:maxindex[k]]==min(obsluha[1:maxindex[k]])])
tmin <- obsluha[jmin]
casobsluhy <- rexp(1,lambda)
if (prichod[i]<tmin) {
prubeh[i,2] <- tmin
prubeh[i,3] <- tmin + casobsluhy
}
else {
prubeh[i,2] <- prichod[i]
prubeh[i,3] <- prichod[i] + casobsluhy
}
obsluha[jmin] <- prubeh[i,3]
prubeh[i,4] <- jmin
}
### Vypis (aka Return)
list(prubeh=prubeh,pocetklientu=pocetklientu)
} #end function
Něco se dá najít na KolejNETu, stačí vyhledat soubory "*.r"mwa píše:Nemáte někdo k dispozici řešení z minulých let? (bláhová otázka, že)
zo zadania: "bla bla bla ... na zaklade nove vygenerovanych dat (pro jeden den) urcete minimalni pocet otevrenych prepazek, tak aby s pravdepodobnosti alespon 90% cekal prichozi ridic mene nez 10 minut ... simulovani bla bla bla"PetrK píše: Ja sem myslel, ze po nas chteji udelat jednu simulaci pro 20 prepazek a z toho nejak spocitat, kolik min musi byt otevrenych, ale asi necham reseni, ze tech simulaci udelam 20 pro ruzny pocet prepazek.