Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'FindMinimum on Interpolating Functions' topicStudent Support Forum > General > Archives > "FindMinimum on Interpolating Functions"

Next Comment >Help | Reply To Topic
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: ,

Subject (listing for 'FindMinimum on Interpolating Functions')
Author Date Posted
FindMinimum on Interpolating Functions Minas Theodo... 05/31/03 2:39pm
Re: FindMinimum on Interpolating Functions Henry Lamb 06/02/03 4:55pm
Next Comment >Help | Reply To Topic