Table[Quiet@
Plot[f1[a, b, c, d, m, n, p], {d, 0, 1},
PlotLabel -> {StringForm["a=`` b=`` c=`` m=`` n=`` p=``", a, b,
c, m, n, p], M = FullSimplify[f1[a, b, c, d, m, n, p]]},
ImageSize -> 500], {a, {-1, 0, 1}}, {b, {-1, 0, 1}}, {c, {-1, 0,
1}}, {m, {-1, 0, 1}}, {n, {-1, 0, 1}}, {p, {-1, 0, 1}}] //
Flatten // Partition[#, 3] & // Grid