unuran-0.5.0.bas

来自「可以产生随机网络拓扑(包括waxman等多种模型)的源码」· BAS 代码 · 共 6 行

Attribute VB_Name = "Module1"
Public Declare Function unuran_create Lib "unuran-0.5.0.dll" Alias "_unuran_create@4" (ByVal s As String) As Long
Public Declare Function unuran_sample Lib "unuran-0.5.0.dll" Alias "_unuran_sample@4" (ByVal handle As Long) As Double
Public Declare Sub unuran_destroy Lib "unuran-0.5.0.dll" Alias "_unuran_destroy@4" (ByVal handle As Long)