New answers tagged animation
5
Solution by @Kuba can be easily extended to put the oscillators on a circle.
Loin = NDSolve[Stew, Table[x[i], {i, 0, 10}], {t, 50}];
fr[t_] = Transpose@{Most@Range[0, 2 Pi, 2 Pi/11], x[#][t]&/@Range[0, 10]} /. First@Loin;
r0 = 3;
Animate[
ListPlot[
Function[{th, r}, {(r0 + r) Cos[th], (r0 + r) Sin[th]}] @@@ fr[t],
PlotRange -> {{-5, ...
8
After edit
I think oscillation directions should be parallel.
g[t_] = Table[{Cos[i*2 Pi/11], Sin[i*2 Pi/11], x[i][t]} /. Loin[[1]], {i, 0, 10}];
Animate[
Show[
ListPointPlot3D[g[t], PlotRange -> 1.5, BoxRatios -> 1, Filling -> Axis,
PlotStyle -> Directive@AbsolutePointSize@7, Boxed -> False],
ParametricPlot3D[{Cos@t, ...
1
One possible alternative might be Control Systems in Mathematica.
With Control Systems you can carry out analysis, design, and simulation of time control systems.
For an example here an automated house heating system controlled by a thermostat.
(Sorry. I really tried to use the drawing tools for a nifty graphic, but...alas...i'm not even able to draw a ...
1
There is an open-source Modelica system called OpenModelica at www.openmodelica.org.
Frankly, I am a little baffled at what you are calling a "downside". Modelica is an object oriented language, so only different classes need to be defined within the library. A single class can be implemented as many objects within your model. For example, a resistor ...
Top 50 recent answers are included
