Does anyone know how to make the following work using pure functions in Mathematica? Given two functions f and g compute and for a fixed k[x]
h[f_,g_,alpha]:=NIntegrate[f[alpha-x]*k[x]/NIntegrate[g[alpha-x-y]*k[y],{y,-Infinity,Infinity}],{x,-Infinity,Infinity}]
I want to put arbitrary functions f and g into h and get an answer.
Charles