MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

Problem with "Which"


Who can check my module?

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];
]

When I enter: KD[x^3 - 3 x^2, -1, 4] the output is

Extremwerte: {{Which[-6+6 x<0,H,f2=0,S],0,0},{T,2,-4}}

whereas the IF-line gives

Extremwerte: {{H,0,0},{T,2,-4}}

Why can't I use Which in this case. Why doesn't Mathematica evaluate f2 in all cases?



  • Prev by Date: Changing PlotLabel position
  • Next by Date: Simplifying radicals
  • Previous by thread: Re: Changing PlotLabel position
  • Next by thread: Re: Problem with "Which"