diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2004-03-09 03:51:28 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2004-03-09 03:51:28 +0000 |
commit | 50a389bea35a91ddae1394c5d35a6f1c703f5bdd (patch) | |
tree | 345af9da1a2432cdde199637af884d0cb744cf40 /src/beta.c | |
parent | 6f58df1602bc981858c874a55c73dab0e76258cc (diff) |
Checked in Olaf's 1.5.2 sources. Here are the changes:
v 1.5.2 (17. december 2003):
- modified netclient for not to drop received data: use of syspollfn
instead of clock to poll for incoming data, circular recv buffer
v 1.5 (18. october 2003):
- added some usefull features to arraycopy (i.e. copying just parts of
an array and copying to specified position in destination array)
- new object: nchange
- IRIX 6.5 port (for GCC 3.3)
- OS X binary (Jaguar 10.2.6)
v 1.4 (22. may 2003):
- updated sources to compile with Pd0.37-test4
- new object: arraycopy
v 1.3 (12. april 2003):
- new objects: sync listfifo
- all setup routines renamed to maxlib_<object>_setup() to avoid name
clashes, old names still work via class_addcreator()
- some improvements for the help files
svn path=/trunk/externals/maxlib/; revision=1394
Diffstat (limited to 'src/beta.c')
-rw-r--r-- | src/beta.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -22,8 +22,8 @@ /* Based on PureData by Miller Puckette and others. */
/* */
/* ---------------------------------------------------------------------------- */
- -#include "m_pd.h" +
+#include "m_pd.h"
#include <stdlib.h>
#include <time.h>
#include <math.h>
@@ -32,10 +32,10 @@ #ifndef M_PI
#define M_PI 3.1415927
#endif
- +
static char *version = "beta v0.1, generates a beta distributed random variable\n"
" written by Olaf Matthes <olaf.matthes@gmx.de>";
- +
/* -------------------------- rand_beta ------------------------------ */
static t_class *rand_beta_class;
@@ -61,7 +61,7 @@ static void *rand_beta_new(t_floatarg a, t_floatarg b) static void rand_beta_bang(t_rand_beta *x)
{
- t_float u1, u2, y1, y2, sum, a, b, ainv, binv;
+ t_float u1, u2, y01, y2, sum, a, b, ainv, binv;
a = (x->x_a <= 0 ? 0.0001 : x->x_a);
b = (x->x_b <= 0 ? 0.0001 : x->x_b);
ainv = 1/a;
@@ -78,12 +78,12 @@ static void rand_beta_bang(t_rand_beta *x) u2 = fran();
}
while(u2 == 0);
- y1 = pow(u1, ainv);
+ y01 = pow(u1, ainv);
y2 = pow(u2, binv);
- sum = y1 + y2;
+ sum = y01 + y2;
}
while(sum > 1);
- outlet_float(x->x_obj.ob_outlet, y1/sum);
+ outlet_float(x->x_obj.ob_outlet, y01/sum);
}
#ifndef MAXLIB
@@ -104,4 +104,4 @@ void maxlib_beta_setup(void) class_addcreator((t_newmethod)rand_beta_new, gensym("beta"), A_DEFFLOAT, A_DEFFLOAT, 0);
class_sethelpsymbol(rand_beta_class, gensym("maxlib/help-beta.pd"));
}
-#endif
\ No newline at end of file +#endif
|