Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2006
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Help needed

  • To: mathgroup at smc.vnet.net
  • Subject: [mg71119] Re: Help needed
  • From: "dimitris" <dimmechan at yahoo.com>
  • Date: Thu, 9 Nov 2006 03:37:15 -0500 (EST)
  • References: <eisdmg$l9i$1@smc.vnet.net>

You could use Trace first to see where is your mistake

Trace[FindMinimum[erfunc[c1], {c1, 0}] ]

The following works as you desired.

func[(c1_)?NumericQ] := Module[{ldadn}, logdadnroot = ldadn /.
FindRoot[ldadn == c1*(1/(1 + Sqrt[ldadn]))^2, {ldadn, 1}]];

erfunc[(c1_)?NumericQ] := (func[c1] - 1)^2

FindMinimum[erfunc[c1], {c1, 0.001}]
{2.4697446749461332*^-17, {c1 -> 3.9999999701820843}}

Regards
Dimitris


  • Prev by Date: Singularity-handling transformation employed by NIntegrate
  • Next by Date: Re: building a list containing elements f(i,j)
  • Previous by thread: Help needed
  • Next by thread: Help needed