summaryrefslogtreecommitdiffstats
path: root/test/fractal_chaos_oscillator.c
diff options
context:
space:
mode:
Diffstat (limited to 'test/fractal_chaos_oscillator.c')
-rw-r--r--test/fractal_chaos_oscillator.c20
1 files changed, 20 insertions, 0 deletions
diff --git a/test/fractal_chaos_oscillator.c b/test/fractal_chaos_oscillator.c
new file mode 100644
index 0000000..921c194
--- /dev/null
+++ b/test/fractal_chaos_oscillator.c
@@ -0,0 +1,20 @@
+#include <math.h>
+#include <stddef.h>
+#include "ts.h"
+
+bool ts_test_fractal_chaos_oscillator( void )
+{
+ fp_t const o[] = { 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21 };
+ fp_t const h[] = { 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 };
+ fp_t const l[] = { 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 };
+ fp_t const cp[] = { 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22 };
+
+ fp_t const * const x[] = { o, h, l, cp };
+
+ /* k=3, half_k=1, offset=1, y_n=11 (i=1..10, y[11]=0) */
+ fp_t const e[] = { 21.739130, 20.833333, 19.607843, 18.348624, 17.167382, 16.096579, 15.137181, 14.279340, 13.510661, 12.819229, 0.000000 };
+ fp_t const * const exp[1] = { e };
+
+ uint_t k = 3;
+ return ts_test(ts_fractal_chaos_oscillator, ts_fractal_chaos_oscillator_offset, x, exp, sizeof( o ) / sizeof( *o ), (ts_constant_t *)&k, &ts_fractal_chaos_oscillator_p);
+}