Mathematica基础——SASTriangle

2025-03-21 07:50:13

1、SASTriangle[a, r, b]给出一个两边为a、b,且这两边夹角为 r 弧度的三角形。

Mathematica基础——SASTriangle

2、画出三角形SASTriangle[3, Pi/2, 4]。

Mathematica基础——SASTriangle

3、 求三角形的重心,充分的体现了Mathematica的符号计算能力:RegionCentroid[SASTriangle[a,r, b]]

Mathematica基础——SASTriangle
Mathematica基础——SASTriangle

4、 操作一组等腰三角形,边长不变,顶角变化:等腰三角形[s_, \[钽吟篑瑜Alpha]_] := SASTriangle[s, \[Alph锾攒揉敫a], s]Manipulate[Graphics[等腰三角形[6,夹角]],{夹角,0.1,Pi,0.1}]

Mathematica基础——SASTriangle

5、 把所有的渐变效果叠加起来看看:Graphics[Table[{ColorData["Rainbow"][R髫潋啜缅escale[夹角, {0.1, \[Pi]}]], 等腰三角形[6,夹角]},{夹角,0.1,Pi,0.1}]]

Mathematica基础——SASTriangle
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢