x <- Variable(2, name = "x")
A <- Variable(2, 2, name = "A")
value(x) <- c(-3,4)
expr <- p_norm(x, 2)
grad(expr)
value(A) <- rbind(c(3,-4), c(4,3))
expr <- p_norm(A, 0.5)
grad(expr)
value(A) <- cbind(c(1,2), c(-1,0))
expr <- abs(A)
grad(expr)
Run the code above in your browser using DataLab