Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'how to numerically solve such equations' topicStudent Support Forum > General > "how to numerically solve such equations"

Help
Author Comment/Response
morrissey22
03/30/12 09:40am

NDSolve[{
T1'[t] == -10000 (T1[t] - T2[t]) + 100000 (Z[t]/(1.2 10^-10)),
T2'[t] == -10 (T2[t]) + 6666.7 (Z[t]/(1.2 10^-10)),
Sqrt[Z[t]] (1.1 10^6 + 1.1 10^6 +
I ((t 1 10^6 +
1.77 10^15) - (1.77 10^15 (1 + (-0.0000114 T1[t])/
1.43 + (3.2 10^-20)/1.43 (Z[t]/(1.2 10^-10))/(
1.2 10^-7) + 0.0000187/(4 10^-3) T2[t])))) ==
I 0.0163/(1.2 10^-10) 2.5 10^-6,
T1[0] == 0,
T2[0] == 0,
Z[0] == 0
}, {T1[t], T2[t], Z[t]}, {t, 0, 100}
]

URL: ,
Help