Matrices

2996 Views

Report

• # Module for matrices
  Matrices<public> := module:
  
  	using { Arrays }
  	using { Comparisons }
  	using { /UnrealEngine.com/Temporary }
  
  	# Float Matrices
  	Matrix<public> := class<concrete>:
  		Rows<public>:int=0
  		Cols<public>:int=0
  		Rep<public>:[][]float=array{}
  
  	<# MATRIX CONSTRUCTION #>
  
  	# Construct matrix
  	ConstructMatrix<public><constructor>(InRep:[][]float)<decides><transacts>:=Matrix:
  		let:
  			var InRows:int = InRep.Length
  			var InCols:int = if (ColOne:=InRep[0].Length, ColOne > 0):
  				ColOne
  			else:
  				0
  		block:
  			for (Row:=0..InRows-1):
  				InRep[Row].Length = InCols
  		Rows:=InRows
  		Cols:=InCols
  		Rep:=InRep
  
  	# Construct matrix from integers
  	ConstructMatrixFromInts<public><constructor>(InRep:[][]int)<decides><transacts>:=Matrix:
  		let:
  			var InRows:int = InRep.Length
  			var RepTemp:[][]float = array{}
  			var InCols:int = if (ColOne:=InRep[0].Length, ColOne > 0):
  				ColOne
  			else:
  				0
  		block:
  			for (Row:=0..InRows-1):
  				InRep[Row].Length = InCols
  			for (Row:=0..InRows-1):
  				if:
  					TempRow := for(Col:=0..InCols-1):
  						1.0*InRep[Row][Col]
  					set RepTemp += array{TempRow}
  		Rows:=InRows
  		Cols:=InCols
  		Rep:=RepTemp