Domácí úloha 2011

Zavedení základních pojmů a metod teorie pravděpodobnosti a matematické statistiky a příklady jejich aplikací. Jedná se zejména o pojem pravděpodobnosti, náhodné veličiny a jejího rozdělení, nezávislosti, náhodného výběru a jeho popisných charakteristik, konstrukci odhadů, testování hypotéz, náhodné generátory. Důraz je kladen na praktické použití metod s využitím dostupného statistického software.
Domácí úloha 2011

Domácí úloha 2011

Příspěvek od Domácí úloha 2011 »

Nechcete někdo napsat správné řešení? :D ..
PetrK
Matfyz(ák|ačka) level I
Příspěvky: 22
Registrován: 7. 2. 2011 22:41
Typ studia: Informatika Bc.

Re: Domácí úloha 2011

Příspěvek od PetrK »

Pochybuju, ze by sem nekdo dal uplne reseni, spis se zeptej, jestli potrebujes hint na nejakou konkretni ulohu.

Treba ja sem se zatim neprenes pres podminku u ulohy 2 "Simulovani doby prichodu a obsluhy provedte pouze jedenkrat", napadlo me jenom reseni hrubou silou, kde to nasimuluju vse a vyberu to nejlepsi.
mwa

Re: Domácí úloha 2011

Příspěvek od mwa »

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)
PetrK
Matfyz(ák|ačka) level I
Příspěvky: 22
Registrován: 7. 2. 2011 22:41
Typ studia: Informatika Bc.

Re: Domácí úloha 2011

Příspěvek od PetrK »

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)
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.

Kompletni reseni z minulych let sem nevidel, ale da se dost dobre poskladat z hintu tady na foru, nebo na strankach cvicicich. Na jednech strankach z prednekolika let sem nasel kod pro generovani, nepamatuju si kde, takze autor zustane neznamy (velmi podobny priklad jako letosni):

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
btw. ta uloha neni tezka, jak to chci delat sem mel vymysleno za chvili, ale vytvorit to v R bylo peklo.
Uživatelský avatar
mifeet
Matfyz(ák|ačka) level I
Příspěvky: 14
Registrován: 27. 1. 2010 14:37
Typ studia: Informatika Ph.D.

Re: Domácí úloha 2011

Příspěvek od mifeet »

mwa píše:Nemáte někdo k dispozici řešení z minulých let? (bláhová otázka, že)
Něco se dá najít na KolejNETu, stačí vyhledat soubory "*.r"
banka

Re: Domácí úloha 2011

Příspěvek od banka »

ta banka je celej ten zdrojak?
TiredOfStatistics

Re: Domácí úloha 2011

Příspěvek od TiredOfStatistics »

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.
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"

Takze ide o to, aby tvoj odhad bol spravny specificky pre dat, ktore si ty vygeneroval, nie pre vsetky mozne mnoziny dat.

Ergo podla mna sa simulacia urobi tak, ze si vygenerujes casy prichodov vodicov a casy ich obsluhy a simulaciu zacnes s jednou otvorenou priehradkou. postupne ako budes obsluhovat dalsich vodicov zistujes ci existuje priehradka, ku ktorej by sa dany vodic dostal v case mensom ako 10 minut ak ano posles ho k tej priehradke ak nie otvoris dalsiu. Pre kazdu priehradku si pamatas kolko ludi obsluzila a na konci dna zlejes priehradky, ktore dokopy obsluzili menej ako 10% vodicov do jednej a spocitas kolko si pouzil priehradok

Dufam, ze to riesenie je spravne :)


TDz
ondr4
Matfyz(ák|ačka) level I
Příspěvky: 9
Registrován: 31. 5. 2009 11:17
Typ studia: Informatika Bc.

Re: Domácí úloha 2011

Příspěvek od ondr4 »

Nevíte někdo, jak jít na teoretickou část úlohy 1f) ? Docela by mi to pomohlo.
__

Re: Domácí úloha 2011

Příspěvek od __ »

mě by docela pomohlo 1d, e, f :D
Odpovědět

Zpět na „MAI059 Pravděpodobnost a statistika“