%TEST_ACC_ENUFINMOD

function err=test_acc_Enufinmod(nu,c)
%
i=0;
err=zeros(4,1);
for N=[5,10,20,40]
  i=i+1;
  ab0=r_Enufinmod(N,nu,c);
  ab1=sr_Enufinmod(50,N,nu,c);
  errab=abs((ab0-ab1)./ab1); errab=max(max(errab));
  err(i)=errab;
end
err=double(err);
