vectors.h

Go to the documentation of this file.

/*
 * Copyright (c) 2019-2020 Kevin Townsend (KTOWN)
 *
 * SPDX-License-Identifier: Apache-2.0
 */
 
#ifndef ZEPHYR_INCLUDE_ZSL_VECTORS_H_
#define ZEPHYR_INCLUDE_ZSL_VECTORS_H_
 
#include <zsl/zsl.h>
 
#ifdef __cplusplus
extern "C" {
#endif
 
struct zsl_vec {
    size_t sz;
    zsl_real_t *data;
};
 
#define ZSL_VECTOR_DEF(name, n)      \
    zsl_real_t name ## _vec[n];  \
    struct zsl_vec name = {      \
        .sz = n,         \
        .data = name ## _vec \
    }
 /* End of VEC_STRUCTS group */
 
int zsl_vec_init(struct zsl_vec *v);
 
int zsl_vec_from_arr(struct zsl_vec *v, zsl_real_t *a);
 
int zsl_vec_copy(struct zsl_vec *vdest, struct zsl_vec *vsrc);
 /* End of VEC_INIT group */
 
int zsl_vec_get_subset(struct zsl_vec *v, size_t offset, size_t len,
               struct zsl_vec *vsub);
 /* End of VEC_SELECTION group */
 
int zsl_vec_add(struct zsl_vec *v, struct zsl_vec *w, struct zsl_vec *x);
 
int zsl_vec_sub(struct zsl_vec *v, struct zsl_vec *w, struct zsl_vec *x);
 
int zsl_vec_neg(struct zsl_vec *v);
 
int zsl_vec_sum(struct zsl_vec **v, size_t n, struct zsl_vec *w);
 
int zsl_vec_scalar_add(struct zsl_vec *v, zsl_real_t s);
 
int zsl_vec_scalar_mult(struct zsl_vec *v, zsl_real_t s);
 
int zsl_vec_scalar_div(struct zsl_vec *v, zsl_real_t s);
 
zsl_real_t zsl_vec_dist(struct zsl_vec *v, struct zsl_vec *w);
 
int zsl_vec_dot(struct zsl_vec *v, struct zsl_vec *w, zsl_real_t *d);
 
zsl_real_t zsl_vec_norm(struct zsl_vec *v);
 
int zsl_vec_project(struct zsl_vec *u, struct zsl_vec *v, struct zsl_vec *w);
 
int zsl_vec_to_unit(struct zsl_vec *v);
 
int zsl_vec_cross(struct zsl_vec *v, struct zsl_vec *w, struct zsl_vec *c);
 
zsl_real_t zsl_vec_sum_of_sqrs(struct zsl_vec *v);
 
int zsl_vec_mean(struct zsl_vec **v, size_t n, struct zsl_vec *m);
 
int zsl_vec_ar_mean(struct zsl_vec *v, zsl_real_t *m);
 
int zsl_vec_rev(struct zsl_vec *v);
 
int zsl_vec_zte(struct zsl_vec *v);
 /* End of VEC_BASICMATH group */
 
bool zsl_vec_is_equal(struct zsl_vec *v, struct zsl_vec *w, zsl_real_t eps);
 
bool zsl_vec_is_nonneg(struct zsl_vec *v);
 
int zsl_vec_contains(struct zsl_vec *v, zsl_real_t val, zsl_real_t eps);
 
int zsl_vec_sort(struct zsl_vec *v, struct zsl_vec *w);
 /* End of VEC_COMPARE group */
 
int zsl_vec_print(struct zsl_vec *v);
 
// int      zsl_vec_fprint(FILE *stream, zsl_vec *v);
 /* End of VEC_DISPLAY group */
 
#ifdef __cplusplus
}
#endif
 
#endif /* ZEPHYR_INCLUDE_ZSL_VECTORS_H_ */
 /* End of vectors group */