Mercurial > hg > adaptinstrspec
annotate 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 |
rev | line source |
---|---|
holger@0 | 1 function betaDivPerElem = betaDivergencePerElement(x, y, beta) |
holger@0 | 2 |
holger@0 | 3 switch beta |
holger@0 | 4 case 0 |
holger@0 | 5 betaDivPerElem = x./y - log(x./y) - 1; |
holger@0 | 6 |
holger@0 | 7 case 1 |
holger@0 | 8 betaDivPerElem = x .* log(x./y) + x - y; |
holger@0 | 9 |
holger@0 | 10 otherwise |
holger@0 | 11 betaDivPerElem = (x.^beta) / (beta*(beta-1)) ... |
holger@0 | 12 + (y.^beta) / beta ... |
holger@0 | 13 - (x .* (y.^(beta-1))) / (beta-1); |
holger@0 | 14 end |