Algoritma Huffman Coding 2

Algoritma Huffman Coding adalah salah satu algoritma yang dapat digunakan untuk melakukan kompresi data sehingga ukuran data yang dihasilkan menjadi lebih rendah dari ukuran sebenarnya. Contoh yang dibahas kali ini adalah mengenai kompresi dan pengembalian data dari sebuah kalimat.
Huffman Coding adalah sebuah kode prefiks yang sudah teroptimasi yang biasanya digunakan pada kompresi data lossless. Algoritma ini menggunakan metode khusus untuk memilih perwakilan dari masing-masing simbol, yang akhirnya menghasilkan sebuah kode prefiks. Algoritma ini merupakan metode yang sangat terkenal untuk membuat kode prefiks sehingga “Huffman Code” digunakan secara luas sebagai sinonim dari “kode prefiks” bahkan untuk sesuatu skrip yang tidak dihasilkan dari perhitungan Huffman Coding

Langkah-langkah penggunaan algoritma ini adalah

* Tentukan kalimat yang digunakan sebagai data input
Diasumsikan data input adalah sebagai berikut:
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.

1. Hitung ukuran data yang digunakan dalam perhitungan sebagai penanda ukuran data sebelum dilakukan kompresi

Dim inputData As Byte() = System.Text.Encoding.[Default].GetBytes(input)
Dim ukuranInputData As UInteger = CUInt(input.Length)
Console.WriteLine("Ukuran input data = " & ukuranInputData)

2. Lakukan proses kompresi data menggunakan algoritma ini
Penjelasan lebih detail tentang fungsi ini dapat dilihat pada penjelasan skrip dibawah ini

Dim KompresiData As Byte() = New Byte(ukuranInputData * (101 \ 100) + 319) {}
Dim ukuranKompresiData As Integer = Compress(inputData, KompresiData, ukuranInputData)

* Gunakan fungsi ini untuk melakukan kompresi data

Public Function Compress(input As Byte(), output As Byte(), ukuranInput As UInteger) As Integer
	Dim sim As Simbol() = New Simbol(255) {}
	Dim temp As Simbol
	Dim stream As New BitStream()
	Dim i As UInteger, totalBytes As UInteger, swaps As UInteger, simbol As UInteger

	If ukuranInput < 1 Then
		Return 0
	End If

	inisialisasiBitStream(stream, output)
	histogram(input, sim, ukuranInput)
	buatTree(sim, stream)

	Do
		swaps = 0

		For i = 0 To 254
			If sim(i).Sim > sim(i + 1).Sim Then
				temp = sim(i)
				sim(i) = sim(i + 1)
				sim(i + 1) = temp
				swaps = 1
			End If
		Next
	Loop While Convert.ToBoolean(swaps)

	For i = 0 To ukuranInput - 1
		simbol = input(i)
		tulisBits(stream, sim(simbol).Code, sim(simbol).Bits)
	Next

	totalBytes = stream.Index

	If stream.PosisiBit > 0 Then
		totalBytes += 1
	End If

	Return CInt(totalBytes)
End Function

3. Dapatkan hasil kompresi data dan ukuran data hasil kompresi yang baru

Dim teksKompresiData As String = System.Text.Encoding.[Default].GetString(KompresiData)

4. Lakukan proses pengembalian data kompresi menggunakan algoritma ini
Penjelasan lebih detail tentang fungsi ini dapat dilihat pada penjelasan skrip dibawah ini

Dim PengembalianData As Byte() = New Byte(ukuranInputData - 1) {}
Decompress(KompresiData, PengembalianData, CUInt(ukuranKompresiData), ukuranInputData)

* Gunakan fungsi ini untuk melakukan pengembalian data kompresi

Public Sub Decompress(input As Byte(), output As Byte(), ukuranInput As UInteger, ukuranOutput As UInteger)
	Dim nodes As DecodeNode() = New DecodeNode(MAX_TREE_NODES - 1) {}

	For counter As Integer = 0 To nodes.Length - 1
		nodes(counter) = New DecodeNode()
	Next

	Dim root As DecodeNode, node As DecodeNode
	Dim stream As New BitStream()
	Dim i As UInteger, jumlahNode As UInteger
	Dim buffer As Byte()

	If ukuranInput < 1 Then
		Return
	End If

	inisialisasiBitStream(stream, input)
	jumlahNode = 0
	root = kembalikanTree(nodes, stream, jumlahNode)
	buffer = output

	For i = 0 To ukuranOutput - 1
		node = root

		While node.Simbol < 0
			If Convert.ToBoolean(bacaBit(stream)) Then
				node = node.ChildB
			Else
				node = node.ChildA
			End If
		End While

		buffer(i) = node.Simbol And Byte.MaxValue
	Next
End Sub

5. Dapatkan hasil pengembalian data dan ukuran data hasil hasil pengembalian data kompresi yang baru

Dim teksPengembalianData As String = System.Text.Encoding.[Default].GetString(PengembalianData)
Dim ukuranPengembalianData As UInteger = CUInt(teksPengembalianData.Length)

Hasil akhir adalah: (klik untuk perbesar gambar)

Contoh modul / source code dalam bahasa VB (Visual Basic) dapat didownload disini:

Jika membutuhkan jasa kami dalam pembuatan program, keterangan selanjutnya dapat dilihat di Fasilitas dan Harga
Jika ada yang kurang paham dengan langkah-langkah algoritma diatas, silahkan berikan komentar Anda.
Selamat mencoba.