#Please post homework
#Jeffrey Tang, 2/15/25, Assignment 6
#This is the Valentine special hw

with(plots):

MobiusHeart := proc() local u, v, x, y, z, mobius, text1, text2, text3;
    
    x := (2.0 + 0.7 * v * cos(u/2)) * (16*sin(u)^3):
    y := (2.0 + 0.7 * v * cos(u/2)) * (13*cos(u) - 5*cos(2*u) - 2*cos(3*u) - cos(4*u)):
    z := 0.7 * v * sin(u/2):
    
    mobius := plot3d([x, y, z], u = 0 .. 2*Pi, v = -1 .. 1, 
                      grid=[200,60],
                      style=patchnogrid, color=RGB(204, 0, 0), axes=none, shading=Z):
    
    text1 := textplot3d([0, 0, -1.0, "I love"],
                         color=pink font=[TIMES, BOLD, 20]):
    text2 := textplot3d([0, 0, 0.0, "Algorithmic"],
                         color=red, font=[TIMES, BOLD, 20]):
    text3 := textplot3d([0, 0, 1.0, "Graph Theory"],
                         color=darkred, font=[TIMES, BOLD, 20]):
    
    display(mobius, text1, text2, text3):
end: