I am afraid I do not understand your problem, but what do you think about this?

Define a tangent-vector

tvec[u_, f_] := Module[{},
  abl = D[f, x];
  v1 = {u, f /. x -> u};
  v2 = {u + .1, (f /. x -> u) + .1 (abl /. x -> u)};
  {v1, v2}
  ]

and then plot these tangent-vectors with the solutions of your diff.eq.

Show[
Graphics[
{Arrow /@ Table[tvec[a, funcionesh[[2]]], {a, 0, 2, .25}],
Arrow /@ Table[tvec[a, funcionesh[[4]]], {a, 0, 2, .25}]}],
famh,
Axes -> True,
AxesOrigin -> {0, 0}
    ]

OK, that ist not yet really nice, but with a bit of playing around with the parameters it could be acceptable.