pnmatrix 1.2.4

data/lib/nmatrix/jruby/operators.rb

@@ -0,0 +1,283 @@
+class NMatrix
+
+  # A dummy matrix is a matrix without the elements atrribute.
+  # NMatrix#create_dummy_matrix prevents creating copies as @s is set explicitly.
+  def +(other)
+    result = create_dummy_nmatrix
+    if (other.is_a?(NMatrix))
+      #check dimension
+      raise(ShapeError, "Cannot add matrices with different dimension") if (@dim != other.dim)
+      #check shape
+      (0...dim).each do |i|
+        raise(ShapeError, "Cannot add matrices with different shapes") if (@shape[i] != other.shape[i])
+      end
+      result.s = @s.copy.add(other.s)
+    else
+      result.s = @s.copy.mapAddToSelf(other)
+    end
+    result
+  end
+
+  def -(other)
+    result = create_dummy_nmatrix
+    if (other.is_a?(NMatrix))
+      #check dimension
+      raise(ShapeError, "Cannot subtract matrices with different dimension") if (@dim != other.dim)
+      #check shape
+      (0...dim).each do |i|
+        raise(ShapeError, "Cannot subtract matrices with different shapes") if (@shape[i] != other.shape[i])
+      end
+      result.s = @s.copy.subtract(other.s)
+    else
+      result.s = @s.copy.mapSubtractToSelf(other)
+    end
+    result
+  end
+
+  def *(other)
+    result = create_dummy_nmatrix
+    if (other.is_a?(NMatrix))
+      #check dimension
+      raise(ShapeError, "Cannot multiply matrices with different dimension") if (@dim != other.dim)
+      #check shape
+      (0...dim).each do |i|
+        raise(ShapeError, "Cannot multiply matrices with different shapes") if (@shape[i] != other.shape[i])
+      end
+      result.s = @s.copy.ebeMultiply(other.s)
+    else
+      result.s = @s.copy.mapMultiplyToSelf(other)
+    end
+    result
+  end
+
+  def /(other)
+    result = create_dummy_nmatrix
+    if (other.is_a?(NMatrix))
+      #check dimension
+      raise(ShapeError, "Cannot divide matrices with different dimension") if (@dim != other.dim)
+      #check shape
+      (0...dim).each do |i|
+        raise(ShapeError, "Cannot divide matrices with different shapes") if (@shape[i] != other.shape[i])
+      end
+      result.s = @s.copy.ebeDivide(other.s)
+    else
+      result.s = @s.copy.mapDivideToSelf(other)
+    end
+    result
+  end
+
+  def ** val
+    result = NMatrix.new(:copy)
+    result.shape = @shape
+    result.dim = @dim
+    result.s = @s.copy.mapToSelf(Power.new(val))
+    result
+  end
+
+  def %(other)
+    raise Exception.new("modulus not supported in NMatrix-jruby")
+  end
+
+  def atan2(other, scalar=false)
+    result = create_dummy_nmatrix
+    if scalar
+      result.s = ArrayRealVector.new MathHelper.atan2Scalar(other, @s.toArray)
+    else
+      if other.is_a? NMatrix
+        result.s = ArrayRealVector.new MathHelper.atan2(other.s.toArray, @s.toArray)
+      else
+        result.s = ArrayRealVector.new MathHelper.atan2Scalar2(other, @s.toArray)
+      end
+    end
+    result
+  end
+
+  def ldexp(other, scalar=false)
+    result = create_dummy_nmatrix
+    if scalar
+      result.s = ArrayRealVector.new MathHelper.ldexpScalar(other, @s.toArray)
+    else
+      if other.is_a? NMatrix
+        result.s = ArrayRealVector.new MathHelper.ldexp(other.s.toArray, @s.toArray)
+      else
+        result.s = ArrayRealVector.new MathHelper.ldexpScalar2(other, @s.toArray)
+      end
+    end
+    result
+  end
+
+  def hypot(other, scalar=false)
+    result = create_dummy_nmatrix
+    if scalar
+      result.s = ArrayRealVector.new MathHelper.hypotScalar(other, @s.toArray)
+    else
+      if other.is_a? NMatrix
+        result.s = ArrayRealVector.new MathHelper.hypot(other.s.toArray, @s.toArray)
+      else
+        result.s = ArrayRealVector.new MathHelper.hypotScalar(other, @s.toArray)
+      end
+    end
+    result
+  end
+
+  def sin
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Sin.new())
+    result
+  end
+
+  def cos
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Cos.new())
+    result
+  end
+
+  def tan
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Tan.new())
+    result
+  end
+
+  def asin
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Asin.new())
+    result
+  end
+
+  def acos
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Acos.new())
+    result
+  end
+
+  def atan
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Atan.new())
+    result
+  end
+
+  def sinh
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Sinh.new())
+    result
+  end
+
+  def cosh
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Cosh.new())
+    result
+  end
+
+  def tanh
+    result = NMatrix.new(:copy)
+    result.shape = @shape
+    result.dim = @dim
+    result.s = @s.copy.mapToSelf(Tanh.new())
+    result
+  end
+
+  def asinh
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Asinh.new())
+    result
+  end
+
+  def acosh
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Acosh.new())
+    result
+  end
+
+  def atanh
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Atanh.new())
+    result
+  end
+
+  def exp
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Exp.new())
+    result
+  end
+
+  def log(val = :natural)
+    result = create_dummy_nmatrix
+    if val == :natural
+      result.s = @s.copy.mapToSelf(Log.new())
+    else
+      result.s = ArrayRealVector.new MathHelper.log(val, @s.toArray)
+    end
+    result
+  end
+
+  def log2
+    self.log(2)
+  end
+
+  def log10
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Log10.new())
+    result
+  end
+
+  def sqrt
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Sqrt.new())
+    result
+  end
+
+  def erf
+    result = create_dummy_nmatrix
+    result.s = ArrayRealVector.new MathHelper.erf(@s.toArray)
+    result
+  end
+
+  def erfc
+    result = create_dummy_nmatrix
+    result.s = ArrayRealVector.new MathHelper.erfc(@s.toArray)
+    result
+  end
+
+  def cbrt
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapToSelf(Cbrt.new())
+    result
+  end
+
+  def gamma
+    result = create_dummy_nmatrix
+    result.s = ArrayRealVector.new MathHelper.gamma(@s.toArray)
+    result
+  end
+
+  def -@
+    result = create_dummy_nmatrix
+    result.s = @s.copy.mapMultiplyToSelf(-1)
+    result
+  end
+
+  def floor
+    result = create_dummy_nmatrix
+    # Need to be changed later
+    result.dtype = :int64
+    result.s = @s.copy.mapToSelf(Floor.new())
+    result
+  end
+
+  def ceil
+    result = create_dummy_nmatrix
+    # Need to be changed later
+    result.dtype = :int64
+    result.s = @s.copy.mapToSelf(Ceil.new())
+    result
+  end
+
+  def round
+    result = create_dummy_nmatrix
+    # Need to be changed later
+    result.dtype = :int64
+    result.s = ArrayRealVector.new MathHelper.round(@s.toArray)
+    result
+  end
+
+end

data/lib/nmatrix/jruby/slice.rb

@@ -0,0 +1,264 @@
+class NMatrix
+
+  def get_slice(dim, args, shape_array)
+    slice = {}
+    slice[:coords]=[]
+    slice[:lengths]=[]
+    slice[:single] = true
+
+    argc = args.length
+
+    t = 0
+    (0...dim).each do |r|
+      v = t == argc ? nil : args[t]
+
+      if(argc - t + r < dim && shape_array[r] ==1)
+        slice[:coords][r]  = 0
+        slice[:lengths][r] = 1
+      elsif v.is_a?(Fixnum)
+        v_ = v.to_i.to_int
+        if (v_ < 0) # checking for negative indexes
+          slice[:coords][r]  = shape_array[r]+v_
+        else
+          slice[:coords][r]  = v_
+        end
+        slice[:lengths][r] = 1
+        t+=1
+      elsif (v.is_a?(Symbol) && v == :*)
+        slice[:coords][r] = 0
+        slice[:lengths][r] = shape_array[r]
+        slice[:single] = false
+        t+=1
+      elsif v.is_a?(Range)
+        begin_ = v.begin
+        end_ = v.end
+        excl = v.exclude_end?
+        slice[:coords][r] = (begin_ < 0) ? shape[r] + begin_ : begin_
+
+        # Exclude last element for a...b range
+        if (end_ < 0)
+          slice[:lengths][r] = shape_array[r] + end_ - slice[:coords][r] + (excl ? 0 : 1)
+        else
+          slice[:lengths][r] = end_ - slice[:coords][r] + (excl ? 0 : 1)
+        end
+
+        slice[:single] = false
+        t+=1
+      else
+        raise(ArgumentError, "expected Fixnum or Range for slice component instead of #{v.class}")
+      end
+
+      if (slice[:coords][r] > shape_array[r] || slice[:coords][r] + slice[:lengths][r] > shape_array[r])
+        raise(RangeError, "slice is larger than matrix in dimension #{r} (slice component #{t})")
+      end
+    end
+
+    return slice
+  end
+
+  def get_stride(nmatrix)
+    stride = Array.new()
+    (0...nmatrix.dim).each do |i|
+      stride[i] = 1;
+      (i+1...dim).each do |j|
+        stride[i] *= nmatrix.shape[j]
+      end
+    end
+    stride
+  end
+
+  def xslice(args)
+    result = nil
+
+    if self.dim < args.length
+      raise(ArgumentError,"wrong number of arguments (#{args} for #{effective_dim(self)})")
+    else
+      result = Array.new()
+
+      slice = get_slice(@dim, args, @shape)
+      stride = get_stride(self)
+      if slice[:single]
+        if (@dtype == :object)
+          result = @s[dense_storage_get(slice,stride)]
+        else
+          s = @s.toArray().to_a
+          result = @s.getEntry(dense_storage_get(slice,stride))
+        end
+      else
+        result = dense_storage_get(slice,stride)
+      end
+    end
+    return result
+  end
+
+  #its by ref
+  def xslice_ref(args)
+    result = nil
+
+    if self.dim < args.length
+      raise(ArgumentError,"wrong number of arguments (#{args} for #{effective_dim(self)})")
+    else
+      result = Array.new()
+
+      slice = get_slice(@dim, args, @shape)
+      stride = get_stride(self)
+      if slice[:single]
+        if (@dtype == :object)
+          result = @s[dense_storage_get(slice,stride)]
+        else
+          result = @s.getEntry(dense_storage_get(slice,stride))
+        end
+      else
+        result = dense_storage_ref(slice,stride)
+      end
+    end
+    return result
+  end
+
+  def dense_storage_get(slice,stride)
+    if slice[:single]
+      return dense_storage_pos(slice[:coords],stride)
+    else
+      shape = @shape.dup
+      (0...@dim).each do |i|
+        shape[i] = slice[:lengths][i]
+      end
+      psrc = dense_storage_pos(slice[:coords], stride)
+      src = {}
+      result = NMatrix.new(:copy)
+      result.dim = dim
+      result.dtype = @dtype
+      resultShape= Array.new(dim)
+      (0...dim).each do |i|
+        resultShape[i]  = slice[:lengths][i]
+      end
+      result.shape = resultShape
+      dest = {}
+      src[:stride] = get_stride(self)
+      if (@dtype == :object)
+        src[:elements] = @s
+      else
+        src[:elements] = @s.toArray().to_a
+      end
+      dest[:stride] = get_stride(result)
+      dest[:shape] = resultShape
+      dest[:elements] = []
+      temp = []
+      s = (slice_copy(src, dest, slice[:lengths], 0, psrc,0))
+      # if
+      # arr = Java::double[s.length].new
+      if (@dtype == :object)
+        arr = Java::boolean[s.length].new
+      else
+        arr = Java::double[s.length].new
+      end
+      (0...s.length).each do |i|
+        arr[i] = s[i]
+      end
+      if (@dtype == :object)
+        result.s = arr
+      else
+        result.s = ArrayRealVector.new(arr)
+      end
+
+      return result
+    end
+  end
+
+  def slice_copy(src, dest,lengths, pdest, psrc,n)
+    if @dim-n>1
+      (0...lengths[n]).each do |i|
+        slice_copy(src, dest, lengths,pdest+dest[:stride][n]*i,psrc+src[:stride][n]*i,n+1)
+      end
+    else
+      (0...dest[:shape][n]).each do |p|
+        dest[:elements][p+pdest] = src[:elements][p+psrc]
+      end
+    end
+    dest[:elements]
+  end
+
+  def dense_storage_coords(s, slice_pos, coords_out, stride, offset)  #array, int, array
+    temp_pos = slice_pos;
+
+    (0...dim).each do |i|
+      coords_out[i] = (temp_pos - temp_pos % stride[i])/stride[i] - offset[i];
+      temp_pos = temp_pos % stride[i]
+    end
+
+    return temp_pos
+  end
+
+  def dense_storage_pos(coords,stride)
+    pos = 0;
+    offset = 0
+    (0...@dim).each do |i|
+      pos += coords[i]  * stride[i] ;
+    end
+    return pos + offset;
+  end
+
+  def slice_set(dest, lengths, pdest, rank, v, v_size, v_offset)
+    if (dim - rank > 1)
+      (0...lengths[rank]).each do |i|
+        slice_set(dest, lengths, pdest + dest[:stride][rank] * i, rank + 1, v, v_size, v_offset);
+      end
+    else
+      (0...lengths[rank]).each do |p|
+        v_offset %= v_size if(v_offset >= v_size)
+        # elem = dest[:elements]
+        # elem[p + pdest] = v[v_offset]
+        if @dtype == :object
+          @s[p + pdest] = v[v_offset]
+        else
+          @s.setEntry(p + pdest, v[v_offset])
+        end
+        v_offset += 1
+      end
+    end
+  end
+
+  def dense_storage_set(slice, right)
+    stride = get_stride(self)
+    v_size = 1
+
+    if right.is_a?(NMatrix)
+      right = right.s.toArray.to_a
+    end
+
+    if(right.is_a?(Array))
+      v_size = right.length
+      v = right
+      if (dtype == :RUBYOBJ)
+        # nm_register_values(reinterpret_cast<VALUE*>(v), v_size)
+      end
+
+      (0...v_size).each do |m|
+        v[m] = right[m]
+      end
+    else
+      v = [right]
+      if (@dtype == :RUBYOBJ)
+        # nm_register_values(reinterpret_cast<VALUE*>(v), v_size)
+      end
+    end
+    if(slice[:single])
+      # reinterpret_cast<D*>(s->elements)[nm_dense_storage_pos(s, slice->coords)] = v;
+      pos = dense_storage_pos(slice[:coords],stride)
+      if @dtype == :object
+        @s[pos] = v[0]
+      else
+        @s.setEntry(pos, v[0])
+      end
+    else
+      v_offset = 0
+      dest = {}
+      dest[:stride] = get_stride(self)
+      dest[:shape] = shape
+      # dest[:elements] = @s.toArray().to_a
+      dense_pos = dense_storage_pos(slice[:coords],stride)
+      slice_set(dest, slice[:lengths], dense_pos, 0, v, v_size, v_offset)
+    end
+  end
+
+end