> addvertex(T2,theory);

[Maple Math]

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

[Maple Math]

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

[Maple Plot]