sub profit = { (((($x-10)/20)*(((-1)*((1/10)*(10-$x)*($x+1)+1000) + sqrt(((1/10)*(10-$x)*($x+1)+1000)**2 - (($x-10)/5)*(1000*$x+200)))/(2*($x-10)/20))**3)/3 +(1/2)*((1/10)*(10-$x)*($x+1)+1000)*(((-1)*((1/10)*(10-$x)*($x+1)+1000) + sqrt(((1/10)*(10-$x)*($x+1)+1000)**2 - (($x-10)/5)*(1000*$x+200)))/(2*($x-10)/20))**2+(1000*$x+200)*(((-1)*((1/10)*(10-$x)*($x+1)+1000) + sqrt(((1/10)*(10-$x)*($x+1)+1000)**2 - (($x-10)/5)*(1000*$x+200)))/(2*($x-10)/20))); }