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

Possible proof a Global Min?




In the lines below I use Plot,  FindMinimum and then Rationalize to
convince  myself that;
BesselJ[4,x] > -(63899/315140)    for (11< x <30)

Is it possible to prove that this is true? If so can you give me some
idea how it is done. If it is possible it would be great if the same
approach can be used for  many other functions involving elementary
functions, special functions, etc. 


In[1]:=
Plot[BesselJ[4,x],{x,11,30}]

Out[1]=
 -Grahpics not shown-


In[2]:=
fmin=FindMinimum[BesselJ[4,x],{x,16}] [[1]]

Out[2]=
 -0.202764


In[3]:=
lowest=Rationalize[fmin-10^-12, 10^-11]

Out[3]=
 -(63899/315140)


In[4]:=
lowest<fmin

Out[4]=
True




  • Prev by Date: MathLink connection from Mac to UNIX
  • Next by Date: Re: Diamond Video card problems?
  • Prev by thread: MathLink connection from Mac to UNIX
  • Next by thread: memory problems for Mathematica 3 under NT