FunctionExpand[{AngerJ,WeberE}]