function vektorTrafo(v,A)
  % függvény a lineáris transzformációk kirajzolásához
  % kell hozzá a geometry csomag! 
  pkg load geometry
 
  % tengelyek rajzolása
  plot([0 0], [-4 4],'k');
  hold on;
  plot([-4 4], [0 0],'k');

  % az eredeti vektor rajzolása zölddel.
  h1 = drawArrow([0,0,v'],1, 0.2, 0.1, 0);
  set (h1.body, "color", 'g')
  set (h1.body, 'linewidth',2)
  set (h1.wing, "color", 'g')
  
  % a transzformált vektor rajzolása pirossal
  h2 = drawArrow([0,0,(A*v)'],1, 0.2, 0.1, 0);
  set (h2.body, "color", 'r')
  set (h2.body, 'linewidth',2)
  set (h2.wing, "color", 'r')
  set (h2.wing, 'linewidth',2)
  hold off
  
endfunction
