Преобразовать код из C++ в VB

[KPEATOP]

Помогите преобразовать код из C++ в VB:

Функции вычисления значений гауссовых вейвлетов первых шести по-рядков описаны в файле wavelet.h, этот файл также содержит определения нормировочных множителей, здесь же определена функция ().0xg

/* wavelet.h
*/
#ifndef __WAVELET_H__
#define __WAVELET_H__
#ifndef __MATH_H
#include <math.h>
#endif
double gauss (double);
#define WAVELETS 6
#define g1coef (2 * M_PI)
#define g2coef (2 * M_PI)
#define g3coef (4 * M_PI)
#define g4coef (12 * M_PI)
#define g5coef (48 * M_PI)
#define g6coef (120 * M_PI)
107
#define g1coefsq 2.5066282746310005
#define g2coefsq 2.5066282746310005
#define g3coefsq 3.544907701811032
#define g4coefsq 6.1399602476789308
#define g5coefsq 12.279920495357862
#define g6coefsq 19.416259125556991
double g0wavelet (double);
double g1wavelet (double);
double g2wavelet (double);
double g3wavelet (double);
double g4wavelet (double);
double g5wavelet (double);
double g6wavelet (double);
#define g1waveletFast g0wavelet
#define g2waveletFast g1wavelet
#define g3waveletFast g2wavelet
#define g4waveletFast g3wavelet
#define g5waveletFast g4wavelet
#define g6waveletFast g5wavelet
inline double g0wavelet (double x)
{
return -gauss (x);
}
#endif


Реализации самих функций определены в файле wavelet.cpp:

/* wavelet.cpp
*/
#include "wavelet.h"
double gauss (double x)
{
return exp (- x * x / 2);
}
double g1wavelet (double x)
{
return - x * exp (- x * x / 2);
}
double g2wavelet (double x)
108
{
double xsqr = x * x;
return (1 - xsqr) * exp (- xsqr / 2);
}
double g3wavelet (double x)
{
double xsqr = x * x;
return (3 - xsqr) * x * exp (- xsqr / 2);
}
double g4wavelet (double x)
{
double xsqr = x * x;
return ((6 - xsqr) * xsqr - 3) * exp (- xsqr / 2);
}
double g5wavelet (double x)
{
double xsqr = x * x;
return ((10 - xsqr) * xsqr - 15) * x *
exp (- xsqr / 2);
}
double g6wavelet (double x)
{
double xsqr = x * x;
return (((15 - xsqr) * xsqr - 45) * xsqr + 15) *
exp (- xsqr /2);
}

[Ramzes]

хоть убей, не вижу связи с C#, переезжаем в треп.

А еще, есть такой замечательноый BB тег [code]

[MIT]

Не вижу ничего сложного: в *.h у тебя константы и переменные, в *.cpp чистая математика, языкозависимого ничего нет.

[Александр Дмитриев]

Код: Выделить всё

Option Explicit

' wavelet.bas

Const pi As Double = 3.14159265358979
Const WAVELETS As Long = 6
Const g1coef As Double = 2 * pi
Const g2coef As Double = 2 * pi
Const g3coef As Double = 4 * pi
Const g4coef As Double = 12 * pi
Const g5coef As Double = 48 * pi
Const g6coef As Double = 120 * pi
Const g1coefsq As Double = 2.506628274631
Const g2coefsq As Double = 2.506628274631
Const g3coefsq As Double = 3.54490770181103
Const g4coefsq As Double = 6.13996024767893
Const g5coefsq As Double = 12.2799204953579
Const g6coefsq As Double = 19.416259125557

Private xsqr As Double

Function gauss(x As Double) As Double
  gauss = Exp(-x * x / 2)
End Function

Function g0wavelet(x As Double) As Double
  g0wavelet = -gauss(x)
End Function

Function g1wavelet(x As Double) As Double
  g1wavelet = -x * Exp(-x * x / 2)
End Function

Function g2wavelet(x As Double) As Double
  xsqr = x * x
  g2wavelet = (1 - xsqr) * Exp(-xsqr / 2)
End Function

Function g3wavelet(x As Double) As Double
  xsqr = x * x
  g3wavelet = (3 - xsqr) * x * Exp(-xsqr / 2)
End Function

Function g4wavelet(x As Double) As Double
  xsqr = x * x
  g4wavelet = ((6 - xsqr) * xsqr - 3) * Exp(-xsqr / 2)
End Function

Function g5wavelet(x As Double) As Double
  xsqr = x * x
  g5wavelet = ((10 - xsqr) * xsqr - 15) * x * Exp(-xsqr / 2)
End Function

Function g6wavelet(x As Double) As Double
  xsqr = x * x
  g6wavelet = (((15 - xsqr) * xsqr - 45) * xsqr + 15) * Exp(-xsqr / 2)
End Function

Function g1waveletFast(x As Double) As Double
  g1waveletFast = g0wavelet(x)
End Function

Function g2waveletFast(x As Double) As Double
  g2waveletFast = g1wavelet(x)
End Function

Function g3waveletFast(x As Double) As Double
  g3waveletFast = g2wavelet(x)
End Function

Function g4waveletFast(x As Double) As Double
  g4waveletFast = g3wavelet(x)
End Function

Function g5waveletFast(x As Double) As Double
  g5waveletFast = g4wavelet(x)
End Function

Function g6waveletFast(x As Double) As Double
  g6waveletFast = g5wavelet(x)
End Function


В VB нет инлайновых функций, поэтому gauss написана как обычная. xsqr сделал на уровне модуля, потому что мне показалось, что так будет быстрее. В VB нет нчего достаточно похожего на макроопределения, поэтому gXwaveletFast пришлось описать в виде отдельных функций.

[KPEATOP]

Спасибо большое. Только я не пойму как этот код будет работать ? Функции откуда то должны вызываться. Например, у меня программа начинается с процедуры:

Sub Main()

и как мне здесь вызывать эти функции ???

End Sub

[Viper]

Спасибо большое. Только я не пойму как этот код будет работать ? Функции откуда то должны вызываться. Например, у меня программа начинается с процедуры:

Sub Main()

и как мне здесь вызывать эти функции ???

End Sub

Функции вызывай там, где они тебе нужны. Хоть в Main, хоть где еще. Это уж от твоей программы зависит где использовать функции то.