13 lines
377 B
Matlab
13 lines
377 B
Matlab
function a=common_order(varargin)
|
|
% common_order - extract the common order from a set of orders
|
|
%
|
|
% a=common_order(a1,a2,a3,...)
|
|
%
|
|
% a1, a2, a3,... - the given set of orders
|
|
% a - the common order
|
|
|
|
% Copyright (c) Dingyu Xue, Northeastern University, China
|
|
% Last modified 28 March, 2017
|
|
a0=cell2mat(varargin); [c,d]=rat(a0,1e-20);
|
|
a=double(gcd(sym(c))/lcm(sym(d)));
|