Mercurial > repos > public > sbplib
annotate +time/+rkparameters/rk4.m @ 1344:b4e5e45bd239 feature/D2_boundary_opt
Remove round off zeros from D2Nonequidistant operators
author | Vidar Stiernström <vidar.stiernstrom@it.uu.se> |
---|---|
date | Sat, 15 Oct 2022 15:48:20 +0200 |
parents | ee4cfb37534d |
children |
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 |