Mercurial > repos > public > sbplib
comparison +sbp/+implementations/d1_upwind_9.m @ 267:f7ac3cd6eeaa operator_remake
Sparsified all implementation files, removed all matlab warnings, fixed small bugs on minimum grid points.
author | Martin Almquist <martin.almquist@it.uu.se> |
---|---|
date | Fri, 09 Sep 2016 14:53:41 +0200 |
parents | bfa130b7abf6 |
children |
comparison
equal
deleted
inserted
replaced
266:bfa130b7abf6 | 267:f7ac3cd6eeaa |
---|---|
32 Qp(1:8,1:8)=Q_U; | 32 Qp(1:8,1:8)=Q_U; |
33 Qp(m-7:m,m-7:m)=rot90(Q_U,2)'; %%% This is different from standard SBP | 33 Qp(m-7:m,m-7:m)=rot90(Q_U,2)'; %%% This is different from standard SBP |
34 | 34 |
35 Qm=-Qp'; | 35 Qm=-Qp'; |
36 | 36 |
37 e_1=zeros(m,1);e_1(1)=1; | 37 e_1=sparse(m,1);e_1(1)=1; |
38 e_m=zeros(m,1);e_m(m)=1; | 38 e_m=sparse(m,1);e_m(m)=1; |
39 | 39 |
40 Dp=HI*(Qp-1/2*e_1*e_1'+1/2*e_m*e_m') ; | 40 Dp=HI*(Qp-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ; |
41 | 41 |
42 Dm=HI*(Qm-1/2*e_1*e_1'+1/2*e_m*e_m') ; | 42 Dm=HI*(Qm-1/2*(e_1*e_1')+1/2*(e_m*e_m')) ; |
43 end | 43 end |