Graph generated from Mathematica Clear[IC, a, b, h, i, m, n, f, NN, β, γ]; IC = {499, 1}; m = Length[IC]; a = 0; b = 60; h = 0.5; NN = 1; n = (b - a)/h;...
