4801.sagews

l=line([(-2,4),(0,9),(2,4),(9,4),(4 ,-2),(8,-15),(0,-6),(-8,-15),(-4,-2),(-10,4),(-2,4)],thickness=3,color='black')

p=polygon([(-2,4),(0,9),(2,4),(9,4),(4 ,-2),(8,-15),(0,-6),(-8,-15),(-4,-2),(-10,4)],color='purple')

la=line([(-1,2),(0,4),(1,2),(3,2),(1 ,0),(2,-3),(0,-1),(-2,-3),(-1,0),(-3,2),(-1,2)],thickness=3,color='yellow')

pa=polygon([(-1,2),(0,4),(1,2),(3,2),(1 ,0),(2,-3),(0,-1),(-2,-3),(-1,0),(-3,2),(-1,2)],fill=true,color='black')

y1=plot(2.5*x+9,(x,-2,0),thickness=5,color='fuchsia', legend_label='$y=(5/2)x+9$')

y2=plot(4,(x,2,9),thickness=5,color='orange', legend_label='$y=(4)$')

y3=plot(3.25*x+11,(x,-8,-4),thickness=5,color='blue',legend_label='$y=(13/4)x+11$')

y4=plot(4,(x,-10,-2),thickness=5,color='red',legend_label='$y=(4)$')

c=circle((1,1),0.4,fill=true,color='white')

c1=circle((-1,1),0.4,fill=true,color='white')

show(l+p+la+pa+y1+y2+y3+y4+c+c1)