Peluang Kartu Poker

Peluang Kartu Poker Menggunkan Aplikasi R Studio

Hai Bro... kali ini saya mau berbagi sedikit Ilmu  tentang cara Menghitung peluang Kartu Poker di Aplikasi R studio. Langsung saja Berikut Source Code Programnya:

SOURCE CODE

kartu=paste(rep(c("A",2:10,"J","Q","K"),4),c("H","D","S","C"))

ambilkartu=sample(kartu,55,rep=T)

ambilkartu

kartu

cc= sum(ambilkartu=="K H")/length(ambilkartu)

cat("probabilitas Muncul KING HATI ",":",cc)

OUTPUT PROGRAM

PENJELASAN

⧫kartu=paste(rep(c("A",2:10,"J","Q","K"),4),c("H","D","S","C"))

 ➥ Menampilkan Banyak Kartu Poker Sebanyak 52 kartu yang tediri   dari Heart(hati) , Spade(sekop) ,Diamond(wajik) ,Club(keriting).

⧫ambilkartu=sample(kartu,55,rep=T) 

 ➥ Menampilkan Peluang Kartu dengan banyak kartu 55 buah. Sehingga   3 sisa kartu  diambil secara acak melalui fungsi rep=T .

⧫cc= sum(ambilkartu=="K H")/length(ambilkartu)

 cat("probabilitas Muncul KING HATI ",":",cc)
 ➥ Menampilkan peluang banyak muncul kartu king hati pada sampel     "ambil kartu" sehingga di dapat peluang muncul kartu king hati        dengan banyak kartu 55 adalah 0.01818182 .


Begitulah sedikit Informasi dari Saya ,apabila terjadi kesalahan atau kesilapan saya mohon maaf .Terimakasih sudah datang dan membaca artikel saya . Sertakan link sumber untuk Menghargai Karya cipta orangnya ☺.

Menghitung Peluang Bola dalam Kotak Menggunakan R

Menghitung Peluang Bola dalam Kotak Menggunakan R Studio.

Hai Bro... kali ini saya mau berbagi sedikit Ilmu  tentang cara Menghitung peluang dadu di Aplikasi R studio. Langsung saja Berikut Source Code Programnya:

Soal : Jika diketahui Didalam Sebuah Kotak Terdapat 3 Bola dengan warna sebagai Berikut :
           2 Bola Bewarna Hitam, 2 Bola Bewarna Kuning , 1 Bola Bewarna Biru. Tentukan lah
           Peluang Muncul Bola  Warna Hitam Dengan 20 kali Pengambilan Acak !

SOURCE CODE

bola=function(n)

bola=function(n)

{

  kotak=c("H","H","K","K","B")

  ambilbola=sample(kotak,10,rep=T)

  print(ambilbola)

  

  hitam=sum(ambilbola=="H")/length(ambilbola)

  cat("peluang muncul Bola Hitam ",":",hitam,"\n")

  kuning=sum(ambilbola=="K")/length(ambilbola)

  cat("peluang Muncul Bola Kuning ",":",kuning,"\n")

  biru=sum(ambilbola=="B")/length(ambilbola)

  cat("peluang Muncul Bola Biru ",":",biru,"\n")

  }  

OUTPUT PROGRAM

Maka, Peluang Muncul Bola Hitam dalam 20 Kali Pengambilan Acak Adalah 0,7 .

Begitulah sedikit Informasi dari Saya ,apabila terjadi kesalahan atau kesilapan saya mohon maaf .Terimakasih sudah datang dan membaca artikel saya . Sertakan link sumber untuk Menghargai Karya cipta orangnya ☺. 

Menghitung Peluang Mata Dadu Menggunakan Program R

PELUANG MATA DADU MENGGUNAKAN PROGRAM R STUDIO


Hai Bro... kali ini saya mau berbagi sedikit Ilmu  tentang cara Menghitung peluang dadu di Aplikasi R studio.... saya Memiliki 2 Versi Source Code :


Versi I

Berikut Source code :

dadu=function(n)

{

  sampel=sample(1:6,n,rep=T)

  

  cat(sampel)

  cat("\n\n")

  for(i in 1:6){

    prob = sum(sampel==i)/n

    cat("probabilitas muncul mata", i ,prob,"\n")

  }

}

Output Program

Versi II

Berikut Source code :

dadu=function(n)

{

  sampel=sample(c("1","2","3","4","5","6"),n,rep=T)

cat(sampel," ")

cat("\nPeluang dadu Bermata satu ", ":",sum(sampel=="1")/n)

cat("\nPeluang dadu Bermata dua ", ":",sum(sampel=="2")/n)

cat("\nPeluang dadu Bermata tiga ", ":",sum(sampel=="3")/n)

cat("\nPeluang dadu Bermata empat ", ":",sum(sampel=="4")/n)

cat("\nPeluang dadu Bermata lima ", ":",sum(sampel=="5")/n)

cat("\nPeluang dadu Bermata enam ", ":",sum(sampel=="6")/n)

}

Output Program

Penjelasan Program

setelah Penulisan Source code maka ketik "dadu(n)" di console.sehingga didapatkan hasil peluangnya. n adalah banyak lemparan pada Dadu. Kalau fungsi Rep=T itu berguna untuk mengacak kemunculan sampel .

Peluang dadu dimana terdapat syarat peluang Muncul mata dadu.

Contoh tentukan peluang dari dadu bermata 5 dengan n kali perlemparan dadu , dimana peluang Setiap dadu ialah

mata  dadu 1  p (1/9)                                      mata dadu 4  p (2/9)

mata dadu 2  p (3/9)                                       mata dadu 5  p (1/9)

mata dadu 3  p (1/9)                                       mata dadu 6  p (1/9)

artinya peluang muncul setiap mata dadu di atas tidak boleh melebihi aturan di atas. Conntohnya jika peluang muncul mata dadu 2 dalam 9 kli perlemparan adalah 2/9 . maka peluang mata dadu benar . tapi jika mata dadu 2 yang keluar sebanyak 5 dari 9 perlemparan ..maka tidak memenuhi syarat

Source  program

var=function(n)

{

  dadu=c(1:6)

  lempardadu=sample(dadu,n,rep=T,prob=c(1/9,3/9,1/9,2/9,1/9,1/9))

  print(lempardadu)

  cat("\n")

  P5=sum(lempardadu=="5")/length(lempardadu)

  cat("Peluang Muncul Mata dadu 5 adalah ",":",P5)

}

Output Program

Begitulah sedikit Informasi dari Saya ,apabila terjadi kesalahan atau kesilapan saya mohon maaf .Terimakasih sudah datang dan membaca artikel saya . Sertakan link sumber untuk Menghargai Karya cipta orangnya ☺.