function d=g(k,l)

d=(fs(k*10000,l)-fi(k*10000,l))*k*10000;