fenbu.m

来自「概率理論與數理統計實驗系統matlab代碼」· M 代码 · 共 46 行

function fenbu(num,name)

handles=guidata(gcf);
n1=str2num(get(handles.edit1,'string'));
n2=str2num(get(handles.edit2,'string'));
n3=str2num(get(handles.edit3,'string'));
data.name=get(handles.fenbu_name,'value');
data.color=get(handles.fenbu_color,'value');

switch data.color
    case 1
        str1=['b','r','y','g','m','c','k'];
    case 2
        str1='b';
    case 3
        str1='r';
    case 4
        str1='y';
    case 5
        str1='g';
    case 6
        str1='m';
    case 7
        str1='c';
    case 8
        str1='k';
end
n=length(str1);
userdata=get(gcf,'userdata');
i=length(userdata)+1;
x=get(gcbo,'value');
if x>0
    if i<=7
        userdata(i)=x;
    else
        userdata=1;
    end
end
set(gcf,'userdata',userdata);


switch data.name+num
    case 1
        if ~isempty(n1)&~isempty(n2)&~isempty(n3)
            if round(n1)~=n1|round(n2)~=n2|round(n3)~=n3|(n1<=0|n2<0|n3<0)|n1<n2|n1<n3
                warndlg('叫タ絋块