5

私は混沌としたアトラクタを扱っており、いくつかの連続 - > 離散等価性をテストしています。この方法で、ロスラー システムの連続シミュレーションを作成しました。

a = 0.432; b = 2; c = 4;
Rossler = {
    x'[t] == -y[t] - z[t], 
    y'[t] == x[t] + a*y[t],
    z'[t] == b + x[t]*z[t]-c*z[t]};
sol = NDSolve[
  {Rossler, x[0] == y[0] == z[0] == 0.5}, 
  {x, y, z}, {t,500}, MaxStepSize -> 0.001, MaxSteps -> Infinity]

さて、RSolve で離散等価システムを評価しようとすると、Mma は何もせず、エラーも出さず、解けないだけです。

RosslerDiscreto = {
       x[n + 1] == x[n] - const1*(y[n] + z[n]),
       y[n + 1] == 1 - a*const2)*y[n] + const2*x[n], 
       z[n + 1] == (z[n]*(1 - const3) + b*const3)/(1 - const3*x[n])}

NDSolve が DSolve の場合と同様に、RSolve の数値関数があるかどうかを知りたいです。For[] サイクルで計算できることはわかっていますが、そのような関数が存在するかどうかを知りたいだけです。

4

1 に答える 1

8

RecurrenceTableRSolveの数値アナログです。

rosslerDiscreto = {
  x[n+1] == x[n] - C[1]*(y[n] + z[n]),
  y[n+1] == (1 - a*C[2])*y[n] + C[2]*x[n],
  z[n+1] == (z[n]*(1 - C[3]) + b*C[3]) / (1 - C[3]*x[n]),
  x[0] == y[0] == z[0] == 0.5
} /. {a->0.432, b->2, c->4, C[1]->0.1, C[2]->0.1, C[3]->0.1};
coords = RecurrenceTable[rosslerDiscreto, {x,y,z}, {n,0,1000}];
Graphics3D@Point[coords]

離散動的システムの動作の例

于 2011-06-04T00:48:12.307 に答える