This works
In[24]:= Cos[ArcTan[x, y]] // TrigReduce
Out[24]= x/Sqrt[x^2 + y^2]
In[25]:= Sin[ArcTan[x, y]] // TrigReduce
Out[25]= y/Sqrt[x^2 + y^2]
but
In[26]:= Cos[3/4 ArcTan[x, y]] // TrigReduce
Out[26]= Cos[3/4 ArcTan[x, y]]
In[52]:= Sin[3/4 ArcTan[x, y]] // TrigReduce
Out[52]= Sin[3/4 ArcTan[x, y]]
How can I get these expressions in terms of x and y ?