xcjajx/Rachunek_prawdopodobienstwa
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects 1 Releases Wiki Activity

Update Przewodnik_studenta_lab/02LRAP_przewodnik.ipynb

Browse Source
This commit is contained in:
xcjajx 2024-10-17 14:56:29 +02:00
parent e2bacc7675
commit da24f9e39e
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Przewodnik_studenta_lab/02LRAP_przewodnik.ipynb
View File

@ -347,20 +347,19 @@
"\n", "\n",
"p = rep(0, 12)\n", "p = rep(0, 12)\n",
"for (i in 1:12) {\n", "for (i in 1:12) {\n",
" if (Omega[i,1] == 1) {\n", " if (Omega[i,1] == 1) {p[i] = 0.5*0.5} else {p[i] = 0.1*0.5\n",
" p[i] = 0.5*0.5} else {p[i] = 0.1*0.5\n",
"}}\n", "}}\n",
"# Generujemy przestrzeń probabilistyczną\n", "# Generujemy przestrzeń probabilistyczną\n",
"X2 = probspace(Omega,p)\n", "X2 = probspace(Omega, p)\n",
"print(X2)\n", "print(X2)\n",
"# Możemy teraz obliczyć prawdopodobieństwo zdarzenie A\n", "# Możemy teraz obliczyć prawdopodobieństwo zdarzenie A\n",
"A = subset(Omega,(k %in% seq(1, 6, by=2)) & (m == 'O'))\n", "A = subset(Omega, (k %in% seq(1, 6, by=2)) & (m == 'O'))\n",
"print(Prob(A))\n", "print(Prob(A))\n",
"# Alternatywnie, można by wyznaczyć prawdopodobieństwo wypadnięcia nieparzystej liczby oczek w przestrzeni rzutu kostką i prawdopodobieństwo wypadnięcia orła w przestrzeni rzutu monetą i pomnożyć przez siebie te dwa prawdopodobieństwa\n", "# Alternatywnie, można by wyznaczyć prawdopodobieństwo wypadnięcia nieparzystej liczby oczek w przestrzeni rzutu kostką i prawdopodobieństwo wypadnięcia orła w przestrzeni rzutu monetą i pomnożyć przez siebie te dwa prawdopodobieństwa\n",
"kostka = probspace(1:6, c(0.5, rep(0.1,5))) # Definiujemy przestrzeń związaną z rzutem kostką\n", "kostka = probspace(1:6, c(0.5, rep(0.1,5))) # Definiujemy przestrzeń związaną z rzutem kostką\n",
"A1 = subset(kostka, (x %in% seq(1, 6, by=2)))\n", "A1 = subset(kostka, (x %in% seq(1, 6, by=2)))\n",
"moneta = probspace(c('O', 'R')) # Definiujemy przestrzeń związaną z rzutem monetą\n", "moneta = probspace(c('O', 'R')) # Definiujemy przestrzeń związaną z rzutem monetą\n",
"A2 = subset(moneta, x=='O')\n", "A2 = subset(moneta, x == 'O')\n",
"pA = Prob(A1) * Prob(A2)\n", "pA = Prob(A1) * Prob(A2)\n",
"print(pA)" "print(pA)"
] ]