Mercurial > hg > camir-ismir2012
annotate toolboxes/FullBNT-1.0.7/netlab3.3/gtmmag.m @ 0:cc4b1211e677 tip
initial commit to HG from
Changeset:
646 (e263d8a21543) added further path and more save "camirversion.m"
| author | Daniel Wolff |
|---|---|
| date | Fri, 19 Aug 2016 13:07:06 +0200 |
| parents | |
| children |
| rev | line source |
|---|---|
| Daniel@0 | 1 function mags = gtmmag(net, latent_data) |
| Daniel@0 | 2 %GTMMAG Magnification factors for a GTM |
| Daniel@0 | 3 % |
| Daniel@0 | 4 % Description |
| Daniel@0 | 5 % MAGS = GTMMAG(NET, LATENTDATA) takes a GTM structure NET, and |
| Daniel@0 | 6 % computes the magnification factors for each point the latent space |
| Daniel@0 | 7 % contained in LATENTDATA. |
| Daniel@0 | 8 % |
| Daniel@0 | 9 % See also |
| Daniel@0 | 10 % GTM, GTMPOST, GTMLMEAN |
| Daniel@0 | 11 % |
| Daniel@0 | 12 |
| Daniel@0 | 13 % Copyright (c) Ian T Nabney (1996-2001) |
| Daniel@0 | 14 |
| Daniel@0 | 15 errstring = consist(net, 'gtm'); |
| Daniel@0 | 16 if ~isempty(errstring) |
| Daniel@0 | 17 error(errstring); |
| Daniel@0 | 18 end |
| Daniel@0 | 19 |
| Daniel@0 | 20 Jacs = rbfjacob(net.rbfnet, latent_data); |
| Daniel@0 | 21 nlatent = size(latent_data, 1); |
| Daniel@0 | 22 mags = zeros(nlatent, 1); |
| Daniel@0 | 23 temp = zeros(net.rbfnet.nin, net.rbfnet.nout); |
| Daniel@0 | 24 for m = 1:nlatent |
| Daniel@0 | 25 temp = squeeze(Jacs(m, :, :)); % Turn into a 2d matrix |
| Daniel@0 | 26 mags(m) = sqrt(det(temp*temp')); |
| Daniel@0 | 27 end |