Mercurial > repos > public > sbplib
view stencilEquation.m @ 1317:34997aced843 feature/poroelastic
Add some interface forcing penalties in ElasticCurvilinearAnisotropic
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Sun, 26 Jul 2020 20:06:06 -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