AW: Complex

[Klamser@XXXXXXX.de (klamser)]

Hallo,

Danke für die Hilfen.

Der Tipp mit Chop führt weiter.
Die Bemerkung von Jens Peer Kuska, dass MMA zu komplexen Ergebnissen neigt,
kann ich nur unterstreichen.

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