library(mosaicCalc)
x <- 10
slice_plot(A * x ^  2 ~ A, domain(A = range(-2,  3)))