mathematica Problem mit "Which" |
17.10.2011, 23:35 | mbmb | Auf diesen Beitrag antworten » |
mathematica Problem mit "Which" KD[f0_, a0_, b0_] := Module[{f = f0, a = a0, b = b0}, f2 = D[f, {x, 2}]; ew = Solve[D[f, x] == 0, x, Reals]; Print["Extremwerte: ", {Which[f2 > 0, "T", f2 < 0, "H", f2 = 0, "S" ], x, f} /. ew]; Print["Extremwerte: ", {If[f2 > 0, "T", "H" ], x, f} /. ew]; ] Nach der Eingabe von KD[x^3 - 3 x^2, -1, 4] erhält man Extremwerte: {{Which[-6+6 x<0,H,f2=0,S],0,0},{T,2,-4}} die If-Zeile liefert: Extremwerte: {{H,0,0},{T,2,-4}} Warum arbeitet "Which" nicht richtig. If ist ja leider nicht allgemeingültig... PS: Verschachtelte If-Abfragen ergeben das gleiche Phänomen, dass der 2. Ausdruck nicht korrekt ausgewertet wird... |
|
Verwandte Themen
Die Beliebtesten » |
|
Die Größten » |
|
Die Neuesten » |
|