法線ベクトル プロット Copyright (C) 2011, ATR All Rights Reserved. License : New BSD License(see VBMEG_LICENSE.txt)
0001 function vb_plot_normal(V,xx,nlength,ltype) 0002 % 法線ベクトル プロット 0003 % 0004 % Copyright (C) 2011, ATR All Rights Reserved. 0005 % License : New BSD License(see VBMEG_LICENSE.txt) 0006 0007 % V(Npoint,3) : 座標点 0008 % xx(Npoint,3) : 法線ベクトル 0009 0010 if nargin<3, nlength = 1; end; 0011 if nargin<4, ltype = 'b-'; end; 0012 0013 d = V + nlength * xx; 0014 0015 plot3([V(:,1),d(:,1)]',[V(:,2),d(:,2)]',[V(:,3),d(:,3)]',ltype);