Mercurial > repos > public > sbplib

annotate +time/+rkparameters/rk4.m @ 1281:01a0500de446 feature/poroelastic

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add working implementation of Elastic2dStaggeredCurvilinearAnisotropic, which wraps around the Cartesian anisotropic scheme.
author Martin Almquist <malmquist@stanford.edu>
date Sun, 07 Jun 2020 11:33:44 -0700
parents ee4cfb37534d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
856
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
1 function [a,b,c,s] = rk4()
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
2
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
3 % Butcher tableau for classical RK$
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
4 s = 4;
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
5 a = sparse(s,s);
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
6 a(2,1) = 1/2;
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
7 a(3,2) = 1/2;
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
8 a(4,3) = 1;
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
9 b = 1/6*[1; 2; 2; 1];
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
10 c = [0; 1/2; 1/2; 1];
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
11
ee4cfb37534d Merge with feature/d1_staggered to get RK timestepper for discrete data.
Martin Almquist <malmquist@stanford.edu>
parents:
diff changeset
12 end