Remove unused entropy and zlibcompression methods

Author: Iridium-IO

CompactGUI.Core/Estimator.vb

@@ -200,87 +200,4 @@ Public Class Estimator
 
 
 
-
-
-    'Public Function EstimateEntropy(path As String) As Double
-    '    Using fs As FileStream = File.OpenRead(path)
-    '        Return EntropyCompressionRatio(fs)
-    '    End Using
-    'End Function
-
-    'Public Function EntropyCompressionRatio(input As Stream) As Double
-    '    Dim counts(255) As Long
-    '    Dim total As Long = 0
-    '    Dim bufferSize As Integer = 65536 ' 64 KB buffer for efficiency
-    '    Dim buffer(bufferSize - 1) As Byte
-
-    '    input.Position = 0
-    '    Dim bytesRead As Integer
-
-    '    Do
-    '        bytesRead = input.Read(buffer, 0, bufferSize)
-    '        If bytesRead = 0 Then Exit Do
-    '        For i As Integer = 0 To bytesRead - 1
-    '            counts(buffer(i)) += 1
-    '        Next
-    '        total += bytesRead
-    '    Loop While bytesRead > 0
-
-    '    If total = 0 Then Return 1.0 ' empty stream, treat as incompressible
-
-    '    Dim entropy As Double = 0.0
-    '    For i = 0 To 255
-    '        If counts(i) > 0 Then
-    '            Dim p = counts(i) / total
-    '            entropy -= p * Math.Log(p, 2)
-    '        End If
-    '    Next
-    '    ' Convert entropy (bits/byte) to compression ratio
-    '    Return Math.Min(entropy / 8.0, 1.0)
-    'End Function
-
-    'Public Function EstimateZlibCompressionRatio(filePath As String, fileSize As Long) As Double
-
-    '    Dim blocks As Single = fileSize \ BlockSize
-    '    Dim samples As Integer = Math.Ceiling((blocks * N0) / (N0 + blocks - 1))
-    '    Dim skipBlocks As Integer = 1
-    '    If samples > 0 Then
-    '        skipBlocks = Math.Max(1, blocks \ samples)
-    '    End If
-
-
-
-    '    Dim totalOriginal As Long = 0
-    '    Dim totalCompressed As Long = 0
-
-    '    Using inputStream As New FileStream(filePath, FileMode.Open, FileAccess.Read, FileShare.Read)
-    '        ' Create a memory stream to hold the compressed output
-    '        Using compressedOut As New MemoryStream()
-    '            Using zlibStream As New ZLibStream(compressedOut, CompressionLevel.Fastest, True)
-    '                Dim buffer(BlockSize - 1) As Byte
-    '                Dim bytesRead As Integer
-    '                Dim blockIndex As Integer = 0
-
-    '                Do
-    '                    bytesRead = inputStream.Read(buffer, 0, BlockSize)
-    '                    If bytesRead <= 0 Then Exit Do
-
-    '                    If blockIndex Mod skipBlocks = 0 Then
-    '                        zlibStream.Write(buffer, 0, bytesRead)
-    '                        totalOriginal += bytesRead
-    '                    End If
-
-    '                    blockIndex += 1
-    '                Loop
-
-    '                zlibStream.Flush()
-    '            End Using
-    '            totalCompressed = compressedOut.Length
-    '        End Using
-    '    End Using
-
-    '    If totalOriginal = 0 Then Return 1.0 ' Prevent division by zero
-    '    Return Math.Round(totalCompressed / totalOriginal, 3)
-    'End Function
-
 End Class