maxmin.~pas

基于libsvm

unit MaxMin;


interface

uses main;



//type TMatrix = array of array of real;
//type svm_param_pointer = ^ svm_param;

function CreateParamObject: svm_param;cdecl;
function show_c(param : svm_param):real;cdecl;
function Min1(x,y,z:Integer):Integer; cdecl;
function estimate_gamma(filename: PChar):real; cdecl;
function estimate_c(gamma : real; filename: PChar):real; cdecl;
function svm_train(gamma,c:real; inputfile, model_file_name,result_file: PChar):Integer; cdecl;
function svm_train_param(param : svm_param; inputfile, model_file_name: PChar):Integer; cdecl;
function svm_test(testfile, model_file_name : PChar):real; cdecl;
function svm_test_show(param : svm_param; testfile, model_file_name, result_file : PChar):real; cdecl;
function set_param(para:PChar; para_value : real):Integer; cdecl;
function dense2sparse(dense_file, sparse_file : PChar; sign:integer):Integer; cdecl;
function shuffle(input_file, output_file : PChar ; shuffle_no : Integer): Integer; cdecl;
function scale(low_value, high_value : real; input_file, output_file : PChar): Integer; cdecl;
function cross_validation(param : svm_param; input_file_name : PChar; n_fold : Integer; result_file : PChar): real; cdecl;
function cross_validation_groups_param(param : svm_param; groups_param_file, input_file_name : PChar;
                                     n_fold : integer; result_file : PChar; var best_c, best_gamma : real):real;cdecl;
function dense_spread(input_file_name : PChar; n_x, n_y : Integer; output_file_name : PChar):Integer; cdecl;
function extract_surface_vectors(model_file_name, input_file_name, surface_file : PChar): Integer; cdecl;
function merge_file(file1, file2, dest_file : PChar): Integer; cdecl;
function sparse2dense(sparse_file, dense_file : PChar) : Integer; cdecl;
function ExtractMatrixFromDense(dense_file : PChar; l : integer; var matrix : main.TMatrix):integer; cdecl;
function save_support_vectors(model_file_name, sv_file : PChar):integer;cdecl;
//extern "C" __declspec(dllexport) int filtering2file(char* input_file, char* output_file, int* array)
function filtering2file(input_file, output_file : PChar; array1 : array of integer):integer; cdecl;
function form_param_file(sigma_0, sigma_step: real; sigma_no : integer; C_0, C_step : real; C_no:integer; output_file : PChar):integer;cdecl;



//extern "C" __declspec(dllexport) int svm_train_param(svm_param* fparam, char* inputfile, char* model_file_name, char* result_file)

//int ExtractMatrixFromDense(char* dense_file, double**& matrix)


implementation



function filtering2file; external 'final_dll.dll' name 'filtering2file';
function form_param_file; external 'final_dll.dll' name 'form_param_file';
function show_c; external 'final_dll.dll' name 'show_c';
function CreateParamObject; external 'final_dll.dll' name 'CreateParamObject';
function Min1;external 'final_dll.dll' name 'Min1';
//function Max1;external 'final_dll.dll' name 'Max1';
function estimate_gamma; external 'final_dll.dll' name 'estimate_gamma';
function estimate_c; external 'final_dll.dll' name 'estimate_c';
function svm_train; external 'final_dll.dll' name 'svm_train';
function svm_train_param; external 'final_dll.dll' name 'svm_train_param';
function svm_test; external 'final_dll.dll' name 'svm_test';
function svm_test_show; external 'final_dll.dll' name 'svm_test_show';
function set_param; external 'final_dll.dll' name 'set_param';
function dense2sparse; external 'final_dll.dll' name 'dense2sparse';
function shuffle;  external 'final_dll.dll' name 'shuffle';
function scale; external 'final_dll.dll' name 'scale';
function cross_validation; external 'final_dll.dll' name 'cross_validation';
function cross_validation_groups_param; external 'final_dll.dll' name 'cross_validation_groups_param';
function dense_spread;  external 'final_dll.dll' name 'dense_spread';
function extract_surface_vectors; external 'final_dll.dll' name 'extract_surface_vectors';
function merge_file; external 'final_dll.dll' name 'merge_file';
function sparse2dense; external 'final_dll.dll' name 'sparse2dense';
function ExtractMatrixFromDense;external 'final_dll.dll' name 'ExtractMatrixFromDense';
function save_support_vectors; external 'final_dll.dll' name 'save_support_vectors';

end.