Wolfram言語

3D印刷

モデル,材料,費用の特性を計算する

組込みの幾何学計算機能および幅広いWolfram Knowledgebaseを利用することで,3Dモデルと材料の特性が計算できる.

In[1]:=
Click for copyable input
model = ExampleData[{"Geometry3D", "SpaceShuttle"}, "Region"]
Out[1]=

アルミニウムの場合のモデルの質量.

In[2]:=
Click for copyable input
volume = Quantity[Volume[model], "Centimeters"^3]
Out[2]=
In[3]:=
Click for copyable input
\!\(\* 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]:=
Click for copyable input
area = Quantity[Area[RegionBoundary[model]], "Centimeters"^2]
Out[4]=
In[5]:=
Click for copyable input
Quantity[0.45, "USDollars"/"Centimeters"^2]*area
Out[5]=

モデルを入れる最小のギフトボックス.

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

関連する例

de en es fr ko pt-br ru zh