Язык Wolfram Language

Конфигурация активной зоны

Анализ геометрических объектов

Версия 11 предоставляет мощные и гибкие инструменты для сравнения, классификации и вычисления свойств геометрических объектов.

Определение средневзвешенного значения для геометрических областей.

In[1]:=
Click for copyable input
RegionMoment[Disk[], {0, 0}]
Out[1]=
In[2]:=
Click for copyable input
RegionMoment[CapsuleShape[], {2, 0, 0}]
Out[2]=
In[3]:=
Click for copyable input
RegionMoment[Cone[{{0, 0, 0}, {0, 0, 1}}, r], {2, 0, 0}]
Out[3]=

Предположим, что дана область с неизвестными параметрами, где все средневзвешенные значения нулевого порядка и первого порядка равны 1. Найдем численные значения каждого параметра.

Определим геометрическую область на основе заданных параметров.

In[4]:=
Click for copyable input
$Assumptions = r > 0 && x > 0 && y > 0 && z > 0;
In[5]:=
Click for copyable input
cyl = Cylinder[{{0, 0, 0}, {x, y, z}}, r];

Вычислим средневзвешенные значения нулевого порядка и первого порядка.

In[6]:=
Click for copyable input
cfs = {{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
In[7]:=
Click for copyable input
{m0, m100, m010, m001} = Table[RegionMoment[cyl, c], {c, cfs}]
Out[7]=

Определим параметры геометрической области, учитывая, что все средневзвешенные значения нулевого порядка и первого порядка равны 1.

In[8]:=
Click for copyable input
sol = Solve[{m0 == 1, m100 == 1, m010 == 1, m001 == 1, $Assumptions}]
Out[8]=

Получим заданную геометрическую область.

In[9]:=
Click for copyable input
cyl /. sol
Out[9]=

Определим приблизительное значение радиуса.

In[10]:=
Click for copyable input
N[cyl /. sol]
Out[10]=

Родственные примеры

de en es fr ja ko pt-br zh