Вікіпедія

Файл:Lotka-Volterra.svg

Повна роздільність (SVG-файл, номінально 512 × 512 пікселів, розмір файлу: 432 КБ)

Опис файлу

Опис
English: Phase portrait of Lotka-Volterra system. Mathematica code:
Italiano: Ritratto di fase del sistema Lotka-Volterra. Codice Mathematica: 
tend = 40;
Needs["VectorFieldPlots`"]

Quiet@Manipulate[
  right1 = (a - b y[t]) x[t];
  right2 = (c x[t] - d) y[t];
  Solutions = 
   Table[NDSolve[{x'[t] == right1, y'[t] == right2, x[0] == d/c, 
      y[0] == i}, {x[t], y[t]}, {t, 0, tend}], {i, a/b, 
     3, (3 - a/b)/10}];
  plot1 = 
   ParametricPlot[Evaluate[{x[t], y[t]} /. Solutions], {t, 0, tend}, 
    ImageSize -> {300, 300}, AxesOrigin -> {0, 0}, 
    PlotStyle -> {{Blue, Thick}}];
  plot2 = 
   Plot[Evaluate[{x[t], y[t]} /. Solutions[[-1]]], {t, 0, tend}, 
    ImageSize -> {300, 300}];
  plot3 = ListPlot[{{0, 0}, {d/c, a/b}}, PlotMarkers -> {Automatic}];
  plot4 = 
   VectorFieldPlot[{right1, right2} /. {x[t] -> x, y[t] -> y}, {x, 0, 
     3}, {y, 0, 3}];
  plotLeft = 
   Show[plot1, plot3, plot4, PlotRange -> {{0, 3}, {0, 3}}, 
    AxesLabel -> {x, y}, Ticks -> None];
  Row[{plotLeft, plot2}]
  , {{a, 1}, 0, 5}, {{b, 1}, 0, 5}, {{c, 1}, 0, 5}, {{d, 1}, 0, 5}]
Час створення
Джерело Власна робота
Автор Wiso

Ліцензування

Я, власник авторських прав на цей твір, добровільно публікую його на умовах таких ліцензій:
GNU head Дозволяється копіювати, розповсюджувати та/або модифікувати цей документ на умовах ліцензії GNU FDL версії 1.2 або більш пізньої, виданої Фондом вільного програмного забезпечення, без незмінних розділів, без текстів, які розміщені на першій та останній обкладинці. Копія ліцензії знаходиться у розділі GNU Free Documentation License.
w:uk:Creative Commons
зазначення авторства поширення на тих же умовах
Цей файл доступний на умовах ліцензій Creative Commons Attribution-Share Alike 3.0 Unported, 2.5 Generic, 2.0 Generic та 1.0 Generic.
Ви можете вільно:
  • ділитися – копіювати, поширювати і передавати твір
  • модифікувати – переробляти твір
При дотриманні таких умов:
  • зазначення авторства – Ви повинні вказати авторство, надати посилання на ліцензію і вказати, чи якісь зміни було внесено до оригінального твору. Ви можете зробити це в будь-який розсудливий спосіб, але так, щоб він жодним чином не натякав на те, наче ліцензіар підтримує Вас чи Ваш спосіб використання твору.
  • поширення на тих же умовах – Якщо ви змінюєте, перетворюєте або створюєте іншу похідну роботу на основі цього твору, ви можете поширювати отриманий у результаті твір тільки на умовах такої ж або сумісної ліцензії.
Ви можете обрати ліцензію на ваш розсуд.

Підписи

Додайте однорядкове пояснення, що саме репрезентує цей файл

Об'єкти, показані на цьому файлі

зображує

Історія файлу

Клацніть на дату/час, щоб переглянути, як тоді виглядав файл.

Дата/часМініатюраРозмір об'єктаКористувачКоментар
поточний11:20, 29 травня 2008Мініатюра для версії від 11:20, 29 травня 2008512 × 512 (432 КБ)Wiso{{Information |Description= |Source= |Date= |Author= |Permission= |other_versions= }}
11:19, 29 травня 2008Мініатюра для версії від 11:19, 29 травня 2008512 × 512 (344 КБ)Wiso{{Information |Description= |Source= |Date= |Author= |Permission= |other_versions= }}
10:48, 29 травня 2008Мініатюра для версії від 10:48, 29 травня 2008512 × 512 (432 КБ)Wiso{{Information |Description={{en|1=Phase portrait of Lotka-Volterra system. Mathematica code: tend = 40; Needs["VectorFieldPlots`"] Quiet@Manipulate[][t]) x[t]; right2 = (c x[t] - d) y[t]; Solutions = Table[][][t] == right1, y'[t] == right2, x[0]

Така сторінка використовує цей файл:

Глобальне використання файлу

Цей файл використовують такі інші вікі:

Отримано з https://uk.wiki.x.io/wiki/Файл:Lotka-Volterra.svg