Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*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 2005

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

Search the Archive

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


  • Prev by Date: MathLink and Python
  • Next by Date: Re: how to solve integral equation
  • Previous by thread: Re: how to solve integral equation
  • Next by thread: Simple Sum does not simplify