R/200_reductions_dgp2dcp_canonicalizers_power_canon.R

In CVXR: Disciplined Convex Optimization

#####
## DO NOT EDIT THIS FILE!! EDIT THE SOURCE INSTEAD: rsrc_tree/reductions/dgp2dcp/canonicalizers/power_canon.R
#####

## CVXPY SOURCE: reductions/dgp2dcp/canonicalizers/power_canon.py
## DGP canonicalizer for Power/PowerApprox: x^p -> p * log(x)

.dgp_power_canon <- function(expr, args) {
  ## expr@p is a Constant or Expression; use value for numeric multiplication
  p_val <- if (S7_inherits(expr@p, Constant)) value(expr@p) else expr@p
  list(p_val * args[[1L]], list())
}