I have a complex function and I want to take a list of derivatives of it. My code reads as follows:
$Assumptions[w>0] f[r, t] = Exp[-I wt] (It Exp[-I wr]/r + R Exp[I w r]/r) ComplexExpand[Conjugate[f[r, t]]]
In my function, I want the coefficients
R to be complex numbers.
However, this gives me the following output:
(R Cos[r w] Cos[wt])/r + (It Cos[wr] Cos[wt])/r + (R Sin[r w] Sin[wt])/r - (It Sin[wr] Sin[wt])/r + I (-((R Cos[wt] Sin[r w])/r) + (It Cos[wt] Sin[wr])/r + (R Cos[r w] Sin[wt])/r + (It Cos[wr] Sin[wt])/r
R as real numbers and it expands the exponentials using Euler's identity. How do I get the conjugate of the functions in a simpler form, and taking
R as complex.