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

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

Search the Archive

differential equation

  • To: mathgroup at smc.vnet.net
  • Subject: [mg4766] differential equation
  • From: Ralph Gensheimer <ralphg at spock.physik.uni-konstanz.de>
  • Date: Fri, 13 Sep 1996 13:54:50 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

dear group,

i have the folowing problem:

in an ordinary differential equation system,
(solution functions are  y1(r), y2(r), y3(r) ) is an integration in another variable x.
and in this integral there is also the solution function y3(r).
r and x are independent.
the problem has the following structure:

NDSolve[{y1'[r] == y2[r],
         y2'[r] == -(2/r)*y2[r]+
                  (-y1[r])^(3/2)*NIntegrate[x^(1/2)/(Exp[x+y3[r]]-1),{x,0,Infinity}],
         y1[r]*y3'[r] == y2[r],
                                 y1[0.001]==-1000,
                                 y2[0.001]==0,
                                 y3[0.001]==0 },{y1,y2,y3},{r,0.001,0.2}]

can you give me ideas to solve this problem ?

ralph

==== [MESSAGE SEPARATOR] ====


  • Prev by Date: Mathematica transcription in C language
  • Next by Date: Re: Books
  • Previous by thread: Mathematica transcription in C language
  • Next by thread: Re: differential equation