Message Boards Message Boards

GROUPS:

[✓] Solve system of differential equations?

Posted 14 days ago
116 Views
|
1 Reply
|
3 Total Likes
|

Hello to everyone. I need to solve differential equations system and when I run the code, the computation process does not come to an end. How could I fix this problem? Any assistance would be highly appreciated. Thanks a lot.

k = 1230002/10^8;
m = k/(k + 1);
\[Xi] = 1/2 (1 - 2 m);
A = 2/\[Xi];
DSolve[{z2'[
t] == (z2[t]*
Sqrt[4 - (A*z2[t] + 1)^2/3])/(\[Xi]*(A*z2[t] + 1)^1/3), 
z2[0] == 7/2*\[Xi]}, z2[t], t]

Torebek,

I would use NDSolve since it is numerical. However, Your initial condition is not valid:

(z2[t]*Sqrt[4 - (A*z2[t] + 1)^2/3])/(\[Xi]*(A*z2[t] + 1)^1/3) /. 
 z2[t] -> 7/2*\[Xi]

is

(7 I Sqrt[39])/8

Regards,

Neil

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract