- #1

- 3

- 0

I have quiet a lot a problems solving and programing with Mathematica this system of diff. equations:

y'[x] == 1/b[x],

b'[x] == 1/ubb 1/(y[x] + R1) 1/b[x] (uba 1/(y[x] + R1) - ub),

**b[0] == b00**,

y[0] == 0

y[2] == Sqrt[5]

where ubb, uba, ub are functions:

ub = b[x] - b[x]/a Hypergeometric2F1[1/2, 3/2, 2, 1 - b[x]^2/a^2];

ubb = 1 -

1/a Hypergeometric2F1[1/2, 3/2, 2, 1 - b[x]^2/a^2] + (3 b[x]^2)/(

4 a^3) Hypergeometric2F1[3/2, 5/2, 3, 1 - b[x]^2/a^2];

uba = (3 b[x])/(4 a^2) Hypergeometric2F1[3/2, 3/2, 3, 1 - b[x]^2/a^2]

and

a = 1/(y[x] + R1)

I'm trying to find initial value for b[0] ("value b00") with respect to initial and boundary value of the other variable y[0]=0, y[2]=Sqrt[5].

I hope I wrote down enough informations and also hope that someone will have time and joy to solve this or just give some advice.

Have a nice day,

goos