1、SASTriangle[a, r, b]给出一个两边为a、b，且这两边夹角为 r 弧度的三角形。
3、 求三角形的重心，充分的体现了Mathematica的符号计算能力：RegionCentroid[SASTriangle[a,r, b]]
4、 操作一组等腰三角形，边长不变，顶角变化：等腰三角形[s_, \[钽吟篑瑜Alpha]_] := SASTriangle[s, \[Alph锾攒揉敫a], s]Manipulate[Graphics[等腰三角形[6,夹角]],{夹角,0.1,Pi,0.1}]
