view stencilEquation.m @ 1291:a8e730db76e9 feature/poroelastic

Add normal-tangential traction BC ElasticCurvilinearAnisotropic
author Martin Almquist <malmquist@stanford.edu>
date Mon, 29 Jun 2020 15:23:01 -0700
parents 184833fe4c0e
children
line wrap: on
line source

% Find the equation for the stencil for d^k/dx^k
function [A,b] = stencilEquation(k, offsets, order)
    q = sym('q', [1, length(offsets)]);

    p = 0:(order-1+k);

    v     = vandermonde(offsets, p);
    vdiff = vandermonde(      0, p-k);

    eq = q*v == vdiff;

    [A,b] = equationsToMatrix(eq, q);
end