SetFunction[withl, shel] =

{Function

( 0.4 (1-q) hs^0.334 + 0.6 (1-q) ms^0.334 + q ls^0.334)^3,

CoefficientList

{ q

0.1}, Factors