double F (double x, double y)
{
double  f=(x+y)*(1-x*y)/(x+2*y);
  return f;
}

double F (double x, double y)

{double dv=2.0;
//double  f=(x+y)*(1-x*y)/(x+2*y);

  asm finit
  asm fld x
  asm fadd y
  asm fld x
  asm fmul y
  asm fld1
  asm fsub st(0),st(1)
  asm fmul st(0),st(2)
  asm fld y
  asm fmul dv
  asm fadd x
  asm fdivr  st(0),st(1)
  asm fstp f

return f;
}