#OK to post homework
#Yuxuan Yang, Feb 11th, Valentine

with(plots):
Val:=proc() local p1,p2,p3,p4,p5:
p1 := plot(abs(x) - abs(x/2 + 1) - abs(x/2 - 1) + (abs(x/2 + 2) + abs(x/2 - 2) - abs(x/2 + 1) - abs(x/2 - 1))*sin(5*Pi*x)):
p2 := textplot([[-3.2, 1.3, "I love"], [0.8, 1.3, "92653589"]], 'rotation' = Pi/4, 'font' = ["times", "roman", 14]):
p3 := textplot([[-1, 1.5, "3.1415"], [3.2, 1.3, "79323846"]], 'rotation' = -Pi/4, 'font' = ["times", "roman", 14]):
p4 := textplot([2.2, -2.3, "264338327950288"], 'rotation' = 5*Pi/4, 'font' = ["times", "roman", 14]):
p5 := textplot([-2.2, -2.3, "41971693993751..."], 'rotation' = 3*Pi/4, 'font' = ["times", "roman", 14]):
display({p1, p2, p3, p4, p5}, 'view' = [-2*Pi .. 2*Pi, -8 .. 4], axes = boxed):
end: