aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorFranz Zotter <fzotter@users.sourceforge.net>2009-10-11 21:27:22 +0000
committerFranz Zotter <fzotter@users.sourceforge.net>2009-10-11 21:27:22 +0000
commita811b7577b93318f34ac40c952f700a64de1509c (patch)
treedb5e3c81d7b3e7e20eafbacc2fe030983a5be583 /src
parent8b5c07f8055d6888459fd662c85f706ef84e0471 (diff)
removed comments
svn path=/trunk/externals/iem/iemmatrix/; revision=12578
Diffstat (limited to 'src')
-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);