[i]
以下为文字版代码:
f[x_, n_, k_, p_] = x^n/(k^n + x^n) (p (p + 1))/2 + k^n/(k^n + x^n) ((p - 1) p)/2 + (p + 1) (1 - p);
CFFL[a_, b_, c_] := ParametricNDSolveValue[{x'[t] == f[x[t], nxx, kxx, a] - x[t],y'[t] == f[y[t], nyy, kyy, b] f[x[t], nxy, kxy, 1] - y[t],z'[t] == f[z[t], nzz, kzz, c] f[x[t], nxz, kxz, 1] f[y[t], nyz, kyz, 1] - z[t], x[0] == x0, y[0] == y0, z[0] == z0}, {x[t], y[t], z[t]}, {t, 0, 100}, {kxx, kyy, kzz, kxy, kxz, kyz, nxx, nyy, nzz, nxy, nxz, nyz, x0, y0, z0}];
Table[DynamicModule[{kxx = 0.3`, kxy = 0.01`, kxz = 0.01`, kyy = 0.3`,kyz = 0.01`, kzz = 0.3`, nxx = 3, nxy = 1, nxz = 1, nyy = 3, nyz = 1, nzz = 3, tmax = 10, x0 = a, y0 = 0.185, z0 = 0.19}, Show[Plot[Evaluate[CFFL[#1[[1, 1]], #1[[1, 2]], #1[[1, 3]]][kxx, kyy, kzz, kxy, kxz, kyz, nxx, nyy, nzz, nxy, nxz, nyz, x0, y0, z0]][[3]] /. t -> t1, {t1, 0, tmax}, PlotRange -> All, PlotStyle -> {Thick, #1[[2]]}, AxesOrigin -> {0, 0}] & /@ Transpose[{Select[SortBy[Flatten[(Outer[List, ##1] &) @@ Array[{-1, 0, 1} &, 3],2], -Count[#1, 0] &], Count[#1, -1] == 0 &][[;; 4]], {Black, Blue, Red, Gray}}]]], {a, {0, .1, .5}}]
希望有大佬相助,谢谢大佬!!!