function [res] = checkCollinear(A,B) % проверка коллинеарности двух векторов размерности 2 заданных в символьном виде % если res=1, то A и В коллинеарны, если res=0 - нет eq=expand(A(1)*B(2)-A(2)*B(1)); c=simplify(eq, 'Steps', 10); c=solve(c); c=double(c); if mod(c,1)==0 && c>=0 res=1; else res=0; end end