;;
;; シングルベクトルを表示するプログラム
;; [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
下図の矢印みたいなのが引ける