plots_single_vector

;;

;; シングルベクトルを表示するプログラム

;; [x0,y0]からdx,dyだけ進んだ点に向かって矢印を引く

;;

pro plots_single_vel,x0,y0,dx,dy,color=color,thick=thick

r = .3 ;len of arrow head

angle = 22.5 * !dtor ;Angle of arrowhead

st = r * sin(angle) ;sin 22.5 degs * length of head

ct = r * cos(angle)

x1 = x0 + dx

y1 = y0 + dy

xd=1

yd=1

plots,[x0,x1,x1-(ct*dx/xd-st*dy/yd)*xd, $

x1,x1-(ct*dx/xd+st*dy/yd)*xd], $

[y0,y1,y1-(ct*dy/yd+st*dx/xd)*yd, $

y1,y1-(ct*dy/yd-st*dx/xd)*yd], $

clip=clip,noclip=noclip,_EXTRA=extra,thick=thick,color=color

return

end

下図の矢印みたいなのが引ける