function vv = frestr2(y)
global coor0, global vec0, global B, global vol0,
vv=zeros(2,1);
if (rows(y)==1)
 y = y';
endif
yd=diag(y);
coor=coor0+yd*vec0;
vv(1)=6-max(coor(:,1));
vv(2)=min(coor(:,2))+18;
end