function e=err473(x)
global ns
split([x,1-x],5,6:7)
ns(1,:)=ns(2,:)-ns(7,:);
e=ns(1,3)-.004*sum(ns(1,:));


