# Wolfram 언어™

## 모델, 재료, 비용의 특성 계산

임베드된 기하학적 계산 기능 및 폭넓은 Wolfram Knowledgebase를 이용하여 3D 모델과 재료의 특성을 계산할 수있습니다.

In[1]:=
`model = ExampleData[{"Geometry3D", "SpaceShuttle"}, "Region"]`
Out[1]=

알루미늄의 경우 모델의 질량을 살펴봅니다.

In[2]:=
`volume = Quantity[Volume[model], "Centimeters"^3]`
Out[2]=
In[3]:=
```\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query\$\$ = "aluminuim", Typeset`boxes\$\$ = TemplateBox[{"\"aluminum\"", RowBox[{"Entity", "[", RowBox[{"\"Element\"", ",", "\"Aluminum\""}], "]"}], "\"Entity[\\\"Element\\\", \\\"Aluminum\\\"]\"", "\"element\""}, "Entity"], Typeset`allassumptions\$\$ = {{ "type" -> "Clash", "word" -> "aluminuim", "template" -> "Assuming \"\${word}\" is \${desc1}. Use as \ \${desc2} instead", "count" -> "3", "Values" -> {{ "name" -> "Element", "desc" -> "a chemical element", "input" -> "*C.aluminuim-_*Element-"}, { "name" -> "Commodity", "desc" -> "a futures contract", "input" -> "*C.aluminuim-_*Commodity-"}, { "name" -> "Word", "desc" -> "a word", "input" -> "*C.aluminuim-_*Word-"}}}}, Typeset`assumptions\$\$ = {}, Typeset`open\$\$ = {1, 2}, Typeset`querystate\$\$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.695111`6.293599154687963, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic, Dynamic[Typeset`query\$\$], Dynamic[Typeset`boxes\$\$], Dynamic[Typeset`allassumptions\$\$], Dynamic[Typeset`assumptions\$\$], Dynamic[Typeset`open\$\$], Dynamic[Typeset`querystate\$\$]], StandardForm], ImageSizeCache->{174., {7., 15.}}, TrackedSymbols:>{ Typeset`query\$\$, Typeset`boxes\$\$, Typeset`allassumptions\$\$, Typeset`assumptions\$\$, Typeset`open\$\$, Typeset`querystate\$\$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open\$\$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)["Density"]*volume```
Out[3]=

단위 면적 당 45센트의 비용 사용을 예측합니다.

In[4]:=
`area = Quantity[Area[RegionBoundary[model]], "Centimeters"^2]`
Out[4]=
In[5]:=
`Quantity[0.45, "USDollars"/"Centimeters"^2]*area`
Out[5]=

모델을 넣을 최소의 선물 상자를 생성합니다.

In[6]:=
`BoundingRegion[model, "MinCuboid"]`
Out[6]=
In[7]:=
```BoundingRegion[model, "MinCuboid"]; Show[{model, Graphics3D[{Opacity[0.5], %}]}]```
Out[7]=