모델, 재료, 비용의 특성 계산
임베드된 기하학적 계산 기능 및 폭넓은 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]=