comparison toolboxes/FullBNT-1.0.7/bnt/potentials/@upot/multiply_by_pot.m @ 0:e9a9cd732c1e tip

first hg version after svn
author wolffd
date Tue, 10 Feb 2015 15:05:51 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e9a9cd732c1e
1 function Tbig = multiply_by_pot(Tbig, Tsmall)
2 % MULTIPLY_BY_POT Tbig *= Tsmall
3 % Tbig = multiply_by_pot(Tbig, Tsmall)
4 %
5 % Tsmall's domain must be a subset of Tbig's domain.
6
7 smallp = extend_domain_table(Tsmall.p, Tsmall.domain, Tsmall.sizes, Tbig.domain, Tbig.sizes);
8 Tbig.p = Tbig.p .* smallp;
9
10 smallu = extend_domain_table(Tsmall.u, Tsmall.domain, Tsmall.sizes, Tbig.domain, Tbig.sizes);
11 Tbig.u = Tbig.u + smallu;
12