code for diagram

> A:='A':B:='B':C:='C':

> AA:=[4,0]:BB:=[-2,0]:CC:=[0, 2]:

> tri:=plots[polygonplot]([AA,BB,CC],style=line,
thickness=2,color=blue):

> anglb:=fsolve(12=sqrt(8)*sqrt(6^2)*cos(t1),t1):

> angla:=fsolve(32=sqrt(20)*sqrt(8^2)*cos(t2),t2):

> anglc:=fsolve(-4=sqrt(8)*sqrt(20)*cos(t3),t3):

> Cb:=circarrow(BB,[-1,0], anglb,4,` `,[0,0],16,blue):

> Ca:=circarrow(AA,[3,0], -angla,4,` `,[0,0],16,blue):

> Cc:=circarrow(CC,[1/2,1.75], -anglc,6,` `,[0,0],16,blue):

> dsk1:=plottools[disk](CC,.07,color=black,style=patch):

> dsk2:=plottools[disk](AA,.07,color=black,style=patch):

> dsk3:=plottools[disk](BB,.07,color=black,style=patch):

> txt:=plots[textplot]({[-2.2,-.3,`B`],[4.4,-.2,`A`],
[0,2.3,`C`],[2,1.4,`b`],[-1,1.4,`a`],[1,-.2,`c`]},
font=[TIMES,BOLD,16]):

> plots[display]({tri,dsk1,dsk2,dsk3,Ca,Cb,Cc,txt},
axes=none,scaling=constrained);

>