function z = c_4_p_18_fn_ii(x,y)
[n1,n2] = size(x); [m1,m2] = size(y);
if (n1==1) && (m1==1) 
  [xx,yy] = meshgrid(x,y);
  z = ( ( 1 + xx + ( 2 - xx ) .* yy ).^(-3) ) .* ( 2 - xx );
else
  disp('x and y must be scalars or row vectors'); return; 
end