sbplib: Cell.m annotate

annotate Cell.m @ 577:e45c9b56d50d feature/grids

Add an Empty grid class The need turned up for the flexural code when we may or may not have a grid for the open water and want to plot that solution. In case there is no open water we need an empty grid to plot the empty gridfunction against to avoid errors.

author	Jonatan Werpers <jonatan@werpers.com>
date	Thu, 07 Sep 2017 09:16:12 +0200
parents	025f084187d1
children	2ce903f28193

rev	line source
483 025f084187d1 Add some documentation and minor clean up Jonatan Werpers <jonatan@werpers.com> parents: 482 diff changeset	1 % Cell is a reimplementation of matlabs cell array with the benefit that it is subclassable
025f084187d1 Add some documentation and minor clean up Jonatan Werpers <jonatan@werpers.com> parents: 482 diff changeset	2 % It might be used for giving a typename to a cellarray to increase readability of the code.
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	3 classdef Cell
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	4 properties
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	5 data
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	6 end
483 025f084187d1 Add some documentation and minor clean up Jonatan Werpers <jonatan@werpers.com> parents: 482 diff changeset	7
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	8 methods
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	9 function obj = Cell(data)
483 025f084187d1 Add some documentation and minor clean up Jonatan Werpers <jonatan@werpers.com> parents: 482 diff changeset	10 default_arg('data', {});
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	11 if ~iscell(data)
472 1dcac646c514 Add some missing semicolon Jonatan Werpers <jonatan@werpers.com> parents: 469 diff changeset	12 error('Input argument to Cell must be a cell array');
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	13 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	14
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	15 obj.data = data;
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	16 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	17
480 4ce12f8b561c Implement to string method Jonatan Werpers <jonatan@werpers.com> parents: 479 diff changeset	18 function str = toString(obj)
4ce12f8b561c Implement to string method Jonatan Werpers <jonatan@werpers.com> parents: 479 diff changeset	19 str = sprintf('%s%s', class(obj), toString(obj.data));
4ce12f8b561c Implement to string method Jonatan Werpers <jonatan@werpers.com> parents: 479 diff changeset	20 end
473 605a8c075388 Add to string stub. Jonatan Werpers <jonatan@werpers.com> parents: 472 diff changeset	21
478 d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	22 function s = size(A)
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	23 s = size(A.data);
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	24 end
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	25
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	26 function l = length(A)
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	27 l = length(A.data);
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	28 end
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	29
479 c5705458beb1 Implement end function and fix test for colon indexing Jonatan Werpers <jonatan@werpers.com> parents: 478 diff changeset	30 function ind = end(A,k,n)
c5705458beb1 Implement end function and fix test for colon indexing Jonatan Werpers <jonatan@werpers.com> parents: 478 diff changeset	31 ind = builtin('end',A.data, k, n);
c5705458beb1 Implement end function and fix test for colon indexing Jonatan Werpers <jonatan@werpers.com> parents: 478 diff changeset	32 end
c5705458beb1 Implement end function and fix test for colon indexing Jonatan Werpers <jonatan@werpers.com> parents: 478 diff changeset	33
478 d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	34 function B = transpose(A)
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	35 b = A.data.';
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	36 B = callConstructor(A, b);
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	37 end
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	38
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	39 function B = ctranspose(A)
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	40 b = A.data';
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	41 B = callConstructor(A, b);
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	42 end
d91f27460741 Implement size, length and transpose Jonatan Werpers <jonatan@werpers.com> parents: 474 diff changeset	43
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	44 function A = subsasgn(A, S, B)
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	45 a = subsasgn(A.data, S, B);
468 13362cf4dd89 Make the overloaded methods call the subclass constructor Jonatan Werpers <jonatan@werpers.com> parents: 467 diff changeset	46 A = callConstructor(A, a);
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	47 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	48
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	49 function B = subsref(A, S)
469 365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	50 switch S(1).type
365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	51 case '()'
481 970f1df2bfcf Implement handeling of stacked indexing Jonatan Werpers <jonatan@werpers.com> parents: 480 diff changeset	52 b = subsref(A.data, S(1));
469 365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	53 B = callConstructor(A, b);
481 970f1df2bfcf Implement handeling of stacked indexing Jonatan Werpers <jonatan@werpers.com> parents: 480 diff changeset	54 if length(S) > 1
970f1df2bfcf Implement handeling of stacked indexing Jonatan Werpers <jonatan@werpers.com> parents: 480 diff changeset	55 B = subsref(B,S(2:end));
970f1df2bfcf Implement handeling of stacked indexing Jonatan Werpers <jonatan@werpers.com> parents: 480 diff changeset	56 end
469 365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	57 case '{}'
365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	58 B = subsref(A.data, S);
365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	59 case '.'
365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	60 B = builtin('subsref',A, S);
365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	61 otherwise
472 1dcac646c514 Add some missing semicolon Jonatan Werpers <jonatan@werpers.com> parents: 469 diff changeset	62 error('unreachable');
469 365fcdbb8736 Implement subsref properly Jonatan Werpers <jonatan@werpers.com> parents: 468 diff changeset	63 end
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	64 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	65
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	66 function C = horzcat(varargin)
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	67 dataArray = cell(1, length(varargin));
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	68
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	69 for i = 1:length(varargin)
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	70 dataArray{i} = varargin{i}.data;
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	71 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	72
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	73 c = horzcat(dataArray{:});
468 13362cf4dd89 Make the overloaded methods call the subclass constructor Jonatan Werpers <jonatan@werpers.com> parents: 467 diff changeset	74 C = callConstructor(varargin{1}, c);
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	75 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	76
474 c91464ef1dd9 Implement tests for horzcat and vertcat. Fix bugs found Jonatan Werpers <jonatan@werpers.com> parents: 473 diff changeset	77 function C = vertcat(varargin)
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	78 dataArray = cell(1, length(varargin));
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	79
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	80 for i = 1:length(varargin)
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	81 dataArray{i} = varargin{i}.data;
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	82 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	83
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	84 c = vertcat(dataArray{:});
468 13362cf4dd89 Make the overloaded methods call the subclass constructor Jonatan Werpers <jonatan@werpers.com> parents: 467 diff changeset	85 C = callConstructor(varargin{1}, c);
467 8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	86 end
8d3c3da3a589 Initial commit Jonatan Werpers <jonatan@werpers.com> parents: diff changeset	87 end
468 13362cf4dd89 Make the overloaded methods call the subclass constructor Jonatan Werpers <jonatan@werpers.com> parents: 467 diff changeset	88 end

Mercurial > repos > public > sbplib

annotate Cell.m @ 577:e45c9b56d50d feature/grids