Wolfram Cloud Document

Clear["Global`*"];Z=1000;W=100000;G=250;H=100;T=38;L=4000;P=5;S=2.5;Y=2;A=0.1;J=8000;a=1;t=0.5;Clear[f];f[x_]=

1

x

∫

0

J×Z×

1-a×t+t

1-

R

Y

R-(W+T×G)+(L+T×P)×

x

∫

0

Z×

1-a×t

1-

R

Y

R+(H+T×S+A×L)×

x

∫

0

x

∫

v

Z×

1-a×t

1-

R

Y

Rx;Plot[Re@f[x],{x,0,2}]FindMaximum[{Re@f[x],x>0},x]

$Assumptions

:Warning: one or more assumptions evaluated to False.

$Assumptions

:Warning: one or more assumptions evaluated to False.

FindMaximum

:The function value -1.00001(2.27901×

6

10

-595.(-878.102+0.999994Re[Plus[2]Power[2]])) is not a real number at {x} = {0.999994}.

FindMaximum

:Evaluation of the gradient of function Experimental`NumericalFunctionHold-ConditionalExpressionRe

-109500+Times[2]+Times[2]+Times[2]

x

,Re[x]≤1.99999999999999999999||x∉,Block,{0,{{{},1,0,Hold[x],0,0}}},{{{1,1,817},{1}}},1,{904,MachinePrecision,4,Automatic,None},{None,None,None} failed at {1.}.

FindMaximum[{Re[f[x]],x>0},x]