liba 0.1.15

An algorithm library based on C/C++
Documentation 
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

#include "a.h"
#include "a/regress_simple.h"
#include "liba_regress_simple.h"

#undef L
#define L Java_liba_regress_simple
static struct
{
    jmethodID New;
    jfieldID ctx;
} L = {NULL, NULL};

JNIEXPORT void JNICALL Java_liba_regress_1simple_clinit(JNIEnv *Env, jclass Cls)
{
    jclass Nbb = (*Env)->FindClass(Env, "Ljava/nio/ByteBuffer;");
    L.New = (*Env)->GetStaticMethodID(Env, Nbb, "allocateDirect", "(I)Ljava/nio/ByteBuffer;");
    L.ctx = (*Env)->GetFieldID(Env, Cls, "ctx", "Ljava/nio/ByteBuffer;");
}

JNIEXPORT void JNICALL Java_liba_regress_1simple_init(JNIEnv *Env, jobject Obj, jdouble coef, jdouble bias)
{
    jobject Ctx = (*Env)->CallObjectMethod(Env, Obj, L.New, (jint)sizeof(a_regress_simple));
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    (*Env)->SetObjectField(Env, Obj, L.ctx, Ctx);
    a_regress_simple_init(ctx, coef, bias);
}

JNIEXPORT jdouble JNICALL Java_liba_regress_1simple_coef(JNIEnv *Env, jobject Obj)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    return ctx->coef;
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_set_1coef(JNIEnv *Env, jobject Obj, jdouble coef)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    ctx->coef = coef;
    return Obj;
}

JNIEXPORT jdouble JNICALL Java_liba_regress_1simple_bias(JNIEnv *Env, jobject Obj)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    return ctx->bias;
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_set_1bias(JNIEnv *Env, jobject Obj, jdouble bias)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    ctx->bias = bias;
    return Obj;
}

JNIEXPORT jdouble JNICALL Java_liba_regress_1simple_eval(JNIEnv *Env, jobject Obj, jdouble val)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    return a_regress_simple_eval(ctx, val);
}

JNIEXPORT jdouble JNICALL Java_liba_regress_1simple_evar(JNIEnv *Env, jobject Obj, jdouble val)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    return a_regress_simple_evar(ctx, val);
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_ols(JNIEnv *Env, jobject Obj, jdoubleArray X, jdoubleArray Y)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    a_size x_n = (a_size)(*Env)->GetArrayLength(Env, X);
    a_size y_n = (a_size)(*Env)->GetArrayLength(Env, Y);
    jdouble *x = (*Env)->GetDoubleArrayElements(Env, X, NULL);
    jdouble *y = (*Env)->GetDoubleArrayElements(Env, Y, NULL);
    a_regress_simple_ols(ctx, A_MIN(x_n, y_n), x, y);
    (*Env)->ReleaseDoubleArrayElements(Env, X, x, JNI_ABORT);
    (*Env)->ReleaseDoubleArrayElements(Env, Y, y, JNI_ABORT);
    return Obj;
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_ols_1(JNIEnv *Env, jobject Obj, jdoubleArray X, jdoubleArray Y, jdouble x_mean, jdouble y_mean)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    a_size x_n = (a_size)(*Env)->GetArrayLength(Env, X);
    a_size y_n = (a_size)(*Env)->GetArrayLength(Env, Y);
    jdouble *x = (*Env)->GetDoubleArrayElements(Env, X, NULL);
    jdouble *y = (*Env)->GetDoubleArrayElements(Env, Y, NULL);
    a_regress_simple_ols_(ctx, A_MIN(x_n, y_n), x, y, x_mean, y_mean);
    (*Env)->ReleaseDoubleArrayElements(Env, X, x, JNI_ABORT);
    (*Env)->ReleaseDoubleArrayElements(Env, Y, y, JNI_ABORT);
    return Obj;
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_olsx(JNIEnv *Env, jobject Obj, jdoubleArray X, jdoubleArray Y, jdouble x_mean)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    a_size x_n = (a_size)(*Env)->GetArrayLength(Env, X);
    a_size y_n = (a_size)(*Env)->GetArrayLength(Env, Y);
    jdouble *x = (*Env)->GetDoubleArrayElements(Env, X, NULL);
    jdouble *y = (*Env)->GetDoubleArrayElements(Env, Y, NULL);
    a_regress_simple_olsx(ctx, A_MIN(x_n, y_n), x, y, x_mean);
    (*Env)->ReleaseDoubleArrayElements(Env, X, x, JNI_ABORT);
    (*Env)->ReleaseDoubleArrayElements(Env, Y, y, JNI_ABORT);
    return Obj;
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_olsy(JNIEnv *Env, jobject Obj, jdoubleArray X, jdoubleArray Y, jdouble y_mean)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    a_size x_n = (a_size)(*Env)->GetArrayLength(Env, X);
    a_size y_n = (a_size)(*Env)->GetArrayLength(Env, Y);
    jdouble *x = (*Env)->GetDoubleArrayElements(Env, X, NULL);
    jdouble *y = (*Env)->GetDoubleArrayElements(Env, Y, NULL);
    a_regress_simple_olsy(ctx, A_MIN(x_n, y_n), x, y, y_mean);
    (*Env)->ReleaseDoubleArrayElements(Env, X, x, JNI_ABORT);
    (*Env)->ReleaseDoubleArrayElements(Env, Y, y, JNI_ABORT);
    return Obj;
}

JNIEXPORT jobject JNICALL Java_liba_regress_1simple_zero(JNIEnv *Env, jobject Obj)
{
    jobject Ctx = (*Env)->GetObjectField(Env, Obj, L.ctx);
    a_regress_simple *ctx = (a_regress_simple *)(*Env)->GetDirectBufferAddress(Env, Ctx);
    a_regress_simple_zero(ctx);
    return Obj;
}