Inicialização

     Clear[Vect]

     Vect[v_, x_, hs_:0.1, s_:1] := 
      
       {Line[{{0, 0}, s v} + Table[x, {i, 1, 2}]], 
      
        Polygon[Partition[Arrow[s v, hs], 2] + Table[x, {i, 1, 6}]]}