Code covered by the BSD License  

Highlights from
Digital Karma: State Graphing

image thumbnail
from Digital Karma: State Graphing by Aman Siddiqi
Evolutionary Simulation, Interaction Graph

auto_selection_script.m
selectingworked=0;
computeiterations;

if strcmp(autoselection,'all');
    currentlyselecting=1; selectingworked=1;
    selectedoriginrow=1; selectedorigincol=1; selectedoriginiteration=1;
    selectedendrow=totalrows; selectedendcol=columns; selectedenditeration=planes;
elseif strcmp(autoselection,'graphed');
    currentlyselecting=1; selectingworked=1;
    selectedorigincol=firstcolumn; selectedendcol=firstcolumn+columnsshown-1;
    if dimension ==1;
        selectedoriginiteration=1; selectedenditeration=1; selectedendrow=currentiteration+1;
        if rows-currentiteration>=2; selectedoriginrow=1;
        else; selectedoriginrow=currentiteration-rows+2; end;
    elseif dimension==2;
        selectedoriginiteration=currentiteration+1; selectedenditeration=currentiteration+1;
        selectedoriginrow=firstrow; selectedendrow=firstrow+rowsshown-1;
    end;
elseif strcmp(autoselection,'row');
    if currentlyselecting==1;
        selectingworked=1; selectedorigincol=1; selectedendcol=columns;
        if dimension ==1; selectedoriginiteration=1; selectedenditeration=1;
        elseif dimension==2; selectedoriginiteration=currentiteration+1; selectedenditeration=currentiteration+1; end;
    end;
elseif strcmp(autoselection,'column');
    if currentlyselecting==1;
        selectingworked=1; selectedoriginrow=1; selectedendrow=totalrows;
        if dimension ==1; selectedoriginiteration=1; selectedenditeration=1;
        elseif dimension==2; selectedoriginiteration=currentiteration+1; selectedenditeration=currentiteration+1; end;
    end;
elseif strcmp(autoselection,'plane');
    currentlyselecting=1; selectingworked=1;
    selectedoriginrow=1; selectedorigincol=1; selectedendrow=totalrows; selectedendcol=columns;
    if dimension ==1; selectedoriginiteration=1; selectedenditeration=1;
    elseif dimension==2; selectedoriginiteration=currentiteration+1; selectedenditeration=currentiteration+1; end;
elseif strcmp(autoselection,'none');
    currentlyselecting=0; selectingworked=1;
    clear selectedoriginrow selectedendrow selectedorigincol selectedendcol selectedoriginrowgraph selectedendrowgraph selectedoriginiteration selectedenditeration;
    clear selectedoriginrow2 selectedendrow2 selectedorigincol2 selectedendcol2 selectedoriginiteration2 selectedenditeration2 aselection;
end;

if selectingworked==1;
    opening_iteration; CA_Display;
else; errordlg('Make Selection','Error');
end;

Contact us at files@mathworks.com