Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: solve an integration equation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg99519] Re: [mg99495] solve an integration equation
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Thu, 7 May 2009 06:34:23 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

With[{a = 1, b = 2, d = 4, e = 7},
  FindRoot[
   Integrate[
     Sqrt[(1 + c*x^2)/(1 + d*x^2)],
     {x, a, b},
     GenerateConditions -> False] == e,
   {c, 2}]] // Chop

{c -> 219.67294373109104}

Quiet[With[{a = 1, b = 2, d = 4, e = 7},
   FindRoot[
    NIntegrate[
      Sqrt[(1 + c*x^2)/(1 + d*x^2)],
      {x, a, b}] == e,
    {c, 2}]] // Chop]

{c -> 219.67294373109013}


Bob Hanlon

---- sathyapaladugu at gmail.com wrote: 

=============
Hi .My problem is this.

 I have integral


 \!\(
\*SubsuperscriptBox[\(\[Integral]\), \(a\), \(b\)]\(
SqrtBox[
FractionBox[\(1 + c\
\*SuperscriptBox[\(x\), \(2\)]\), \(1 + d\
\*SuperscriptBox[\(x\), \(2\)]\)]] \[DifferentialD]x\)\) = e



I know a,b,d &e but need to find c
how can i find c .Please help me




  • Prev by Date: Message passing in mathematica?
  • Next by Date: Re: Given a matrix, find position of first non-zero element in each
  • Previous by thread: Re: solve an integration equation
  • Next by thread: Functions in partial differential equations with different number of