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 > >