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