Mathematica

 Hej!

Jag undrar hur man ska rita en sådan här bild?

Jag kan få till de blå pilarna och den röda. Men det är de svarta och streckade pilarna som jag inte förstår...

Detta har jag fått fram. Men då blir det bara de blå och den röda pilen.

Graphics[{Blue, Arrow[{{0, 0}, W[[1]]}], Blue,
Arrow[{{0, 0}, W[[2]]}], Red, Arrow[{{0, 0}, x}]}, Axes -> True,
AxesLabel -> {"X", "Y"}]