> addvertex(T2,theory);

> addedge([RA,T2],theory);

> mylin([[I1,I2,RA],[T1,T2]],theory,[0,0],blue,3);