Mathematica基础——SASTriangle

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}]]