Re: question for compiling a function
- To: mathgroup at smc.vnet.net
- Subject: [mg113158] Re: question for compiling a function
- From: Ramiro <ramiro.barrantes at gmail.com>
- Date: Fri, 15 Oct 2010 13:53:41 -0400 (EDT)
- References: <i95tjc$65h$1@smc.vnet.net>
I got feedback from two people and it worked great:
My new function based on the suggestions is the following:
example2 =
Compile[{{n, _Real, 1}, {a, _Real}, {b, _Real}, {t, _Real, 1}},
Gamma[Total[n] + a]/(Times @@ (Gamma[n + 1])* Gamma[a])*b^a*
Times @@ (t^n)/(Total[t] + b)^(Total[n] + a)]
However, over certain inputs I get the following:
example2[{97.6203, 8.4788, 21.4204, 46.1755}, 1, 1, {39.9342, 7.5820,
5.8656, 10.0553}]
During evaluation of In[277]:= CompiledFunction::cfse: Compiled
expression 1.33128164105707197950410345`12.920368310128088*^315 should
be a machine-size real number. >>
During evaluation of In[277]:= CompiledFunction::cfex: Could not
complete external evaluation at instruction 4; proceeding with
uncompiled evaluation. >>
What can I do?
Thank you,
Ramiro