Объявление функций Formula.dll
для Visual Basic 6



Type FORMULA
     oper As Long
     index As Long
     value As Double
     f1 As Long
     f2 As Long
     usc As Long
     res As Long
End Type

Public Declare Function CreateFormula Lib "Formula.dll" Alias "?CreateFormula@@YGHPAUFORMULA@@PAD_NPAH33@Z" (f As FORMULA, ByVal s As String, ByVal poland As Long, maxx As Long, errpos As Long, errlen As Long) As Long
Public Declare Function CalcFormula Lib "Formula.dll" Alias "?CalcFormula@@YGNPAUFORMULA@@HPBN@Z" (f As FORMULA, ByVal n As Long, d As Double) As Double
Public Declare Function HalfCalcFormula Lib "Formula.dll" Alias "?HalfCalcFormula@@YGHPAUFORMULA@@HPBNPB_N@Z" (f As FORMULA, ByVal n As Long, d As Double, b As Long) As Long
Public Declare Function TestFormula Lib "Formula.dll" Alias "?TestFormula@@YGHPAUFORMULA@@PAH1@Z" (f As FORMULA, maxx As Long, depth As Long) As Long
Public Declare Function CopyFormula Lib "Formula.dll" Alias "?CopyFormula@@YG_NPAUFORMULA@@0_N@Z" (src As FORMULA, dst As FORMULA, ByVal ecmem As Long) As Long
Public Declare Function EqualFormula Lib "Formula.dll" Alias "?EqualFormulas@@YG_NPAUFORMULA@@0@Z" (f1 As FORMULA, f2 As FORMULA) As Long
Public Declare Function SimplifyFormula Lib "Formula.dll" Alias "?SimplifyFormula@@YGHPAUFORMULA@@H@Z" (f As FORMULA, ByVal n As Long) As Long
Public Declare Function DerivativeOfFormula Lib "Formula.dll" Alias "?DerivativeOfFormula@@YG_NPAUFORMULA@@H0@Z" (f As FORMULA, ByVal indx As Long, fD As FORMULA) As Long
Public Declare Function ValueDerivative Lib "Formula.dll" Alias "?ValueDerivative@@YGNPAUFORMULA@@HPANHNN@Z" (f As FORMULA, ByVal n As Long, d As Double, ByVal indx As Long, ByVal ldx As Double, ByVal rdx As Double) As Double
Public Declare Function ValueIntegral Lib "Formula.dll" Alias "?ValueIntegral@@YGNPAUFORMULA@@HPANHNNH@Z" (f As FORMULA, ByVal n As Long, d As Double, ByVal indx As Long, ByVal a As Double, ByVal b As Double, ByVal prec As Long) As Double
Public Declare Sub ViewFormula Lib "Formula.dll" Alias "?ViewFormula@@YGHPAUFORMULA@@PAD@Z" (f As FORMULA, ByVal s As String)