Perhitungan Teorema Bayes || Simple

assalamualaikum warahmatullahi wabarakatuh,,,

Perhitungan Teorema Bayes Ala Uncle diky,,
Mungkin di luar sana ada banyak postingan terkait perhitungan teorema bayes, tetapi kali ini uncle membuat perhitungannya STEP by STEP sehingga mudah untuk dipahami,,,

Bismillah dlu ya sebelum memulai...

Contoh soal:

Andi terkena penyakit kulit dengan gejala gatal, kulit memerah, bengkak, bintik bintik, kulit terkelupas.(5 gejala).

Gejala
G1	=	0.8
G2	=	0.8
G3	=	0.3
G4	=	0.5
G5	=	0.1

Carilah berapa persen andi terkena penyakit kulit dengan teorema bayes.

Jawab :

Langkah 1 :

Jumlahkan semua gejala

G1+G2+G3+G4+g5 = 2.5

Langkah 2 :

Setiap Gejala / Jmlah_Gejala

I	=	0.8	0.32	Misal A1
		2.5
II	=	0.8	0.32	Misal A2
		2.5
III	=	0.3	0.12	Misal A3
		2.5
IV	=	0.5	0.2	Misal A4
		2.5
V	=	0.1	0.04	Misal A5
		2.5

Langkah 3 :

Jumlahkan Seluruh Perkalian antara G dan A

=(G1*A1) + (G2*A2) + (G3*A3) + (G4*A4) + (G5*A5)  = 0.652 (Misal C)

Langkah 4 :

I	=	G1*A1		misal D1
		C1
II	=	G2*A2		misal D2
		C1
III	=	G3*A3		misal D3
		C1
IV	=	G4*A4		misal D4
		C1
V	=	G5*A5		misal D5
		C1

Jumlahkan Seluruh Perkalikan Antara Semua Gejala dengan masing masing D

= (G1*D1) + (G2*D2) + (G3*D3) + (G4*D4) +(G5*D5)= …….. (misal E)

Langkah 5 :

Kalikan Hasil E dengan 100% untuk menentukan persentase

SELESAI

Contoh Program :

*Sesuaikan Semua TextBox yang ada

Double klik pada g5 :

            Dim g1 As Decimal = txtg1.Text

            Dim g2 As Decimal = txtg2.Text

            Dim g3 As Decimal = txtg3.Text

            Dim g4 As Decimal = txtg4.Text

        Dim g5 As Decimal = txtg5.Text

            'langkah 1

            txtjumlahG.Text = FormatNumber(g1 + g2 + g3 + g4 + g5, 2)

            Dim j1 As Decimal = txtjumlahG.Text

            'langkah 2

            txta1.Text = FormatNumber(g1 / j1, 3)

            txta2.Text = FormatNumber(g2 / j1, 3)

            txta3.Text = FormatNumber(g3 / j1, 3)

            txta4.Text = FormatNumber(g4 / j1, 3)

            txta5.Text = FormatNumber(g5 / j1, 3)

            Dim a1 As Decimal = txta1.Text

            Dim a2 As Decimal = txta2.Text

            Dim a3 As Decimal = txta3.Text

            Dim a4 As Decimal = txta4.Text

            Dim a5 As Decimal = txta5.Text

            'langkah 3

            txtjumlahC.Text = FormatNumber((g1 * a1) + (g2 * a2) + (g3 * a3) + (g4 * a4) + (g5 * a5), 3)

            Dim c1 As Decimal = txtjumlahC.Text

            ' langkah 4

            txtd1.Text = FormatNumber((g1 * a1) / c1, 2)

            Dim d1 As Decimal = txtd1.Text

            txtd2.Text = FormatNumber((g2 * a2) / c1, 2)

            Dim d2 As Decimal = txtd2.Text

            txtd3.Text = FormatNumber((g3 * a3) / c1, 2)

            Dim d3 As Decimal = txtd3.Text

            txtd4.Text = FormatNumber((g4 * a4) / c1, 2)

            Dim d4 As Decimal = txtd4.Text

            txtd5.Text = FormatNumber((g5 * a5) / c1, 2)

            Dim d5 As Decimal = txtd5.Text

        txtjumlahD.Text = FormatNumber((g1 * d1) + (g2 * d2) + (g3 * d3) + (g4 * d4) + (g5 * d5), 2)

            Dim r As Decimal = txtjumlahD.Text

Double klik pada button hasil

'langkah 5

        Dim r As Double = txtjumlahD.Text

        txthasil.Text = (r * 100) & "%"

        If txthasil.Text > 50 & "%" Then

            MsgBox("Hasil " & txthasil.Text & " Anda POSITIF Terkena Penyakit HATI")

        Else

            MsgBox("Hasil" & txthasil.Text & " Anda NEGATIF Terkena Penyakit HATI")

        End If

Download Bentuk Pdf  Klik disini

Tag : Perhitungan Teorema Bayes, Mudah Memahani Perhitungan Bayes, Cara Menentukan Persentase Teorema Bayes, Cara Menghitung Teorema Bayes