Renaming methods.

Author: YvanGuifo

src/Math-Matrix/PMTensor.class.st

@@ -58,6 +58,16 @@ PMTensor >> first [
 ^first
 ]
 
+{ #category : #'primitives - file' }
+PMTensor >> flattenedIndexOf: coords [
+
+	| position |
+	position := 1.
+	coords withIndexDo: [ :elt :i | 
+		position := elt - 1 * (strides at: i) + position ].
+	^ position
+]
+
 { #category : #'as yet unclassified' }
 PMTensor >> flattenedIndexOf: aFlatArray withShape: aShape [
 
@@ -67,22 +77,21 @@ PMTensor >> flattenedIndexOf: aFlatArray withShape: aShape [
 	shape ifNotEmpty: [ self updateStrides]
 ]
 
-{ #category : #public }
-PMTensor >> get: coords [
+{ #category : #'as yet unclassified' }
+PMTensor >> fromNestedArray: aFlatArray withShape: aShape [
 
-	| position |
-	position := self getPosition: coords.
-	^ array at: position
+	array := aFlatArray.
+	shape := aShape copy.
+	self updateFirst.
+	shape ifNotEmpty: [ self updateStrides]
 ]
 
-{ #category : #'primitives - file' }
-PMTensor >> getPosition: coords [
+{ #category : #public }
+PMTensor >> get: coords [
 
 	| position |
-	position := 1.
-	coords withIndexDo: [ :elt :i | 
-		position := elt - 1 * (strides at: i) + position ].
-	^ position
+	position := self flattenedIndexOf: coords.
+	^ array at: position
 ]
 
 { #category : #accessing }
@@ -100,7 +109,7 @@ PMTensor >> reshape: aNewShape [
 { #category : #initialization }
 PMTensor >> set: coords value: aValue [
 
-array at: (self getPosition: coords) put: aValue
+array at: (self flattenedIndexOf: coords) put: aValue
 ]
 
 { #category : #accessing }
@@ -112,10 +121,8 @@ PMTensor >> shape [
 { #category : #accessing }
 PMTensor >> size [
 
-	| product |
-	product := 1.
-	shape do: [ :each | product := each * product ].
-	^ product
+^ shape inject: 1 into:  [  :each :product | each * product].
+	
 ]
 
 { #category : #accessing }