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);