Hallo Rudolf,
Du hast die L"osung des Problems gleich mit geschickt.
Due hast (vermulich mit Alt-Gr) oder so im Ausdruck fuer
a = R deltaTad/EA
ein \.03 eingegeben was Mathematica als Symbol interpretiert.
Hier die Zeile aus Deinem Notebook
> \(a\ = \ R\ \.03 deltaTad/EA\),
Tja und das sieht man schlecht und es hindert Mathematica daran eine
numerische L"osung zu finden.
L"oscht man das \.03 Zeichen so funktioniert alles prima.
Gruss
Jens
Schuch Rudolf ZE/ID 56006 wrote:
>
> Liebe Mathematica-User,
> im beigefuegten Problem wird versucht,
> mit NDSolve eine gewoehnliche
> Differentialgleichung zu loesen.
> Ungluecklicherweise tritt die gesuchte
> Funktion in der Exponentialfunktion
> auf und in dem Moment, in dem man die
> Konstante a mit dem unverdaechtigen Wert
> 0.0124715 als Faktor im Argument der
> Exponentialfunktioneinfuehrt, antwortet Mathematica
> mit der Fehlermeldung:
>
> NDSolve::ndnum : The right-hand side of the differential
> equation does not evaluate to a number at Theta == 0
>
> Wirft man die Konstante a wieder heraus, kann Mathematica
> das Problem anstandslos loesen.
>
> Woran liegt das, bzw. wie kann man das Problem umgehen?
>
> Mit freundlichen Gruessen,
> Rudolf Schuch
> c/o
> ZIC/I L511
> BASF AG
> 67056 Ludwigshafen
>
> Tel.: 0621/6056006
>
> ------------------------------------------------------------------------
> Cell[BoxData[{
> \(R\ = \ 8.31434\),
> \(deltaTad\ = \ 105\),
> \(EA\ = \ 70000\),
> \(a\ = \ R\ \.03 deltaTad/EA\),
> \(TW\ = \ 100\),
> \(b\ = \ TW\ R\ /EA\),
> \(theta0\ = \ 0.2\),
> \(d\ = \ Exp[a\ theta0\ + b + 1/\((\ a\ theta0\ + \ b)\)]\n\)}],
> "Input"],
|