Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: Experimental`'NumericalFunction''

  • To: mathgroup at smc.vnet.net
  • Subject: [mg115964] Re: Experimental`'NumericalFunction''
  • From: DrMajorBob <btreat1 at austin.rr.com>
  • Date: Thu, 27 Jan 2011 03:42:46 -0500 (EST)

You didn't tell us what "conj" is or what values "q" and "i" have, and you  
didn't show the NMinimize statement.

Bobby

On Wed, 26 Jan 2011 04:03:42 -0600, tarun dutta <tarunduttaz at gmail.com>  
wrote:

> NMinimize::nnum: The function value
> Experimental`NumericalFunction[{Hold[prob],Block},{{{},Hold[a[0]]},
> {{},Hold[a[1]]},{{},Hold[a[2]]},{{},Hold[a[3]]},{{},Hold[a[4]]},
> {{},Hold[a[5]]},{{},Hold[b[0]]},{{},Hold[b[1]]},{{},Hold[b[2]]},
> {{},Hold[b[3]]},<<2>>},{{<<1>>}},{<<1>>},{444,<<5>>,None},
> {None,None,None}] is not a number at
> {a[0],a[1],a[2],a[3],a[4],a[5],b[0],b[1],b[2],b[3],<<2>>} =
> {0.304936,0.266141,0.365626,0.132704,0.870404,0.952376,-0.523097,0.275125,-0.797803,0.291049,<<2>>}.
>>>
>
> the expression what I am using does not contain any imaginary parts
> after simplification,still it shows above error..the expression ( f )
> is following-----
>
> d[i_] = a[i] + I*b[i];
> f = Together[
>    Sum[4*p*(Sqrt[i + 1]*d[i]*
>          conj[d[i + 1]]*(Sum[
>            Sqrt[i + 1]*conj[d[i]]*d[i + 1], {i, 0, n}]) +
>         Sqrt[i + 1]*conj[d[i]]*
>          d[i + 1]*(Sum[
>            Sqrt[i + 1]*d[i]*conj[d[i + 1]], {i, 0, n}])) + (i (i -
>            1) - q*i)* d[i]*conj[d[i]], {i, 0, n}]];
>
> so kindly give some valuable insight...
> with regards,
> tarun
>


-- 
DrMajorBob at yahoo.com


  • Prev by Date: Re: Vector problem
  • Next by Date: Barabasi-Albert graph model, documentation
  • Previous by thread: Experimental`'NumericalFunction''
  • Next by thread: Re: Experimental`'NumericalFunction''