Mercurial > repos > public > sbplib
view stencilEquation.m @ 1227:02dfe3a56742 feature/poroelastic
Add Upwind ElasticAnisotropic schemes. Seem to work really well!
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Sat, 16 Nov 2019 14:26:06 -0800 |
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