Visualice y analice estructuras anatómicas
Represente gráficamente la estructura ósea y la piel de un pie humano, y calcule su área de superficie (en milímetros cuadrados).
In[1]:=
Row[EntityValue[{Entity["AnatomicalStructure", "RightFoot"],
Entity["AnatomicalStructure", "SkinOfRightFoot"]}, "MeshRegion"]]
Out[1]=
In[2]:=
Area[EntityValue[Entity["AnatomicalStructure", "SkinOfRightFoot"],
"MeshRegion"]]
Out[2]=
Represente gráficamente la conectividad de las ramas distales de la arteria braquial.
In[3]:=
NestGraph[Cases[EntityValue[#, "Branches"], _Entity] &,
Entity["AnatomicalStructure", "BrachialArtery"], 3,
VertexLabels -> Placed["Name", Tooltip], EdgeStyle -> Pink,
VertexStyle -> Pink, GraphStyle -> "BasicBlack"]
Out[3]=
Encuentre las partes del antebrazo izquierdo.
In[4]:=
g = NestGraph[Cases[EntityValue[#, "ConstitutionalParts"], _Entity] &,
Entity["AnatomicalStructure", "LeftForearm"], 2]
Out[4]=
Calcule la longitud combinada de la faringe, esófago, estómago e intestinos delgado y grueso.
In[5]:=
UnitConvert[
EntityValue[
EntityGroup[{Entity["AnatomicalStructure", "Pharynx"],
Entity["AnatomicalStructure", "Esophagus"],
Entity["AnatomicalStructure", "Stomach"],
Entity["AnatomicalStructure", "SmallIntestine"],
Entity["AnatomicalStructure", "LargeIntestine"]}],
"Length"], "Metric"]
Out[5]=
Compare la longitud y ancho del pie en un hombre y en una mujer.
In[6]:=
# -> (UnitConvert[#, "Centimeters"] & /@
EntityValue[
EntityInstance[Entity["AnatomicalStructure", "Foot"],
"Gender" -> #], {"Length", "Width"},
"PropertyAssociation"]) & /@ {"Female", "Male"}
Out[6]=