Доброго времени суток всем! Подскажите, можно ли как-нибудь быстро вычислить интеграл в VB6 с большой точностью от функции, заданной кусочно? Поясняю суть проблемы: в программе надо брать интеграл от кусочно заданной функции, он каждый раз в разных пределах от InFn до InFv. Вычисление "интеграла по определению" (рабиеним на трапеции шириной в 1 кГц) получается, но программа секунд на 20 подвисает пока его вычисляет. Интеграл берется по частоте (в кГц) от спектральной функции. Вся функция находится в пределах от 3 до 1800000 кГц.

Пример одного из интегралов (из 5, которые в программе должно вычисляться):
Здесь через Select Case задана кусочная функция Eshk = (10 ^ x) ^ 2

Function EshnS(ByVal InFn, ByVal InFv) As Double
EshnS = 0
fx = InFn
While fx < InFv
Select Case fx
Case 3 To 20
x = 3.52 - 2.18 * Log(fx)
Case 20 To 5.8 * 10 ^ 3
x = 4 * (1.18 / ((0.78 * Log(fx)) ^ (2 / 3)) - 1)
Case 5.8 * 10 ^ 3 To 5 * 10 ^ 4
x = 4 * (1.18 / ((0.78 * Log(fx)) ^ (2 / 3)) - 1)
Case 5 * 10 ^ 4 To 3 * 10 ^ 5
x = 0.636 * Log(fx) - 5
Case 3 * 10 ^ 5 To 1.8 * 10 ^ 6
x = Log(0.03)
End Select
Eshk = (10 ^ x) ^ 2
fx = fx + 1
Select Case fx
Case 3 To 20
x = 3.52 - 2.18 * Log(fx)
Case 20 To 5.8 * 10 ^ 3
x = 4 * (1.18 / ((0.78 * Log(fx)) ^ (2 / 3)) - 1)
Case 5.8 * 10 ^ 3 To 5 * 10 ^ 4
x = 4 * (1.18 / ((0.78 * Log(fx)) ^ (2 / 3)) - 1)
Case 5 * 10 ^ 4 To 3 * 10 ^ 5
x = 0.636 * Log(fx) - 5
Case 3 * 10 ^ 5 To 1.8 * 10 ^ 6
x = Log(0.03)
End Select
Eshk1 = (10 ^ x) ^ 2
EshnS = EshnS + 1*(Eshk + Eshk1) / 2 ' берется значание функции на середине и умножается на 1 кГц (получаем площадь маленькой трапеции и далее суммируем)
Wend
End Function

Konst_One, fx и так явно определена, а InFn, InFv - это входные переменные интеграл в процессе основного расчета вычисляется несколько раз и InFn, InFv все время разные.

Antonariy, я же привел часть программы (только функцию). Чуть выше в теле программы есть запись Public fx, x As Single (это же и есть объявление, или я уже что-то не понимаю?!). Но все же попробывал сделать как посоветовал Konst_One, определил входящие As Single, прирост в скорости не сильно заметен (может быть на пару секунд максимум ускорение и произошло, секундомером не засекал). Но все равно вычисление всех пяти интегралов идет около 1 минуты!

mds_world, спасибо, дельный совет, не подумал об этом. Вы правы, получается несколько тысяч раз происходит вычисление этих контант.

P.S. Вопрос попутно (для общего развития): почему тот же самый код на VB.NET выполняется на порядок (в 10 раз!) быстрее?

Antonariy, думаю вряд ли кто-то захочет разбираться в коде длиной несколько сотен строчек (если я выложу весь код), да и описательная часть интерфейса никому не нужна. Про второе спасибо, оказывается с этим просчитался. По третьему, мне без разницы, Log у меня все равно не больше 100 принимает значения. А по четвертому пункту - виноват, исправлюсь :)

По поводу замены на константы (Log и возведение в степень) - не помогло, скорость вычисления осталась та же (можете сами проверить).