Mercurial > repos > public > sbplib

annotate +time/MagnusMP.m @ 505:49bc2929dfb1 feature/quantumTriangles

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added the midpont magnus exponential integrator
author Ylva Rydin <ylva.rydin@telia.com>
date Thu, 18 May 2017 11:44:29 +0200
parents
children bc39bb984d88
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
505
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
1 classdef MagnusMP < time.Timestepper
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
2 properties
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
3 D
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
4 S
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
5 F
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
6 k
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
7 t
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
8 v
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
9 m
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
10 n
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
11 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
12
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
13
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
14 methods
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
15 function obj = MagnusMP(D, k, t0, v0)
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
16 obj.D = D;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
17 obj.k = k;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
18 obj.t = t0;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
19 obj.v = v0;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
20 obj.m = length(v0);
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
21 obj.n = 0;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
22 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
23
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
24 function [v,t] = getV(obj)
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
25 v = obj.v;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
26 t = obj.t;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
27 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
28
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
29 function obj = step(obj)
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
30 obj.v = time.expint.Magnus_mp(obj.v,obj.D, obj.t, obj.k);
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
31 obj.t = obj.t + obj.k;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
32 obj.n = obj.n + 1;
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
33 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
34 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
35
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
36
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
37 methods (Static)
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
38 function k = getTimeStep(lambda)
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
39 k = rk4.get_rk4_time_step(lambda);
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
40 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
41 end
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
42
49bc2929dfb1 Added the midpont magnus exponential integrator
Ylva Rydin <ylva.rydin@telia.com>
parents:
diff changeset
43 end