RE: Komplexe Zahlen in der Form a Exp[I b]

["Wolf, Hartmut" <Hartmut.Wolf@XXXXXXX.com>]

>-----Original Message-----
>From: dieter.palme@XXXXXXX.com [mailto:dieter.palme@XXXXXXX.com]
>Sent: Thursday, March 20, 2003 1:23 PM
>To: dmug@XXXXXXX.ch
>Subject: Komplexe Zahlen in der Form a Exp[I b]
>
>
>Hallo Gruppe,
>wie kann ich MM4 dazu überreden, die Ausgabe einer komplexen 
>Zahl immer in
>der Exponentialform zu machen?
>
>m1={{.694Exp[I 54.4 Degree], .721Exp[I 49.8 Degree]},{.724 Exp[I 130.2
>Degree], .689 Exp[-I 54.4 Degree]}}// MatrixForm;
>m1ev=Eigenvectors[m1]
>
>und dann möge bitte nicht dastehen:
>
>          { 0.898015 +  0. I            ,   0.335592 + 0.284513 I}
>out: = {
>}
>          {-0.335369 +  0.282496 I  ,   0.898735 + 0. I          }
>
>sondern bitte:
>
>
>          {0.898015 Exp[ I 0°           ]   ,  0.439965 Exp[ I 
>40.2911° ] }
>out: = {
>}
>          {0.438493 Exp[ I 139.891° ]   ,  0.898735 Exp[ I 0 ° 
>         ] }
>
>
>MfG
>
>
>Dipl. Phys. Dieter Palme
>Research Scientist 
>
>Fiberoptic
>
>Tektronix Munich GmbH
>
>Gauss Strasse 11
>D-85757 Karlsfeld
>Germany
>
>mailto:dieter.palme@XXXXXXX.com
>
>Off: +49 (0)8131 5956-0
>Tel: +49 (0)8131 595635
>Fax: +49 (0)8131 595699
>Mob: +49 (0)177 8066318
>
>http://www.tektronix.com
>
>Tektronix 
>Enabling Innovation 
>
>
>

Dieter,

versuche:
 
Unprotect[Complex]

MakeBoxes[z_Complex,StandardForm]:=With[{r=Abs[z],phi=Arg[z]/Pi 180},
    RowBox[{MakeBoxes[r],MakeBoxes[E^(I*phi*Degree)]}]]

Protect[Complex]


m1={{.694Exp[I 54.4 Degree],.721Exp[I 49.8 Degree]},{.724 Exp[
          I 130.2 Degree],.689 Exp[-I 54.4 Degree]}}

m1//MatrixForm
m1ev=Eigenvectors[m1]
m1ev//MatrixForm


--
Hartmut Wolf