gazv.m

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

function A = gazv(B)
% gazv(B): Set to zeros any element of the multivector B less than 1e-15
% 
%See also gable, GAZ, blade, grade.

% GABLE, Copyright (c) 1999, 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.
A=B;
for i=1:8
  if abs(A.m(i)) < 1e-15
if abs(A.m(i)) > 0
warning('gazv set a field to 0!');
B
end
     A.m(i) = 0;
  end
end