From 3505bf1cfec70eebcf508b67f3fd8ba55eee4421 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Mon, 14 Oct 2002 17:16:51 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r172, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/ann/; revision=173 --- src/ann.c | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 64 insertions(+) create mode 100644 src/ann.c (limited to 'src/ann.c') diff --git a/src/ann.c b/src/ann.c new file mode 100644 index 0000000..8b0cb27 --- /dev/null +++ b/src/ann.c @@ -0,0 +1,64 @@ +/* ...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(); + +/* + 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(); + + + /* ************************************** */ + + 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); +} -- cgit v1.2.1