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):

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

> Ca:=circarrow(AA,[3,0], -angla,4,` `,[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,txt},axes=none,scaling=constrained);

>