Commit a90325f7 authored by Mathieu Hemery's avatar Mathieu Hemery
Browse files

Delete matrix_sub (deadcode ?)

parent e7e7538f
...@@ -14,7 +14,6 @@ ...@@ -14,7 +14,6 @@
scalar_prod/3, scalar_prod/3,
matrix_apply/3, matrix_apply/3,
matrix_sum/3, matrix_sum/3,
matrix_sub/3,
create_diag_matrix/3, create_diag_matrix/3,
sub_matrix/1, sub_matrix/1,
row_sum/3, row_sum/3,
...@@ -333,18 +332,6 @@ row_sum([ElementA|RowA],[ElementB|Row2],[SumElement|SumRow]):- ...@@ -333,18 +332,6 @@ row_sum([ElementA|RowA],[ElementB|Row2],[SumElement|SumRow]):-
SumElement is ElementA+ElementB, SumElement is ElementA+ElementB,
row_sum(RowA,Row2,SumRow). row_sum(RowA,Row2,SumRow).
/* Sub of two matrixes */
matrix_sub([],[],[]).
matrix_sub([RowA|MatrixA],[Row2|MatrixB],[SubRow|SubMatrix]):-
row_sub(RowA,Row2,SubRow),
matrix_sub(MatrixA,MatrixB,SubMatrix).
row_sub([],[],[]).
row_sub([ElementA|RowA],[ElementB|Row2],[SubElement|SubRow]):-
SubElement is ElementA-ElementB,
row_sub(RowA,Row2,SubRow).
%! create_diag_matrix(+Size, +Value, -Diag_matrix) %! create_diag_matrix(+Size, +Value, -Diag_matrix)
% %
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment