libsvm 2.85 for mt4:
LIBSVM -- A Library for Support Vector Machines
//open mode constants
#define READ 1
#define WRITE 2
#define READWRITE 3
//seek mode constants
#define FILE_BEGIN 0
#define FILE_CURRENT 1
#define FILE_END 2
#import "mtguru1.dll"
int gFileOpen(string file_name,int mode);
bool gFileWrite(int handle,string data);
bool gFileClose(int handle);
string gFileRead(int handle,int length=0);
void gFileSeek(int handle,int offset, int mode);
bool gFileDelete(string file_name);
int gFileSize(int handle);
int SvmScale(double,double,string, string,string);
int SvmTrain(string, string);
int SvmPredict(string, string, string);
#import
string s1[270];
string s2[2];
int xx;
int file;
//----
//initialize arrays
init_s1();
init_s2();
//initialize training file
file = gFileOpen("c:\heart.txt",WRITE); //open the file for read and write , create it if not exist
string write="";
for(int i=0;i<270;i++)
{
write=s1[i]+"\r\n";
gFileWrite(file,write); //write some date
}
gFileClose(file); //close the file
//initialize test file
file = gFileOpen("c:\heart_test.txt",WRITE);
write="";
for(i=0;i<2;i++)
{
write=s2[i]+"\r\n";
gFileWrite(file,write); //write some date
}
gFileClose(file); //close the file
xx=SvmScale(-1.0,1.0,"c:\heart.txt","c:\heart_range.txt" ,"c:\heart_scale.txt");
Print("SvmScale: ",xx);
xx=SvmTrain("c:\heart_scale.txt", "c:\heart_scale_model.txt");
Print("SvmTrain: ",xx);
xx=SvmScale(-1.0,1.0,"c:\heart_test.txt","c:\heart_test_range.t xt" ,"c:\heart_test_scale.txt");
Print("SvmTestScale: ",xx);
xx=SvmPredict("c:\heart_test_scale.txt", "c:\heart_scale_model.txt","c:\heart_predict.txt") ;
Print("SvmPredict: ",xx);
file = gFileOpen("c:\heart_predict.txt",READ);
string s1=gFileRead(file,3); //
string s2=gFileRead(file,3); //
gFileClose(file); //close the file
int classify1=StrToInteger(s1);
int classify2=StrToInteger(s2);
Comment("c1=",classify1," c2=",classify2);