isascalar.m

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

function b = isascalar(G)
%isascalar(G): Return 1 if G is a scalar, 0 otherwise
% Obsolete.  Use GAisa or isGrade instead.
%
%See also gable, GAisa, isGrade.

% 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.
if (isa(G, 'double') | (isa(G,'GA') & sum(abs(G.m(2:8))))) == 0
  b = 1;
else
  b = 0;
end