Mercurial > repos > public > sbplib
diff +sbp/D2BlockNorm.m @ 263:21a180acbd49 operator_remake
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 |
line wrap: on
line diff
--- a/+sbp/D2BlockNorm.m Thu Sep 08 15:37:48 2016 +0200 +++ b/+sbp/D2BlockNorm.m Thu Sep 08 17:50:30 2016 +0200 @@ -1,50 +1,51 @@ classdef D2BlockNorm < sbp.OpSet properties - norms % Struct containing norm matrices such as H,Q, M - boundary % Struct contanging vectors for boundry point approximations - derivatives % Struct containging differentiation operators - borrowing % Struct with borrowing limits for different norm matrices + D1 % SBP operator approximating first derivative + H % Norm matrix + HI % H^-1 + Q % Skew-symmetric matrix + e_1 % Left boundary operator + e_m % Right boundary operator + D2 % SBP operator for second derivative + M % Norm matrix, second derivative + S_1 % Left boundary first derivative + S_m % Right boundary first derivative m % Number of grid points. h % Step size + x % grid + borrowing % Struct with borrowing limits for different norm matrices end methods - function obj = D2BlockNorm(m,h,order) + function obj = D2BlockNorm(m,L,order) + + obj.h = L/(m-1); + obj.x = linspace(0,L,m)'; if order == 4 - [H, HI, D1, D2, e_1, e_m, M, Q, S_1, S_m] = ... - sbp.implementations.d2_blocknorm_4(m,h); + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_1,... + obj.e_m, obj.M, obj.Q, obj.S_1, obj.S_m] = ... + sbp.implementations.d2_blocknorm_4(m,obj.h); elseif order == 6 - [H, HI, D1, D2, e_1, e_m, M, Q, S_1, S_m] = ... - sbp.implementations.d2_blocknorm_6(m,h); + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_1,... + obj.e_m, obj.M, obj.Q, obj.S_1, obj.S_m] = ... + sbp.implementations.d2_blocknorm_6(m,obj.h); elseif order == 8 - [H, HI, D1, D2, e_1, e_m, M, Q, S_1, S_m] = ... - sbp.implementations.d2_blocknorm_8(m,h); + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_1,... + obj.e_m, obj.M, obj.Q, obj.S_1, obj.S_m] = ... + sbp.implementations.d2_blocknorm_8(m,obj.h); elseif order == 10 - [H, HI, D1, D2, e_1, e_m, M, Q, S_1, S_m] = ... - sbp.implementations.d2_blocknorm_10(m,h); + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_1,... + obj.e_m, obj.M, obj.Q, obj.S_1, obj.S_m] = ... + sbp.implementations.d2_blocknorm_10(m,obj.h); else error('Invalid operator order %d.',order); end - obj.h = h; obj.m = m; - obj.norms.H = H; - obj.norms.HI = HI; - obj.norms.Q = Q; - obj.norms.M = M; - - obj.boundary.e_1 = e_1; - obj.boundary.S_1 = S_1; - - obj.boundary.e_m = e_m; - obj.boundary.S_m = S_m; - - obj.derivatives.D1 = D1; - obj.derivatives.D2 = D2; end end