I'm new to mathematica I want to find the positive maximum value of a function, but so far I always ended up with either a negative value or the value doesn't even show up.
Clear["Global`*"]
Z = 500;
W = 100000;
G = 250;
H = 100;
K = 0.5;
T = 30;
L = 4000;
P = 5;
S = 2.5;
Y = 1;
A = 0.1;
V = 2.5;
J = 8000;
f[x_] := 1/
x {(J*Z*x*(2*Y - x))/(
2*Y) - ((W + T*G) + ((L + T*P)*2*Z*Y*(1 - ((Y - x)/Y)^1.5))/
3 + (H + T*S + A*L)*((
2*Z*Y*2*Y - 2*Z*Y*2*Y*((Y - x)/Y)^2.5 -
2*Z*Y*5*x*((Y - x)/Y)^1.5)/15))};
Plot[f[x], {x, -2, 2}]
FindMaximum[f[x], x]
f
you should replace{
and}
by normal parentheses(
and)
. Then beware thatFindMaximum
makes a local max search, and usually you should only use this with a starting point such asFindMaximum[f[x],{x,0.2}]
where here0.2
would be your starting point. There is alsoNMaximize
which attempts a global max search. $\endgroup$