code for graphs

> sinplt:=plot(sin(x),x=0..2*Pi,titlefont=[TIMES,BOLD,16], title = `Graph of sin(x)`, axesfont=[TIMES,BOLD,14],labels=[x, ` `], xtickmarks=[],ytickmarks=[-1,1], labelfont=[TIMES,BOLD,14]):
org:=plots[textplot]([0,0,`0`],font=[TIMES,BOLD,14], align=BELOW):
piby2:=plots[textplot]([evalf(Pi/2),0,`Pi/2`],font=[TIMES,BOLD,14], align=BELOW):
pi:=plots[textplot]([evalf(Pi),0,`Pi`],font=[TIMES,BOLD,14], align=BELOW):
thpiby2:=plots[textplot]([evalf(3*Pi/2),0,`3Pi/2`],font=[TIMES,BOLD,14], align=BELOW):
twopi:=plots[textplot]([evalf(2*Pi),0,`2Pi`], font=[TIMES,BOLD,14],align=BELOW):
cosplt:=plot(cos(x),x=0..2*Pi,titlefont=[TIMES,BOLD,16], title = `Graph of cos(x)`, axesfont=[TIMES,BOLD,14],labels=[x, ` `], xtickmarks=[],ytickmarks=[-1,1], labelfont=[TIMES,BOLD,14]):
tanplt:=plot(tan(x),x=0..2*Pi,titlefont=[TIMES,BOLD,16], title = `Graph of cos(x)`, view=[0..evalf(2*Pi), -10..10],axesfont=[TIMES,BOLD,14],labels=[x, ` `], xtickmarks=[], labelfont=[TIMES,BOLD,14]):
plots[display]([sinplt,org,piby2,pi,thpiby2,twopi]);
plots[display]([cosplt,org,piby2,pi,thpiby2,twopi]);
plots[display]([tanplt,org,piby2,pi,thpiby2,twopi]);