#OK to post homework
#Joseph Koutsoutis, 02-16-2025, Valentine's Day Assignment

with(plots):

Valentine := proc():
  implicitplot3d((x^2 + 5*y^2 + z^2 - 1)^3 - x^2 * z^3 - 1/10*y^2*z^3, x=-2..2, y=-2..2, z=-2..2, grid=[150, 150, 150],
  color=red, style=surface, axes=none, title = "I love Algorithmic Graph Theory"):
end: