Re: Integration funktioniert nicht

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

Hallo zusammen,

> bei mir klappt es - mit und trotz Fehlermeldungen - so, wie im
> angehängten, modifizierten Notebook.

Zahlen können manchmal verwirrend sein: Das unbestimmte Integral des  
primären Summanden mit unbestimmten Koeffizienten der Funktion

In[44]:= Clear[kla]
kla[x_] := \[Alpha] Exp[\[Beta] (\[Gamma] + Log[3/2 + x])^2]/(3/2 + x)

ist

In[46]:= Integrate[kla[x], x]
Out[46]= (Sqrt[\[Pi]] \[Alpha] Erfi[
  Sqrt[\[Beta]] (\[Gamma] + Log[3/2 + x])])/(2 Sqrt[\[Beta]])

deshalb schreibt man

Clear[kS]
kS[x_] := Subscript[\[Alpha], 0]
   Plus @@ Table[
    Subscript[\[Alpha], i]
      Integrate[
      Exp[Subscript[\[Beta],
         i] (Subscript[\[Gamma], i] + Log[3/2 + x])^2]/(3/2 + x),
      x], {i, 3}]

und plottet

In[52]:= Plot[kS[y] /. {Subscript[\[Alpha], 0] -> 1/34910,
   Subscript[\[Alpha], 1] -> -2.8349437414036674`30 10^10,
   Subscript[\[Beta], 1] -> -0.004148077678858979`30,
   Subscript[\[Gamma], 1] -> -50.57529648591651`30,
   Subscript[\[Alpha], 2] -> 2.315208348695286`30 10^9,
   Subscript[\[Beta], 2] -> -0.005592198303083145`30,
   Subscript[\[Gamma], 2] -> -38.070307407147716`30,
   Subscript[\[Alpha], 3] -> -12680.796552026475`30,
   Subscript[\[Beta], 3] -> -0.19940635752579733`30,
   Subscript[\[Gamma], 3] -> -20.263567004421017`30,
   y -> x}, {x, 0, 100}]

ohne Warnung, ohne Fehler. Die Sichtkontrolle

In[53]:= Show[{klaP, %52}]

ergibt Übereinstimmung, falls man anfangs in Ihren Bezeichnungen

In[37]:= f = integral$der$funktion[x]
In[38]:= klaP = Plot[f, {x, 0, 100}]

gesetzt hatte.

Mit den besten Grüssen
Udo.