function err=exr828(x)
% exr828        - Solves example problem 8.28 in Reklaitis with reacten, fzero
% this function solves problem 8.28 in reklaitis using reacten,
% when iterated with fzero
%
% JWD
%
setne('s',1,25,[.05*x+21 .95*x],[3 5])
err=reacten('vs',[315.56 950],1:2,3:4,[.94*x 21],[1 1 0 0 0 1]);
