Mercurial > repos > public > sbplib

annotate subsSymfun.m @ 1346:464e6f65c2c6 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Refactor computation of borrowing from C. Update to correct number of boundary points for borrowing from R.
author Martin Almquist <martin.almquist@it.uu.se>
date Tue, 30 Apr 2024 14:18:47 +0200
parents 489bea7fc33f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
599
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
1 % Subs for a symfun
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
2 % f remains a symbolic function. If any of it's arguments is eliminated
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
3 % it is removed from the argument list while preserving the order of the
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
4 % other arguments
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
5 function f = subsSymfun(f, old, new)
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
6 args = argnames(f);
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
7
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
8 newExpr = subs(f, old, new);
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
9 vars = symvar(subs(args, old, new));
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
10
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
11 newArgs = args(ismember(args,vars));
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
12
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
13 f = symfun(newExpr, newArgs);
489bea7fc33f Add some functions to make symbolic life easier
Jonatan Werpers <jonatan@werpers.com>
parents:
diff changeset
14 end