Blank graph on offline mathematica

I am looking at the following plot:

ClearAll[x, y, t, q, d];
ode1 = y'[t] == 1 - d x[t] - (3 + 2 q) y[t];
ode2 = x'[t] == 1 - q y[t] - (3 + 2 d) x[t];
ic = x + y == 1
sol[t_, d_, q_, x0_, y0_] =
{x[t], y[t]} /.
(First @ DSolve[{ode1, ode2, x == x0, y == y0}, {x[t], y[t]}, t])
Manipulate[
ParametricPlot[
Evaluate @ Table[sol[t, d, q, .25, .75], {d, {0.1}}, {q, {0.9}}],
{t, 0, k},
PlotRange -> {{0, 1}, {0, 1}},
FrameLabel -> True,
Frame -> True,
AxesLabel -> {"x[t]", "y[t]"}],
{k, .1, 400}]

But I get a blank plot. What is going on here?

Note: my Mathematica is new, and I get a graph on the online version, but it is very unresponsive.

• Choose initial value for k to be small enough, but not 0 exactly, say {k, 0.01, 400}. It is impossible to plot from 0 to 0, so MMA complaints. For me Manipulate very smooth when I move slider. And use FrameLabel if you use Frame -> True. About solving ... it is transcendental equation and can't be solved in symbolic closed form. – Alx Jul 29 at 14:41
• Now I am working with ClearAll[x, y, t, q, d]; ode1 = y'[t] == 1 - d x[t] - (3 + 2 q) y[t]; ode2 = x'[t] == 1 - q y[t] - (3 + 2 d) x[t]; ic = x + y == 1 sol[t_, d_, q_, x0_, y0_] = {x[t], y[t]} /. (First@ DSolve[{ode1, ode2, x == x0, y == y0}, {x[t], y[t]}, t]) Manipulate[ ParametricPlot[ Evaluate@Table[sol[t, d, q, .25, .75], {d, {0.1}}, {q, {0.9}}], {t, 0, k}, PlotRange -> {{0, 1}, {0, 1}}, FrameLabel -> True, Frame -> True, AxesLabel -> {"x[t]", "y[t]"}], {k, .1, 400}] – EverythingEnds Jul 29 at 14:52
• On my online version, it is very laggy, on my personal copy, the graph does not generate – EverythingEnds Jul 29 at 14:53
• I just get a blank graph – EverythingEnds Jul 29 at 14:54
• I edited the question accordingly – EverythingEnds Jul 29 at 15:01