
Ejemplo prctico: guardar una matriz con el formato de las SVM

// $Id: curso_octave.mgp,v 1.8 2003/04/03 15:34:42 pablo Exp $
include <octave/oct.h>
include <iostream.h>
include <stdio.h>
DEFUN_DLD (write_svm_file, args, args_out,
  "write_svm_file(X,Y,file)\nGuarda en el archivo file la matriz X con las etiquetas Y.")
{
  Matrix vectors(args(0).matrix_value ());
  ColumnVector labels(args(1).vector_value ());
  string file_name(args(2).string_value());
  FILE *handle = fopen(file_name.c_str(),"w");
  for (int i=0; i<vectors.rows(); i++){
    fprintf(handle, "%i ", int(labels.elem(i)));
    for(int o=0; o<vectors.columns(); o++){
      fprintf(handle, "%i:%f ", o+1, vectors.elem(i,o));
    }
    fprintf(handle, "\n");
  }
  fclose(handle);
  return octave_value();
}
