Mercurial > hg > camir-aes2014
annotate toolboxes/FullBNT-1.0.7/bnt/potentials/@cpot/divide_by_pot.m @ 0:e9a9cd732c1e tip
first hg version after svn
| author | wolffd |
|---|---|
| date | Tue, 10 Feb 2015 15:05:51 +0000 |
| parents | |
| children |
| rev | line source |
|---|---|
| wolffd@0 | 1 function bigpot = divide_by_pot(bigpot, smallpot) |
| wolffd@0 | 2 % DIVIDE_BY_POT bigpot /= smallpot for cpot |
| wolffd@0 | 3 % bigpot = divide_by_pot(bigpot, smallpot) |
| wolffd@0 | 4 % |
| wolffd@0 | 5 % smallpot's domain must be a subset of bigpot's domain. |
| wolffd@0 | 6 |
| wolffd@0 | 7 bigpot.g = bigpot.g - smallpot.g; |
| wolffd@0 | 8 if sum(smallpot.sizes) > 0 |
| wolffd@0 | 9 mask = find_equiv_posns(smallpot.domain, bigpot.domain); |
| wolffd@0 | 10 u = block(mask, bigpot.sizes); |
| wolffd@0 | 11 bigpot.h(u) = bigpot.h(u) - smallpot.h; |
| wolffd@0 | 12 bigpot.K(u, u) = bigpot.K(u, u) - smallpot.K; |
| wolffd@0 | 13 end |