Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*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 2001

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

Search the Archive

Simple Eval Question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg31883] Simple Eval Question
  • From: ivo.welch at anderson.ucla.edu (ivo welch)
  • Date: Sun, 9 Dec 2001 06:07:07 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

I have a simple problem.  I want to numerically solve

   Solve[  Integrate[ f[x,p]*g[x], {x,0,Infinity}] == V , p ]

where f[] and g[] are defined functions, but the naive solution fails.

W=1; g=0.5; q=0.1; V=2;
fd[x_]:= PDF[ LogNormalDistribution[0,1],x ] ;
Solve[ Integrate[ ((W +(x-p)*q)^g)/g * fd[x], { x, 0, Infinity } ]== V, p ]

Solve::"tdep": "The equations appear to involve the variables to be solved \
for in an essentially non-algebraic way."

The correct answer seems to be 1.5652 .  How do I ask Mathematica to tell me
this number?

(My ultimate goal is to plot the solved p as a function of q.)

/iaw


  • Prev by Date: business/finance functions
  • Next by Date: Chem Synthesis Planning
  • Previous by thread: business/finance functions
  • Next by thread: RE: Simple Eval Question