In[]:=
$Assumptions=VL>0&&0.5≤ksag≤0.9&&Vs>0&&Pi/18≤fai≤Pi/3&&ZL>0Reduce[0≤VL*Ishp+(1-ksag)*Vs*Sqrt[4*VL^2-3*VL^2*Cos[fai]^2+Ishp^2*ZL^2+2*Ishp*VL*ZL*Cos[fai]]/ZL,VL*Ishp+(1-ksag)*Vs*Sqrt[4*VL^2-3*VL^2*Cos[fai]^2+Ishp^2*ZL^2+2*Ishp*VL*ZL*Cos[fai]]/ZL≤VL^2/ZL*Cos[fai],Ishp]//FullSimplify
Out[]=
VL>0&&0.5≤ksag≤0.9&&Vs>0&&≤fai≤&&ZL>0
π
18
π
3
(1-ksag)Vs
4++2IshpVLZLCos[fai]-3
2
VL
2
Ishp
2
ZL
2
VL
2
Cos[1]
ZL
2
VL
ZL
Out[]=
Reduce(-1+ksag)VsCos[fai]+(-1+ksag)Vs
4++VLCos[fai](2IshpZL-3VLCos[fai])
≤IshpVLZL,IshpVLZL≤2
VL
2
Ishp
2
ZL
2
VL
4++VLCos[fai](2IshpZL-3VLCos[fai])
,Ishp2
VL
2
Ishp
2
ZL
