# separate variables to vector(a,b); separate(a_*y_+y_,y_,x_,n_):= if(hasnot(a,y), vector(1+a,y) ); separate(a_*y_+b_*y_,y_,x_,n_):= if(hasnot(a,b,y), vector(a+b,y) ); separate(a_*b_,y_,x_,n_):= if(hasnot(a,y) and hasnot(b,x), vector(a,b), if(hasnot(a,x) and hasnot(b,y), vector(b,a) )); separate(a_*b_*c_,y_,x_,n_):= if(hasnot(a,y) and hasnot(b,c,x), vector(a,b*c), if(hasnot(a,x) and hasnot(b,c,y), vector(b*c,a), if(hasnot(a,c,x) and hasnot(b,y), vector(b,a*c), if(hasnot(a,c,y) and hasnot(b,x), vector(a*c,b) ))));