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, \[Alph锾攒揉敫a], s]Manipulate[Graphics[等腰三角形[6,夹角]],{夹角,0.1,Pi,0.1}]
5、 把所有的渐变效果叠加起来看看:Graphics[Table[{ColorData["Rainbow"][R髫潋啜缅escale[夹角, {0.1, \[Pi]}]], 等腰三角形[6,夹角]},{夹角,0.1,Pi,0.1}]]
