myfunc[a_, b_, c_, m_, n_, p_, d_, e_, f_] := (-a d - b d e - m +
d m - e n + d e n)/(c d + b d f + f n - d f n + p - d p)
tup1 = {{0, -1, -1, 1, 0, -1, d, 0, 1}, {0, -1, -1, 1, 0, -1, d, 1,
0}, {0, -1, -1, 1, 0, -1, d, 1, -1}, {0, -1, -1, 1, 0, -1, d, -1,
1}, {0, -1, -1, 1, 0, 0, d, 0, 1}};
Plot[myfunc[##], {d, 0, 1},
ImageSize -> 1000,
PlotStyle -> Directive[Red, Thick],
Ticks -> Automatic,
TicksStyle -> Directive[Black, Bold, 20],
GridLines -> Automatic,
GridLinesStyle -> LightGray,
AxesLabel -> {Style["D", 16, Bold], Style["M", 16, Bold]},