Mercurial > repos > public > sbplib

annotate +multiblock/evalOn.m @ 806:f779b5aca5eb feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add type assertions, fix bug, edit documentation and formatting
author Jonatan Werpers <jonatan@werpers.com>
date Fri, 27 Jul 2018 09:49:24 -0700
parents 1caeb4dffdf9
children cee0b381d714
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
1 % Evaluate different function handle for each block in a multiblock.Grid
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
2 % Function handles may optionaly take a time argument
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
3 % f -- cell array of function handles
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
4 % f{i} = f_i(x,y,...,t)
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
5 % t -- optional time point. If not specified, it is assumed that the functions take only spatial arguments.
804
1f1d2a271d61 Move blockEvalOn to multiblock package
Jonatan Werpers <jonatan@werpers.com>
parents: 736
diff changeset
6 function gf = evalOn(g, f, t)
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
7 assertType(g, 'multiblock.Grid');
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
8 assertType(f, 'cell');
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
9
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
10 default_arg('t', []);
736
d991f8a0b61c Add grid.blockEvalOn for functions with different functional expressions for different grid blocks
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
11
805
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
12 grids = g.grids;
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
13 nBlocks = length(grids);
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
14 gf = cell(nBlocks, 1);
736
d991f8a0b61c Add grid.blockEvalOn for functions with different functional expressions for different grid blocks
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
15
805
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
16 if isempty(t)
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
17 for i = 1:nBlocks
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
18 gf{i} = grid.evalOn(grids{i}, f{i});
805
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
19 end
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
20 else
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
21 dim = nargin(f{1}) - 1;
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
22 for i = 1:nBlocks
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
23 switch dim
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
24 case 1
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
25 gf{i} = grid.evalOn(grids{i}, @(x)f{i}(x,t));
805
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
26 case 2
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
27 gf{i} = grid.evalOn(grids{i}, @(x,y)f{i}(x,y,t));
805
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
28 case 3
806
f779b5aca5eb Add type assertions, fix bug, edit documentation and formatting
Jonatan Werpers <jonatan@werpers.com>
parents: 805
diff changeset
29 gf{i} = grid.evalOn(grids{i}, @(x,y,z)f{i}(x,y,z,t));
805
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
30 end
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
31 end
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
32 end
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
33
1caeb4dffdf9 Fix formatting of multiblock.evalOn
Jonatan Werpers <jonatan@werpers.com>
parents: 804
diff changeset
34 gf = blockmatrix.toMatrix(gf);
736
d991f8a0b61c Add grid.blockEvalOn for functions with different functional expressions for different grid blocks
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
35 end