Re: Minimize
- To: mathgroup at smc.vnet.net
- Subject: [mg93573] Re: [mg93562] Minimize
- From: DrMajorBob <btreat1 at austin.rr.com>
- Date: Sat, 15 Nov 2008 06:03:19 -0500 (EST)
- References: <gfgqib$dm1$1@smc.vnet.net> <gfh3ca$g1d$1@smc.vnet.net>
- Reply-to: drmajorbob at longhorns.com
NMinimize[{Abs[3^d + 5^f - 2^7], {d, f} \[Element] Integers}, {d, f}]
{0., {d -> 1, f -> 3}}
Bobby
On Fri, 14 Nov 2008 05:36:09 -0600, 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
>
--
DrMajorBob at longhorns.com