aboutsummaryrefslogtreecommitdiff
path: root/src/ann.c
blob: 260116c196b94316d165703964ef44d1a9a556fe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
/* ...this is an externals for comouting Aritficial Neural Networks...
   thikn aboiut this
	
   0201:forum::für::umläute:2001
*/

#include "ann.h"

typedef struct ann 
{
  t_object t_ob;
} t_ann;

t_class *ann_class;

/* do a little help thing */

static void ann_help(void)
{
  post("\n\n...this is the ann external "VERSION"..\n");
  post("self-organized maps"
       "\n\tann_som"
       "");
  post("\n(l) forum::für::umläute 2001\n"
       "this software is under the GnuGPL that is provided with these files");
}

void *ann_new(void)
{
  t_ann *x = (t_ann *)pd_new(ann_class);
  return (void *)x;
}

void ann_som_setup(void);
void ann_mlp_setup(void);
void ann_td_setup(void);



/*
  waiting to be released in near future:
  ANN_SOM : self organized maps
  ANN_PERCEPTRON : perceptrons
  ANN_MLP : multilayer perceptrons
  
  waiting to be realeased sometimes
  ANN_RBF : radial basis functions
*/



void ann_setup(void) 
{
  ann_som_setup();
  ann_mlp_setup();
  ann_td_setup();

  
  /* ************************************** */
  
  post("\n\t................................");
  post("\t...artificial neural networks...");
  post("\t..........version "VERSION"..........");
  post("\t....forum::für::umläute 2001....");
  post("\t....send me a 'help' message....");
  post("\t................................\n");
  
  ann_class = class_new(gensym("ann"), ann_new, 0, sizeof(t_ann), 0, 0);
  class_addmethod(ann_class, ann_help, gensym("help"), 0);
}