Wolfram言語™

生体構造の可視化と解析を行う

ヒトの足の骨の構造と皮膚をプロットし，表面積（単位：平方ミリメートル）を推定する．

In[1]:=

Row[EntityValue[{Entity["AnatomicalStructure", "RightFoot"], Entity["AnatomicalStructure", "SkinOfRightFoot"]}, "MeshRegion"]]

Out[1]=

In[2]:=

Area[EntityValue[Entity["AnatomicalStructure", "SkinOfRightFoot"], "MeshRegion"]]

Out[2]=

気管支動脈の末梢部分の接続性をプロットする．

In[3]:=

NestGraph[Cases[EntityValue[#, "Branches"], _Entity] &, Entity["AnatomicalStructure", "BrachialArtery"], 3, VertexLabels -> Placed["Name", Tooltip], EdgeStyle -> Pink, VertexStyle -> Pink, GraphStyle -> "BasicBlack"]

Out[3]=

左前腕の構成部位を求める．

In[4]:=

g = NestGraph[Cases[EntityValue[#, "ConstitutionalParts"], _Entity] &, Entity["AnatomicalStructure", "LeftForearm"], 2]

Out[4]=

咽頭，食道，胃，小腸，大腸の長さの合計を計算する．

In[5]:=

UnitConvert[ EntityValue[ EntityGroup[{Entity["AnatomicalStructure", "Pharynx"], Entity["AnatomicalStructure", "Esophagus"], Entity["AnatomicalStructure", "Stomach"], Entity["AnatomicalStructure", "SmallIntestine"], Entity["AnatomicalStructure", "LargeIntestine"]}], "Length"], "Metric"]

Out[5]=

男性と女性の足の大きさ（長さと幅）を比較する．

In[6]:=

# -> (UnitConvert[#, "Centimeters"] & /@ EntityValue[ EntityInstance[Entity["AnatomicalStructure", "Foot"], "Gender" -> #], {"Length", "Width"}, "PropertyAssociation"]) & /@ {"Female", "Male"}

Out[6]=