Counter

Diagram Context 
if isequal(rule,'Increment')
krule=1;
elseif isequal(rule,'Decrement')
krule=-1;
else
error(['unknown rule ',oml2exp(rule)]);
end
ibis=1;
if isnumeric(step)*isnumeric(minim)*isnumeric(maxim)*isnumeric(Initv)
ibis=is_integer(step)*is_integer(minim)*is_integer(maxim)*is_integer(Initv);
end