optimize :: Problem
         -> Vector Double -- xInitial
         -> (Vector Double, Double)
optimize problem xInit =
  findSuitableConstraintPenalty problem xInit initTrustSize initPenalty
optimize :: Problem
         -> Vector Double -- xInitial
         -> (Vector Double, Double)
optimize problem xInit =
  findSuitableConstraintPenalty problem xInit initTrustSize initPenalty
optimize problem xInit =
  findSuitableConstraintPenalty problem xInit initTrustSize initPenalty