With some Mathematica knowledge you can do whatever:
Graphics[
Map[{Thickness[RandomReal[{.001, .05}]],
Arrowheads[(#[[1, 1]] + #[[2, 2]])/10], RandomColor[],
Arrow[{#[[1]], #[[1]] + #[[2]]}]} &, {{{0, 1}, {1, 1}}, {{2,
3}, {1, 2}}, {{0, 2}, {1, 1}}}], Frame -> True]
