Wolfram Cloud Document

In[]:=

ClearAll["`*"];Remove["`*"]

In[]:=

TP[x_]=pr/x((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(1/(1-b))-((c+1)(Kr/x+Kp/(nx)+Kf/(nx)+(hr+g)/x(2x(-((a(-1+b)gx^2y)/(L+gLy)))^(1/(1-b)))+(hp+g)/(2Rx)((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(2/(1-b))+((hp+g)(n-1))/(2x)((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(2/(1-b))(x((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(1/(1-b))-1/R)+1/x^2S+(v/x+vp/(nx))((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(1/(1-b))+1/(nx)^2Sv+(Pvw)/(xfww)((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(1/(1-b))+(((cff)+(mbk))/(xfww){knx+k/q(Log[1+zE^(-qnx)]-Log[1+z])})))+(c((pp/x+pf/x)((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(1/(1-b))))+(pr/xl(2ag(x^2)y(((-((a(-1+b)gx^2y)/(L+gLy)))^(1/(1-b)))^b))/(L+gLy)-((a(1-b)(x^2))/(2L)((yg)/(1+yg)))^(1/(1-b))(M-x));

In[]:=

a=1/2;b=4/5;bk=2;c=1/3;cf=2/5;f=3;g=-1;hp=1;h=2/3;k=-2;Kf=1;Kp=2;Kr=2/3;l=1;L=3;m=1/3;M=4;n=-1/2;pf=-1;pp=-2;pr=-1/2;Pv=1;q=2;R=1;S=1;Sv=-1;v=3;v=4;w=1;ww=1;y=2;z=3/2;hr=1;vp=1;

In[]:=

NSolve[TP'[x]==0&&-30<x<30,x,Reals]

Out[]=

{{x-9.92869},{x-1.14586},{x13.565}}

FindMinimum[TP[x],{x,-1}](*Minimum*)

Out[]=

{-3.60798,{x-1.14586}}

FindMinimum[TP[x],{x,1}](*Minimum*)

Out[]=

{-22310.7,{x13.565}}

FindMaximum[TP[x],{x,-2}](*Maximum*)

Out[]=

{1014.04,{x-9.92869}}