drawpoint.m

来自「这是几何代数的matlab工具包」· M 代码 · 共 41 行

function DrawPoint(P,c,size)
% DrawPoint(P,c,size) - draw a point along the tips of the vector arguments
%  P: a cell array of GA vectors
%  c: an optional color argument
%  size: optional point size
%
%See also gable.

% GABLE, Copyright (c) 2001, University of Amsterdam
% Copying, use and development for non-commercial purposes permitted.
%          All rights for commercial use reserved; for more information
%          contact Leo Dorst ([e-mail]).
%
%          This software is unsupported.

l = length(P);

if nargin == 1
     c = 'b';
elseif nargin == 2
     size = 15;
elseif nargin > 3
     error('DrawPoint: takes only 3 arguments');
end

x = zeros(1,l);
y = zeros(1,l);
z = zeros(1,l);
for i = 1:l
	v = m(GA(P{i}));
	if ~GAisa(GAZ(P{i}),'vector')
		error('DrawPoint: all objects in P must be vectors.');
	end
	x(i) = v(2);
	y(i) = v(3);
	z(i) = v(4);
end
plot3(x,y,z,'.','MarkerSize',size,'Color',c);
hold on;
axis('equal');