Mercurial > repos > public > sbplib
diff +sbp/D2BlockNorm.m @ 307:fefb2f9884f7 feature/beams
Merge with default.
| author | Jonatan Werpers <jonatan@werpers.com> |
|---|---|
| date | Fri, 23 Sep 2016 10:40:12 +0200 |
| parents | 4b9310edcdf8 |
| children | e1d11b6a68d8 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/+sbp/D2BlockNorm.m Fri Sep 23 10:40:12 2016 +0200 @@ -0,0 +1,57 @@ +classdef D2BlockNorm < sbp.OpSet + properties + D1 % SBP operator approximating first derivative + H % Norm matrix + HI % H^-1 + Q % Skew-symmetric matrix + e_l % Left boundary operator + e_r % Right boundary operator + D2 % SBP operator for second derivative + M % Norm matrix, second derivative + d1_l % Left boundary first derivative + d1_r % 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,lim,order) + + x_l = lim{1}; + x_r = lim{2}; + L = x_r-x_l; + obj.h = L/(m-1); + obj.x = linspace(x_l,x_r,m)'; + + if order == 4 + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_l,... + obj.e_r, obj.M, obj.Q, obj.d1_l, obj.d1_r] = ... + sbp.implementations.d2_blocknorm_4(m,obj.h); + elseif order == 6 + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_l,... + obj.e_r, obj.M, obj.Q, obj.d1_l, obj.d1_r] = ... + sbp.implementations.d2_blocknorm_6(m,obj.h); + elseif order == 8 + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_l,... + obj.e_r, obj.M, obj.Q, obj.d1_l, obj.d1_r] = ... + sbp.implementations.d2_blocknorm_8(m,obj.h); + elseif order == 10 + [obj.H, obj.HI, obj.D1, obj.D2, obj.e_l,... + obj.e_r, obj.M, obj.Q, obj.d1_l, obj.d1_r] = ... + sbp.implementations.d2_blocknorm_10(m,obj.h); + else + error('Invalid operator order %d.',order); + end + + obj.m = m; + + end + end + + + +end \ No newline at end of file