samer@0: % mt_ensure - Ensure that Melody Triange system includes transmats of given size
samer@0: %
samer@0: % mt_ensure ::
samer@0: %    mt_system   ~'melody triangle system',
samer@0: %    K:natural   ~'desired size of transition matrices'
samer@0: % -> action mt_system.
samer@0: %
samer@0: % If the system already contains transition matrices of size K, then it is
samer@0: % returned unchanged. Otherwise, a set of transition matrices is sampled using
samer@0: % the parameters supplied to mt_init. If sampling is done, a scatter plot
samer@0: % will be generated as a side effect.
samer@0: 
samer@0: function Sys=mt_ensure(Sys,K)
samer@0: 	if length(Sys.transmats)<K || isempty(Sys.transmats{K})
samer@0: 		Sys=mt_resample(Sys,K);
samer@0: 	end
samer@0: end