Method: Vdsp::UnsafeDouble.vaam

Defined in:

ext/vdsp/vdsp.c

.vaam(*args) ⇒ Object

e = (a + b) * (c + d)

# File 'ext/vdsp/vdsp.c', line 1860

VALUE rb_double_vaam(int argc, const VALUE *argv, VALUE cls)
{
  rb_check_arity(argc, 16, 16);

  VALUE a = argv[0];
  VALUE a_offset = argv[1];
  VALUE a_stride = argv[2];
  VALUE b = argv[3];
  VALUE b_offset = argv[4];
  VALUE b_stride = argv[5];
  VALUE c = argv[6];
  VALUE c_offset = argv[7];
  VALUE c_stride = argv[8];
  VALUE d = argv[9];
  VALUE d_offset = argv[10];
  VALUE d_stride = argv[11];
  VALUE e = argv[12];
  VALUE e_offset = argv[13];
  VALUE e_stride = argv[14];
  VALUE n = argv[15];

  VdspArrayParam _a;
  VdspArrayParam _b;
  VdspArrayParam _c;
  VdspArrayParam _d;
  VdspArrayParam _e;

  array_param(&_a, a, a_offset, a_stride);
  array_param(&_b, b, b_offset, b_stride);
  array_param(&_c, c, c_offset, c_stride);
  array_param(&_d, d, d_offset, d_stride);
  array_param(&_e, e, e_offset, e_stride);

  vDSP_Length _n = NUM2LONG(n);

  vDSP_vaamD(
    _a.res0->v.d+_a.offset, _a.stride,
    _b.res0->v.d+_b.offset, _b.stride,
    _c.res0->v.d+_c.offset, _c.stride,
    _d.res0->v.d+_d.offset, _d.stride,
    _e.res0->v.d+_e.offset, _e.stride,
    _n);

  return e;
}