Re: how to solve integral equation
- To: mathgroup at smc.vnet.net
- Subject: [mg55486] Re: [mg55478] how to solve integral equation
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 26 Mar 2005 02:39:18 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
fcn[x_?NumericQ,b1_?NumericQ,b2_?NumericQ]:=
NIntegrate[Exp[-(b1 x1^3+b2 x1)],{x1,0,x}];
With[{x = 100,b2=.1 },
FindRoot[fcn[x,b1,b2]==1,
{b1,.1}]]
{b1 -> 0.5961404931802724}
fcn[100,b1,.1]/.%
1.
Bob Hanlon
>
> From: mss4 at duke.edu
To: mathgroup at smc.vnet.net
> Date: 2005/03/25 Fri AM 05:48:19 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg55486] [mg55478] how to solve integral equation
>
> I have a function
>
> fcn[x_,b1_,b2_]:= Integrate[Exp[-(b1 x1^3 + b2 x1)],{x1,0,x}]
>
> For a given large x, and a given b2, I need to solve
>
> fcn[xlarge,b1,b2given]==1
>
> for b1.
>
> Any help would be greatly appreciated.
>
> Matt
>
>