blob: f8c6971a23630310a204ef6d20fe503d94d05ee9 (
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
71
72
73
74
|
/* ...this is an externals for comouting Aritficial Neural Networks...
thikn aboiut this
0201:forum::für::umläute:2001
*/
#include "ann.h"
#include "ann_som.c"
#include "ann_mlp.c"
#include "ann_td.c"
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);
}
|