Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

FunctionInterpolation Q

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14915] FunctionInterpolation Q
  • From: "Arturas Acus" <acus at itpa.lt>
  • Date: Wed, 25 Nov 1998 17:48:36 -0500
  • Sender: owner-wri-mathgroup at wolfram.com

Dear group,

Recently I have tried the following:

FunctionInterpolation[
Re[NIntegrate[Exp[I*p*x]*Exp[-x^2], {x,1,Infinity}]],{p,0,3}]

with the only difference that insted of Exp[-x^2] I have used some my 
function. This is actually Fourier integral transformation of my
special function,  having non zero values in the interval [1,Infinity]
over the interval  {p,0,3}.

The following modification involving function "interm" works, if I 
specify the argument with (p_?NumberQ) (not just p)

In[48]:=
interm[p_?NumberQ]:=Re[NIntegrate[Exp[I*p*x]*Exp[-x^2], {x,1,Infinity}]]
In[49]:= FunctionInterpolation[interm[p],{p,0,3}]

Could anybody explain what happens here. It seems for me to be an
evaluation order problem here.

But I want a single function. Also suggestions to speed up the 
transformation is wellcome.





                                      Arturas Acus
Institute of Theoretical
Physics and Astronomy
Gostauto 12, 2600,Vilnius
Lithuania 


E-mail: acus at itpa.lt
   Fax: 370-2-225361
   Tel: 370-2-612906


  • Prev by Date: RE: PlotLabel question
  • Next by Date: Glynn/Gray book for beginners ?
  • Previous by thread: mathlink & MS Visual C++ 6.0
  • Next by thread: Glynn/Gray book for beginners ?