/[marvin]/marvin/src/gui/funcaml.c
ViewVC logotype

Diff of /marvin/src/gui/funcaml.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by srv89, Wed Sep 17 00:44:58 2003 UTC revision 1.3 by matthieu, Wed Sep 17 03:19:58 2003 UTC
# Line 25  E-mail : lagach_m@epita.fr Line 25  E-mail : lagach_m@epita.fr
25  #include <stdio.h>  #include <stdio.h>
26  #include <malloc.h>  #include <malloc.h>
27  #include <string.h>  #include <string.h>
28  #include "/usr/include/ocaml/3.06/caml/mlvalues.h"  #include "mlvalues.h"
29  #include "/usr/include/ocaml/3.06/caml/callback.h"  #include "callback.h"
30  #include "/usr/include/ocaml/3.06/caml/memory.h"  #include "memory.h"
31  #include "/usr/include/ocaml/3.06/caml/alloc.h"  #include "alloc.h"
32    
33    
34    
# Line 91  Fonction de préselection des empreintes Line 91  Fonction de préselection des empreintes
91  int verif_cle(double *cle, double *test)  int verif_cle(double *cle, double *test)
92  {  {
93    int i = 0;    int i = 0;
94    int bool = 1;    int boole = 1;
95    
96    while ((i < 12) && bool)    while ((i < 12) && boole)
97      {      {
98        bool = (cle[i]==test[i]);        boole = (cle[i]==test[i]);
99        i++;        i++;
100      }      }
101    
102    return bool;    return boole;
103  }  }
104            
105                
# Line 119  int neural (double **emp, double *cle, c Line 119  int neural (double **emp, double *cle, c
119    char *t;    char *t;
120    double *res;    double *res;
121    
122    efinal = calloc(sizeof(double),12);    efinal = (double *)calloc(sizeof(double),12);
123    selection = (int**)malloc(sizeof(int*)*10);    selection = (int**)malloc(sizeof(int*)*10);
124    for (i=0;i<10;i++)    for (i=0;i<10;i++)
125      selection[i] = calloc (sizeof(int),10);      selection[i] = (int*)calloc (sizeof(int),10);
126    i = 0;    i = 0;
127    /*temp = (char*)malloc(sizeof(char)*2);    /*temp = (char*)malloc(sizeof(char)*2);
128    while (s[i] != '\0')    while (s[i] != '\0')

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26