init

FOTF Toolbox/common_order.m

@@ -0,0 +1,12 @@
+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)));