quartic_spline.asv

来自「efg code with matlab」· ASV 代码 · 共 15 行

% *************************************************************************
%                 TWO DIMENSIONAL ELEMENT FREE GALERKIN CODE
%                            Nguyen Vinh Phu
%                        LTDS, ENISE, Juillet 2006
% *************************************************************************
function [w,dwdr] = quartic_spline(r)
% Compute cubic spline function

if (r <= 1.0)
   w    = 1 - 6*r*r + 8*r*r*r - 3*r*r*r*r;
   dwdr = 0.0 ;
else
   w    = 0.0 ;
   dwdr = 0.0 ;
end