Re: Minimize
- To: mathgroup at smc.vnet.net
- Subject: [mg93574] Re: [mg93562] Minimize
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 15 Nov 2008 06:03:30 -0500 (EST)
- Reply-to: hanlonr at cox.net
You can always apply brute force:
data = Flatten[Table[{Abs[3^d + 5^f - 2^7], {d, f}}, {d, -5, 5}, {f, -3, 3}],
1];
{#[[1]], Thread[{d, f} -> #[[2]]]} & /@
Select[data, #[[1]] == Min[data[[All, 1]]] &]
{{0, {d -> 1, f -> 3}}}
Bob Hanlon
---- Artur <grafix at csl.pl> wrote:
=============
Dear Mathematica Gurus,
What Mathematica procedure to use to minimize expotential finction e.g.
Minimize[Abs[3^d + 5^f - 2^7], {d, f}]
where we can push: d and f are both Integers
NMinimize[Abs[3^d + 5^f - 2^7], {d, f}]
Mathematica answer is:
{2.66454*10^-14, {d -> 2.03248, f -> 2.96773}}
good answer is:
{d,f}={1,3}
Best wishes
Artur
--
Bob Hanlon