| Author |
Comment/Response |
Minas Theodorakis
|
 05/31/03 2:39pm
I have what seems to be a fairly simple problem:
I have defined the equations:
f[t_] =(a - p*y[t])x[t]
g[t_]=-(b-q*x[t])y[t]
Solving the system below, I get Interpolating Functions as solutions:
solution[xo_,yo_,T_]:=NDSolve[{x'[t]=f[t],y'[t]=g[t], x[0]=xo, y[0]=yo}, {x,y}, {t,0,T}]
I can, ofcourse plot these solutions:
solution1=solution[8.5, 1.5, 10]
Plot[y[t] /. solution1, {t, 0, 2}]
But I can't calculate minimums for these functions:
FindMinimum[y[t]/.solution1, {t, 0, 2}]
I even tried to do a ListPlot with the values:
Table[{t, y[t]/.solution1}, {t, 0, 5}]
but they were of the form:
{{t1, {y[t1]}}, {t2, {y[t2]}}, ...}
meaning that the values for y[t] are enclosed in {}, which I think creates the problem
I would be grateful if anyone had a suggestion for overcoming my difficulty.
Thanks in advance,
Minas
URL: , |
|
