diff --git a/.gitignore b/.gitignore index e69de29..c428b1b 100644 --- a/.gitignore +++ b/.gitignore @@ -0,0 +1 @@ +Homework/Week1/octave-workspace diff --git a/Homework/Week1/laff_copy.m b/Homework/Week1/laff_copy.m new file mode 100644 index 0000000..8efd688 --- /dev/null +++ b/Homework/Week1/laff_copy.m @@ -0,0 +1,56 @@ +## Copyright (C) 2018 julien Lengrand-Lambert +## +## This program is free software; you can redistribute it and/or modify it +## under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or +## (at your option) any later version. +## +## This program is distributed in the hope that it will be useful, +## but WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +## GNU General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with this program. If not, see . + +## Author: julien Lengrand-Lambert +## Created: 2018-04-30 +function [ y_out ] = laff_copy (x, y) + + y_out = y; + + function isVector = isVector(x) + isVector = (size(x, 1) == 1 || size(x, 2) == 1); + endfunction + + function isCompatible = isCompatible(x, y) + isCompatible = (isequal(size(x), size(y)) || isequal(size(x), fliplr(size(y)))); + endfunction + + function needsTranspose = needsTranspose(x, y) + needsTranspose = isequal(size(x) ,(size(y'))); + endfunction + + if !isVector(x) + disp('Error : x not a vector'); + y_out = 'FAILED'; + return + end + + if !isVector(y) + disp('Error : y not a vector'); + y_out = 'FAILED'; + return + end + + if !isCompatible(x, y) + disp('Error : x and y are not compatible'); + y_out = 'FAILED'; + return + end + + for i = 1:max(size(x)) + y_out(i) = x(i); + end + +endfunction \ No newline at end of file diff --git a/Homework/Week1/test_copy.m b/Homework/Week1/test_copy.m new file mode 100755 index 0000000..ea07702 --- /dev/null +++ b/Homework/Week1/test_copy.m @@ -0,0 +1,95 @@ +% Create some vectors +x = [ +1 +2 +3 +] +y = [ +0 +-1 +-2 +] +z = [ +4 +3 +2 +1 +] + +% test column -> column copy +disp( 'column -> column copy' ) +if ( isequal( laff_copy( x, y ), x ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test column -> row copy +disp( 'column -> row copy' ) +if ( isequal( laff_copy( x, y' ), x' ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test row -> column copy +disp( 'row -> column copy' ) +if ( isequal( laff_copy( x', y ), x ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test row -> row copy +disp( 'row -> row copy' ) +if ( isequal( laff_copy( x', y' ), x' ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test column -> column copy (wrong size) +disp( 'column -> column copy (wrong size)' ) +if ( isequal( laff_copy( x, z ), 'FAILED' ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test column -> row copy (wrong size) +disp( 'column -> row copy (wrong size)' ) +if ( isequal( laff_copy( x, z' ), 'FAILED' ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test row -> column copy (wrong size) +disp( 'row -> column copy (wrong size)' ) +if ( isequal( laff_copy( x', z ), 'FAILED' ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end + +disp( ' ' ) + +% test row -> row copy (wrong size) +disp( 'row -> row copy (wrong size)' ) +if ( isequal( laff_copy( x', z' ), 'FAILED' ) ) + disp( 'TEST PASSED' ) +else + disp( 'TEST FAILED' ) +end \ No newline at end of file