Commit 89823b9d authored by Turnhout, M.C. van's avatar Turnhout, M.C. van
Browse files

add support function feedback

parent 19545341
......@@ -3,6 +3,11 @@
if ~exist('nodfrc', 'var'), nodfrc = []; end
elmdcpath = which('elm1d_c.m');
fprintf('Using %s for the coordinate dependent diffusion constant\n', ...
elmdcpath);
% compute the pos and dest array
disp('* create equation numbers ...');
[pos, dest] = equatnr(coord, top, mat);
......
......@@ -24,6 +24,8 @@ if ~exist('sol', 'var')
end
if ~exist('nodfrc', 'var'), nodfrc = []; end
cdapath = which('elcd_a.m');
fprintf('Using %s for the flow profile\n', cdapath);
% pos and dest
disp('* create equation numbers ...');
......
Markdown is supported
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