classdef D1Nonequidistant < 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
        m % Number of grid points.
        h % Step size
        x % grid
        borrowing % Struct with borrowing limits for different norm matrices
    end

    methods
        function obj = D1Nonequidistant(m,lim,order,option)

            default_arg('option','Accurate');
            % 'Accurate' operators are optimized for accuracy
            % 'Minimal' operators have the smallest possible boundary
            %  closure
            switch option

                case {'Accurate','accurate','A'}
                    [x,h] = sbp.grid.accurateBoundaryOptimizedGrid(lim,m,order);
                    if order == 4
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_4(m,h);
                    elseif order == 6
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_6(m,h);
                    elseif order == 8
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_8(m,h);
                    elseif order == 10
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_10(m,h);
                    elseif order == 12
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_12(m,h);
                    else
                        error('Invalid operator order %d.',order);
                    end

                case {'Minimal','minimal','M'}
                    [x,h] = sbp.grid.minimalBoundaryOptimizedGrid(lim,m,order);
                    if order == 4
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_minimal_4(m,h);
                    elseif order == 6
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_minimal_6(m,h);
                    elseif order == 8
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_minimal_8(m,h);
                    elseif order == 10
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_minimal_10(m,h);
                    elseif order == 12
                        [obj.D1,obj.H] = ...
                            sbp.implementations.d1_noneq_minimal_12(m,h);
                    else
                        error('Invalid operator order %d.',order);
                    end

            end
            obj.h = h;
            obj.x = x;

            obj.e_l = sparse(m,1);
            obj.e_r = sparse(m,1);
            obj.e_l(1) = 1;
            obj.e_r(m) = 1;

            obj.HI = inv(obj.H);
            obj.Q = obj.H*obj.D1 - obj.e_r*obj.e_r' + obj.e_l*obj.e_l';

            obj.borrowing = [];

        end

        function str = string(obj)
            str = [class(obj) '_' num2str(obj.order)];
        end
    end
end