kill(all)$

van=facebook.com/LearningCalculus$

A:matrix([0,-1,2],[1,0,3],[-2,-3,0]);

A+2*transpose(A);

transpose(A);

A_:is(equal(A+2*transpose(A),A));

B_:is(equal(A+2*transpose(A),-transpose(A)));

C_:is(equal(A+2*transpose(A),transpose(A)));

D_:is(equal(A+2*transpose(A),2*A*A));