MathGroup Archive 2006

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

Search the Archive

Re: Help needed


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