Author: Not specified Language: text
Description: Not specified Timestamp: 2013-05-14 07:09:06 +0000
View raw paste Reply
  1. T = 1; xo = 0.7; yo = 0.9; zo = 0.3;
  2. solution = NDSolve[{x'[t] == 2 z[t] -
  3. x[t]*y[t], x[0] == xo,
  4.      y'[t] == y[t]*
  5.       E^(-t) - x[t]*z[t], y[0] == yo, z'[t] == z[t]*E^(-t) - x[t]*
  6.         y[t], z[0] == zo}, {x, y, z}, {t, 0, T}];
  7. ParametricPlot3D[Evaluate[{x[t], y[t], z[t]} /.
  8.         solution], {t, 0, T}, PlotRange -> All]
View raw paste Reply