Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Trouble with Maximizing a function' topicStudent Support Forum > General > "Trouble with Maximizing a function"

Next Comment >Help | Reply To Topic
Author Comment/Response
Sudarshan Baruah
12/01/05 1:25pm

hi,
I have got a problem to maximize a function which is:
total[m_]:=sqrt(q[m]^2+r[m]^2)

where,
q[m_]:=NIntegrate[t[s]*Sin[m*s],{s,0,2Pi}]
and
r[m_]:=NIntegrate[t[s]*Cos[m*s],{s,0,2Pi}]

Here, integration is over s and it is from 0 to 2 Pi. Values of t[s] are as follows:

t[s]=One, when s is between 0 and 3pi/18
t[s]=Two, when s is between 3pi/18 and 7pi/18

and so on in the interval 0 to Pi of s.
One, Two etc are unknown variables. This is achieved as:

t[s]:=Which[0 ≤ s ≤ 3Pi/18, One, 3Pi/18 ≤ s ≤ 7Pi/18, Two, 7Pi/18 ≤ s ≤ 10Pi/18, Three, 10Pi/18 ≤ s ≤ 18Pi/18, Four, 18Pi/18 ≤ s ≤ 21Pi/18, Five, 21Pi/18 ≤ s ≤ 25Pi/18, Six, 25Pi/18 ≤ s ≤ 28Pi/18, Seven, 28Pi/18 ≤ s ≤ 36Pi/18, Eight]

Now, when trying to maximize, for eaxmple, total[4_] as follows

Maximize[total[4_], {One, Two, Three, Four, Five, Six, Seven, Eight}]

I dont get a result. Could anyone point me the mistake?

Ultimately, I want to find the variables One, Two, Three....., Eight for which the function total[m_] for m=4 is maximum.

URL: ,

Subject (listing for 'Trouble with Maximizing a function')
Author Date Posted
Trouble with Maximizing a function Sudarshan Ba... 12/01/05 1:25pm
Re: Trouble with Maximizing a function yehuda ben-s... 12/07/05 12:10pm
Re: Trouble with Maximizing a function Sudarshan Ba... 12/15/05 11:00am
Next Comment >Help | Reply To Topic