# Plotting a recursive function results in recursion limit exceeded exception

I am new to Mathematica and expecting some help.

I am trying to plot a discrete recursive function f[m, n] against m, for different values of n.

Show[Table[
DiscretePlot[f[m, n], {m, 0, 80}, AxesOrigin -> {-1, 0},
PlotRange -> All], {n, 20, 100, 20}]]


I want each curve for n to be in a different color. Using PlotThemecolored them all in same color and the following gave me a recursion depth exceeded exception.

DiscretePlot[
Evaluate[Table[f[m, n], {n, 20, 100, 20}]], {m, 0, 80},
PlotTheme -> "DarkColor"]


populationRatio[m_, n_] := a polynomial of m, n and a set of constants

• Please post f. – David G. Stork Dec 8 '17 at 1:28
• Try to add this option: PlotStyle -> Hue[n/100]. – Alexei Boulbitch Dec 8 '17 at 9:21