Fonctions de gestion de vecteurs en NetLogo

to-report angleFromVect [vect]   

  let a atan item 0  vect item 1 vect   

  report a

end

;; Netlogo n'est pas dans le repère classique: le 0 est vers le haut et les angles tournent vers la droite. De ce fait, x = sin angle dans ce référentiel...

to-report vectFromAngle [angle len]  

  let l (list (len * sin angle) (len * cos angle))  

  report l

end

to-report multiplyScalarvect [factor vect]  

  report (list (item 0 vect * factor) (item 1 vect * factor))

end

to-report additionvect [v1 v2]  

  report (list (item 0 v1 + item 0 v2) (item 1 v1 + item 1 v2) )

end

to retport lengthVect [vect]

let x item 0 vect

let y item 1 vect

report sqrt (x * x) + (y * y)

end