Re: AW: Complex

[Rolf Mertig <rolf@XXXXXXX.com>]

Wenn man weiss was man tut kann man PowerExpand verwenden.
Also, z.B. :

In[1]:= f = ReleaseHold[PowerExpand[# /. a_Plus :> Factor[Hold[1] a]]] &;

In[2]:= f@Solve[FR == Pi r1^2 - Pi r2^2, r1] // InputForm

Out[2]//InputForm= 
{{r1 -> Sqrt[FR + Pi*r2^2]/Sqrt[Pi]}, {r1 -> -(Sqrt[FR + Pi*r2^2]/Sqrt[Pi])}}

---------
Besser ist es aber sicherlich den Kindern in der Schule gleich komplexe 
Zahlen beizubringen. 

MfG,

Rolf Mertig


> ...
> Mit meinem Sohn musste ich mal wieder Hausaufgaben nachrechnen. Die Fläche
> eines Rings...
>
> Solve [ FR == Pi r1^2 - Pi r2^2 , r1]
>
> Es ist schon etwas nervend, dass MMA
>
> i Sqrt(-FR - Pi r2^2) / Sqrt(Pi)
>
> ausgibt. Natürlich ist das Ergebnis richtig, wenn man in der Wurzel -1 vor
> eine Klammer zieht
>
> i Sqrt(-1 * (FR + Pi r2^2)) / Sqrt(Pi)
>
> kann man auch schreiben
>
> i Sqrt(-1) * Sqrt((FR + Pi r2^2)) / Sqrt(Pi)
>
> und da i = Sqrt(-1) erhält man i^2 und schon scheint die Sonne.
>
> Kann MMA das nicht lassen? Wie macht man das?
>
> Gruß, Peter
>
>
> -----Ursprüngliche Nachricht-----
> Von: Rolf Mertig [mailto:rolf@XXXXXXX.com]
> Gesendet: Dienstag, 3. September 2002 11:04
> An: klamser; Dmug@Mathematica. Ch
> Betreff: Re: Complex
>
>
> Hallo,
> weil der Wert bei dem die Fehlermeldung beim Plot auftritt nahe an 1 liegt:
> In[1]:= 0.9999999583333333`
> Out[1]= 1.
> Und einzelne Werte werden eben von Plot schon mal (mit Warnung)
> ignoriert.
>
> Wenn Sie statt von 0 bis 1 lediglich bis 0.9999 plotten gibt es keine
> Fehlermeldung.
>
> Zwei Anmerkungen noch:
> 1.:   ndrk[f_] = Chop@Normal@Series[drk[f],{f,0,1}]
>        ergibt
>        1.92176\:f360 + 0.305839 f
>        was eine ziemlich gute Näherung ist und etwas kürzer
>
> 2.:  drk[SetPrecision[f, 100]] nutzt überhaupt nichts,
>       da ja in der drk-Funktion Zahlen mit 16-stelliger Genauigkeit sind.
>
> MfG,
>
> Dr. Rolf Mertig
> Mertig Consulting, Berlin
> http://www.mertig.com
>
> Mathematica Kurse, Beratung, Spezialprogramme aller Art.
>
> Am Sonntag, 1. September 2002 22:15 schrieb klamser:
> > Hallo,
> >
> > kann mir jemand sagen, warum die im anliegenden NB aufgeführte Funktion
> > geplottet weren kann, als Liste aber nur komplexe Ergebnisse mit einem
> > imaginären Teil von 0. oder 10^-14 liefert?
> >
> > Gruß,
> >
> > Peter Klamser