Mercurial > repos > public > sbplib

annotate +time/+rk/butcherTableauFromStr.m @ 986:a32856fc2ad2 feature/timesteppers

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename butcherTableau() to butcherTableauFromStr() in preparation of butcher tableau class
author Jonatan Werpers <jonatan@werpers.com>
date Tue, 08 Jan 2019 13:28:41 +0100
parents +time/+rk/butcherTableau.m@0344fff87139
children 1066bb31bc95
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
1 % Returns the coefficients used in a RK method as defined by a Butcher Tableau.
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
2 %
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
3 % @param method - string specifying which Runge-Kutta method to be used.
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
4 % @return s - number of stages
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
5 % @return a - coefficents for intermediate stages
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
6 % @return b - weights for summing stages
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
7 % @return c - time step coefficents for intermediate stages
986
a32856fc2ad2 Rename butcherTableau() to butcherTableauFromStr() in preparation of butcher tableau class
Jonatan Werpers <jonatan@werpers.com>
parents: 929
diff changeset
8 function [s,a,b,c] = butcherTableauFromStr(method)
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
9 switch method
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
10 case "tvd-3"
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
11 % TVD (Total Variational Diminishing)
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
12 s = 3;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
13 a = zeros(s,s-1);
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
14 a(2,1) = 1;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
15 a(3,1) = 1/4; a(3,2) = 1/4;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
16 b = [1/6, 1/6, 2/3];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
17 c = [0 1 1/2];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
18 case "rk4"
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
19 % Standard RK4
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
20 s = 4;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
21 a = zeros(s,s-1);
916
d1c1615bd1a5 Add comment in butcherTableau about rk4-3/8 being irreducible.
Martin Almquist <malmquist@stanford.edu>
parents: 888
diff changeset
22 a(2,1) = 1/2;
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
23 a(3,1) = 0; a(3,2) = 1/2;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
24 a(4,1) = 0; a(4,2) = 0; a(4,3) = 1;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
25 b = [1/6 1/3 1/3 1/6];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
26 c = [0, 1/2, 1/2, 1];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
27 case "rk4-3/8"
916
d1c1615bd1a5 Add comment in butcherTableau about rk4-3/8 being irreducible.
Martin Almquist <malmquist@stanford.edu>
parents: 888
diff changeset
28 % 3/8 RK4 (Kuttas method). Lower truncation error, more flops.
d1c1615bd1a5 Add comment in butcherTableau about rk4-3/8 being irreducible.
Martin Almquist <malmquist@stanford.edu>
parents: 888
diff changeset
29 % Irreducible, unlike standard rk4.
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
30 s = 4;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
31 a = zeros(s,s-1);
916
d1c1615bd1a5 Add comment in butcherTableau about rk4-3/8 being irreducible.
Martin Almquist <malmquist@stanford.edu>
parents: 888
diff changeset
32 a(2,1) = 1/3;
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
33 a(3,1) = -1/3; a(3,2) = 1;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
34 a(4,1) = 1; a(4,2) = -1; a(4,3) = 1;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
35 b = [1/8 3/8 3/8 1/8];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
36 c = [0, 1/3, 2/3, 1];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
37 case "rk6"
916
d1c1615bd1a5 Add comment in butcherTableau about rk4-3/8 being irreducible.
Martin Almquist <malmquist@stanford.edu>
parents: 888
diff changeset
38 % Runge-Kutta 6 from Alshina07
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
39 s = 7;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
40 a = zeros(s,s-1);
916
d1c1615bd1a5 Add comment in butcherTableau about rk4-3/8 being irreducible.
Martin Almquist <malmquist@stanford.edu>
parents: 888
diff changeset
41 a(2,1) = 4/7;
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
42 a(3,1) = 115/112; a(3,2) = -5/16;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
43 a(4,1) = 589/630; a(4,2) = 5/18; a(4,3) = -16/45;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
44 a(5,1) = 229/1200 - 29/6000*sqrt(5); a(5,2) = 119/240 - 187/1200*sqrt(5); a(5,3) = -14/75 + 34/375*sqrt(5); a(5,4) = -3/100*sqrt(5);
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
45 a(6,1) = 71/2400 - 587/12000*sqrt(5); a(6,2) = 187/480 - 391/2400*sqrt(5); a(6,3) = -38/75 + 26/375*sqrt(5); a(6,4) = 27/80 - 3/400*sqrt(5); a(6,5) = (1+sqrt(5))/4;
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
46 a(7,1) = -49/480 + 43/160*sqrt(5); a(7,2) = -425/96 + 51/32*sqrt(5); a(7,3) = 52/15 - 4/5*sqrt(5); a(7,4) = -27/16 + 3/16*sqrt(5); a(7,5) = 5/4 - 3/4*sqrt(5); a(7,6) = 5/2 - 1/2*sqrt(5);
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
47 b = [1/12 0 0 0 5/12 5/12 1/12];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
48 c = [0, 4/7, 5/7, 6/7, (5-sqrt(5))/10, (5+sqrt(5))/10, 1];
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
49 otherwise
929
0344fff87139 Improve error msg in rk.butcherTableau
Martin Almquist <malmquist@stanford.edu>
parents: 916
diff changeset
50 error('Runge-Kutta method %s is not implemented', method)
888
8732d6bd9890 Add general Runge-Kutta class
Vidar Stiernström <vidar.stiernstrom@it.uu.se>
parents:
diff changeset
51 end