function setrhs
% sets the "rhs" function for "discrete" 
% and "continuous"
%

global RHSNAME


if (length(RHSNAME)==0), RHSNAME='rhs'; end;
entry = input(['Enter name of the function (', RHSNAME ,')-> '],'s');
if (length(entry) == 0), entry = RHSNAME; end;
RHSNAME = entry;