Mercurial > repos > public > sbplib

comparison +sbp/D4Compatible.m @ 263:21a180acbd49 operator_remake

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Renamed standard class to D2Standard etc, Rewrote class properties.
author Martin Almquist <martin.almquist@it.uu.se>
date Thu, 08 Sep 2016 17:50:30 +0200
parents 23051a86faa4
children 8a625c5a3633
comparison
equal deleted inserted replaced
262:23051a86faa4 263:21a180acbd49
1 classdef D4Compatible < sbp.OpSet 1 classdef D4Compatible < sbp.OpSet
2 properties 2 properties
3 norms % Struct containing norm matrices such as H,Q, M 3 D1 % SBP operator approximating first derivative
4 boundary % Struct contanging vectors for boundry point approximations 4 H % Norm matrix
5 derivatives % Struct containging differentiation operators 5 HI % H^-1
6 borrowing % Struct with borrowing limits for different norm matrices 6 Q % Skew-symmetric matrix
7 e_1 % Left boundary operator
8 e_m % Right boundary operator
9 D2 % SBP operator for second derivative
10 M % Norm matrix, second derivative
11 S_1 % Left boundary first derivative
12 S_m % Right boundary first derivative
13 D3 % SBP operator for third derivative
14 Q3 % Skew-symmetric matrix in third derivative
15 S2_1 % Left boundary second derivative
16 S2_m % Right boundary second derivative
17 D4 % SBP operator for fourth derivative
18 M4 % Norm matrix, fourth derivative
19 S3_1 % Left boundary third derivative
20 S3_m % Right boundary third derivative
7 m % Number of grid points. 21 m % Number of grid points.
8 h % Step size 22 h % Step size
23 x % grid
24 borrowing % Struct with borrowing limits for different norm matrices
9 end 25 end
10 26
11 27
12 28
13 methods 29 methods
14 function obj = D4Compatible(m,h,order) 30 function obj = D4Compatible(m,L,order)
31
32 obj.h = L/(m-1);
33 obj.x = linspace(0,L,m)';
15 34
16 if order == 2 35 if order == 2
17 [H, HI, D1, D4, e_1, e_m, M4, Q, S2_1, S2_m, S3_1, S3_m,... 36 [obj.H, obj.HI, obj.D1, obj.D4, obj.e_1, obj.e_m, obj.M4,...
18 S_1, S_m] = sbp.implementations.d4_compatible_2(m,h); 37 obj.Q, obj.S2_1, obj.S2_m, obj.S3_1, obj.S3_m,...
38 obj.S_1, obj.S_m] =...
39 sbp.implementations.d4_compatible_2(m,obj.h);
19 obj.borrowing.N.S2 = 0.7500; 40 obj.borrowing.N.S2 = 0.7500;
20 obj.borrowing.N.S3 = 0.3000; 41 obj.borrowing.N.S3 = 0.3000;
21 elseif order == 4 42 elseif order == 4
22 [H, HI, D1, D4, e_1, e_m, M4, Q, S2_1, S2_m, S3_1, S3_m,... 43 [obj.H, obj.HI, obj.D1, obj.D4, obj.e_1, obj.e_m, obj.M4,...
23 S_1, S_m] = sbp.implementations.d4_compatible_4(m,h); 44 obj.Q, obj.S2_1, obj.S2_m, obj.S3_1, obj.S3_m,...
45 obj.S_1, obj.S_m] =...
46 sbp.implementations.d4_compatible_4(m,obj.h);
24 obj.borrowing.N.S2 = 0.4210; 47 obj.borrowing.N.S2 = 0.4210;
25 obj.borrowing.N.S3 = 0.7080; 48 obj.borrowing.N.S3 = 0.7080;
26 elseif order == 6 49 elseif order == 6
27 [H, HI, D1, D4, e_1, e_m, M4, Q, S2_1, S2_m, S3_1, S3_m,... 50 [obj.H, obj.HI, obj.D1, obj.D4, obj.e_1, obj.e_m, obj.M4,...
28 S_1, S_m] = sbp.implementations.d4_compatible_6(m,h); 51 obj.Q, obj.S2_1, obj.S2_m, obj.S3_1, obj.S3_m,...
52 obj.S_1, obj.S_m] =...
53 sbp.implementations.d4_compatible_6(m,obj.h);
29 obj.borrowing.N.S2 = 0.06925; 54 obj.borrowing.N.S2 = 0.06925;
30 obj.borrowing.N.S3 = 0.05128; 55 obj.borrowing.N.S3 = 0.05128;
31 else 56 else
32 error('Invalid operator order.'); 57 error('Invalid operator order.');
33 end 58 end
34 59
35 obj.h = h;
36 obj.m = m; 60 obj.m = m;
37 61
38 obj.norms.H = H; 62 obj.D2 = [];
39 obj.norms.HI = HI; 63 obj.D3 = [];
40 obj.norms.Q = Q;
41 obj.norms.N = M4;
42 64
43 obj.boundary.e_1 = e_1;
44 obj.boundary.S_1 = S_1;
45 obj.boundary.S2_1 = S2_1;
46 obj.boundary.S3_1 = S3_1;
47
48 obj.boundary.e_m = e_m;
49 obj.boundary.S_m = S_m;
50 obj.boundary.S2_m = S2_m;
51 obj.boundary.S3_m = S3_m;
52
53 obj.derivatives.D1 = D1;
54 obj.derivatives.D4 = D4;
55 65
56 end 66 end
57 end 67 end
58 68
59 69