# NOT RUN {
x <- Variable()
is_atom_convex(x^2)
is_atom_convex(sqrt(x))
is_atom_convex(log(x))
is_atom_concave(-abs(x))
is_atom_concave(x^2)
is_atom_concave(sqrt(x))
is_atom_affine(2*x)
is_atom_affine(x^2)
# }
Run the code above in your browser using DataLab