R help - Jul 2007 - Optimization (MAX) with R

Dear all,
I need a suggest to obtain the max of this function:
 
Max x1*0.021986+x2*0.000964+x3*0.02913



with these conditions:
 
x1+x2+x3=1;
sqrt((x1*0.114434)^2+(x2*0.043966)^2+(x3*0.100031)^2)=0.04;
x1>=0;
x1<=1;
x2>=0;
x2<=1;
x3>=0;
x3<=1;
 
Any suggests ?
 
Thanks in advanced,
Massimiliano

Questo messaggio di posta elettronica contiene informazioni di carattere
confidenziale rivolte esclusivamente al destinatario sopra indicato.
E' vietato l'uso, la diffusione, distribuzione o riproduzione da parte
di ogni altra persona. Nel caso aveste ricevuto questo messaggio di posta
elettronica per errore, siete pregati di segnalarlo immediatamente al mittente e
distruggere quanto ricevuto (compresi i file allegati) senza farne copia.
Qualsivoglia utilizzo non autorizzato del contenuto di questo messaggio
costituisce violazione dell'obbligo di non prendere cognizione della
corrispondenza tra altri soggetti, salvo piu grave illecito, ed espone il
responsabile alle relative conseguenze.

This e-mail is confidential and may also contain privileged information. If you
are not the intended recipient you are not authorised to read, print, save,
process or disclose this message. If you have received this message by mistake,
please inform the sender immediately and delete this e-mail, its attachments and
any copies.
Any use, distribution, reproduction or disclosure by any person other than the
intended recipient is strictly prohibited and the person responsible may incur
penalties.
Thank you!

	[[alternative HTML version deleted]]

Talarico Massimiliano (UniCredit Xelion Banca) wrote on 07/17/2007 06:00 
PM:
> Dear all,
> I need a suggest to obtain the max of this function:
>  
> Max x1*0.021986+x2*0.000964+x3*0.02913
>
>
>
> with these conditions:
>  
> x1+x2+x3=1;
> sqrt((x1*0.114434)^2+(x2*0.043966)^2+(x3*0.100031)^2)=0.04;
> x1>=0;
> x1<=1;
> x2>=0;
> x2<=1;
> x3>=0;
> x3<=1;
>  
> Any suggests ?
>   
Use Lagrange multipliers and do it analytically?

Ted.