Mercurial > repos > public > sbplib
annotate kroneckerDelta.m @ 1317:34997aced843 feature/poroelastic
Add some interface forcing penalties in ElasticCurvilinearAnisotropic
author | Martin Almquist <malmquist@stanford.edu> |
---|---|
date | Sun, 26 Jul 2020 20:06:06 -0700 |
parents | b189bc409cdb |
children |
rev | line source |
---|---|
662
b189bc409cdb
Add helper function for kronecker delta.
Martin Almquist <malmquist@stanford.edu>
parents:
diff
changeset
|
1 function d = kroneckerDelta(i,j) |
b189bc409cdb
Add helper function for kronecker delta.
Martin Almquist <malmquist@stanford.edu>
parents:
diff
changeset
|
2 |
b189bc409cdb
Add helper function for kronecker delta.
Martin Almquist <malmquist@stanford.edu>
parents:
diff
changeset
|
3 d = 0; |
b189bc409cdb
Add helper function for kronecker delta.
Martin Almquist <malmquist@stanford.edu>
parents:
diff
changeset
|
4 if i==j |
b189bc409cdb
Add helper function for kronecker delta.
Martin Almquist <malmquist@stanford.edu>
parents:
diff
changeset
|
5 d = 1; |
b189bc409cdb
Add helper function for kronecker delta.
Martin Almquist <malmquist@stanford.edu>
parents:
diff
changeset
|
6 end |