Hallo Robert,
[...]
Stimmt alles!
Ich hatte zwar nicht Unrecht, das hat Dir aber trotzdem kein bißchen weiter
geholfen. Sorry!
Wenn Du allerdings unbedingt "NIntegrate" innerhalb von "FindMinimum"
verwenden willst:
f[u_Real] = FindMinimum[N[Integrate[Sin[x Cos[x] + u], {x, 1, 2}]], {u, 0}]
dann hilft:
f[u_?NumberQ] = FindMinimum[N[Integrate[Sin[x Cos[x] +
u], {x, 1, 2}]], {u, 0}]
auch nicht (nach wie vor Fehlermeldungen).
Wenn du die Schritte unterteilst dann funktioniert:
f[u_Real] := NIntegrate[Sin[x Cos[x] + u], {x, 1, 2}]
FindMinimum[f[u], {u, 0}]
genauso gut (ohne Fehlermeldung) wie:
f[u_?NumberQ] := NIntegrate[Sin[x Cos[x] + u], {x, 1, 2}]
FindMinimum[f[u], {u, 0}]
Ich weiß nicht weiter und halte Peters Lösung bisher für das "einzig Wahre",
wenn Du "NIntegrate" innerhalb von "FindMinimum" verwenden willst und wenn
man das AccuracyGoal anpaßt.
(alle Beispiele im Anhang)
Mit freundlichen Grüßen
[André El-Ama]
-----Original Message-----
From: Nowak Robert [mailto:robert.nowak@XXXXXXX.at]
Sent: Tuesday, September 06, 2005 12:22 PM
To: Andre El-Ama; DEMUG
Subject: RE: is not numerical
Hi Andre,
N@Integrate[Sin[x + u], {x, 1, 2}]]
funktioniert wie gewünscht weil Integrate[Sin[x + u] symbolisch ausgewertet
werden kann.
ganz ohne irgend eine (fehler)meldung.
N@Integrate[Sin[x Cos[x] + u], {x, 1, 2}] bringt aber die (fehler)meldung:
NIntegrate::inum: Integrand Sin[u+x Cos[x]] is not numerical at {x} = {1.5`}
und wird nicht ausgewertet.
wenn man das ganze jetzt noch in FindMinimum packt bleiben die
(fehler)meldungen von NIntegrate leider erhalten.
l.g. robert
bspnum.nb
Description: Mathematica Notebook document
