Momente von Regionen
Dan in Version 11 die Darstellung von Momenten als Polynom unterstützt wird, kann man leistungstarke und flexible Tools nutzen, um zu vergleichen, klassifizieren und Eigenschaften über Regionen zu berechnen.
Berechnen Sie symbolisch Regionsmomente.
In[1]:=
![Click for copyable input](assets.de/region-moments/In_54.png)
RegionMoment[Disk[], {0, 0}]
Out[1]=
![](assets.de/region-moments/O_38.png)
In[2]:=
![Click for copyable input](assets.de/region-moments/In_55.png)
RegionMoment[CapsuleShape[], {2, 0, 0}]
Out[2]=
![](assets.de/region-moments/O_39.png)
In[3]:=
![Click for copyable input](assets.de/region-moments/In_56.png)
RegionMoment[Cone[{{0, 0, 0}, {0, 0, 1}}, r], {2, 0, 0}]
Out[3]=
![](assets.de/region-moments/O_40.png)
Gegeben Sei eine Region mit unbekannten Parameter, wobei wir wissen, dass alle Momente der Ordnung Null und erster Ordnung bei 1 liegen. Berechnen Sie die numerischen Werte der Parameter.
Definieren Sie die Region und die Annahmen über ihre Parameter.
In[4]:=
![Click for copyable input](assets.de/region-moments/In_57.png)
$Assumptions = r > 0 && x > 0 && y > 0 && z > 0;
In[5]:=
![Click for copyable input](assets.de/region-moments/In_58.png)
cyl = Cylinder[{{0, 0, 0}, {x, y, z}}, r];
Berechnen Sie die Momente der Ordnung Null sowie erster Ordnung.
In[6]:=
![Click for copyable input](assets.de/region-moments/In_59.png)
cfs = {{0, 0, 0}, {1, 0, 0}, {0, 1, 0}, {0, 0, 1}};
In[7]:=
![Click for copyable input](assets.de/region-moments/In_60.png)
{m0, m100, m010, m001} = Table[RegionMoment[cyl, c], {c, cfs}]
Out[7]=
![](assets.de/region-moments/O_41.png)
Lösen Sie nach Parametern, wobei alle Momente der Ordnung Null oder erster Ordnung 1 sind.
In[8]:=
![Click for copyable input](assets.de/region-moments/In_61.png)
sol = Solve[{m0 == 1, m100 == 1, m010 == 1, m001 == 1, $Assumptions}]
Out[8]=
![](assets.de/region-moments/O_42.png)
Ermitteln Sie die Region.
In[9]:=
![Click for copyable input](assets.de/region-moments/In_62.png)
cyl /. sol
Out[9]=
![](assets.de/region-moments/O_43.png)
Approximieren Sie deren Radius.
In[10]:=
![Click for copyable input](assets.de/region-moments/In_63.png)
N[cyl /. sol]
Out[10]=
![](assets.de/region-moments/O_44.png)