Mercurial > repos > public > sbplib
diff +time/SBPInTime.m @ 422:38173ea263ed feature/beams
Merge in default
author | Jonatan Werpers <jonatan@werpers.com> |
---|---|
date | Tue, 07 Feb 2017 15:59:22 +0100 |
parents | 9ff24a14f9ef e1db62d14835 |
children | 8894e9c49e40 |
line wrap: on
line diff
--- a/+time/SBPInTime.m Thu Feb 02 10:10:02 2017 +0100 +++ b/+time/SBPInTime.m Tue Feb 07 15:59:22 2017 +0100 @@ -24,9 +24,16 @@ methods function obj = SBPInTime(A, f, k, t0, v0, TYPE, order, blockSize) - default_arg('TYPE','minimal'); - default_arg('order', 8); - default_arg('blockSize',time.SBPInTime.smallestBlockSize(order,TYPE)); + + default_arg('TYPE','gauss'); + + if(strcmp(TYPE,'gauss')) + default_arg('order',4) + default_arg('blockSize',4) + else + default_arg('order', 8); + default_arg('blockSize',time.SBPInTime.smallestBlockSize(order,TYPE)); + end obj.A = A; obj.f = f; @@ -45,6 +52,8 @@ ops = sbp.D1Nonequidistant(blockSize,{0,obj.k},order); case 'minimal' ops = sbp.D1Nonequidistant(blockSize,{0,obj.k},order,'minimal'); + case 'gauss' + ops = sbp.D1Gauss(blockSize,{0,obj.k}); end D1 = ops.D1; @@ -76,7 +85,7 @@ % Pretend that the initial condition is the last level % of a previous step. - obj.v = obj.Et_r * v0; + obj.v = 1/(e_r'*e_r) * obj.Et_r * v0; end @@ -98,7 +107,7 @@ methods(Static) function N = smallestBlockSize(order,TYPE) - default_arg('TYPE','equidistant') + default_arg('TYPE','gauss') switch TYPE @@ -153,6 +162,8 @@ otherwise error('Operator does not exist'); end + case 'gauss' + N = 4; end end end