1、SASTriangle[a, r, b]给出一个两边为a、b，且这两边夹角为 r 弧度的三角形。
2、画出三角形SASTriangle[3, Pi/2, 4]。
3、 求三角形的重心，充分的体现了Mathematica的符号计算能力：
RegionCentroid[SASTriangle[a,r, b]]
4、 操作一组等腰三角形，边长不变，顶角变化：
等腰三角形[s_, \[Alpha]_] := SASTriangle[s, \[Alpha], s]
Manipulate[Graphics[等腰三角形[6,夹角]],{夹角,0.1,Pi,0.1}]
5、 把所有的渐变效果叠加起来看看:
Graphics[Table[{ColorData["Rainbow"][ Rescale[夹角, {0.1, \[Pi]}]], 等腰三角形[6,夹角]}, {夹角,0.1,Pi,0.1}]]
