Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
n мощность алфавита
i инф объём
N=2i(в степени )
I инф объём одного сообщения
K колич символов в сообщении
I= K*i
K = I делить на i