Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
ArnoudBuzing`PhysicsModelLink`
PhysicsModelVideo  |
| | |||||
Details and Options
Examples
(1)
Basic Examples
(1)
Create a model with a dodecahedron rolling on an inclined plane:
In[1]:=
dodecahedron=Translate[ConvexHullMesh[N[PolyhedronData["Dodecahedron","Points"]]],{3,0,5}];model=
[{StandardOrange,HatchShading[],dodecahedron}],
[{{-5,-5,0},{5,5,7}}],
[{Gray,HatchShading[],ConvexHullMesh[{{-5,-5,0},{-5,5,0},{5,5,0},{5,-5,0},{-5,-5,1},{-5,5,1},{5,5,3},{5,-5,3}}]}],
 | CreatePhysicsModel |
 | DynamicBody |
| PhysicsBoundaryBox |
| FixedBody |
Out[1]=
PhysicsModelObject
 |  |
|
Evolve the model for 300 steps with time step 1/60:
In[2]:=
frames=
[model,500,1/60.0];
 | PhysicsModelEvolve |
Generate a video from the frames:
In[3]:=
 | PhysicsModelVideo |
Out[3]=
""