# Plotting direction fields along with trajectories

I am reading "Dynamics and Bifurcations" by Hale and Kocac, and in chapter one the following diagram is shown: Question is, how can I achieve the same plot using Mathematica? I've tried StreamPlot, but the plot I get looks somewhat different:

   StreamPlot[{-x, t}, {x, -3, 3}, {t, -3, 3}] What horrible mistake have I made? Sorry, but I'm fairly new to both ODEs and Mathematica. Thanks for the help.

I used the answer here and set the independent variable t as first argument. It looks now close to your book

f[t_, x_] := -x
StreamPlot[{1, f[t, x]}, {t, -2, 2}, {x, -.5, .5}, Frame -> False,
Axes -> True, AspectRatio -> 1/GoldenRatio] sol = DSolve[x'[t] == -x[t], x[t], t];
f = x[t] /. sol[] /. C -> x1;
p1 = ContourPlot[
Evaluate[Table[x == f, {x1, {-.1, .1, 1, -1}}]], {t, -5,
5}, {x, -2, 2}];
points = Join @@ (Table[{i, j}, {i, -5, 5}, {j, -2, 2, .5}]);
line = Rotate[{Gray, Line[{# - {.3, 0}, # + {.3, 0}}]},
ArcTan[-#[]]] & /@ points;
p2 = Graphics[{line, {Red, PointSize[.01], Point[points]}},
Axes -> True, PlotLabel -> "Direction Filed", Frame -> True,
PlotRange -> {-3, 3}];
Show[p2, p1] 