Mathematica基础——SSSTriangle

电脑

Mathematica

SSSTriangle[13,37,40]给出一个边长分别是13、37、40的三角形的一组可能的坐标，用Graphics可以画出这个三角形：Graphics[SSSTriangle[13,37,40] ]

一个有趣的现象是，边长大的三角形，面积却未必大。举个例子——边长分别是15、41、52的三角形，与边长分别是13、37、40的三角形的面积:Graphics[{Red,Opacity[0.5],SSSTriangle[13,37,40] ,      Green,Opacity[0.5],SSSTriangle[15,41,52]}]

当三角形的三边不符合三角形的 条件的时候，Mathematica会向你说明！

用Circumsphere可以找出三角形的外接圆：tri = SSSTriangle[13,37,40];circ = Circumsphere[First@tri];Graphics[{{Blue, circ}, {RGBColor[0.1,0.5,6], tri},{Green,PointSize[0.05],  Point[First@tri]}}]

当改变某一边的长度的时候，可以产生好看的渐变效果：Graphics[{Opacity[0.2],   Table[{ColorData['Rainbow'][Rescale[c, {13,16}]],     SSSTriangle[5, 12, c]}, {c, 13,16,0.1}]}]

把这个结果还可以转化为互动效果：Manipulate[Graphics[{Opacity[0.2], {ColorData['Rainbow'][Rescale[c, {13,16}]],     SSSTriangle[5, 12, c]}}] ,{c, 13,16,0.1}]