2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




 
 Диференциальное уравнение в Mathematica
Сообщение25.05.2009, 19:30 
Есть уравнение, которое приобразовано с модели хищник-жертва
$x'=(a-by)x , 
y'=(-c+dx)y$
Его можно решить и смоделировать в Matematica.
Вот код решения:
$a = 4; b = 5/2; c = 2; d = 1;
NDSolve[{x'[t] == (a - by[t])x[t], 
y'[t] == (-c + dx[t])y[t],  
x[0] == 3, y[0] == 1}, {x[t], y[t]}, {t, 0, 10}]$
выводит оно такое:
${{x[t] -> InterpolatingFunction[{{0., 10.}}, <>][t],  y[t] ->InterpolatingFunction[{{0., 10.}}, <>][t]}}$

Вопрос таков: Как мне вывести конкретное значение х или y в момент времени 5 или 10?
Заранее спасибо.

 
 
 
 Re: Диференциальное уравнение в Mathematica
Сообщение25.05.2009, 23:44 
Например, так:
Код:
a = 4; b = 5/2; c = 2; d = 1;
f[t_] = {x[t], y[t]}/.NDSolve[{x'[t] == (a - b y[t]) x[t], y'[t] == (-c + d x[t]) y[t],  x[0] == 3, y[0] == 1}, {x[t], y[t]}, {t, 0, 10}][[1]]
f[1]
{1.09666, 2.26288}

И программу для математики стоит оформлять в виде кода. Тогда ее сразу можно копировать, вставить в математику и т.п. ТеХ здесь не причем.

 
 
 [ Сообщений: 2 ] 


Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group