aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/mtx_spherical_harmonics/sph_radial.c2
-rw-r--r--src/mtx_spherical_radial.c4
2 files changed, 0 insertions, 6 deletions
diff --git a/src/mtx_spherical_harmonics/sph_radial.c b/src/mtx_spherical_harmonics/sph_radial.c
index ec3536e..32e86bb 100644
--- a/src/mtx_spherical_harmonics/sph_radial.c
+++ b/src/mtx_spherical_harmonics/sph_radial.c
@@ -44,9 +44,7 @@ void sphBessel (double x, double *y, int n) { //TODO: small values!
y[0] = (x<EPS)?1.0:sin(x)/x;
if (n>=1)
y[1] = -cos(x)/x + y[0]/x;
- post("before %f %f %f",y[0],y[1],y[2]);
radialRecurrence (x,y,n);
- post("after %f %f %f",y[0],y[1],y[2]);
}
void sphNeumann (double x, double *y, int n) {
diff --git a/src/mtx_spherical_radial.c b/src/mtx_spherical_radial.c
index 5554a6f..9f3fd6d 100644
--- a/src/mtx_spherical_radial.c
+++ b/src/mtx_spherical_radial.c
@@ -83,18 +83,14 @@ static void *newMTXSph (t_symbol *s, int argc, t_atom *argv)
fsym=atom_getsymbol(argv);
if (fsym->s_name!=0)
whichfunction=fsym->s_name[0];
- post("%s",fsym->s_name);
switch (whichfunction) {
default:
case 'j':
- post("j");
x->list_h_re_out = outlet_new (&x->x_obj, gensym("matrix"));
break;
case 'h':
- post("h");
x->list_h_re_out = outlet_new (&x->x_obj, gensym("matrix"));
case 'y':
- post("h or y");
x->list_h_im_out = outlet_new (&x->x_obj, gensym("matrix"));
}
nmax=(int) atom_getfloat(argv+1);