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
- Follow-Ups:
- RE: Simple Eval Question
- From: "Higinio Ramos" <higra@usal.es>
- RE: Simple Eval Question