code for perimeter graph

> P1:=plot(2*x+200/x,x=2..40,thickness=3):
P2:=plot( [[6,40],[14,40]], x=5..15,thickness=3,linestyle=3):
P3:=plot([0,0],x=0..40):
plots[display]({P1,P2,P3},labels=[`Length of Side`,`Perimeter`],labelfont=[TIMES,BOLD,18]);