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