- #1
goos
- 3
- 0
Hi all!
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
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