|
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 |