diff options
Diffstat (limited to 'algocomp.c')
| -rwxr-xr-x | algocomp.c | 132 |
1 files changed, 132 insertions, 0 deletions
diff --git a/algocomp.c b/algocomp.c new file mode 100755 index 0000000..7083514 --- /dev/null +++ b/algocomp.c @@ -0,0 +1,132 @@ +/*
+* Main library file
+*/
+
+#include "m_pd.h"
+#include <math.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include "helpers.c"
+#include "chaotic.c"
+#include "fractal.c"
+#include "ifs.c"
+#include "ifsmusic.c"
+#include "selfsimilar.c"
+#include "logistictilde.c"
+#include "gauss_tilde.c"
+#include "utils.c"
+#include "elementaryca.c"
+#include "genetic.c"
+#include "neural.c"
+#include "distribute.c"
+
+
+void algocomp_setup(void) {
+ logistic_class = class_new(gensym("logistic"),
+ (t_newmethod)logistic_new,
+ 0, sizeof(t_logistic),
+ CLASS_DEFAULT, A_DEFFLOAT,0);
+ class_addbang(logistic_class, logistic_bang);
+ henon_class = class_new(gensym("henon"),
+ (t_newmethod)henon_new,
+ 0, sizeof(t_henon),
+ CLASS_DEFAULT, A_DEFFLOAT,A_DEFFLOAT,0);
+ class_addbang(henon_class, henon_bang);
+ lorenz_class = class_new(gensym("lorenz"),
+ (t_newmethod)lorenz_new,
+ 0, sizeof(t_lorenz),
+ CLASS_DEFAULT, A_DEFFLOAT, A_DEFFLOAT,A_DEFFLOAT,A_DEFFLOAT,0);
+ class_addbang(lorenz_class, lorenz_bang);
+ chaosgame_class = class_new(gensym("chaosgame"),
+ (t_newmethod)chaosgame_new,
+ 0, sizeof(t_chaosgame),
+ CLASS_DEFAULT, A_DEFFLOAT,0);
+ class_addbang(chaosgame_class, chaosgame_bang);
+ selfsimilar_class = class_new(gensym("selfsimilar"),
+ (t_newmethod)selfsimilar_new,
+ 0, sizeof(t_selfsimilar),
+ CLASS_DEFAULT, A_GIMME,0);
+ class_addbang(selfsimilar_class, selfsimilar_bang);
+ selfsimilarrhythm_class = class_new(gensym("selfsimilarrhythm"),
+ (t_newmethod)selfsimilarrhythm_new,
+ 0, sizeof(t_selfsimilarrhythm),
+ CLASS_DEFAULT, A_DEFFLOAT,0);
+ class_addbang(selfsimilarrhythm_class, selfsimilarrhythm_bang);
+ ifs_class = class_new(gensym("ifs"),
+ (t_newmethod)ifs_new,
+ 0, sizeof(t_ifs),
+ CLASS_DEFAULT, 0);
+ class_addbang(ifs_class, ifs_bang);
+ class_addmethod(ifs_class,(t_method)ifs_setFunctions,gensym("list"), A_GIMME,0);
+ distribute_class = class_new(gensym("distribute"),
+ (t_newmethod)distribute_new,
+ 0, sizeof(t_distribute),
+ CLASS_DEFAULT, A_DEFFLOAT, 0);
+ class_addmethod(distribute_class,(t_method)distribute_float,gensym("float"), A_FLOAT,0);
+
+
+ ifsmusic_class = class_new(gensym("ifsmusic"),
+ (t_newmethod)ifsmusic_new,
+ 0, sizeof(t_ifsmusic),
+ CLASS_DEFAULT, A_GIMME, 0);
+ class_addbang(ifsmusic_class, ifsmusic_bang);
+ class_addmethod(ifsmusic_class,(t_method)ifsmusic_setFunctions,gensym("list"), A_GIMME,0);
+ class_addmethod(ifsmusic_class,(t_method)ifsmusic_setNotes,gensym("notes"), A_GIMME,0);
+ class_addmethod(ifsmusic_class,(t_method)ifsmusic_outputSerie,gensym("serie"), 0);
+ eca_class = class_new(gensym("eca"),
+ (t_newmethod)eca_new,
+ 0, sizeof(t_eca),
+ CLASS_DEFAULT,A_DEFFLOAT, A_DEFFLOAT,A_DEFFLOAT,0);
+ class_addbang(eca_class, eca_bang);
+ class_addmethod(eca_class,(t_method)eca_randomize,gensym("randomize"), 0);
+ class_addmethod(eca_class,(t_method)eca_activateMiddleCell,gensym("init"), 0);
+ genetic_class = class_new(gensym("genetic"),
+ (t_newmethod)genetic_new,
+ 0, sizeof(t_genetic),
+ CLASS_DEFAULT,A_DEFFLOAT, A_DEFFLOAT,A_DEFFLOAT,0);
+ class_addbang(genetic_class, genetic_bang);
+ class_addmethod(genetic_class,(t_method)genetic_randomize,gensym("randomize"), 0);
+ class_addmethod(genetic_class,(t_method)genetic_setTarget,gensym("target"), A_GIMME,0);
+ //void class_addlist(t_class *c, t_method fn);
+ mlp_class = class_new(gensym("mlp"),
+ (t_newmethod)mlp_new,
+ 0, sizeof(t_mlp),
+ CLASS_DEFAULT,0);
+ class_addbang(mlp_class, mlp_bang);
+ class_addmethod(mlp_class,(t_method)mlp_inputed,gensym("list"), A_GIMME, 0);
+ class_addmethod(mlp_class,(t_method)mlp_train,gensym("train"), 0);
+ class_addmethod(mlp_class,(t_method)mlp_setTarget,gensym("target"), A_GIMME,0);
+ oneoverf_class = class_new(gensym("oneoverf"),
+ (t_newmethod)oneoverf_new,
+ 0, sizeof(t_oneoverf),
+ CLASS_DEFAULT,A_DEFFLOAT, 0);
+ class_addbang(oneoverf_class, oneoverf_bang);
+ logistic_tilde_class = class_new(gensym("logistic~"),
+ (t_newmethod)logistic_tilde_new,
+ 0, sizeof(t_logistic_tilde),
+ CLASS_DEFAULT,
+ A_DEFFLOAT,
+ 0);
+ class_addmethod(logistic_tilde_class,
+ (t_method)logistic_tilde_dsp, gensym("dsp"), 0);
+ // CLASS_MAINSIGNALIN(logistic_tilde_class, t_logistic_tilde, f);
+ gauss_tilde_class = class_new(gensym("gauss~"),
+ (t_newmethod)gauss_tilde_new, 0,
+ sizeof(t_gauss_tilde),
+ 0, A_DEFFLOAT, A_DEFFLOAT, 0);
+ class_addmethod(gauss_tilde_class, (t_method)gauss_tilde_dsp,
+ gensym("dsp"), 0);
+ // class_addbang(rand_gauss_class, rand_gauss_bang);
+ map_class = class_new(gensym("map"),
+ (t_newmethod)map_new,
+ 0, sizeof(t_map),
+ CLASS_DEFAULT,
+ A_DEFFLOAT, A_DEFFLOAT,A_DEFFLOAT,A_DEFFLOAT,0);
+
+ class_addfloat(map_class, map_float);
+ class_addmethod(map_class,(t_method)map_list,gensym("list"), A_GIMME, 0);
+
+ post("AlgoComp library loaded - v_0.20060116");
+
+}
+
|