Create volume using equations

Hi folks.

I’m trying to get a 3D volume based on equations similar to Matlab and Mathematica…

Something along the lines of the picture attached.

My code would look something like this

x <- y <- seq(-1, 1, length.out = 20)
z = matrix(c(x %% y), nrow = length(x), ncol =length(x) )
cone <- function(x, y){
(11.9174 - 2.18121
x - 0.381032*y)/+ 0.7177868
z=outer(x,y, cone)

I’ve tried several plot types but to no avail…
Can anyone provide some insight on how to do this with plotly in R?