|
Hilft folgendes?
In[1]:= (Unprotect[Re,Im]; Re[a^n_.]:=a^n; Im[a^_.]=0;
Re[b^n_.]:=b^n; Im[b^_.]=0);
In[2]:= z = (a + I b)/(a^2 - I b);
In[3]:= FunctionExpand[ComplexExpand[Re[z]]]//InputForm
Out[3]//InputForm= a^3/(a^4 + b^2) - b^2/(a^4 + b^2)
In[4]:= FunctionExpand[ComplexExpand[Im[z]]]//InputForm
Out[4]//InputForm= (a*b)/(a^4 + b^2) + (a^2*b)/(a^4 + b^2)
----------------------------------------------------------------
Rolf Mertig
|