Mercurial > repos > public > sbplib

comparison +sbp/+implementations/d4_4.m @ 266:bfa130b7abf6 operator_remake

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added error message for too few grid points to all implementation files.
author Martin Almquist <martin.almquist@it.uu.se>
date Fri, 09 Sep 2016 11:03:13 +0200
parents 6009f2712d13
children f7ac3cd6eeaa
comparison
equal deleted inserted replaced
265:3e0432b3cb68 266:bfa130b7abf6
25 % I annat fall anv?nd de "traditionella" som har noggrannare 25 % I annat fall anv?nd de "traditionella" som har noggrannare
26 % randsplutningar f?r D1 och D2 26 % randsplutningar f?r D1 och D2
27 27
28 % Vi b?rjar med normen. Notera att alla SBP operatorer delar samma norm, 28 % Vi b?rjar med normen. Notera att alla SBP operatorer delar samma norm,
29 % vilket ?r n?dv?ndigt f?r stabilitet 29 % vilket ?r n?dv?ndigt f?r stabilitet
30
31 BP = 6;
32 if(m<2*BP)
33 error(['Operator requires at least ' num2str(2*BP) ' grid points']);
34 end
30 35
31 H=diag(ones(m,1),0); 36 H=diag(ones(m,1),0);
32 H_U=[0.35809e5 / 0.100800e6 0 0 0 0 0; 0 0.13297e5 / 0.11200e5 0 0 0 0; 0 0 0.5701e4 / 0.5600e4 0 0 0; 0 0 0 0.45109e5 / 0.50400e5 0 0; 0 0 0 0 0.35191e5 / 0.33600e5 0; 0 0 0 0 0 0.33503e5 / 0.33600e5;]; 37 H_U=[0.35809e5 / 0.100800e6 0 0 0 0 0; 0 0.13297e5 / 0.11200e5 0 0 0 0; 0 0 0.5701e4 / 0.5600e4 0 0 0; 0 0 0 0.45109e5 / 0.50400e5 0 0; 0 0 0 0 0.35191e5 / 0.33600e5 0; 0 0 0 0 0 0.33503e5 / 0.33600e5;];
33 38
34 H(1:6,1:6)=H_U; 39 H(1:6,1:6)=H_U;