view +parametrization/dataSpline.m @ 1252:8fc2f9a4c882 feature/poroelastic

Add (temporary) fix for e-s , w-n, and x-x couplings
author Martin Almquist <malmquist@stanford.edu>
date Tue, 07 Jan 2020 12:49:09 -0800
parents 0eef5c8ccb88
children 60c875c18de3
line wrap: on
line source

% dataSpline calculates a Curve through the points f_i using cubic spline interpolation.
% The spline curve is parametrized with the arc length parametrization
% to facilitate better grids.
%
% f 	- m x D matrix of m points in D dimensions
function C = dataSpline(f)
	m = size(f, 1);

	t = linspace(0,1,m);

	pp_g = spapi(4, t, f');
	pp_gp = fnder(pp_g);

	g  = @(t) fnval(pp_g, t);
	gp = @(t) fnval(pp_gp, t);

	C = parametrization.Curve(g, gp);
	C = C.arcLengthParametrization();
end