Algoritma Stemming Porter Bahasa Indonesia

Pagi guys, semoga selalu diberi kesehatan dan keberkahan di hari ini. Aaammiinn 😊
Buat temen-temen semua yang lagi pusing nih, galau ngga nemu - nemu koding buat bikin project tentang Temu Balik Informasi (Information Retrieval). Temen - temen bisa mencontoh koding dibawah ini yang bisa dijadikan referensi. yups, sebelum kita lihat koding alangkah lebih baiknya kita mengenal dulu apa itu Stemming, dan algoritma porter.

Stemming adalah  teknik untuk menjadikan kata-kata dalam sebuah dokumen yang berupa teks menjadi kata dasar. Pada proses stemming berbeda dalam tiap bahasa, karena pada setiap bahasa yang digunakan disebagian negara memiliki aturan-aturan berbeda saat meggunakan kata berimbuhan dalam penggunaanya.

Pada proses stemming merupakan pengelolaan keyword menjadi keyword yang utuh yaitu dengan menghilangkan imbuhan seperti diantaranya “yang”, “di”,”ke”,”me”, “meng”, dan “kan”. Penguraian dari suatu kata menjadi bentuk kata dasarkan (stem). Tahapan pada proses stemming :
1. Token hasil tokenizing diperiksa apakah mengandung imbuhan atau tidak
2. Jika terdapat imbuhan maka akan dilakukan pembuangan imbuhan, terus berulang sampai tidak mengandung imbuhan.
3. Jika tidak mengandung imbuhan maka akan ditampilkan
Pada gambar dibawah ini menunjukan tahapan yang dilakukan sistem dalam mencari kata dasar dari sebuah file dokumen yang diinputkan.

Algoritma Porter ditemukan oleh Martin Porter 1980. Algoritma tersebut digunakan untuk stemming Bahasa Inggris, kemudian karena proses stemming bahasa Inggris berbeda dengan bahasa Indonesia, maka dikembangkan algoritma Porter khusus untuk bahasa Indonesia (Porter Stemmer for Bahasa Indonesia) oleh W.B Frakes pada tahun 1992.
Langkah-Langkah Algortima pada Porter Stemmer.
1. Menghapus Partikel seperti: kah, lah, tah
2. Menghapus Kata ganti (Possesive Pronoun), seperti ku, mu, nya
3. Menghapus awalan pertama. Jika tidak ditemukan, maka lanjut ke langkah 4a, dan jika ada maka lanjut ke langkah 4b.
4. a. Menghapus Awalan kedua, dan dilanjutkan pada langkah 5a
b. Menghapus akhiran, jika tidak ditemukan maka kata tersebut diasumsikan sebagai kata dasar (rootword). Jika ditemukan maka lanjut ke langkah 5b.
5. a. Menghapus akhiran dan kata akhir diasumsikan sebagai kata dasar (root word).
b. Menghapus awalan kedua dan kata akhir diasumsikan sebagai kata dasar (root word)

 Nah, udah pada tau kan apa itu algoritma porter, sekarang next kita lanjut ke kodingnya :
berikut adalah koding stemminya :

<?php function cari($kata){ include "koneksi.php"; //menambahkan koneksi.php ke dalam stemming.php $hasil = mysql_num_rows(mysql_query("SELECT * FROM tb_katadasar WHERE katadasar='$kata'")); //membuat variabel $hasil untuk menampilkan hasil mengambil kata dasar dari database return $hasil; //mengeksekusi variabel $hasil } //langkah 1 - hapus partikel function hapuspartikel($kata){ if(cari($kata)!=1){ if((substr($kata, -3) == 'kah' )||( substr($kata, -3) == 'lah' )||( substr($kata, -3) == 'pun' )){ $kata = substr($kata, 0, -3); } } return $kata; } //langkah 2 - hapus possesive pronoun function hapuspp($kata){ if(cari($kata)!=1){ if(strlen($kata) > 4){ if((substr($kata, -2)== 'ku')||(substr($kata, -2)== 'mu')){ $kata = substr($kata, 0, -2); }else if((substr($kata, -3)== 'nya')){ $kata = substr($kata,0, -3); } } } return $kata; } //langkah 3 hapus first order prefiks (awalan pertama) function hapusawalan1($kata){ if(cari($kata)!=1){ if(substr($kata,0,4)=="meng"){ if(substr($kata,4,1)=="e"||substr($kata,4,1)=="u"){ $kata = "k".substr($kata,4); }else{ $kata = substr($kata,4); } }else if(substr($kata,0,4)=="meny"){ $kata = "s".substr($kata,4); }else if(substr($kata,0,3)=="men"){ $kata = substr($kata,3); } /*else if(substr($kata,0,3)=="mem"){ if(substr($kata,3,1)=="a" || substr($kata,3,1)=="i" || substr($kata,3,1)=="e" || substr($kata,3,1)=="u" || substr($kata,3,1)=="o"){ if(substr($kata,3,1)=="a" || substr($kata,3,1)=="i" || substr($kata,3,1)=="e" || substr($kata,3,1)=="u" || substr($kata,3,1)=="o"){ $kata = "m".substr($kata,3); } }else{ $kata = substr($kata,3); } }*/ else if(substr($kata,0,3)=="mem"){ if(substr($kata,3,1)=="a"){ $kata = "m".substr($kata,3); } else if(substr($kata,3,2)=="in"){ $kata = "m".substr($kata,3); } else if(substr($kata,3,1)=="i"){ $kata = "p".substr($kata,3); } else{ $kata = substr($kata,3); } } else if(substr($kata,0,2)=="me"){ $kata = substr($kata,2); }else if(substr($kata,0,4)=="peng"){ if(substr($kata,4,1)=="e" || substr($kata,4,1)=="a"){ $kata = "k".substr($kata,4); }else{ $kata = substr($kata,4); } }else if(substr($kata,0,4)=="peny"){ $kata = "s".substr($kata,4); }else if(substr($kata,0,3)=="pen"){ if(substr($kata,3,1)=="a" || substr($kata,3,1)=="i" || substr($kata,3,1)=="e" || substr($kata,3,1)=="u" || substr($kata,3,1)=="o"){ $kata = "t".substr($kata,3); }else{ $kata = substr($kata,3); } }else if(substr($kata,0,3)=="pem"){ if(substr($kata,3,1)=="a" || substr($kata,3,1)=="i" || substr($kata,3,1)=="e" || substr($kata,3,1)=="u" || substr($kata,3,1)=="o"){ $kata = "p".substr($kata,3); }else{ $kata = substr($kata,3); } }else if(substr($kata,0,2)=="di"){ $kata = substr($kata,2); }else if(substr($kata,0,3)=="ter"){ $kata = substr($kata,3); }else if(substr($kata,0,2)=="ke"){ $kata = substr($kata,2); } } return $kata; } //langkah 4 hapus second order prefiks (awalan kedua) function hapusawalan2($kata){ if(cari($kata)!=1){ if(substr($kata,0,3)=="ber"){ $kata = substr($kata,3); }else if(substr($kata,0,3)=="bel"){ $kata = substr($kata,3); }else if(substr($kata,0,2)=="be"){ $kata = substr($kata,2); }else if(substr($kata,0,3)=="per" && strlen($kata) > 5){ $kata = substr($kata,3); }else if(substr($kata,0,2)=="pe" && strlen($kata) > 5){ $kata = substr($kata,2); }else if(substr($kata,0,3)=="pel" && strlen($kata) > 5){ $kata = substr($kata,3); }else if(substr($kata,0,2)=="se" && strlen($kata) > 5){ $kata = substr($kata,2); } } return $kata; } ////langkah 5 hapus suffiks function hapusakhiran($kata){ if(cari($kata)!=1){ if (substr($kata, -3)== "kan" ){ $kata = substr($kata, 0, -3); } else if(substr($kata, -1)== "i" ){ $kata = substr($kata, 0, -1); }else if(substr($kata, -2)== "an"){ $kata = substr($kata, 0, -2); } } return $kata; } ?>

nah itu adalah langkah-langkah dalam algoritma porter, di atas ada
include "koneksi.php" --> itu untuk memasukan koneksi.php kedalam proses stemming. karena saya menggunakan database. untuk databasenya akan saya posting di next post. tunggu postingan saya berikutnya :D
dalam penggunaanya kita bisa memanggil functionya dengan koding berikut :
print_r(hapuspartikel($kata)); --> maka akan tampil hasil stemming kata kita inputkan
untuk memasukan inputan bisa temen - temen baca lagi postingan HTML saya sebelumnya di
Baca juga : source code stoplist tanpa database
Sekian postingan saya kali ini, jangan lupa like fanspage and share ilmu ini, Happy coding :)