www.gusucode.com > mbcdesign 工具箱 matlab 源码程序 > mbcdesign/@cset_haltonset/designproperties.m
function p = designproperties(c,p,m) %DESIGNPROPERTIES properties for command-line % % p = designproperties(c,p) % Copyright 2007 The MathWorks, Inc. CLSID = mfilename('class'); [p,OK] = PersistentStore(p,CLSID); if ~OK p = iMakeProps(c,p,m); PersistentStore(p,CLSID); end function p = iMakeProps(c,p,m) p = designproperties(c.cset_pointset,p,m); p = addprop(p,'NumberOfPoints',... @iGetRuns, @iSetRuns,... 'int',[0 Inf],... 'Number of points'); p = addprop(p,'Scramble',... @iGetApplyScramble, @iSetApplyScramble,... 'enum',{'None','RR2'},... 'Scrambling method for sequence'); p = addprop(p,'PrimeLeap',... @iGetLeap, @iSetLeap,... 'boolean','',... 'Leap sequence points using prime number'); p = addprop(p,'SkipZero',... @iGetSkip, @iSetSkip,... 'boolean','',... 'Skip zero point'); function v = iGetApplyScramble(cs,m) v = get(cs, 'Scramble'); if isempty(v) v = 'None'; end function cs = iSetApplyScramble(cs,v,m) if strcmp(v,'None') cs = set(cs, 'Scramble', ''); else cs = set(cs, 'Scramble', v); end function v = iGetRuns(c,m) v = get(c,'n'); function c = iSetRuns(c,v,m) c = set(c,'n',v); function v = iGetLeap(c,m) v = get(c,'primeleap'); function c = iSetLeap(c,v,m) c = set(c,'primeleap',v); function v = iGetSkip(c,m) v = get(c,'skipzero'); function c = iSetSkip(c,v,m) c = set(c,'skipzero',v);