DMUG-Archiv 1998

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

Re: rationale komplexe Ausdruecke

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


Verweise:
rationale komplexe Ausdruecke
Faessler Albert, 12.03.1997

Frühere

 

Chronologischer Index

 

Spätere

Vorherige

 

Thematischer Index

 

Nächste

DMUG-Archiv, http://www.mathematica.ch/dmug-liste.html; Letzte Änderung: 08.09.2003 20:44