summaryrefslogtreecommitdiffstats
path: root/test/vwap.c
blob: c4ad2a3af7ecee85ced2d65e3f9f9714134306ec (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#include <stddef.h>
#include "ts.h"

bool ts_test_vwap( void )
{
    fp_t const o[] = { 10, 11, 12, 11, 12 };
    fp_t const h[] = { 12, 13, 14, 12, 14 };
    fp_t const l[] = { 8,  9,  10,  9,  10 };
    fp_t const c[] = { 11, 12, 10, 11, 11 };
    fp_t const v[] = { 100, 200, 300, 400, 500 };

    fp_t const * const x[] = { o, h, l, c, v };

    fp_t sum_cv = 0;
    fp_t sum_v = 0;
    fp_t e[5] = { 0 };

    for( uint_t i = 0; i < 5; ++i )
    {
        sum_cv += c[i] * v[i];
        sum_v += v[i];
        e[i] = sum_v != 0 ? sum_cv / sum_v : 0;
    }

    fp_t const * const e_arr[1] = { e };

    return ts_test(ts_vwap, ts_vwap_offset, x, e_arr, 5, (ts_constant_t *)NULL, &ts_vwap_p);
}