code for graphs above

> paper:=plots[coordplot](cartesian,view=[-4..4,-4..4],grid=[5,5]):

> plot1:=plot(3*x-1,x=-4..4,thickness=3,scaling=constrained,xtickmarks=[-2,2],ytickmarks=[-4,0,4]):

> p1:=plots[display](paper,plot1,axes=boxed,title = `m=3`,titlefont=[TIMES, BOLD, 16]):

> plot2:=plot(.1*x+1,x=-12..12,thickness=3,scaling=constrained,xtickmarks=[-2,0,2],ytickmarks=[-4,0,4]):

> p2:=plots[display](paper,plot2,axes=boxed,title = `m=.1`,titlefont=[TIMES, BOLD,16]):

> plot3:=plot(-3*x-1,x=-4..4,thickness=3,scaling=constrained,xtickmarks=[-2,2],ytickmarks=[-4,0,4]):

> p3:=plots[display](paper,plot3,axes=boxed,title = `m=-3`,titlefont=[TIMES, BOLD, 16]):

> plot4:=plot(-.1*x+1,x=-12..12,thickness=3,xtickmarks=[-2,0,2],ytickmarks=[-4,0,4]):

> p4:=plots[display](paper,plot4,axes=boxed,title = `m=-.1`,titlefont=[TIMES, BOLD,16]):

> plots[display](matrix([[p1, p2],[p3, p4]]),scaling=constrained);