Visualize and Analyze Anatomical Structures
Plot the bone structure and skin of the human foot and estimate its surface area (in square millimeters).
In[1]:=
![Click for copyable input](assets.en/visualize-and-analyze-anatomical-structures/In_1.png)
Row[EntityValue[{Entity["AnatomicalStructure", "RightFoot"],
Entity["AnatomicalStructure", "SkinOfRightFoot"]}, "MeshRegion"]]
Out[1]=
![](assets.en/visualize-and-analyze-anatomical-structures/O_1.png)
In[2]:=
![Click for copyable input](assets.en/visualize-and-analyze-anatomical-structures/In_2.png)
Area[EntityValue[Entity["AnatomicalStructure", "SkinOfRightFoot"],
"MeshRegion"]]
Out[2]=
![](assets.en/visualize-and-analyze-anatomical-structures/O_2.png)
Plot the connectivity of the distal branches of the brachial artery.
In[3]:=
![Click for copyable input](assets.en/visualize-and-analyze-anatomical-structures/In_3.png)
NestGraph[Cases[EntityValue[#, "Branches"], _Entity] &,
Entity["AnatomicalStructure", "BrachialArtery"], 3,
VertexLabels -> Placed["Name", Tooltip], EdgeStyle -> Pink,
VertexStyle -> Pink, GraphStyle -> "BasicBlack"]
Out[3]=
![](assets.en/visualize-and-analyze-anatomical-structures/O_3.png)
Find the parts of the left forearm.
In[4]:=
![Click for copyable input](assets.en/visualize-and-analyze-anatomical-structures/In_4.png)
g = NestGraph[Cases[EntityValue[#, "ConstitutionalParts"], _Entity] &,
Entity["AnatomicalStructure", "LeftForearm"], 2]
Out[4]=
![](assets.en/visualize-and-analyze-anatomical-structures/O_4.png)
Compute the combined length of pharynx, esophagus, stomach, small intestine, and large intestine.
In[5]:=
![Click for copyable input](assets.en/visualize-and-analyze-anatomical-structures/In_5.png)
UnitConvert[
EntityValue[
EntityGroup[{Entity["AnatomicalStructure", "Pharynx"],
Entity["AnatomicalStructure", "Esophagus"],
Entity["AnatomicalStructure", "Stomach"],
Entity["AnatomicalStructure", "SmallIntestine"],
Entity["AnatomicalStructure", "LargeIntestine"]}],
"Length"], "Metric"]
Out[5]=
![](assets.en/visualize-and-analyze-anatomical-structures/O_5.png)
Compare length and width of the foot in men and women.
In[6]:=
![Click for copyable input](assets.en/visualize-and-analyze-anatomical-structures/In_6.png)
# -> (UnitConvert[#, "Centimeters"] & /@
EntityValue[
EntityInstance[Entity["AnatomicalStructure", "Foot"],
"Gender" -> #], {"Length", "Width"},
"PropertyAssociation"]) & /@ {"Female", "Male"}
Out[6]=
![](assets.en/visualize-and-analyze-anatomical-structures/O_6.png)