quickjs/src/mf.c

   1 #include "mf.h"
   2
   3 JSValue liba_mf_gauss(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
   4 {
   5     a_float x;
   6     unsigned int i;
   7     double arg[] = {0, 0, 0};
   8     for (i = 0; i < A_LEN(arg); ++i)
   9     {
  10         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
  11     }
  12     (void)this_val;
  13     (void)argc;
  14     x = a_mf_gauss((a_float)arg[0], (a_float)arg[1], (a_float)arg[2]);
  15     return JS_NewFloat64(ctx, (double)x);
  16 }
  17
  18 JSValue liba_mf_gauss2(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  19 {
  20     a_float x;
  21     unsigned int i;
  22     double arg[] = {0, 0, 0, 0, 0};
  23     for (i = 0; i < A_LEN(arg); ++i)
  24     {
  25         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
  26     }
  27     (void)this_val;
  28     (void)argc;
  29     x = a_mf_gauss2((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3], (a_float)arg[4]);
  30     return JS_NewFloat64(ctx, (double)x);
  31 }
  32
  33 JSValue liba_mf_gbell(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  34 {
  35     a_float x;
  36     unsigned int i;
  37     double arg[] = {0, 0, 0, 0};
  38     for (i = 0; i < A_LEN(arg); ++i)
  39     {
  40         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
  41     }
  42     (void)this_val;
  43     (void)argc;
  44     x = a_mf_gbell((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3]);
  45     return JS_NewFloat64(ctx, (double)x);
  46 }
  47
  48 JSValue liba_mf_sig(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  49 {
  50     a_float x;
  51     unsigned int i;
  52     double arg[] = {0, 0, 0};
  53     for (i = 0; i < A_LEN(arg); ++i)
  54     {
  55         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
  56     }
  57     (void)this_val;
  58     (void)argc;
  59     x = a_mf_sig((a_float)arg[0], (a_float)arg[1], (a_float)arg[2]);
  60     return JS_NewFloat64(ctx, (double)x);
  61 }
  62
  63 JSValue liba_mf_dsig(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  64 {
  65     a_float x;
  66     unsigned int i;
  67     double arg[] = {0, 0, 0, 0, 0};
  68     for (i = 0; i < A_LEN(arg); ++i)
  69     {
  70         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
  71     }
  72     (void)this_val;
  73     (void)argc;
  74     x = a_mf_dsig((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3], (a_float)arg[4]);
  75     return JS_NewFloat64(ctx, (double)x);
  76 }
  77
  78 JSValue liba_mf_psig(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  79 {
  80     a_float x;
  81     unsigned int i;
  82     double arg[] = {0, 0, 0, 0, 0};
  83     for (i = 0; i < A_LEN(arg); ++i)
  84     {
  85         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
  86     }
  87     (void)this_val;
  88     (void)argc;
  89     x = a_mf_psig((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3], (a_float)arg[4]);
  90     return JS_NewFloat64(ctx, (double)x);
  91 }
  92
  93 JSValue liba_mf_trap(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
  94 {
  95     a_float x;
  96     unsigned int i;
  97     double arg[] = {0, 0, 0, 0, 0};
  98     for (i = 0; i < A_LEN(arg); ++i)
  99     {
 100         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 101     }
 102     (void)this_val;
 103     (void)argc;
 104     x = a_mf_trap((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3], (a_float)arg[4]);
 105     return JS_NewFloat64(ctx, (double)x);
 106 }
 107
 108 JSValue liba_mf_tri(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 109 {
 110     a_float x;
 111     unsigned int i;
 112     double arg[] = {0, 0, 0, 0};
 113     for (i = 0; i < A_LEN(arg); ++i)
 114     {
 115         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 116     }
 117     (void)this_val;
 118     (void)argc;
 119     x = a_mf_tri((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3]);
 120     return JS_NewFloat64(ctx, (double)x);
 121 }
 122
 123 JSValue liba_mf_lins(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 124 {
 125     a_float x;
 126     unsigned int i;
 127     double arg[] = {0, 0, 0};
 128     for (i = 0; i < A_LEN(arg); ++i)
 129     {
 130         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 131     }
 132     (void)this_val;
 133     (void)argc;
 134     x = a_mf_lins((a_float)arg[0], (a_float)arg[1], (a_float)arg[2]);
 135     return JS_NewFloat64(ctx, (double)x);
 136 }
 137
 138 JSValue liba_mf_linz(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 139 {
 140     a_float x;
 141     unsigned int i;
 142     double arg[] = {0, 0, 0};
 143     for (i = 0; i < A_LEN(arg); ++i)
 144     {
 145         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 146     }
 147     (void)this_val;
 148     (void)argc;
 149     x = a_mf_linz((a_float)arg[0], (a_float)arg[1], (a_float)arg[2]);
 150     return JS_NewFloat64(ctx, (double)x);
 151 }
 152
 153 JSValue liba_mf_s(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 154 {
 155     a_float x;
 156     unsigned int i;
 157     double arg[] = {0, 0, 0};
 158     for (i = 0; i < A_LEN(arg); ++i)
 159     {
 160         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 161     }
 162     (void)this_val;
 163     (void)argc;
 164     x = a_mf_s((a_float)arg[0], (a_float)arg[1], (a_float)arg[2]);
 165     return JS_NewFloat64(ctx, (double)x);
 166 }
 167
 168 JSValue liba_mf_z(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 169 {
 170     a_float x;
 171     unsigned int i;
 172     double arg[] = {0, 0, 0};
 173     for (i = 0; i < A_LEN(arg); ++i)
 174     {
 175         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 176     }
 177     (void)this_val;
 178     (void)argc;
 179     x = a_mf_z((a_float)arg[0], (a_float)arg[1], (a_float)arg[2]);
 180     return JS_NewFloat64(ctx, (double)x);
 181 }
 182
 183 JSValue liba_mf_pi(JSContext *ctx, JSValueConst this_val, int argc, JSValueConst *argv)
 184 {
 185     a_float x;
 186     unsigned int i;
 187     double arg[] = {0, 0, 0, 0, 0};
 188     for (i = 0; i < A_LEN(arg); ++i)
 189     {
 190         if (JS_ToFloat64(ctx, &arg[i], argv[i])) { return JS_EXCEPTION; }
 191     }
 192     (void)this_val;
 193     (void)argc;
 194     x = a_mf_pi((a_float)arg[0], (a_float)arg[1], (a_float)arg[2], (a_float)arg[3], (a_float)arg[4]);
 195     return JS_NewFloat64(ctx, (double)x);
 196 }