Mercurial > hg > adaptinstrspec
comparison functions/betaDivergencePerElement.m @ 0:b4e26b53072f tip
Initial commit.
author | Holger Kirchhoff <holger.kirchhoff@eecs.qmul.ac.uk> |
---|---|
date | Tue, 04 Dec 2012 13:57:15 +0000 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:b4e26b53072f |
---|---|
1 function betaDivPerElem = betaDivergencePerElement(x, y, beta) | |
2 | |
3 switch beta | |
4 case 0 | |
5 betaDivPerElem = x./y - log(x./y) - 1; | |
6 | |
7 case 1 | |
8 betaDivPerElem = x .* log(x./y) + x - y; | |
9 | |
10 otherwise | |
11 betaDivPerElem = (x.^beta) / (beta*(beta-1)) ... | |
12 + (y.^beta) / beta ... | |
13 - (x .* (y.^(beta-1))) / (beta-1); | |
14 end |