Re: Darstellung einer komplexen Zahl

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo zusammen,

Chop[] ersetzt kleine Gleitkommanzahlen durch 0, darunter auch kleine  
Imaginärteile.
Chop[] ohne weitere Angaben erachtet x < 1/10^10 als klein:

In[21]:= Chop /@ Table[1 + I 10.^o, {o, 12, -12, -1}]

Rationale Zahlen werden nicht behandelt:

In[22]:= Chop /@ Table[1 + I 10^o, {o, 12, -12, -1}]

Weil für die Darstellung die Funktionswerte als Gleitkommanzahlen  
berechnet werden, funktioniert

In[10]:= Plot[Chop[x + I/10^13], {x, 0, 40}, Frame -> True,
 FrameLabel -> {"x", "f(x)"}, LabelStyle -> {FontSize -> 24},
 PlotRange -> {{0, 40}, {0, 40}}, GridLines -> Automatic]

tadellos. Ihre Formulierung führt zu einem <JunkOut|JunkIn> - Problem.

Rein formal könnte einer unter der Beschreibung:

"Plot[f,{x,Subscript[x, min],Subscript[x, max]}] generates a plot of f as  
a function of x from Subscript[x, min] to Subscript[x, max]."

erwarten, dass immer ein Bild gezeichnet wird, wenn x ein skalarer,  
kontinuierlicher  Parameter und f eine Funktion ist. Mathematica geht  
darin sehr weit

In[27]:= Plot[BesselJ[x^(1/2), x^2]^(1/x), {x, 1, 4}]

erwartet aber, dass die Funktion f reellwertig ist. Für Funktionen R -> C,  
R -> R^n (n > 1) etc. stehen weitere Befehle zur Verfügung.

Gruss
Udo.



> wenn ich Marcus richtig verstanden habe, zeichnet Plot bei komplexen  
> Funktionswerten nicht.
> Ihre komplexwertige Funktion hat allerdings die Besonderheit, daß für  
> x>7 der Imaginärteil so klein ist, daß beim Standartwert für die  
> Präzision der Imaginärteil zu Null "gerundet" wird. Plot "sieht" daher  
> eine reellwertige Funktion und zeichnet.
>
> Freundliche Grüße
> Udo
>
>
> Am 26.10.2010 um 17:54 schrieb Frank Richter:
>
> > Hallo Markus,
> >
> > besten Dank für die Klarstellung, zumal jemand vom Hauptquartier einen  
> > Mangel eingesteht.